【正文】 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() () () End Sub Private Sub Form_Unload(Cancel As Integer) = True Unload Me End Sub Option Explicit Dim Tbnam(50), Tbstr(50) As String 39。 state(i)。setup End Select End Sub Private Sub Toolbar2_ButtonClick(ByVal Button As ) Select Case Case 1 Call showemployee Case 2 Call showleave Case 3 Call showsalary Case 4 If = root Then 21 Else Pwin = Frmmain = False End If End Select End Sub Option Explicit Const MxUser = 100 Dim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As String Private Sub CmdCancel_Click() If = Frmmain Then = True Else Call End If End Sub Private Sub cmdOK_Click() Dim fil, i, Usercount As Integer If Then MsgBox two times no yizhi = SendKeys {Home}+{End} Exit Sub ElseIf Then MsgBox old password wrong = = 22 SendKeys {Home}+{End} Exit Sub Else fil = FreeFile() Open + \ For Input As fil i = 0 Do While Not EOF(fil) Input fil, user(i), pws(i) Input fil, state(i), Emplo(i) i = i + 1 Loop Usercount = i Close fil pws() = = fil = FreeFile() Open + \ For Output As fil For i = 0 To Usercount 1 Print fil, user(i)。 Private Sub MAbout_Click() End Sub Private Sub Mhelp_Click() End Sub Private Sub Moption_Click(Index As Integer) If Index = 0 Then If = root Then Else Pwin = Frmmain = False End If Else End End If End Sub Private Sub Mpop_Click(Index As Integer) Select Case Index Case 1 19 = False Case 2 If = 1 Then If MsgBox( 確定要刪除嗎？ , vbOKCancel, 確定 ) = vbOK Then cuAp = 0 Else MsgBox 請選擇要刪除的條目！ End If Case 3 End Select End Sub Private Sub Mtab_Click(Index As Integer) Dim i As Integer For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(Index).Checked = True Select Case Index Case 0 Call showemployee Case 1 Call showleave Case 2 Call showsalary End Select End Sub 20 Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 39。當前指針位置 Dim i As Integer Public Pwin As String Public Sub showemployee() = select * from employee (性別 ).Button = True (學歷 ).Button = True (部門 ).Button = True For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(0).Checked = True cutable = employee cuTabCh = True