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

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