计算机应用专业毕业设计5-人事管理系统毕业设计程序清单(编辑修改稿)

计算机应用专业毕业设计5-人事管理系统毕业设计程序清单(编辑修改稿)内容摘要：

nput As 1 Do While Not EOF(1) Input 1, user(i), pws(i), state(i), Emplo(i) 12 If state(i) = A Then user(i) End If i = i + 1 Loop Close 1 = 1 39。 在窗口装载阶段读取用户设置文件获取用户信息 并装载于用户列表框中 End Sub Private Sub CmdCancel_Click() Unload Me End End Sub Private Sub cmdOK_Click() If txtPassword = pws() Then CurId = EmploID = Emplo(CurId) CurUser = user(CurId) CurPsw = pws(CurId) 39。 Load FrmMain Else MsgBox Invalid Password, try again!, , Login SendKeys {Home}+{End} End If End Sub Private Sub Form_Unload(Cancel As Integer) Unload Me 13 End End Sub Option Explicit Public cuTabCh As Boolean Public cutable As String Public cuAp As Integer 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 End Sub Public Sub showleave() = select * from leave For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(1).Checked = True cutable = leave cuTabCh = True End Sub Public Sub showsalary() = select * from salary For i = 0 To 2 Mtab(i).Checked = False Next i 14 Mtab(2).Checked = True cutable = salary cuTabCh = True End Sub Private 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 定制 定制 15 End If End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub DBGA_ButtonClick(ByVal ColIndex As Integer) Dim Co As Column Set Co = (ColIndex) Select Case ColIndex Case 4 = + + = + () = True 0 Case 7 39。 degree = + + = + () = True 0 Case 8 39。 department = + + = + () = True 0 End Select End Sub Private Sub DBGA_HeadClick(ByVal ColIndex As Integer) 16 End Sub Private Sub DBGA_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Mp End If End Sub Private Sub DBGA_RowColChange(LastRow As Variant, ByVal LastCol As Integer) cuAp = If cuAp 1 Then 职工编号 = + 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。 Private Sub Lssex_LostFocus() = False End Sub Private Sub Lsdegree_LostFocus() = False 18 End Sub Private Sub Lsdepart_LostFocus() = False End Sub Private Sub DBGA_Scroll(Cancel As Integer) = False = False = False End Sub 39。 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。