hr人力资源管理系统源码.doc

hr人力资源管理系统源码 篇一：人力资源管理系统源代码 1）登陆窗体代码设计 窗体代码主要实现了连接数据库的功能，这里用于连接用户信息表。其程序如下： Private Sub Form_Load() Dim i As Integer If App.PrevInstance Then MsgBox (quot;程序已经运行，不能再次装载。quot;), vbExclamation Unload Me End If #39;本段代码用于判定本程序是否已经装载于内存中，以避免程序的多重启动 i = 0 Open App.Path + quot;\user.iniFor Input As #1 Do While Not EOF(1) Input #1, user(i), pws(i), state(i), Emplo(i) If state(i) = quot;AThen Combo1.AddItem user(i) End If i = i + 1 Loop Close #1 Combo1.ListIndex = 1 #39;在窗口装载阶段读取用户设置文件获取用户信息 并装载于用户列表框中 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 #39;Load FrmMain FrmMain.Show ElseMsgBox quot;Invalid Password, try again!quot;, , quot;Loginquot; txtPassword.SetFocus SendKeys quot;{Home}+{End}quot; 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 = quot;rootThen FrmSys.Show Else FrmPsw.Show Pwin = quot;Frmmainquot; 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 #39;edit FrmEdit.Show FrmMain.Enabled = False Case 2#39;del If DBGA.SelBookmarks.Count = 1 Then If MsgBox(quot;确定要删除吗？quot;, vbOKCancel, quot;确定quot;) = vbOK Then DataA.Recordset.Delete cuAp = 0 Else MsgBox quot;请选择要删除的条目！quot; End If Case 3 #39;seek FrmSearch.Show Case 4 #39;setup FrmSetup.S