通过人力资源管理系统使得管理者快速高效地完成企业日常事务中的人事工作,降低了人力资源管理成本,使管理者能集中精力在企业战略目标;另一方面,通过软件及时收集与整理分析大量的人力资源管理数据,为企业战略决策的生成与实施控制提供强有力的支持,以提高组织目标实现的可能性。具体实现目标如下：系统采用人机对话方式,界面美观友好,信息查询灵活、方便、快捷、准确,数据存储安全可靠。键盘操作,快速响应。

计登录系统的次数，并判断是否超过允许登录的次数，如果超过，则显示提示信息，并结束应用程序。

系统登录模块如图3所示。

图3 系统登录

1．窗体设计

（1）新建一个工程，在该工程中新建一个窗体，将窗体的“名称”属性设置为“frm_Login”，BorderStyle属性设置为“3-Fixed Dialog”；Caption属性设置为“欢迎使用人力资源管理系统”。

（2）在窗体中添加3个Label控件，设置BackStyle属性为“0-Transparent”。其中Label1和Label2的Caption属性分别设置为“用户名称（”和“密码（”。

（3）在窗体中添加2个TextBox控件，分别设置“名称”属性为txtUserName和txtPassword。

（4）在窗体中添加2个CommandButton控件，分别设置“名称”属性为cmdOk和cmdCancel；Caption属性为“确定（”和“放弃（”。

（5）设置ADO对象的引用。单击“工程”“引用”/，在“引用”对话框中选定“Microsoft ActiveX Data Objects 2.5 Library”。

2．代码设计

Option Explicit

Const MaxTimes As Integer = 3

单击【确定】按钮，根据用户输入的用户名和密码来判断该用户是否为合法用户。如果是合法用户，将进行系统；如果不是将提示用户，提示超过3次，自动退出系统，代码如下：

Private Sub cmdOK_Click()

Static intMyTimes As Integer

Dim rs1 As New ADODB.Recordset, rs2 As New ADODB.Recordset

rs1.Open "权限信息表", Cnn, adOpenKeyset, , adLockOptimistic

If rs1.RecordCount > 0 Then

If txtUserName.text = "" Then

MsgBox "请输入用户名！", , "提示窗口"

txtUserName.SetFocus

Exit Sub

End If

rs2.Open "权限信息表 where 操作员='" + txtUserName.text + "'", Cnn, adOpenKeyset, , adLockOptimistic If rs2.RecordCount > 0 Then

If txtPassword.text = "" Then

MsgBox "请输入密码！", , "提示窗口"

txtPassword.SetFocus

– 7 –