【正文】 職工編號 = + CStr((職工編號 )) If Then = 沒有此職員 Else With = 工號： + CStr(.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。del If = 1 Then If MsgBox( 確定要刪除嗎？ , vbOKCancel, 確定 ) = vbOK Then cuAp = 0 Else MsgBox 請選擇要刪除的條目！ End If Case 3 39。 pws(i)。 Emplo(i) Next i Close fil = = = If = Frmmain Then = True Else Call 23 End If End If End Sub Private Sub Form_LostFocus() End Sub Private Sub Form_Unload(Cancel As Integer) 39。如果 table 條目變動 則 保存變動 fil = FreeFile() 30 Open + \ For Output As fil 39。 ,。添加 For i = 0 To 1 If (i) = Then MsgBox 該條目已經(jīng)存在 Exit Sub End If Next i Case 2 39。刪除 If 1 Then () End If End Select End Sub Private Sub LsDegree_Click() 39。卸載窗體 = True Unload Me End Sub 。選定 lsdegree 條目時 在下面文本框中顯示 編輯 = End Sub Private Sub Form_Load() Tbch = False fil = FreeFile() Open + \ For Input As fil 39。編輯 If = Then Exit Sub If 1 Then () = End If Case 4 39。添加最末的 定制條目 定制 定制 定制 = 0 = 0 End If End Sub Private Sub LbF_Click(Index As Integer) Tbch = True Select Case Index Case 0 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 ElseIf Opt(2).Value Then str = or End If mysqls = mysqls + str + If = 等于 Then mysqls = mysqls + = + + ElseIf = 相似 Then mysqls = mysqls + Like + + Else mysqls = mysqls + + 26 End If End If = mysqls On Error GoTo exp: = mysqls Exit Sub exp: = 搜索語句錯誤： + mysqls End Sub Private