人力资源管理系统源代码讲解学习

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