Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   360
         TabIndex        =   5
         Top             =   3600
         Width           =   1335
      End
      Begin VB.Label Label4 
         Caption         =   "性    別："
         BeginProperty Font 
            Name            =   "宋體"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   360
         TabIndex        =   4
         Top             =   1800
         Width           =   1335
      End
      Begin VB.Label Label3 
         Caption         =   "學生姓名："
         BeginProperty Font 
            Name            =   "宋體"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   360
         TabIndex        =   3
         Top             =   1200
         Width           =   1335
      End
      Begin VB.Label Label2 
         Caption         =   "學生編號："
         BeginProperty Font 
            Name            =   "宋體"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   360
         TabIndex        =   2
         Top             =   600
         Width           =   1335
      End
   End
   Begin VB.Label Label1 
      Caption         =   "學生基本信息"
      BeginProperty Font 
         Name            =   "隸書"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3240
      TabIndex        =   0
      Top             =   0
      Width           =   3855
   End
End
Attribute VB_Name = "frmStuff_info"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
    Unload Me
    Exit Sub
End Sub

Private Sub addNewRecord()
    Dim SQL As String
    Dim rs As New ADODB.Recordset
    SQL = "select * from StuffInfo"
        Set rs = TransactSQL(SQL)
        rs.AddNew                                 '添加新記錄
            rs.Fields(0) = Trim(Me.ID)
            rs.Fields(1) = Trim(Me.StuffName)
            rs.Fields(2) = Gender.Text
            rs.Fields(3) = Trim(Me.Place)
            rs.Fields(4) = Trim(Me.Age)
            rs.Fields(5) = Trim(Me.Birthday)
            rs.Fields(6) = Trim(Me.Degree)
            rs.Fields(7) = Trim(Me.Speciality)
            rs.Fields(8) = Trim(Me.Address)
            rs.Fields(9) = Trim(Me.Code)
            rs.Fields(10) = Trim(Me.Tel)
            rs.Fields(11) = Trim(Me.Email)
            rs.Fields(12) = Trim(Me.WorkTime)
            rs.Fields(13) = Trim(Me.InTime)
            rs.Fields(14) = Trim(Me.Dept)
            rs.Fields(15) = Trim(Me.PayTime)
            rs.Fields(16) = Trim(Me.Position)
            rs.Fields(17) = Trim(Me.Remark)
        rs.Update
        rs.Close
End Sub

Private Sub init()                               '初始化
        Me.StuffName = ""
        Me.Gender.ListIndex = 0
        Me.Place = ""
        Me.Age = ""
        Me.Birthday = ""
        Me.Degree = ""
        Me.Speciality = ""
        Me.Address = ""
        Me.Code = ""
        Me.Tel = ""
        Me.Email = ""
        Me.WorkTime = ""
        Me.InTime = ""
        Me.Dept = ""
        Me.PayTime = ""
        Me.Position = ""
        Me.Remark = ""
        Me.StuffName.SetFocus
End Sub

