【文章內(nèi)容簡介】 ,數(shù)據(jù)庫 表 里存儲了 企業(yè)的數(shù)據(jù)信息的包括： 圖號 、 名稱 、 標準、數(shù)量 等 。 如 下表 15 字段名 數(shù)據(jù)類型 說明 圖號 文本 字段大小 16 標準 文本 字段大小 16 名稱 文本 字段大小 16 尺寸 數(shù)值 字段大小 16 材料 文本 字段大小 12 特性 文本 字段大小 4 類 文本 字段大小 16 數(shù)量 數(shù)值 字段大小 16 單位 數(shù)值 字段大小 16 單重 數(shù)值 字段大小 16 單價 數(shù)值 字段大小 16 工時 數(shù)值 字段大小 16 總重 數(shù)值 字段大小 16 備注 文本 字段大小 16 升降橫移表、升降框架表、升降提升表、提升機提升表設計如下： 16 字段名 數(shù)據(jù)類型 說明 ID 數(shù)值 圖號 文本 字段大小 15 標準 文本 字段大小 16 名稱 文本 字段大小 15 尺寸 數(shù)值 字段大小 15 材料 文本 字段大小 15 特性 文本 字段大小 2 類 文本 字段大小 8 數(shù)量 數(shù)值 字段大小 8 單位 數(shù)值 字段大小 8 單重 數(shù)值 字段大小 8 單價 數(shù)值 字段大小 8 工時 數(shù)值 字段大小 4 備注 文本 字段大小 20 管理員表構成 管理員表 里存儲了 用戶的信息 包括： ID、 密碼 、 權限 等 。如下表 字段名 數(shù)據(jù)類型 備注 ID 數(shù)值 字段大小 8 PASSWD 文本 字段大小 6 QX 數(shù)值 字段大小 4 17 第六章 系統(tǒng)具體實現(xiàn) 用戶界面的實現(xiàn) 封面具體實現(xiàn)見 圖 圖 主界面具體實現(xiàn)見 .圖 圖 18 主窗體主要使用“工具”菜單下“菜單編輯器”完成。 設計如下表所示， ()內(nèi)為 其名稱 . [查詢輸出 ](chaxun) ....提升機 (tsj) ....二層升降橫移 (sjhy2) [數(shù)據(jù)維護 ](weihu) ....數(shù)據(jù)備份 (datacopy) ....數(shù)據(jù)恢復 (datasave) ....清庫 (clean) [幫助 ](help) ....權限設置 (qxsz) .... ....關于 ....(about) [退出 ](exit) 記錄操作 ： 開記錄操作進入記錄操作選項頁分別由瀏覽記錄、查找等三個選項組成。 瀏覽記錄 ： 管理員； 底層基礎數(shù)據(jù)表：升降提升，升降橫移； 空表結構：材料總表、查詢匯總表、總標準件表、總圖號冊表和總外購件表等。 查找記錄 ：輸入要查詢的數(shù)據(jù)條件，比如：“名稱 = 螺栓”、“國標 包含 GB”、“數(shù)量 = 300” 等，還可以直接從菜單中直接調(diào)取標準件表、圖號冊、外購件等專用表格。在查詢窗體的 DBGird 控件中直接顯示 19 出查找到的數(shù)據(jù)。還可以把查到的數(shù)據(jù)添加到專用的表中，對數(shù)據(jù)進行分類查找和歸納，以便進行工程匯總工作。 主界面包含 四 方面的內(nèi)容 ,以下一一介紹 : 數(shù)據(jù)輸入 本系統(tǒng)最底層數(shù)據(jù)是永久性數(shù)據(jù)，所以輸入數(shù)據(jù)不再需要修改，故只用 Access數(shù)據(jù)庫直接輸入數(shù)據(jù)即可。本系統(tǒng)的數(shù)據(jù)計算操作使用另外的數(shù)據(jù)表完成操作。系統(tǒng)在啟動數(shù)據(jù)輸出的時候鍵入條件，系統(tǒng)自動完成數(shù)據(jù)加載。 具體實現(xiàn)見 .圖 圖 Form1窗體各控件屬性設置 控件 屬性 屬性取值 Form1 (form) Name Form1 Caption Form1 StartUpPosition 屏幕中心 WindowStats Normal Frame1 Name Frame1 Caption Frame1 Lbltsjgs Name Lbltsjgs Caption 機組中提升機構數(shù) lblhyjgs Name Lblhyjgs Caption 機組中橫移機構數(shù) lbljgs Name Lbljgs Caption 輸入機組個數(shù) 20 CmdOK Name CmdOK Caption 確定 CmdCancel Name CmdCancel Caption 取消 如圖 在機組提升機構數(shù)、機組橫移機構數(shù)和需要機組數(shù)中輸入 0 以上的數(shù)字，系統(tǒng)可以自動將這些數(shù)據(jù)與底層數(shù)據(jù)表中的數(shù)據(jù)進行計算并將這些計算結果加入到事先就已經(jīng)準備好的空表中，作為本次操作的基本數(shù)據(jù)供用戶使用，使用后還可以將有用的部分添加到別的表中供數(shù)據(jù)匯總時使用。（數(shù)據(jù)加載詳見程序清單）。 這主要是依靠 DAO 控件模型實現(xiàn)的，先用一個變量將 DAO 控件模型的“ (0).OpenDatabase”屬性設置到要用的 Access 數(shù)據(jù)庫中，然后再 設置“ ”屬性設置到 Access 數(shù)據(jù)庫中的基礎底表中，然后再設置一次“ ”屬性到事先準備好的空表，這樣就可以將基礎底表中的數(shù)據(jù)復制到空表中，然后就可以在空表中進行數(shù)據(jù)操作而且不改變底表的內(nèi)容了。 數(shù)據(jù)輸出 先在窗體中添加一個 Data 控件，其 DatabaseName 和 RecordSource 屬性用語句“ =select * from table_name where column1 = xxx [and column2 yyy] [or column3 zzz] ； ”將其與上面說的復制后的表進行連接，這種連接是動態(tài)的，我們可以通過剛才的語句進行修改，以便于滿足各種操作的需要 說明： 1.39。*39。表示全部的欄位都列出來。 之后是接條件式，把符合條件的資料列出來。 將 DBGrid 控件的 DataSource 屬性與 Data 控件綁定，這樣這個 DBGrid 控件就可以顯示 Data 控件中的內(nèi)容了，并將其 AllowUpdata、 AllowAddNew、 AllowDelete 屬性設置為 False，這樣就不能在 DBGrid 控件中直接修改表中的數(shù)據(jù)了。 數(shù)據(jù)加載完成后就可以對數(shù)據(jù)進行查詢、匯總和計算了。各種操作的結果都在畫面的 DBGrid 中顯示，并且可以打印其中內(nèi)容。 查詢：本系統(tǒng)的查詢可以進行精確和模糊兩種查詢，可以滿足大多數(shù)的需要。查詢結果條目數(shù)在窗體的 caption 中得到顯示。 匯總：匯總可以把查詢得到的數(shù)據(jù)或者是數(shù)據(jù)加載后的數(shù)據(jù)加以整理編輯。將具 21 有幾個相同要素的記錄加以歸納。然后儲存到特定的數(shù)據(jù)匯總表中以備打印需要。 計算：將數(shù)據(jù)庫中記錄按要求進行計 算，并可以在特定的數(shù)據(jù)表中將不同的操作數(shù)據(jù)記錄進行累加和匯總，并用 DBGrid 輸出顯示和打印。 打印：本系統(tǒng)可以將數(shù)據(jù)打印成表格以便于整理和歸檔（由于 Visual Basic 中的報表系統(tǒng)不能打印控件 DBGrid和 Data中的內(nèi)容，故本系統(tǒng)打印的表格為代碼編寫，具體見附錄程序清單）。 本系統(tǒng)還為特定的數(shù)據(jù)另做了菜單查詢，如圖號冊、國家標準件、企業(yè)外購件、各種鋼材等，便于用戶使用。如操作有誤，可以按恢復鍵恢復到數(shù)據(jù)加載完成時的情況。 具體實現(xiàn)見 .圖 圖 22 FIND 窗體各控件屬性設置 控件 屬性 屬性取值 Find1 (form) Name Find1 Caption Find1 StartUpPosition 屏幕中心 WindowStats Normal Frame1 Name Frame1 Caption Frame2 Name Frame2 Caption 選擇 Frame3 Name Frame3 Caption 查找到的數(shù)據(jù) Frame4 Name Frame4 Caption Frame5 Name Frame5 Caption Lable1 Name Lable1 Caption 選擇查詢字段 Lable2 Name Lable2 Caption 選擇關系運算符 Lable3 Name Lable3 Caption 查詢值 Text1 Name Text1 Combo1 Name Combo1 Combo2 Name Combo2 Dbgird1 Name Dbgird1 Data1 Name Data1 Command1 Name Command1 Caption 查找 Command2 Name Command2 Caption 恢復 Command3 Name Command3 Caption 打印 Command4 Name Command4 Caption 清空 Command5 Name Command5 Caption 顯示標準件 Command6 Name Command6 Caption 顯示外購件 Command7 Name Command7 Caption 顯示外協(xié)件 Command8 Name Command8 Caption 顯示圖號冊 Command9 Name Command9 Caption 返回菜單 23 數(shù)據(jù)的管理 本系統(tǒng)對數(shù)據(jù)可以進行表的刪除、更新和備份。用以對數(shù)據(jù)進行有效的管理，防止數(shù)據(jù)丟失和誤操作帶來的錯誤（詳細見程序清單）。 幫助 本系統(tǒng)幫助中包含兩個方面，一為數(shù)據(jù)庫中的權限設置，以便于企業(yè)數(shù)據(jù)的保密；另一為系統(tǒng)的說明。 權限設置 本系統(tǒng)有 2 個權限 (用戶可以按需要自己添加權限 ),權限“ 0”為管理員權 限，可以查看所有的數(shù)據(jù)記錄和添加和刪除所有用戶并可以修改自己的密碼；權限“ 1”為用戶權限，僅可以查看經(jīng)允許的數(shù)據(jù)記錄，和同等級的用戶，但不能修改除自己以外的用戶密碼。用戶名稱和密碼用于登陸時使用。 具體實現(xiàn)見 .圖 24 圖 表 登錄窗體中各控件屬性設置 控件 屬性 屬性取值 FrmLogin(form) Name FrmLogin Caption 登錄 StartUpPosition 屏幕中心 WindowStats Normal TxtUserName Name TxtUserName TxtPassword Name txtPassword PasswordChar * CmdOK Name CmdOK Caption 確定 CmdCancel Name CmdCancel Caption 取消 登錄界面代碼實現(xiàn)： Dim conn As New Dim rs As New Dim X As Integer Private Sub CMDOK_Click() = Replace(, 39。, ) = Replace(, Chr(34), ) = Replace(, 39。, )