【正文】 seek Case 4 39。edit = False Case 2 39。Private Sub Lssex_LostFocus() = FalseEnd SubPrivate Sub Lsdegree_LostFocus() = FalseEnd SubPrivate Sub Lsdepart_LostFocus() = FalseEnd SubPrivate Sub DBGA_Scroll(Cancel As Integer) = False = False = FalseEnd Sub39。degree = + + = + () = True 0 Case 8 39。Load FrmMain Else MsgBox Invalid Password, try again!, , Login SendKeys {Home}+{End} End If End SubPrivate Sub Form_Unload(Cancel As Integer) Unload Me EndEnd SubOption ExplicitPublic cuTabCh As BooleanPublic cutable As StringPublic cuAp As Integer 39。本段代碼用于判定本程序是否已經(jīng)裝載于內(nèi)存中，以避免程序的多重啟動(dòng) i = 0 Open + \ For Input As 1 Do While Not EOF(1) Input 1, user(i), pws(i), state(i), Emplo(i) If state(i) = A Then user(i) End If i = i + 1 Loop Close 1 = 1 39。salary = False = False = False For i = 0 To 12 Lab(i).Caption = (i).Name Txt(i).DataField = (i).Name Next i Txt(13).DataField = (15).Name Txt(7).Locked = True Txt(11).Locked = True Txt(12).Locked = True If 1 Then () Else End If End If End SubPrivate Sub Form_Unload(Cancel As Integer) = True Unload Me End SubOption ExplicitConst MxUser = 100Public EmploID As IntegerPublic CurUser As StringPublic CurId As StringPublic CurPsw As StringDim user(MxUser), pws(MxUser), state(MxUser), Emplo(MxUser) As StringPrivate Sub Form_Load()Dim i As Integer If Then MsgBox (程序已經(jīng)運(yùn)行，不能再次裝載。設(shè)置完畢 ElseIf = leave Then 39。設(shè)置lsdegree的顯示項(xiàng) For i = 0 To 2 (i) If (i) = (7) Then = i End If Next i If = 1 Then (7) = 1 End If 定制 39。If = 0 Then Exit Sub If = employee Then 39。(i) = 0 Next i If = employee Then 職工編號(hào)= + Txt(0).Text If Not Then MsgBox 職員編號(hào)重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If ElseIf = leave Then 假條編號(hào)= + Txt(0).Text If Not Then MsgBox 假條編號(hào)重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i 工資編號(hào)= + Txt(0).Text If Not Then MsgBox 工資編號(hào)重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If End If = 添加 = True = True End If End SubPrivate Sub CmdCacel_Click() If = 確認(rèn) Then End If = True Unload Me If = employee Then (性別).Button = True (學(xué)歷).Button = True (部門).Button = TrueEnd IfEnd SubPrivate Sub CmdDel_Click() = False If Then End If End SubPrivate Sub cmdOK_Click() If Txt(0).Text = Then MsgBox 不可以為空 Txt(0).SetFocus Exit Sub End If Bupdata = False If = leave Then (8) = (9) = Now ElseIf = employee Then (13) = (14) = Now If Opsex(0) Then (4) = 男 Else (4) = 女 End If (7) = (8) = (13) = (14) = Now Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i (13) = (14) = Now End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i Txt(0).Locked = False If = employee Then