VB设备管理系统设计+需求分析+可行性分析(9)
这里 使用Visual Basic 的菜单编辑器建立菜单，菜单的具体创建步骤如下：
1）在Visual Basic 6.0环境下，设备管理系统工程下创建一个标准窗体如图5.3所示
图5.3 标准窗体
2）然后点击上面菜单里的工具，再点击下面的菜单编辑器如图5.4所示
图5.4 工具菜单编辑器
3）在出示的菜单编辑器中输入标题，名称。如果还需要其他菜单名则点击下一个，同样输入标题和名称。如果这个菜单是刚才的子菜单则还需要点击 ，如果是下面的一级菜单就只要点击一次，如果是二级菜单就要点击两次。
各菜单输入完成后就会出现下面图5.5所示，然后点击确定按钮。就出现了图5.2主界面上面的菜单了
图5.5 菜单编辑器
以上菜单做好了。接下来介绍工具栏的设计：
4）依然在刚才那个窗体环境中，点击菜单里的工具，然后点击部件
图5.6 添加tool bar控件
5）在出示的界面中找到Microsoft Windows Controls 6.0(SP4),在旁边的复选框中打勾，然后点击应用按钮，最后按确定退出。
6）这时，在旁边的控件中有一个 tool bar 控件，我们通过这个控件在主界面窗体中画一条工具栏。右键属性，进入属性页面后，点击插入按钮，将页面激活，然后出示如图5.7所示
图5．7 插入按钮
7)所有按钮添加完成后，点击应用然后确定，就会显示之前图5.2主界面的效果了
具体程序如下：
Private Sub 基本信息_Click()
设备基本信息.Show
Unload Me
End Sub
Private Sub 领用登记_Click()
设备领用登记.Show
Unload Me
End Sub
Private Sub 领用_Click()
领用报表.Show
Unload Me
End Sub
Private Sub 消耗_Click()
消耗报表.Show
Unload Me
End Sub
Private Sub基本信息汇总_Click()
设备基本信息报表.Show
Unload Me
End Sub
Private Sub 领用情况_Click()
领用查询.Show
Unload Me
End Sub
Private Sub 退出_Click()
Unload Me
End Sub
Private Sub 消耗登记_Click()
设备消耗登记.Show
Unload Me
End Sub
Private Sub Ï消耗情况_Click()
消耗查询.Show
Unload Me
End Sub
Private Sub 修改密码_Click()
改密码.Show
Unload Me
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
设备基本信息.Show
Unload Me
Case 2
设备领用登记.Show
Unload Me
Case 3
设备消耗登记.Show
Unload Me
Case 4
Unload Me
End Select
End Sub
5.3 编辑模块
编辑模块下面有设备基本信息、领用登记、消耗登记三个子模块。在这三个模块中都有修改、查询、添加、删除、修改完成功能。
5.3.1 设备基本信息
这个模块是管理人员对购入的设备进行添加修改的，同时管理人员还可以对已有设备，查询相关记录和实体进行核对。如不对，对此记录修改或删除记录。
这部分的设计具体如下：
1）在设备管理系统工程下面添加一个窗体，在这个窗体中添加各种控件并且对其对象进行属性设置。完成后如图5.8所示
图5.8 设备基本信息界面