人力资源管理系统毕业设计(16)

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

For a = 1 To 11

TreeView1.Nodes.Add "X1", tvwChild, "C" & a, LoadResString(a + 1000), 2

Next a

Set nodX = TreeView1.Nodes.Add(, , "X2", "工资设置", 1)

For a = 12 To 14

TreeView1.Nodes.Add "X2", tvwChild, "C" & a, LoadResString(a + 1001), 2

Next a

Set nodX = TreeView1.Nodes.Add(, , "X3", "人事管理", 1)

For a = 15 To 26

TreeView1.Nodes.Add "X3", tvwChild, "C" & a, LoadResString(a + 1002), 2

Next a

Set nodX = TreeView1.Nodes.Add(, , "X4", "工资管理", 1)

For a = 27 To 32

TreeView1.Nodes.Add "X4", tvwChild, "C" & a, LoadResString(a + 1003), 2

Next a

Set nodX = TreeView1.Nodes.Add(, , "X5", "系统管理", 1)

For a = 33 To 36

TreeView1.Nodes.Add "X5", tvwChild, "C" & a, LoadResString(a + 1004), 2

Next a

Set nodX = TreeView1.Nodes.Add(, , "X6", "工具", 1)

For a = 37 To 40

TreeView1.Nodes.Add "X6", tvwChild, "C" & a, LoadResString(a + 1005), 2

Next a

Set nodX = TreeView1.Nodes.Add(, , "X7", "帮助", 1)

Set nodX = TreeView1.Nodes.Add("X7", tvwChild, "C41", "帮助", 2)

Set nodX = TreeView1.Nodes.Add("X7", tvwChild, "C42", "关于", 2)

nodX.EnsureVisible

'动态创建图形按钮（Image控件）和标题（Label控件）

For i = 1 To 12

i = Image1.UBound + 1

Load Image1(i)

Load lblCaption1(i)

Image1(i).ZOrder (0)

lblCaption1(i).ZOrder (0)

Next i

End Sub

当鼠标移到图形按钮（指定的Image1控件数组）上时，将其BorderStyle属性由0设置为1，以形成动态效果，同时将该图形按钮所属功能的完整路径显示在Label1中。其具体代码如下：

Private Sub Image1_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Image1(index).BorderStyle = 1

Label1.Caption = TreeView1.SelectedItem.text & "/" & lblCaption1(index).Caption

End Sub

Private Sub Label2_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label2(index).BorderStyle = 1

End Sub

当鼠标移到窗体上时，将图形按钮（Image1控件数组）的BorderStyle属性由1设置为0，体代码如下：

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

– 13 –