【正文】 .Fields(0)) + 姓名： + CStr(.Fields(1)) + 性別： + CStr(.Fields(4)) + 部門： + CStr(.Fields(8)) + 職位： + CStr(.Fields(9)) + 電話： + CStr(.Fields(11)) End With End If End If End Sub Private Sub LsDegree_Click() If = 定制 Then Else 17 (7) = (13) = CStr() (14) = CStr(Now) End If End Sub Private Sub LsDepart_Click() If = 定制 Then Else (8) = (13) = CStr() (14) = CStr(Now) End If End Sub Private Sub Lssex_Click() (4) = (13) = CStr() (14) = CStr(Now) End Sub 39。OK If Txt(0).Text = Then MsgBox 不可以為空 Txt(0).SetFocus Exit Sub End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。本段代碼用于判定本程序是否已經(jīng)裝 載于內(nèi)存中，以避免程序的多重啟動 i = 0 Open + \ For Input As 1 Do While Not EOF(1) Input 1, user(i), pws(i), state(i), Emplo(i) 12 If state(i) = A Then user(i) End If i = i + 1 Loop Close 1 = 1 39。 ,。添加 For i = 0 To 1 If (i) = Then MsgBox 該條目已經(jīng)存在 Exit Sub End If Next i Case 5 39。編輯 If = Then Exit Sub If 1 Then () = 31 End If Case 1 39。 ,。設置完畢 ElseIf = leave Then 39。employee For i = 0 To 12 Lab(i).Caption = (i).Name Next i Txt(0).DataField = (0).Name Txt(1).DataField = (1).Name Txt(2).DataField = (2).Name Txt(3).DataField = (3).Name Txt(4).Visible = False Txt(5).DataField = (5).Name Txt(6).DataField = (6).Name Txt(7).Visible = False Txt(8).Visible = False Txt(9).DataField = (9).Name Txt(10).DataField = (10).Name Txt(11).DataField = (11).Name Txt(12).DataField = (12).Name Txt(13).DataField = (15).Name If 1 Then 9 () Else End If If (4) = 男 Then Opsex(0).Value = True Else Opsex(1).Value = True End If 39。del If = 1 Then If MsgBox( 確定要刪除嗎？ , vbOKCancel, 確定 ) = vbOK Then cuAp = 0 Else MsgBox 請選擇要刪除的條目！ End If Case 3 39。 ,。選定 lsdegree 條目時 在下面文本框中顯示 編輯 = End Sub Private Sub Form_Load() Tbch = False fil = FreeFile() Open + \ For Input As fil 39。 Unload Me End Sub Option Explicit Private Sub Cmb1_Click() With Cmb1 If .Text = 職工編號 Or .Text = 交通補助 Or .Text = 加班補助 Or .Text = 工資編號 Or .Text = 假條編號 Or .Text = 身份證號 Or .Text = 出生日期 Or .Text = 中止日期 Or .Text = Edit Or .Text = 年份 Or .Text = 月份 Or .Text = 天數(shù) Or .Text = 基本工資 Or .Text = 總工資 Or .Text = 考勤扣除 Or .Text = 扣稅 Or .Text = 總扣除 Or .Text = 保險扣除 Then = = 0 Else 等于 相似 = 0 24 End If End With End Sub Private Sub Cmb3_Click() With Cmb3 If .Text = 職工編號 Or .Text = 工資編號 Or .Text = 假條編號 Or .Text = 身份證號 Or .Text = 出生日期 Or .Text = 中止日期 Or .Text = Edit Or .Text = 年份 Or .Text = 月份 Or .Text = 天數(shù) Or .Text = 基本工資 Or .Text = 總工資 Or .Text = 考勤扣除 Or .Text = 扣稅 Or .Text = 總扣除 Or .Text = 保險扣除 Then = = 0 Else 等于 相似 = 0 End If End With End Sub Private Sub CmdCancel_Click() = True End Sub Private Sub cmdOK_Click() Dim mysqls, str As String 25 If = Then Exit Sub: mysqls = select * from + + where If = 等于 Then mysqls = mysqls + + = + + ElseIf = 相似 Then mysqls = mysqls + + Like + + Else mysqls = mysqls + + + End If If = True Then str = If Optsex(1).Value Then str = and 性別 = + 男 ElseIf Optsex(2) Then str = and 性別 = + 女 End If End If mysqls = mysqls + str If Not Opt(0) Then If Opt(1).Value Then str = and