人力资源管理系统源代码

1、1)登陆窗体代码设计 窗体代码主要实现了连接数据库的功能， 这里用于连接用户信息表。 其程序 如下：Private Sub Form_Load()Dim i As IntegerIf App.PrevInstance ThenMsgBox ( 程序已经运行，不能再次装载。 ), vbExclamation Unload MeEnd If 本段代码用于判定本程序是否已经装载于内存中， 以避免程序的多重启 动i = 0Open App.Path + user.ini For Input As #1Do While Not EOF(1)Input #1, user(i), pws(i), state

2、(i), Emplo(i)If state(i) = A ThenCombo1.AddItem user(i)End Ifi = i + 1Loop Close #1 Combo1.ListIndex = 1 在窗口装载阶段读取用户设置文件获取用户信息并装载于用户列表框中End Sub (2)“取消”按钮是退出登录界面，退出系统的。其代码如下： Private Sub CmdCancel_Click()Unload MeEndEnd Sub(3)“确定”按钮代码设计“确定”按钮代码主要实现了用户登陆时， 用户名和密码的认证， 当用户名 或密码错误时，系统提示错误。其程序如下：Private S

3、ub cmdOK_Click()If txtPassword = pws(Combo1.ListIndex) ThenCurId = Combo1.ListIndexEmploID = Emplo(CurId)CurUser = user(CurId) CurPsw = pws(CurId) Me.HideLoad FrmMainFrmMain.ShowElse MsgBox Invalid Password, try again!, , Login txtPassword.SetFocus SendKeys Home+EndEnd If End Sub(1) 窗体选择的单击事件代码设计 窗体

4、选择的单击事件代码主要实现了进入本系统所有模块的功能， 这里有以 下几个模块，它们分别是员工信息模块，假条信息模块，工资管理模块，用户设 置模块等 /其程序如下：Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1显示员工信息模块显示假条信息模块显示工资信息模块Call showemployeeCase 2Call showleaveCase 3Call showsalaryCase 4If frmLogin.CurUser = root Then F

5、rmSys.ShowElseFrmPsw.ShowPwin = FrmmainFrmMain.Enabled = False End IfEnd SelectEnd Sub(2) 命令按钮的单击事件代码设计 命令按钮的代码主要实现了进入本系统部分主要模块的功能， 这里有以下几 个功能，它们分别是编辑，删除，查询，设置。其程序如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 editFrmEdit.Show FrmMain.Enabled

6、= False Case 2 delIf DBGA.SelBookmarks.Count = 1 ThenIf MsgBox( 确定要删除吗？ , vbOKCancel, 确定) = vbOK ThenDataA.Recordset.Delete cuAp = 0Else MsgBox 请选择要删除的条目！ End IfCase 3seekFrmSearch.ShowCase 4setupFrmSetup.ShowEnd SelectEnd Sub(3) 口令修改的主要代码设计 “确定”按钮的代码主要实现了用户密码的修改功能， 当旧密码错误或两次 新密码输入不一致时，系统会提示错误。其程序如下

7、：Private Sub cmdOK_Click()Dim fil, i, Usercount As IntegerIf TxtNew1.Text TxtNew2.Text ThenMsgBox two times no yizhiTxtNew1.SetFocusTxtNew2.Text = SendKeys Home+EndExit SubElseIf Txtold.Text frmLogin.CurPsw Then MsgBox old password wrongTxtold.SetFocusTxtNew1.Text = TxtNew2.Text = SendKeys Home+EndE

8、xit SubElse fil = FreeFile()Open App.Path + user.ini For Input As #fili = 0Do While Not EOF(fil)Input #fil, user(i), pws(i)Input #fil, state(i), Emplo(i)i = i + 1LoopUsercount = i Close #fil pws(frmLogin.CurId) = TxtNew1.Text frmLogin.CurPsw = TxtNew1.Text fil = FreeFile()Open App.Path + user.ini For Output As #filFor i = 0 To Usercount - 1Print #fil, user(i); ,; pws(i); ,; state(i); ,; Emplo(i) Next iClose #filTxtold.Text = TxtNew1.Text = TxtNew2.Text = Me.H