【正文】 統(tǒng)計(jì)分析提供決 策 計(jì)算機(jī)快速、自動(dòng)、強(qiáng)大的統(tǒng)計(jì)匯總功能和豐富的報(bào)表打印功能，使各項(xiàng)數(shù)據(jù)的統(tǒng)計(jì)、匯總、分析報(bào)表一應(yīng)俱全。 (6) 可以將需要的數(shù)據(jù)輸入，進(jìn)而計(jì)算出將要進(jìn)行的工程的一些基本信息。 第二章 可行性分析 2． 1 經(jīng)濟(jì)可行性 根據(jù)實(shí)際情況，我們使用原型法（ Rapid Prototyping）即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。 2． 2 技術(shù)可行性 微軟公司的 Visual Basic 應(yīng)用程序開(kāi)發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。 Microsoft Access2020 是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。數(shù)據(jù)表示圖提供了一種類(lèi)似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。 Access 也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。 Visual Basic、 Access 以及其他微軟的軟件產(chǎn)品都是通過(guò)共用 JET 數(shù)據(jù)庫(kù)引擎，從而給用戶提供了豐富的數(shù)據(jù)類(lèi)型。 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ù)文件。 第三章 需求分析 3． 1 功能需求分析 根據(jù)系統(tǒng)的實(shí)際調(diào)研，該系統(tǒng)應(yīng)該具備以下功能 輸入功 能：系統(tǒng)根據(jù)條件按照最底層數(shù)據(jù)表計(jì)算出本次操作所需的數(shù)據(jù)加載到事先設(shè)置好的空數(shù)據(jù)表中，為用戶操作做好準(zhǔn)備。 數(shù)據(jù)備份功能：對(duì)物理表進(jìn)行添加、修改、備份和刪除等工作，便于數(shù)據(jù)庫(kù)的長(zhǎng)期正常運(yùn)行。 系統(tǒng)安全控制功能 ：在登陸進(jìn)系統(tǒng)時(shí)有權(quán)限的要求，高級(jí)的權(quán)限可以管理低級(jí)的權(quán)限，權(quán)限的設(shè)置便于系統(tǒng)的管理，有利于企業(yè)信息的保密工作 3． 2 系統(tǒng)結(jié)構(gòu)分析 圖 321 系統(tǒng)結(jié)構(gòu)分析 第四章 系統(tǒng)開(kāi)發(fā)工具簡(jiǎn)介 本系統(tǒng)采用的開(kāi)發(fā)工具 Visual Basic 說(shuō)明 Visual Basic 具有簡(jiǎn)單易學(xué)的特性，只要稍微有計(jì)算機(jī)語(yǔ)言基礎(chǔ)就可以很快掌握它。可視化的編程環(huán)境的“所見(jiàn)即所得”功能，使得界面設(shè)計(jì)如同堆積木游戲一樣，從而使得編程變成一種享受。對(duì)象的基本思想是用系統(tǒng)的觀點(diǎn)把要研究的事物看成一個(gè)整體，整個(gè)世界的由不同的對(duì)象所構(gòu)成的。在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，對(duì)象必須是用戶自己來(lái)設(shè)計(jì)。 數(shù)據(jù)輸入模塊 各種數(shù)據(jù)查詢模塊 物理表管理模塊 系統(tǒng)權(quán)限維護(hù)模塊 報(bào)表功能模塊 各種數(shù)據(jù)匯總模塊 Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和 方法）。使用應(yīng)用程序具有可通用性可說(shuō)擴(kuò)展性和強(qiáng)有力的功能。 4． 2． 1 面向?qū)ο蟪绦蛟O(shè)計(jì)的主要優(yōu)點(diǎn) 1．與人類(lèi)習(xí)慣的思維方式一致 面向?qū)ο蟮某绦蛟O(shè)計(jì)一對(duì)象為中心，對(duì)象是一個(gè)統(tǒng)一體，它的由描述內(nèi)部狀態(tài)表示靜態(tài)屬性的數(shù)據(jù)以及可以對(duì)這些書(shū)記施加的操作一起所構(gòu)成的。 2．可 維護(hù)性好 面向?qū)ο笠媚K機(jī)制，它的獨(dú)立性好，修改一個(gè)模塊通常很少牽涉到其他的模塊。所以，面向?qū)ο蠓椒ㄔO(shè)計(jì)的程序具有很好的可維護(hù)性?？丶?(ActiveX)是指“空的對(duì)象”或者基本對(duì)象，是應(yīng)用程序的圖形用戶界面的一個(gè)組件，對(duì)其屬性可以進(jìn)行不同的設(shè)置，從而構(gòu)成不同的對(duì)象；窗體 (Form)是用戶的工作區(qū)，所有控件都在窗體中得到了集成 ，從而構(gòu)成應(yīng)用程序的界面。通過(guò)對(duì)屬性表中個(gè)項(xiàng)屬性的不同設(shè)置，我們可以建立各種對(duì)象。事件可以分成系統(tǒng)事件和用戶事件兩種。不同的對(duì)象發(fā)生在其身上的事件是不同的。不同的對(duì)象對(duì)同一事件的反應(yīng)是不一樣的，這是是因?yàn)椴煌瑢?duì)象的事件過(guò)程是不同的。所以， Visual Basic 開(kāi)發(fā)應(yīng)用程序重點(diǎn)是編寫(xiě)事件過(guò)程。方法的內(nèi)容是不可見(jiàn)的，我們并不知道對(duì)象是怎么實(shí)現(xiàn)這一功能的。 事件是窗體或者控件的行為和動(dòng)作。 Visual Basic 的每一個(gè)窗體或控件都有一個(gè)事件集。 盡管 Visual Basic 中對(duì)象自動(dòng)識(shí)別預(yù)定義的事件集，但要判定它們是否響應(yīng)具體事件以及如何響應(yīng)具體事件就是編程的責(zé)任了。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、 域等。關(guān)系數(shù)據(jù)庫(kù)以關(guān)系的數(shù)學(xué)理論為基礎(chǔ)，在關(guān)系數(shù)據(jù)庫(kù)中，用戶可以不必關(guān)心數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)，同時(shí)，關(guān)系數(shù)據(jù)庫(kù)的查詢可用高級(jí)語(yǔ)言編寫(xiě)，這有利于查詢效率。數(shù)據(jù)庫(kù)應(yīng)用成為當(dāng)今計(jì)算機(jī)應(yīng)用的主要領(lǐng)域之一。 Visual Basic 提供 Data 控件、 DBGrid 控件、 ADO Data 控件的使用方法和 SQL 語(yǔ)言。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 本系統(tǒng)數(shù)據(jù)表為統(tǒng)一結(jié)構(gòu)，字段為圖號(hào)、標(biāo)準(zhǔn)、名稱(chēng)、規(guī)格、尺寸、材料、特性、類(lèi)、數(shù)量、單重、單價(jià)、工 時(shí)、備注，有些特殊的表還有 ID 或者總重和總價(jià)等字段。這三種操作均可由 Visual Basic 創(chuàng)建的程序來(lái)完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。這種連接是指一個(gè)表被連接到它自己 的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。在表中使用的關(guān)鍵字類(lèi)型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。 (7) 匯總數(shù)據(jù)表。 功能模塊圖 圖 521 系統(tǒng)功能模塊圖 5． 2． 1 對(duì)這四個(gè)模塊做具體說(shuō)明 功能：系統(tǒng)根據(jù)條件按照最底層數(shù)據(jù)表計(jì)算出本次操作所需的數(shù)據(jù)加載到事先設(shè)置好的空數(shù)據(jù)表中，為用戶操作做好準(zhǔn)備。各種數(shù)據(jù)查詢模塊 輸入：要查詢的數(shù)據(jù)條件，比如：“名稱(chēng) = 螺栓”、“國(guó)標(biāo) 包含 GB”、“數(shù)量 = 300” 等，還可以直接從菜單中直接調(diào)取標(biāo)準(zhǔn)件表、圖號(hào)冊(cè)、外購(gòu)件等專(zhuān)用表格。還可以把查到的數(shù)據(jù)添加到專(zhuān)用的 表中，進(jìn)行多工程的數(shù)據(jù)管理。 也可以把匯總的數(shù)據(jù)添加到專(zhuān)用的表中，進(jìn)行多工程的數(shù)據(jù)管理。 可以打印 成報(bào)表形式。 功能：權(quán)限的設(shè)置便于系統(tǒng)的管理，有利于企業(yè)信息的保密工作。 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)用程序。 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ù)。 DatabaseName 屬性：設(shè)置被訪問(wèn)的數(shù)據(jù)庫(kù)的名字和路徑，可以在屬性表中設(shè)置，也可以在運(yùn)行時(shí)利用語(yǔ)句進(jìn)行設(shè)置。 RecordSource 屬性：設(shè)置數(shù)據(jù)源，為底層表、 SQL 語(yǔ)句或者 QueryDef 對(duì)象。 Data 控件常用的方法有： Data 控件還有一些不太重要的屬性、方法和事件沒(méi)有提到，如要查閱請(qǐng)參照《 Visual Basic 程序設(shè)計(jì)導(dǎo)學(xué)》。 要使用 DAO 數(shù)據(jù)模型必須先引用了包含 DAO 對(duì)象，具體操作是在“工程” 菜單的“引用”選項(xiàng)，選中“ Microsoft DAO Object Library”；要使用ADO 數(shù)據(jù)模型，要在“工程”菜單中的“部件”選項(xiàng)，并在“部件”對(duì)話框中選折“ Microsoft ADO Data Control ”。 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)用程序。 ADO，即 ActiveX 數(shù)據(jù)對(duì)象，實(shí)際是一種提供訪問(wèn)各種數(shù)據(jù)類(lèi)型的連接機(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 對(duì)象可以在所有支持 COM 和 OLE 的平臺(tái)上使用，如 VB， VC++，VBScript 和 Java 等等。 DAO 和 ADO 有很多對(duì)象，我們后面將詳細(xì)介紹在系統(tǒng)中的使用。但是，只有 Data 控件是不夠的，必須利用數(shù)據(jù)綁定控件來(lái)顯示、編輯和查詢數(shù)據(jù)庫(kù)中的數(shù)據(jù)。當(dāng)一個(gè)控件通過(guò)設(shè)置屬性被綁定到 Data 控件時(shí)， VB 會(huì)把從前數(shù)據(jù)庫(kù)記錄取出相應(yīng)的字段值應(yīng)用于該控件，控件顯示數(shù)據(jù)并接受更改。 使用 DBGrid 控件之前，必須要在“工程”中的“部件”中選擇“ Microsoft Data Bound Grid Control ”將其控件圖標(biāo)在工具欄中顯示出來(lái)。 （ 2）在窗體中添加一個(gè) DBGrid 控件，并設(shè)置其 DataSource 屬性為剛創(chuàng)建的 Data 控件。 （ 4）運(yùn)行程序。 數(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 分析的結(jié)果。首先從大的方面中設(shè)計(jì)出各個(gè)實(shí)體之間的關(guān)系，然后在這個(gè)關(guān)系的基礎(chǔ)上進(jìn)行細(xì) 化。 本程序采用 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é)件表。 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) 、 名稱(chēng) 、 標(biāo)準(zhǔn)、數(shù)量 等 。如下表 字段名 數(shù)據(jù)類(lèi)型 備注 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) .圖 圖 主窗體主要使用“工具”菜單下“菜單編輯器”完成。 記錄操作 ： 開(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ù)條件，比如：“名稱(chēng) = 螺栓”、“國(guó)標(biāo) 包含 GB”、“數(shù)量 = 300” 等，還可以直接從菜單中直接調(diào)取標(biāo)準(zhǔn)件表、圖號(hào)冊(cè)、外購(gòu)件等專(zhuān)用表格。還可以把查到的數(shù)據(jù)添加到專(zhuān)用的表中，對(duì)數(shù)據(jù)進(jìn)行分類(lèi)查找和歸納，以便進(jìn)行工程匯總工作。本系統(tǒng)的數(shù)據(jù)計(jì)算操作使用另外的數(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ù)字，系統(tǒng) 可以自動(dòng)將這些數(shù)據(jù)與底層數(shù)據(jù)表中的數(shù)據(jù)進(jìn)行計(jì)算并將這些計(jì)算結(jié)果加入到事先就已經(jīng)準(zhǔn)備好的空表中，作為本次操作的基本數(shù)據(jù)供用戶使用，使用后還可以將有用的部分添加到別的表中供數(shù)據(jù)匯總時(shí)使用。 這主要是依靠 DAO 控件模型實(shí)現(xiàn)的，先用一個(gè)變量將 DAO 控件模型的“ (0).OpenDatabase”屬性設(shè)置到要用的 Access 數(shù)據(jù)庫(kù)中，然后再設(shè)置“ ”屬性設(shè)置到 Access 數(shù)據(jù)庫(kù)中的基礎(chǔ)底表中，然后再設(shè)置一次“ ”屬性到事先準(zhǔn)備好的空表，這樣就可以將基礎(chǔ)底表中的數(shù)據(jù)復(fù)制到空表中，然后就可以在空表中進(jìn)行數(shù)據(jù)操作而且不改變底表的內(nèi)容了。*39。 之后是接條件式，把符合條件的資料列出來(lái)。 數(shù)據(jù)加載完成后就可 以對(duì)數(shù)據(jù)進(jìn)行查詢、匯總和計(jì)算了。 查詢：本系統(tǒng)的查詢可以進(jìn)行精確和模糊兩種查詢，可以滿足大多數(shù)的需要。 匯