通过人力资源管理系统使得管理者快速高效地完成企业日常事务中的人事工作,降低了人力资源管理成本,使管理者能集中精力在企业战略目标;另一方面,通过软件及时收集与整理分析大量的人力资源管理数据,为企业战略决策的生成与实施控制提供强有力的支持,以提高组织目标实现的可能性。具体实现目标如下：系统采用人机对话方式,界面美观友好,信息查询灵活、方便、快捷、准确,数据存储安全可靠。键盘操作,快速响应。
For i = 1 To Image1.UBound
Image1(i).BorderStyle = 0
Next i
For i = 0 To Label2.UBound
Label2(i).BorderStyle = 0
Next i
End Sub
Private Sub Label1_Change()
sbStatusBar.Panels(1).text = "当前位置： " & Label1
End Sub
Private Sub Label2_Click(index As Integer)
Select Case index
Case 0
Temp = "" '所要连接的网站名称
ShellExecute 0&, vbNullString, Temp, vbNullString, vbNullString, 0 '调用IE
Case 1
m7_Click (1)
Case 2
m7_Click (0)
Case 3
End
End Select
End Sub
单击菜单数组，首先判断操作员的权限，如果操作员有权限，则调入相应的功能窗体或执行相应的操作；否则提示用户。具体代码如下：
Private Sub m1_Click(index As Integer)
text = m1(index).Caption
If blnPower(m1(index).Caption) = False Then
MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
Exit Sub
End If
Select Case m1(index).Caption
Case "部门管理"
Load main_jbzl_bmgl
main_jbzl_bmgl.Show 1
Case "工种类型管理"
jbxxtb = "工种表"
Case "职务类型管理"
jbxxtb = "职务表"
Case "职称类型管理"
jbxxtb = "职称表"
Case "文化程度管理"
jbxxtb = "文化程度表"
Case "政治面貌管理"
jbxxtb = "政治面貌表"
Case "民族管理"
jbxxtb = "民族表"
Load main_jbzl_pxkc
– 14 –
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库人力资源管理系统毕业设计(17)在线全文阅读。
相关推荐：