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

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 –