【文章內(nèi)容簡介】 查詢模塊 物理表管理模塊 系統(tǒng)權(quán)限維護(hù)模塊 報表功能模塊 各種數(shù)據(jù)匯總模塊 各種數(shù)據(jù)查詢模塊 輸入：要查詢的數(shù)據(jù)條件，比如：“名稱 = 螺栓”、“國標(biāo) 包含 GB”、“數(shù)量 = 300” 等，還可以直接從菜單中直接調(diào)取標(biāo)準(zhǔn)件表、圖號冊、外購件等專用表格。 輸出：在查詢窗體的 DBGird 控件中直接顯示出查找到的數(shù)據(jù)。還可以把查到的數(shù)據(jù)添加到專用的 表中，進(jìn)行多工程的數(shù)據(jù)管理。 功能：對數(shù)據(jù)進(jìn)行分類查找和歸納，以便進(jìn)行工程匯總工作。 各種數(shù)據(jù)匯總模塊 輸出：在查詢窗體的 DBGrid 控件中直接顯示出匯總的數(shù)據(jù)。也可以把匯總的數(shù)據(jù)添加到專用的表中，進(jìn)行多工程的數(shù)據(jù)管理。 功能：如果查詢到的數(shù)據(jù)包含很多相同的項，可以把相同的項按要求匯總到一起，以便于直觀，清楚的管理數(shù)據(jù)信息。 物理表管理模塊 功能：可以對物理表進(jìn)行添加、修改、備份和刪除等工作，便于數(shù)據(jù)庫的長期正常運(yùn)行。 報表功能模塊 輸出：在查詢窗體的 DBGrid 控件中直接顯示出的數(shù)據(jù)?？梢源蛴?成報表形式。 功能：將查找或者匯總完成的信息打印成報表，用于文件存檔或者便于企業(yè)管理者管理數(shù)據(jù)信息。 系統(tǒng)權(quán)限維護(hù)模塊 輸入：在登陸進(jìn)系統(tǒng)時有權(quán)限的要求，高級的權(quán)限可以管理低級的權(quán)限。 功能：權(quán)限的設(shè)置便于系統(tǒng)的管理，有利于企業(yè)信息的保密工作。 使用 ADO、 DAO 和 Data 控件 實現(xiàn)數(shù)據(jù)庫 的各個模塊之間的聯(lián)系 本系統(tǒng)采用 Data 和 ADO、 DAO 控件來連接數(shù)據(jù)庫。 Data 控件是 Visual Basic 中訪問數(shù)據(jù)庫的重要控件，它支持大多數(shù)與數(shù)據(jù)庫有關(guān)的操作，通過使用 Data 控件可以開發(fā)非常復(fù)雜的數(shù) 據(jù)庫應(yīng)用程序。這是本系統(tǒng)使用它的根本原因。 Data 可以不用編寫代碼完成以下功能：完成對數(shù)據(jù)庫的鏈接；打開指定的數(shù)據(jù)庫表，或者是基于 SQL 查詢集合；將表中字段傳至數(shù)據(jù)綁定控件，并針對數(shù)據(jù)綁定控件中的修改來更新數(shù)據(jù)庫；關(guān)閉數(shù)據(jù)庫。 Data 對于數(shù)據(jù)庫密切相關(guān)的屬性有： DatabaseName 屬性：設(shè)置被訪問的數(shù)據(jù)庫的名字和路徑，可以在屬性表中設(shè)置，也可以在運(yùn)行時利用語句進(jìn)行設(shè)置。 RecordSource 屬性：設(shè)置數(shù)據(jù)源，為底層表、 SQL 語句或者 QueryDef 對象。同樣有兩種設(shè)置方法。 Recordset 屬性：返回一個指定的數(shù)據(jù)源中記錄集或者運(yùn)行一次查詢所得的記錄的結(jié)果結(jié)合。 BOF 和 EOF 屬性：設(shè)置當(dāng) BOF 為 True 時，即記錄集移動到第一個記錄上頭時， Data 控件動作；設(shè)置當(dāng) EOF 為 True 時，即記錄集移動到最后一個記錄下頭時， Data 控件動作。 Data 控件常用的方法有： Refresh方法，在 Data 控件打開或者從新打開數(shù)據(jù)庫的內(nèi)容時，該方法可以更新 Data 控件的數(shù)據(jù)設(shè)置。 UpdateRecord方法，把當(dāng)前的內(nèi)容保存到數(shù)據(jù)庫中，但不觸發(fā) Validate事件。 UpdateControls方法，將 Data控件記錄集中的當(dāng)前記錄填充到某個數(shù)據(jù)綁定控件。 Data 控件還有一些不太重要的屬性、方法和事件沒有提到，如要查閱請參照《 Visual Basic 程序設(shè)計導(dǎo)學(xué)》。 但是本系統(tǒng)針對的是動態(tài)的數(shù)據(jù)庫和虛擬的數(shù)據(jù)表，所以 Data 的一些功能設(shè)置也需要動態(tài)的改變，這就要在程序代碼中修改以上的屬性，這在后面介紹中會重點提到，而且 Data控件也并不能完全滿足系統(tǒng)需要所以我又使用 DAO和ADO 控件來加強(qiáng) Data 控件的功能，使系統(tǒng)更完善。 要使用 DAO 數(shù)據(jù)模型必須先引用了包含 DAO 對象，具體操作是在“工程” 菜單的“引用”選項，選中“ Microsoft DAO Object Library”；要使用ADO 數(shù)據(jù)模型，要在“工程”菜單中的“部件”選項，并在“部件”對話框中選折“ Microsoft ADO Data Control ”。 特別要注意的是在兩個數(shù)據(jù)模型都引用的時候要先引用 DAO數(shù)據(jù)模型后引用 ADO 數(shù)據(jù)模型，否則會出現(xiàn)數(shù)據(jù)類型的錯誤。 DAO 數(shù)據(jù)訪問對象完全在代碼中運(yùn)行，使用代碼操控 Jet 引擎訪問數(shù)據(jù)庫數(shù)據(jù)，能夠開發(fā)出更強(qiáng)大更高效的數(shù)據(jù)應(yīng)用程序。使用數(shù)據(jù)訪問對象開發(fā)應(yīng)用程序，使數(shù)據(jù)訪問更有效 率，同時對數(shù)據(jù)的控制更加靈活和全面，但是訪問對象的復(fù)雜性，使其使用起來更為復(fù)雜和抽象，因此和 Data 結(jié)合使用以達(dá)到更好的效果。 ADO，即 ActiveX 數(shù)據(jù)對象，實際是一種提供訪問各種數(shù)據(jù)類型的連接機(jī)制。 ADO設(shè)計為一種簡單格式，通過 ODBC的方法同數(shù)據(jù)庫接口，可以使用任意一種 ODBC數(shù)據(jù)源，既不僅適合于 SQL Server， Oracle， Access等數(shù)據(jù)庫應(yīng)用程序，也適合于 Excel 表格、文本文件和無格式數(shù)據(jù)文件。 ADO 是為 Microsoft最新最強(qiáng)大的數(shù)據(jù)訪問范例 OLE DB而設(shè)計的，是基于OLE DB 之上的技術(shù)，因此 ADO 通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法，是一個便于使用的應(yīng)用程序?qū)咏涌凇?ADO 是獨立于開發(fā)工具和開發(fā)語言的簡單而且容易使用的數(shù)據(jù)接口。 ADO 對象可以在所有支持 COM 和 OLE 的平臺上使用，如 VB， VC++，VBScript 和 Java 等等。 OLE DB 是一種底層數(shù)據(jù)訪問界面接口，它是一套部件對象模型（ COM）接口，用于第三方驅(qū)動程序廠商開發(fā)出輸出數(shù)據(jù)源到 ADO 技術(shù)的應(yīng)用程序或者用于 C++的開發(fā)者定制的數(shù)據(jù)庫組件。 DAO 和 ADO 有很多對象，我們后面將詳細(xì)介紹在系統(tǒng)中的使用。 使用 DBGrid 控件來顯示各個模塊中的數(shù)據(jù) Visual Basic 提供了一個簡單、方便、快捷的數(shù)據(jù)庫訪問對象即 Data 控件，利用它只需要少量的代碼就可以訪問多種數(shù)據(jù)庫中的數(shù)據(jù)。但是，只有 Data 控件是不夠的，必須利用數(shù)據(jù)綁定控件來顯示、編輯和查詢數(shù)據(jù)庫中的數(shù)據(jù)。數(shù)據(jù)綁定控件也叫做數(shù)據(jù)識別控件，可通過它訪問數(shù)據(jù)庫的信息。當(dāng)一個控件通過設(shè)置屬性被綁定到 Data 控件時， VB 會把從前數(shù)據(jù)庫記錄取出相應(yīng)的字段值應(yīng)用于該控件，控件顯示數(shù)據(jù)并接受更改。 在 VB 中可以和 Data 控件綁定的控件很多，如文本框、復(fù)選框 、標(biāo)簽等等，這里我們要使用 DBGrid 控件。 使用 DBGrid 控件之前，必須要在“工程”中的“部件”中選擇“ Microsoft Data Bound Grid Control ”將其控件圖標(biāo)在工具欄中顯示出來。 用 DBGrid 控件顯示和瀏覽一個已有數(shù)據(jù)庫的步驟如下： （ 1）在新窗體中添加一個 Data 控件，再設(shè)置其 DatabaseName 和RecordSource 屬性為想要顯示的數(shù)據(jù)庫和表。 （ 2）在窗體中添加一個 DBGrid 控件，并設(shè)置其 DataSource 屬性為剛創(chuàng)建的 Data 控件。 （ 3）設(shè)置 DBGrid 控件的其他相關(guān)屬性。 （ 4）運(yùn)行程序。 DBGrid 控件中的 AllowUpdata、 AllowAddNew、 AllowDelete 屬性控制DBGrid 控件中的內(nèi)容是否能被更改。 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫分析 在開發(fā)企業(yè)信息管理系統(tǒng)時，可以先進(jìn)行 E－ R 圖分析，然后對表和字段進(jìn)行分析，最后進(jìn)行數(shù)據(jù)庫建模。下面為 E－ R 圖分析。這里直接給出 E－ R 分析的結(jié)果。實體關(guān)系圖的分析結(jié)果比較復(fù)雜，一般情況下使用從簡到繁的方式進(jìn)行設(shè)計。首先從大的方面中設(shè)計出各個實體之間的關(guān)系，然后在這個關(guān)系的基礎(chǔ)上進(jìn)行細(xì) 化。 企業(yè)信息管理系統(tǒng)的實體關(guān)系簡圖如下所示。 本程序采用 ACCESS2020 作為后臺數(shù)據(jù)庫 根據(jù)上面分析的系統(tǒng)的各種功能要求，可以很容易想到系統(tǒng)所需的數(shù)據(jù)應(yīng)該按照如下的思想設(shè)計：材料總表、查詢匯總表、管理員、升降橫移、升降框架、升降提升、提升機(jī)提升、提升機(jī)載車板、總標(biāo)準(zhǔn)件表、總圖號冊表、總外購件表、總外協(xié)件表。這樣整個數(shù)據(jù)庫設(shè)計后的結(jié)果如下圖所示。 0,n 0,n 0， 1 0， 1 0， 1 0， 1 0,n 0,n 材料總表 圖號冊表 標(biāo)準(zhǔn)件表 外購件表 外協(xié)件表 圖 551 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)表的構(gòu)成 本系統(tǒng)中除了“管理員”表外各個表的機(jī) 構(gòu)都是統(tǒng)一的 ,這樣可以在數(shù)據(jù)從一個表向另一個表里添加的時候不出現(xiàn)不必要的差錯 ,數(shù)據(jù)庫 表 里存儲了 企業(yè)的數(shù)據(jù)信息 的包括： 圖號 、 名稱 、 標(biāo)準(zhǔn)、數(shù)量 等 。 如 下表 字段名 數(shù)據(jù)類型 說明 圖號 文本 字段大小 16 標(biāo)準(zhǔn) 文本 字段大小 16 名稱 文本 字段大小 16 尺寸 數(shù)值 字段大小 16 材料 文本 字段大小 12 特性 文本 字段大小 4 類 文本 字段大小 16 數(shù)量 數(shù)值 字段大小 16 單位 數(shù)值 字段大小 16 單重 數(shù)值 字段大小 16 單價 數(shù)值 字段大小 16 工時 數(shù)值 字段大小 16 總重 數(shù)值 字段大小 16 備注 文本 字段大小 16 升降橫移表、升降框架表、升降提升表、提升機(jī)提升表設(shè)計如下： 字段名 數(shù)據(jù)類型 說明 ID 數(shù)值 圖號 文本 字段大小 15 標(biāo)準(zhǔn) 文本 字段大小 16 名稱 文本 字段大小 15 尺寸 數(shù)值 字段大小 15 材料 文本 字段大小 15 特性 文本 字段大小 2 類 文本 字段大小 8 數(shù)量 數(shù)值 字段大小 8 單位 數(shù)值 字段大小 8 單重 數(shù)值 字段大小 8 單價 數(shù)值 字段大小 8 工時 數(shù)值 字段大 小 4 備注 文本 字段大小 20 管理員表構(gòu)成 管理員表 里存儲了 用戶的信息 包括： ID、 密碼 、 權(quán)限 等 。如下表 字段名 數(shù)據(jù)類型 備注 ID 數(shù)值 字段大小 8 PASSWD 文本 字段大小 6 QX 數(shù)值 字段大小 4 第六章 系統(tǒng)具體實現(xiàn) 用戶界面的實現(xiàn) 封面具體實現(xiàn)見 圖 圖 主界面具體實現(xiàn)見 .圖 圖 主窗體主要使用“工具”菜單下“菜單編輯器”完成。設(shè) 計如下表所示， ()內(nèi)為 其名稱 . [查詢輸出 ](chaxun) ....提升機(jī) (tsj) ....二層升降橫移 (sjhy2) [數(shù)據(jù)維護(hù) ](weihu) ....數(shù)據(jù)備份 (datacopy) ....數(shù)據(jù)恢復(fù) (datasave) ....清庫 (clean) [幫助 ](help) ....權(quán)限設(shè)置 (qxsz) .... ....關(guān)于 ....(about) [退出 ](exit) 記錄操作 ： 開記錄操作進(jìn)入記錄操作選項頁分別由瀏覽記錄、查找等三個選項組成。 瀏覽記錄 ： 管理員； 底層基礎(chǔ)數(shù)據(jù)表：升降提升，升 降橫移； 空表結(jié)構(gòu)：材料總表、查詢匯總表、總標(biāo)準(zhǔn)件表、總圖號冊表和總外購件表等。 查找記錄 ：輸入要查詢的數(shù)據(jù)條件，比如：“名稱 = 螺栓”、“國標(biāo) 包含 GB”、“數(shù)量 = 300” 等，還可以直接從菜單中直接調(diào)取標(biāo)準(zhǔn)件表、圖號冊、外購件等專用表格。在查詢窗體的DBGird 控件中直接顯示出查找到的數(shù)據(jù)。還可以把查到的數(shù)據(jù)添加到專用的表中，對數(shù)據(jù)進(jìn)行分類查找和歸納，以便進(jìn)行工程匯總工作。 主界面包含 四 方面的內(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 窗體各控件屬性設(shè)置 控件 屬性 屬性取值 Form1 (form) Name Form1 Caption Form1 StartUpPosition 屏幕中心 WindowStats Normal Frame1 Name Frame1 Caption Frame1 Lbltsjgs Name Lbltsjgs Caption 機(jī)組中提升機(jī)構(gòu)數(shù) lblhyjgs Name Lblhyjgs Caption 機(jī)組中橫移機(jī)構(gòu)數(shù) lbljgs Name Lbljgs Caption 輸入機(jī)組個數(shù) CmdOK Name CmdOK Caption 確定 CmdCancel Name CmdCancel Caption 取消 如圖 在機(jī)組提升機(jī)構(gòu)數(shù)、機(jī)組橫移機(jī)構(gòu)數(shù)和需要機(jī)組數(shù)中輸入 0 以上的數(shù)字，系