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

main_jbzl_pxkc.Show 1

Case "考核项目管理"

Load main_jbzl_khlx

main_jbzl_khlx.Show 1

End Select

With m1(index)

If .Caption = "工种类型管理" Or .Caption = "职务类型管理" Or .Caption = "职称类型管理" Or .Caption = "文化程度管理" Or .Caption = "政治面貌管理" Or .Caption = "民族管理" Then

Load main_jbzl_public

main_jbzl_public.Show 1

End If

End With

End Sub

'其他菜单数组的Click事件过程省略，详细内容可参见光盘。

鼠标单击指定的图形按钮（Image1控件数组），调入相应的功能窗体或执行相应的操作，代码如下：

Private Sub Image1_Click(index As Integer)

text = lblCaption1(index).Caption: Image1(index).BorderStyle = 1

If blnPower(lblCaption1(index).Caption) = False Then

MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"

Exit Sub

End If

'此处代码与菜单数组Click事件过程中的代码设计思路基本相同，因此省略，详细内容请参见光盘。 End Sub

单击TreeView控件根据选定节点的关键字，调用相应的菜单事件过程。具体代码如下： Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

Label1 = Node.FullPath

For b = 1 To Image1.UBound

Image1(b).Visible = False: lblCaption1(b).Visible = False: lblCaption1(b).Caption = ""

Next b

'当鼠标单击TreeView控件的父节点时，根据其下的子节点的数量，设置相应的Image1控件数组的

'可见数量、picture、Left和Top属性。

For a = 1 To TreeView1.SelectedItem.Children

Image1(a).Visible = True: lblCaption1(a).Visible = True

lblCaption1(a) = TreeView1.Nodes(TreeView1.SelectedItem.Child.index + a - 1).text

Image1(a).Picture = LoadPicture(App.Path & "\" & Node.text & "\" & a & ".jpg")

Image1(a).Left = Image1(0).Left + (Image1(a).Width + 420) * ((a - 1) Mod 4)

lblCaption1(a).Left = Image1(a).Left

Image1(a).Top = Int(a / 4.1) * (Image1(0).Height + 420) + Image1(0).Top

lblCaption1(a).Top = Image1(a).Top + Image1(a).Height + 30

Next a

'此处代码省略，详细内容可参见光盘

End Sub

4.4 部门管理模块设计

部门管理实现了部门的添加、修改、删除、展开和收缩等功能，其中使用了TreeView控件，充分体现了部门间上下级关系。其运行结果如图8所示。

– 15 –