Private Sub cmdOK_Click()
    Dim SQL As String
    Dim temp As String
    Dim num As Integer
    Dim rs As New ADODB.Recordset
    If Trim(Me.StuffName) = "" Then                 '判斷學生姓名是否為空
        MsgBox "請輸入學生姓名！", vbOKOnly + vbExclamation, "警告！"
        Me.StuffName.SetFocus
        Exit Sub
    End If
    If Trim(Me.Age) = "" Then                       '判斷年齡是否為空
        MsgBox "請輸入學生年齡！", vbOKOnly + vbExclamation, "警告！"
        Me.Age.SetFocus
        Exit Sub
    End If
    If Trim(Me.Birthday) = "" Then                  '判斷生日是否為空
        MsgBox "請輸入學生生日！", vbOKOnly + vbExclamation, "警告！"
        Me.Birthday.SetFocus
        Exit Sub
    End If
    If Trim(Me.Dept) = "" Then                      '判斷班級是否為空
        MsgBox "請輸入學生所在班級！", vbOKOnly + vbExclamation, "警告！"
        Me.Dept.SetFocus
        Exit Sub
    End If
    If Trim(Me.Position) = "" Then                  '判斷職務是否為空
        MsgBox "請輸入學生職務！", vbOKOnly + vbExclamation, "警告！"
        Me.Position.SetFocus
    Exit Sub
    End If
    If Not IsDate(Me.Birthday) Then                 '判斷生日的格式
        MsgBox "生日請按照(yyyy-mm-dd)方式輸入！", vbOKOnly + vbExclamation, "警告！"
        Me.Birthday.SetFocus
        Exit Sub
        Else
        Me.Birthday = Format(Me.Birthday, "yyyy-mm-dd")
        End If
    If Not IsDate(Me.WorkTime) Then                 '判斷入學時間的格式
        MsgBox "入學時間請按照(yyyy-mm-dd)方式輸入！", vbOKOnly + vbExclamation, "警告！"
        Me.WorkTime.SetFocus
        Exit Sub
    Else
        Me.WorkTime = Format(Me.WorkTime, "yyyy-mm-dd")
    End If
    If Not IsDate(Me.InTime) Then                  '判斷進入本校時間格式
        MsgBox "進入本校時間請按照(yyyy-mm-dd)方式輸入！", vbOKOnly + vbExclamation, "警告！"
        Me.InTime.SetFocus
        Exit Sub
    Else
        Me.InTime = Format(Me.InTime, "yyyy-mm-dd")
    End If
    If Not IsDate(Me.PayTime) Then                 '正式上課時間格式
        MsgBox "正式上課時間請按照(yyyy-mm-dd)方式輸入！", vbOKOnly + vbExclamation, "警告！"
        Me.PayTime.SetFocus
        Exit Sub
    Else
        Me.PayTime = Format(Me.PayTime, "yyyy-mm-dd")
    End If
    If flag = 1 Then                               '添加操作
        SQL = "select * from StuffInfo where SName='" & Trim(Me.StuffName)
        SQL = SQL & "' and SGender='" & Gender.Text & "' and SBirthday='"
        SQL = SQL & Trim(Me.Birthday) & "' and SDept='" & Trim(Me.Dept)
        SQL = SQL & "' and SPosition='" & Trim(Me.Position) & "'"
        Set rs = TransactSQL(SQL)
        If rs.EOF = False Then                     '判斷是否已經存在學生記錄
             MsgBox "已經存在這個學生的記錄！", vbOKOnly + vbExclamation, "警告！"
             Me.StuffName.SetFocus
             Me.StuffName.SelStart = 0
             rs.Close
        Else
        Call addNewRecord
        MsgBox "記錄已經成功添加！", vbOKOnly + vbExclamation, "添加結果！"
        SQL = "update PersonNum set Num= Num+1"       '計數器加1
        TransactSQL (SQL)
        SQL = "select * from PersonNum"               '學生編號初始化
        Set rs = TransactSQL(SQL)
        num = rs(0)
        num = num + 1
        temp = Right(Format(100000000 + num), 7)
        Me.ID = "P" & temp
        rs.Close
        Call init
        SQL = "select * from StuffInfo"          '顯示信息列表
        frmResult.createList (SQL)
        frmResult.Show
        frmResult.ZOrder 0
        Me.ZOrder 0                              '顯示窗體繼續添加
        End If
    ElseIf flag = 2 Then                         '修改操作
        SQL = "update StuffInfo set SGender='" & Gender.Text & "',SPlace='"
        SQL = SQL & Trim(Me.Place) & "', SAge=" & Trim(Me.Age)
        SQL = SQL & ",SBirthday='" & Trim(Me.Birthday) & "',"
        SQL = SQL & "SDegree='" & Trim(Me.Degree) & "',"
        SQL = SQL & "SSpecial='" & Trim(Me.Speciality) & "',"
        SQL = SQL & "SAddress='" & Trim(Me.Address) & "',"
        SQL = SQL & "SCode='" & Trim(Me.Code) & "',"
        SQL = SQL & "STel='" & Trim(Me.Tel) & "',SEmail='" & Trim(Me.Email) & "',"
        SQL = SQL & "SWorkTime='" & Trim(Me.WorkTime) & "',"
        SQL = SQL & "SInTime='" & Trim(Me.InTime) & "',"
        SQL = SQL & "SDept='" & Trim(Me.Dept) & "',SPayTime='" & Trim(Me.PayTime)
        SQL = SQL & "',SPosition='" & Trim(Me.Position) & "',"
        SQL = SQL & "SRemark='" & Trim(Me.Remark) & "' where SID='" & Trim(Me.ID) & "'"
        TransactSQL (SQL)
        MsgBox "記錄已經成功修改！", vbOKOnly + vbExclamation, "修改結果！"
        Unload Me
        SQL = "select * from StuffInfo"
        frmResult.createList (SQL)
        frmResult.Show
    End If
End Sub

Private Sub Form_Load()
    Dim rs As New ADODB.Recordset
    Dim SQL As String
    Dim num As Integer
    Dim temp As String
    With Gender                                '添加性別選項
        .AddItem "男"
        .AddItem "女"
    End With
    If flag = 1 Then                           '判斷為添加信息
        Me.Caption = "添加" + Me.Caption
        Gender.ListIndex = 0
        SQL = "select * from PersonNum"
        Set rs = TransactSQL(SQL)
        num = rs(0)
        num = num + 1
        temp = Right(Format(10000000 + num), 7)
        Me.ID = "P" & temp
        rs.Close
    ElseIf flag = 2 Then                      '判斷為修改信息
        Set rs = TransactSQL(gSQL)
        If rs.EOF = False Then
        With rs
            Me.ID = rs(0)
            Me.StuffName = rs(1)
            Me.Gender = rs(2)
            Me.Place = rs(3)
            Me.Age = rs(4)
            Me.Birthday = rs(5)
            Me.Degree = rs(6)
            Me.Speciality = rs(7)
            Me.Address = rs(8)
            Me.Code = rs(9)
            Me.Tel = rs(10)
            Me.Email = rs(11)
            Me.WorkTime = rs(12)
            Me.InTime = rs(13)
            Me.Dept = rs(14)
            Me.PayTime = rs(15)
            Me.Position = rs(16)
            Me.Remark = rs(17)
        End With
        rs.Close
        Me.Caption = "修改" & Me.Caption
        Me.ID.Enabled = False
        Me.StuffName.Enabled = False
        Else
            MsgBox "目前沒有學生！", vbOKOnly + vbExclamation, "警告！"
        End If
    End If
End Sub