基于vb的设备管理信息系统

基于vb的设备管理信息系统内容摘要：

加载类生成器实用工具，单击 【 外接程序 】 【外接程序管理器 】 选项打开如图 8 所示的外接程序管理器。 图 7 外接程序管理器 临沂师范学院 2020届本科毕业论文 9 双击 【 VB6 类生成工具 】 就能加载类生成器实用工具。 然后在 Visual Basic 界面中，单击【外接程序 】 【类生成器实用工具 】 选项打开的类生成器实用工具，如图 10 所示。 图 8 类生成器实用工具 (2)用户类（ ） 用户类主要用于对用户的管理的操作。 在这里可以验证用户密码、查询、添加、和删除用户。 首先我们利用类生成实用工具查看 的属性和方法。 [14] 的属性有 isDirty、 Level、 uid 和 UserName,各个属性的数据类型和属性声明 如 图 9 所示。 图 9 用户类各个属性的数据类型和属性声明 临沂师范学院 2020届本科毕业论文 10 的方法有 addData、 deleteData、 loadDataByID、 loadDataByName、resetPassword 和 SaceData,各个方法的数据类型和参数信息如图 10 所示。 此外 模块还有一个 loadData 函数，它的功能是按照 SQL 语句提取用户信息，从而实现查询的功能。 图 10 各个方法的数据类型和参数信息 (3)设备类（ ） 设备类主要用于对设备的管理的操作。 在这里可以对设备进行添加、删除、查询、报废、注销和借入借出操作。 首先我们利用类生成使用工具查看 的属性和方法。 的属性有 Department、 DeptNo、 DeviceModel、 DeviceName、DeviceNo、 DiscardDate、 iid、 isDirty、 ProductCost、 ProductPrice、 PurchaseDate、 RejectDate、 Status、 TypeName 和 TypeNo,各个属性的数据类型和属性声明如图 11 所示。 图 11 设备类各个属性的数据类型和属性声明 临沂师范学院 2020届本科毕业论文 11 的方法有 addData、 deleteData、 DisCard、 loadDataByDeviceNo、loadDataByID、 Reject 和 saveData,各个方法的数据类型和参数信息如图 12 所示。 此外 模块还有一个 loadData 函数，它的功能是按照 SQL 语句提取设备记录，从而实现查询的功能。 图 12 各个方法的数据类型和参数信息 窗体设计 创建 主窗体 因为是采用的面向对象的程序设计，所以窗体的代码设计就变得非常简单。 这个系统主要的功能是在一个窗体 中实现的。 这个窗体包含了设备的管理、设备的查询、报表的管理、用户管理和系统管理模块。 [14] 单击【新建】按钮 选择【新建工程】选项，打开“新建工程”对话框，选择“标准EXE”选项，然后单击“确定”按钮，新建一个工程 ，如图 13 所示。 为设计多个文档界面，单击【工程】按钮选择【添加 MDI 窗体】选项，打开“添加 MDI 窗体 ”对话框。 选择“ MDI 窗体”选项，然后单击“打开”按钮 ，如图 14 所示。 图 13 新建工程 临沂师范学院 2020届本科毕业论文 12 图 14 新建 MDI 窗体 创建系统主菜单 系统功能模块的调用通过主界面中的菜单实现，在主窗体中添加菜单。 右击窗体。 单击快捷菜单中的【菜单编辑器】选项。 弹出“菜单编辑器”对话框。 设置系统菜单的属性。 添加工具栏 (1)工具栏中按钮的功能与菜单栏中的功能相对应，添加工具栏的步骤如下。 单击【工具】选项，选择【部件】打开对话框，选择其中的“ Microsoft ”选项。 (2)双击工具箱中的 Toolbar 控件将添加一个工具栏，默认 Toolbar 控件将出现在窗体的最上方。 (3)右击窗体的 Toolbar 控件，单击快捷菜单中的【属性】选项，打开“属性页”对话框。 打开“按钮”选项卡。 插入第 1 个按钮，设置“描述” 为 ssue Book”，工具提示文本为“ 设备管理 ” ，然后单击“插入”按钮，插入其他按钮。 (4)设置各控件的相关属性，设计完成主体。 创建 设备 管理模块 本设计中的 设备 管理模块包括“ 添加设备”、“删除设备”、“借 入借出”、“设备注销”和“设备报废”。 为了在 MSFlexGrid 控件中显示设备的信息，我们首先定义了一个 fillDeviceGrid过程，然后再调用它。 fillDeviceGrid 过程代码如下： Private Sub fillDeviceGrid(grid As MSFlexGrid, Optional strSQL As String) Dim rs As Dim strRowData As String Dim rowindex As Integer If Len(strSQL) = 0 Then strSQL = SELECT a.*, FROM (tblDevice AS A INNER JOIN 临沂师范学院 2020届本科毕业论文 13 tblDepartment AS B ON =) INNER JOIN tblTypeInfo C ON = ORDER BY DESC End If rowindex = 1 With grid If .Tag = Then Set rs = (strSQL) .Rows = 1 .Cols = 13 .Row = 0 .Col = 0 .Text = 序号 .Col = 1 .Text = ID .ColWidth(1) = 0 .Col = 2 .Text = 设备编号 .Col = 3 .Text = 设备名称 .Col = 4 .Text = 设备型号 .Col = 5 .Text = 设备分类 .Col = 6 .Text = 所属部门 .Col = 7 .Text = 购买价格 .Col = 8 .Text = 折旧成本 .Col = 9 .Text = 购买日期 .Col = 10 .Text = 状态 .Col = 11 .Text = 报废日期 .Col = 12 .Text = 注销日期 Do Until strRowData = rowindex amp。 vbTab strRowData = strRowData amp。 rs(IID).value amp。 vbTab strRowData = strRowData amp。 rs(DeviceNO).value amp。 vbTab strRowData = strRowData amp。 rs(DeviceName).value amp。 vbTab strRowData = strRowData amp。 rs(DeviceModel).value amp。 vbTab strRowData = strRowData amp。 rs(TypeName).value amp。 vbTab 临沂师范学院 2020届本科毕业论文 14 strRowData = strRowData amp。 rs(Department).value amp。 vbTab strRowData = strRowData amp。 rs(ProductPrice).value amp。 vbTab strRowData = strRowData amp。 rs(Productcost).value amp。 vbTab strRowData = strRowData amp。 FormatDateTime(rs(PurchaseDate).value, vbLongDate) amp。 vbTab If rs(Status).value = 0 Then strRowData = strRowData amp。 在库 amp。 vbTab Else strRowData = strRowData amp。 借出 amp。 vbTab End If strRowData = strRowData amp。 rs(RejectDate).value amp。 vbTab strRowData = strRowData amp。 rs(DisCardDate).value amp。 vbTab .AddItem strRowData rowindex = rowindex + 1 Loop Set rs = Nothing .Tag = 1 End If End With End Sub 创建“添加设备”选项 为了完成添加设备的操作，我们定义了一个 doDevice 过程，然后单击【添加设备】按钮调用该过程。 创建好的界面如图 15 所示。 图 15 添加设备”选项 临沂师范学院 2020届本科毕业论文 15 代码如下： 39。 执行设备显示列表操作 Private Sub doDevice(iid As String) Dim frm As New frmDevice If Len(iid) 0 Then iid End If vbModal If = True Then = Call fillDeviceGrid(grdDevice) End If Unload frm Set frm = Nothing End Sub 创建“ 删除设备 ” 选项 如图 16 所示。 图 16 “删除设备”选项 代码如下： Private Sub cmdDelete_Click() Dim iid As String With grdDevice If .Row = 0 Then MsgBox 请选择要删除的设备 ! 临沂师范学院 2020届本科毕业论文 16 Else If MsgBox(你是否真的要删除当前选择的设备吗 ?删除后将不能恢复 !, vbOKCancel) = vbOK Then。