【正文】 卸載窗體 = True Unload Me End Sub 。選定 lsdegree 條目時 在下面文本框中顯示 編輯 = End Sub Private Sub Form_Load() Tbch = False fil = FreeFile() Open + \ For Input As fil 39。刪除 If 1 Then () End If End Select End Sub Private Sub LsDegree_Click() 39。編輯 If = Then Exit Sub If 1 Then () = End If Case 4 39。添加 For i = 0 To 1 If (i) = Then MsgBox 該條目已經(jīng)存在 Exit Sub End If Next i Case 2 39。添加最末的 定制條目 定制 定制 定制 = 0 = 0 End If End Sub Private Sub LbF_Click(Index As Integer) Tbch = True Select Case Index Case 0 39。 ,。 ,。如果 table 條目變動 則 保存變動 fil = FreeFile() 30 Open + \ For Output 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 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 Sub Form_Activate() Dim i As Integer = = For i = 0 To 4 If (i).Visible = True Then ((i).Caption) ((i).Caption) End If Next i = 0 = 0 If = employee Then = True Else = False End If 27 End Sub Private Sub Form_Load() = = = 0 = 0 End Sub Private Sub Opt_Click(Index As Integer) = Not Opt(0).Value = Not Opt(0).Value = Not Opt(0).Value End Sub Private Sub Command1_Click() Dim i, j As Integer For i = 0 To 1 (i).Visible = True For j = 0 To 1 If (i).Caption = (j) Then (i).Visible = False GoTo xt: End If Next j xt: Next i = True = False 28 End Sub Private Sub Command2_Click() = True End Sub Private Sub Form_Activate() Dim a As Integer If Then a = If a 0 Then For i = 0 To a 1 ((i).Caption) Next i End If End If End Sub Private Sub Lbadd_Click() If Then () () End If End Sub Private Sub Lbdec_Click() If Then () () End If 29 End Sub Private Sub Lsshow_DblClick() () () End Sub Private Sub Lshide_DblClick() () ()