【文章內(nèi)容簡介】 加載類生成器實用工具，單擊 【 外接程序 】 【外接程序管理器 】 選項打開如圖 8 所示的外接程序管理器。 圖 7 外接程序管理器 臨沂師范學院 2020屆本科畢業(yè)論文 9 雙擊 【 VB6 類生成工具 】 就能加載類生成器實用工具。然后在 Visual Basic 界面中，單擊【外接程序 】 【類生成器實用工具 】 選項打開的類生成器實用工具，如圖 10 所示。 圖 8 類生成器實用工具 (2)用戶類（ ） 用戶類主要用于對用戶的管理的操作。在這里可以驗證用戶密碼、查詢、添加、和刪除用戶。首先我們利用類生成實用工具查看 的屬性和方法。 [14] 的屬性有 isDirty、 Level、 uid 和 UserName,各個屬性的數(shù)據(jù)類型和屬性聲明 如 圖 9 所示。 圖 9 用戶類各個屬性的數(shù)據(jù)類型和屬性聲明 臨沂師范學院 2020屆本科畢業(yè)論文 10 的方法有 addData、 deleteData、 loadDataByID、 loadDataByName、resetPassword 和 SaceData,各個方法的數(shù)據(jù)類型和參數(shù)信息如圖 10 所示。此外 模塊還有一個 loadData 函數(shù)，它的功能是按照 SQL 語句提取用戶信息，從而實現(xiàn)查詢的功能。 圖 10 各個方法的數(shù)據(jù)類型和參數(shù)信息 (3)設(shè)備類（ ） 設(shè)備類主要用于對設(shè)備的管理的操作。在這里可以對設(shè)備進行添加、刪除、查詢、報廢、注銷和借入借出操作。首先我們利用類生成使用工具查看 的屬性和方法。 的屬性有 Department、 DeptNo、 DeviceModel、 DeviceName、DeviceNo、 DiscardDate、 iid、 isDirty、 ProductCost、 ProductPrice、 PurchaseDate、 RejectDate、 Status、 TypeName 和 TypeNo,各個屬性的數(shù)據(jù)類型和屬性聲明如圖 11 所示。 圖 11 設(shè)備類各個屬性的數(shù)據(jù)類型和屬性聲明 臨沂師范學院 2020屆本科畢業(yè)論文 11 的方法有 addData、 deleteData、 DisCard、 loadDataByDeviceNo、loadDataByID、 Reject 和 saveData,各個方法的數(shù)據(jù)類型和參數(shù)信息如圖 12 所示。此外 模塊還有一個 loadData 函數(shù)，它的功能是按照 SQL 語句提取設(shè)備記錄，從而實現(xiàn)查詢的功能。 圖 12 各個方法的數(shù)據(jù)類型和參數(shù)信息 窗體設(shè)計 創(chuàng)建 主窗體 因為是采用的面向?qū)ο蟮某绦蛟O(shè)計，所以窗體的代碼設(shè)計就變得非常簡單。這個系統(tǒng)主要的功能是在一個窗體 中實現(xiàn)的。這個窗體包含了設(shè)備的管理、設(shè)備的查詢、報表的管理、用戶管理和系統(tǒng)管理模塊。 [14] 單擊【新建】按鈕 選擇【新建工程】選項，打開“新建工程”對話框，選擇“標準EXE”選項，然后單擊“確定”按鈕，新建一個工程 ，如圖 13 所示 。為設(shè)計多個文檔界面，單擊【工程】按鈕選擇【添加 MDI 窗體】選項，打開“添加 MDI 窗體 ”對話框。選擇“ MDI 窗體”選項，然后單擊“打開”按鈕 ，如圖 14 所示 。 圖 13 新建工程 臨沂師范學院 2020屆本科畢業(yè)論文 12 圖 14 新建 MDI 窗體 創(chuàng)建系統(tǒng)主菜單 系統(tǒng)功能模塊的調(diào)用通過主界面中的菜單實現(xiàn)，在主窗體中添加菜單。右擊窗體。單擊快捷菜單中的【菜單編輯器】選項。彈出“菜單編輯器”對話框。設(shè)置系統(tǒng)菜單的屬性。 添加工具欄 (1)工具欄中按鈕的功能與菜單欄中的功能相對應(yīng)，添加工具欄的步驟如下。 單擊【工具】選項，選擇【部件】打開對話框，選擇其中的“ Microsoft ”選項。 (2)雙擊工具箱中的 Toolbar 控件將添加一個工具欄，默認 Toolbar 控件將出現(xiàn)在窗體的最上方。 (3)右擊窗體的 Toolbar 控件，單擊快捷菜單中的【屬性】選項，打開“屬性頁”對話框。打開“按鈕”選項卡。插入第 1 個按鈕，設(shè)置“描述” 為 ssue Book”，工具提示文本為“ 設(shè)備管理 ” ，然后單擊“插入”按鈕，插入其他按鈕。 (4)設(shè)置各控件的相關(guān)屬性，設(shè)計完成主體。 創(chuàng)建 設(shè)備 管理模塊 本設(shè)計中的 設(shè)備 管理模塊包括“ 添加設(shè)備”、“刪除設(shè)備”、“借 入借出”、“設(shè)備注銷”和“設(shè)備報廢”。 為了在 MSFlexGrid 控件中顯示設(shè)備的信息，我們首先定義了一個 fillDeviceGrid過程，然后再調(diào)用它。 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屆本科畢業(yè)論文 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 = 設(shè)備編號 .Col = 3 .Text = 設(shè)備名稱 .Col = 4 .Text = 設(shè)備型號 .Col = 5 .Text = 設(shè)備分類 .Col = 6 .Text = 所屬部門 .Col = 7 .Text = 購買價格 .Col = 8 .Text = 折舊成本 .Col = 9 .Text = 購買日期 .Col = 10 .Text = 狀態(tài) .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屆本科畢業(yè)論文 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 創(chuàng)建“添加設(shè)備”選項 為了完成添加設(shè)備的操作，我們定義了一個 doDevice 過程，然后單擊【添加設(shè)備】按鈕調(diào)用該過程。創(chuàng)建好的界面如圖 15 所示 。 圖 15 添加設(shè)備”選項 臨沂師范學院 2020屆本科畢業(yè)論文 15 代碼如下： 39。執(zhí)行設(shè)備顯示列表操作 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 創(chuàng)建“ 刪除設(shè)備 ” 選項 如圖 16 所示 。 圖 16 “刪除設(shè)備”選項 代碼如下： Private Sub cmdDelete_Click() Dim iid As String With grdDevice If .Row = 0 Then MsgBox 請選擇要刪除的設(shè)備 ! 臨沂師范學院 2020屆本科畢業(yè)論文 16 Else If MsgBox(你是否真的要刪除當前選擇的設(shè)備嗎 ?刪除后將不能恢復 !, vbOKCancel) = vbOK Then