VB设备管理系统设计+需求分析+可行性分析(9)
时间:2016-11-23 19:01 来源:毕业论文 作者:毕业论文 点击:次
这里 使用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 设备基本信息界面 (责任编辑：qin) |