【正文】 制 Then = 0 End IfEnd SubPrivate Sub CmdAddNew_Click() If = 添加 Then = 確認 = False = False = False For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 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。(i) = 0 Next i End SubPrivate Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End IfEnd SubPrivate Sub Lab_Click(Index As Integer)End SubPrivate Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack And Index = 0 Then KeyAscii = 0 Exit Sub End If If = leave And Index = 1 Then If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If = salary Then If Index = 3 Then If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If Index = 13 Then Exit Sub If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack And KeyAscii 46 Then KeyAscii = 0 Exit Sub End If End IfEnd SubPrivate Sub Txt_change(Index As Integer) If Bupdata = False Then Bupdata = True If = salary Then If Txt(Index).Text = Then Exit Sub If Index = 4 And Index = 6 Then Txt(7).Text = Val(Txt(4).Text) + Val(Txt(5).Text) + Val(Txt(6).Text) Txt(12).Text = Val(Txt(7).Text) Val(Txt(11).Text) End If If Index = 8 And Index = 10 Then Txt(11).Text = Val(Txt(8).Text) + Val(Txt(9).Text) + Val(Txt(10).Text) Txt(12).Text = Val(Txt(7).Text) Val(Txt(11).Text) End If End IfEnd SubPrivate Sub Form_Load() = + \ = + \ = = select * from + = select * from + Txt(0).Locked = True 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 () Else End If If (4) = 男 Then Opsex(0).Value = True Else Opsex(1).Value = True End If 39。設置lsdepart的顯示項 For i = 0 To 2 (i) If (i) = (8) Then = i End If Next i If = 1 Then (8) = 1 End If 定制39。leave Txt(7).Visible = True = False = False = False For i = 8 To 12 Lab(i).Visible = False Txt(i).Visible = False Next i For i = 0 To 7 Lab(i).Caption = (i).Name Txt(i).DataField = (i).Name Next i Txt(13).DataField = (10).Name If 1 Then () Else End If Else 39。), vbExclamation Unload Me End If 39。在窗口裝載階段讀取用戶設置文件獲取用戶信息 并裝載于用戶列表框中End SubPrivate Sub CmdCancel_Click() Unload Me EndEnd SubPrivate Sub cmdOK_Click() If txtPassword = pws() Then CurId = EmploID = Emplo(CurId) CurUser = user(CurId) CurPsw = pws(CurId) 39。當前指針位置Dim i As IntegerPublic Pwin As StringPublic 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 = TrueEnd SubPublic Sub showleave() = select * from leave For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(1).Checked = True cutable = leave cuTabCh = TrueEnd SubPublic Sub showsalary() = select * from salary For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(2).Checked = True cutable = salary cuTabCh = TrueEnd SubPrivate Sub Form_Load() Dim fil, tbcount, i As Integer Dim Tbstr(50), Tbnam(50) As String = + \ = + \ = select * from employee Call showemployee If Dir( + \) = Then 定制 定制 Else fil = FreeFile() Open + \ For Input As fil Do While Not EOF(fil) Input fil, Tbnam(i), Tbstr(i) i = i + 1 Loop Close fil tbcount = i For i = 0 To tbcount If Tbnam(i) = lsdegree Then Tbstr(i) ElseIf Tbnam(i) = lsdepart Then Tbstr(i) End If Next i 定制 定制 End IfEnd S