人力资源管理系统源代码

1 登陆窗体代码设计 窗体代码主要实现了连接数据库的功能 这里用于连接用户信息表 其程 序如下 Private Sub Form Load Dim i As Integer If App PrevInstance Then MsgBox 程序已经运行 不能再次装载 vbExclamation Unload Me End If 本段代码用于判定本程序是否已经装载于内存中 以避免程序的多重 启动 i 0 Open App Path user ini For Input As 1 Do While Not EOF 1 Input 1 user i pws i state i Emplo i If state i A Then Combo1 AddItem user i End If i i 1 Loop Close 1 Combo1 ListIndex 1 在窗口装载阶段读取用户设置文件获取用户信息 并装载于用户列表框 中 End Sub 2 取消 按钮是退出登录界面 退出系统的 其代码如下 Private Sub CmdCancel Click Unload Me End End Sub 3 确定 按钮代码设计 确定 按钮代码主要实现了用户登陆时 用户名和密码的认证 当用户 名或密码错误时 系统提示错误 其程序如下 Private Sub cmdOK Click If txtPassword pws Combo1 ListIndex Then CurId Combo1 ListIndex EmploID Emplo CurId CurUser user CurId CurPsw pws CurId Me Hide Load FrmMain FrmMain Show Else MsgBox Invalid Password try again Login txtPassword SetFocus SendKeys Home End End If End Sub 1 窗体选择的单击事件代码设计 窗体选择的单击事件代码主要实现了进入本系统所有模块的功能 这里有 以下几个模块 它们分别是员工信息模块 假条信息模块 工资管理模块 用 户设置模块等 其程序如下 Private Sub Toolbar2 ButtonClick ByVal Button As MSComctlLib Button Select Case Button Index Case 1 Call showemployee 显示员工信息模块 Case 2 Call showleave 显示假条信息模块 Case 3 Call showsalary 显示工资信息模块 Case 4 If frmLogin CurUser root Then FrmSys Show Else FrmPsw Show Pwin Frmmain FrmMain Enabled False End If End Select End Sub 2 命令按钮的单击事件代码设计 命令按钮的代码主要实现了进入本系统部分主要模块的功能 这里有以下 几个功能 它们分别是编辑 删除 查询 设置 其程序如下 Private Sub Toolbar1 ButtonClick ByVal Button As MSComctlLib Button Select Case Button Index Case 1 edit FrmEdit Show FrmMain Enabled False Case 2 del If DBGA SelBookmarks Count 1 Then If MsgBox 确定要删除吗 vbOKCancel 确定 vbOK Then DataA Recordset Delete cuAp 0 Else MsgBox 请选择要删除的条目 End If Case 3 seek FrmSearch Show Case 4 setup FrmSetup Show End Select End Sub 3 口令修改的主要代码设计 确定 按钮的代码主要实现了用户密码的修改功能 当旧密码错误或两 次新密码输入不一致时 系统会提示错误 其程序如下 Private Sub cmdOK Click Dim fil i Usercount As Integer If TxtNew1 Text TxtNew2 Text Then MsgBox two times no yizhi TxtNew1 SetFocus TxtNew2 Text SendKeys Home End Exit Sub ElseIf Txtold Text frmLogin CurPsw Then MsgBox old password wrong Txtold SetFocus TxtNew1 Text TxtNew2 Text SendKeys Home End Exit Sub Else fil FreeFile Open App Path user ini 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 frmLogin CurId TxtNew1 Text frmLogin CurPsw TxtNew1 Text fil FreeFile Open App Path user ini For Output As fil For i 0 To Usercount 1 Print fil user i pws i state i Emplo i Next i Close fil Txtold Text TxtNew1 Text TxtNew2 Text Me Hide I