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

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 SelectEnd 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 SelectEnd 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.Hid