通过人力资源管理系统使得管理者快速高效地完成企业日常事务中的人事工作,降低了人力资源管理成本,使管理者能集中精力在企业战略目标;另一方面,通过软件及时收集与整理分析大量的人力资源管理数据,为企业战略决策的生成与实施控制提供强有力的支持,以提高组织目标实现的可能性。具体实现目标如下：系统采用人机对话方式,界面美观友好,信息查询灵活、方便、快捷、准确,数据存储安全可靠。键盘操作,快速响应。
计登录系统的次数，并判断是否超过允许登录的次数，如果超过，则显示提示信息，并结束应用程序。
系统登录模块如图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 –
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库人力资源管理系统毕业设计(12)在线全文阅读。
相关推荐：