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