【正文】 ).SetFocus Else txtxSQL = select*from user_Info Set mrc = ExecuteSQL(txtSQL, MsgTxet) While ( = False) If Trim((0)) = Trim(Text1(0)) Then MsgBox 用戶已經(jīng)存在，請(qǐng)重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus Text1(0).Text = Text1(1).Text = Text1(2).Text = Exit Sub Else End If Wend End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 兩次輸入密碼不一樣，請(qǐng)確認(rèn)！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Else If Text1(1).Text = Then MsgBox 密碼不能為空！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Else (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) MsgBox 添加用戶成功！, vbOKOnly + vbExclamation, 警告 End If End IfEnd Sub 修改用戶密碼窗體的創(chuàng)建 Private Sub cmdOK_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 密碼輸入不正確！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Else txtSQL = select*from user_Info where user_ID= amp。 ) Then If Not IsDate(txtItem(3)) Then MsgBox 生日應(yīng)輸入日期（yyyymmdd)！, vbOKOnly + vbExclamation, 警告 txtItem(3).SetFocus Exit Sub Else txtItem(3) = Format(txtItem(3), yyyymmdd) End IfEnd If If Trim(txtItem(7) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此員工檔案編號(hào)的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus txtItem(0).SelStart = 0 txtItem(0).SelLength = Len(txtItem(0)) Exit Sub End If End If txtSQL = delete from manrecord where ygid= amp。 修改 End If mblChange = FalseEnd Sub 修改員工基本信息窗體的創(chuàng)建 Private Sub Form_Load() ShowTitle ShowDate flagEdit = TrueEnd SubPublic Sub ShowTitle()Dim i As IntegerWith msgList .Cols = 21 .TextMatrix(0, 1) = 編號(hào) .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 部門 .TextMatrix(0, 4) = 性別 .TextMatrix(0, 5) = 出生日期 .TextMatrix(0, 6) = 籍貫 .TextMatrix(0, 7) = 學(xué)歷 .TextMatrix(0, 8) = 專業(yè) .TextMatrix(0, 9) = 參加工作時(shí)間 .TextMatrix(0, 10) = 職稱 .TextMatrix(0, 11) = 進(jìn)入公司時(shí)間 .TextMatrix(0, 12) = 備注 .FixedRows = 1 For i = 0 To 11 .ColAlognment(i) = 0 Next i .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .ColWidth(0) = 300 .ColWidth(1) = 1000 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 600 .ColWidth(5) = 1000 .ColWidth(6) = 2022 .ColWidth(7) = 1000 .ColWidth(8) = 2022 .ColWidth(9) = 1200 .ColWidth(10) = 1000 .ColWidth(11) = 1200 .Row = 1 End WithEnd SubPublic Sub ShowDate() Dim j As Integer Dim i As Integer Set mrc = ExecuteSQL(txtSQL, MsgTxet) If = False Then With msgList .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 ElseCall menuAddrecord_ClickEnd IfElseMsgBox 請(qǐng)選擇要修改的記錄？, vbOKOnly + vbExclamation, 警告 = select*from manrecord 0End IfEnd Sub 刪除員工信息 Private Sub menuDelete_Click() Dim txtSQL As String Dim MsgText As String Dim intCount As String Dim mrc As If flagEdit Then If 1 Then If MsgBox(真的要?jiǎng)h除這條文件記錄嗎？ , vbOKOnly + vbExclamation, 警告) = vbOK Then intCount = txtSQL = delect from manrecord where ygid= amp。 ) amp。 ) amp。 ) amp。 1), yyyymmdd) dEndDateTemp = DateAdd(d, 1, DateAdd(m, 1, DateSerial(CInt(cboYear(1)), CInt(cboMonth(1)), 1))) dEndDate = Format(dEndDateTemp, yyyymmdd) If Trim(sQSqlamp。 Else sQSql = sQSql amp。 dEndDateamp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If index = 0 Then cboItem(1).Clear If Not Then With cboItem(1) Do While Not .AddItem Trim(mrc!ygname) Loop .ListIndex = 0 End With = True Else MsgBox 請(qǐng)先建立員工檔案！, vbOKOnly + vbExclamation, 警告 = False Exit Sub End If ElseIf index = 1 Then cboItem(1).ListIndex txtId = Trim(mrc!ygid) End If End IfEnd SubPrivate Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim recTemp As Recordset Dim sSql As String Dim MsgText As String For intCoount = 0 To 3 If Trim(txtItem(intCount) amp。 and kqdate= amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在該員工在該月的考勤記錄！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If End If txtSQL = delete from checkin where kqid= amp。 amp。, yyyymmdd) amp。 添加 txtSQL = select DISTINCT ygdept from manrecord Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(0).AddItem Trim(mrc!ygdept) Loop cboItem(0).ListIndex = 0 Else MsgBox 請(qǐng)先進(jìn)行員工檔案登記！, vbOKOnly + vbExclamation, 警告 = False Exit Sub End If dateTemp = DateAdd(d, 1, DateAdd(m, 1, DateSerial(CInt(cboYear), CInt(cboMonth), 1))) txtItem(0) = Day(dateTemp) ElseIf gintMode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With mrc cboItem(1). (1) cboItem(1).ListIndex = 0 For intCount = 2 To 19 If Not IsNull(.Fields(intCount)) Then txtItem(intCount 2) = .Fields(intCount) End If Next intCount txtId = .Fields(0) End With End If txtSQL = select ygdept from manrecord where ygname= amp。 Trim((, 1)) amp。 模塊測(cè)試測(cè)試是進(jìn)行代碼審查，從數(shù)據(jù)類型，變量聲明，數(shù)據(jù)結(jié)構(gòu)進(jìn)行審查，然后進(jìn)行功能測(cè)試，從輸入一些簡(jiǎn)單的數(shù)據(jù)開始執(zhí)行一遍，觀測(cè)運(yùn)行期間變量的變化，運(yùn)行中值的變化范圍。s information, such managements as personnel managements , such as staff3