1、第一章 課題來源11來源介紹現(xiàn)在我國的 企業(yè)中數(shù)據(jù)信息的 管理水平還停留在紙介質(zhì)的 基礎(chǔ)上,這樣的 機(jī)制已經(jīng)不能適應(yīng)時(shí)代的 發(fā)展,因?yàn)樗速M(fèi)了 許多人力和物力,在信息時(shí)代這種傳統(tǒng)的 管理方法必然被計(jì)算機(jī)為基礎(chǔ)的 信息管理所取代.雖然現(xiàn)在有很多的 軟件工程公司已經(jīng)成功研制和開發(fā)出很多大型的 管理軟件,但是對(duì)于中小 型企業(yè)來講,能夠有一套結(jié)合自己實(shí)際情況,符合自己實(shí)際需要的 管理軟件應(yīng)該是比較現(xiàn)實(shí)的 .我作為一個(gè)計(jì)算機(jī)應(yīng)用的 本科生,希望可以在這方面有所貢獻(xiàn).改革的 總設(shè)計(jì)師鄧小 平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”,我希望能用我四年的 所學(xué)編制出一個(gè)實(shí)用的 程序來幫助我所在的 企業(yè)進(jìn)行更有效的 企

2、業(yè)數(shù)據(jù)信息管理. 使用計(jì)算機(jī)參與企業(yè)數(shù)據(jù)管理有以下優(yōu)點(diǎn):(1) 發(fā)揮最大使用價(jià)值-友好的 用戶界面,直觀易懂,操作方便,功 能強(qiáng)大,涵蓋了 公司主要的 技術(shù)情況.(2) 減少重復(fù)勞動(dòng)-全方位的 快速查詢減少重復(fù)勞動(dòng),通過計(jì)算機(jī)輔助管理,減少了 大量重復(fù)工作,工作效率也大大提高.(3) 減少工作差錯(cuò)與負(fù)擔(dān)-數(shù)據(jù)管理中的 一項(xiàng)重要工作是各種數(shù)據(jù)的 計(jì)算、統(tǒng)計(jì)、匯總,手工操作存在計(jì)算繁瑣、效率低、準(zhǔn)確率低等缺點(diǎn).本套系統(tǒng)所實(shí)現(xiàn)的 巨大功能使得以上工作既簡單、方便又輕松自如.(4) 自動(dòng)生成各項(xiàng)統(tǒng)計(jì)表-可以針對(duì)查詢到的 數(shù)據(jù)進(jìn)行各種報(bào)表的 生成和打印.(5) 統(tǒng)計(jì)分析提供決策-計(jì)算機(jī)快速、自動(dòng)、強(qiáng)大的

3、 統(tǒng)計(jì)匯總功能和豐富的 報(bào)表打印功能,使各項(xiàng)數(shù)據(jù)的 統(tǒng)計(jì)、匯總、分析報(bào)表一應(yīng)俱全.公司的 決策人可以根據(jù)最新的 詳細(xì)情況對(duì)管理作出快速、準(zhǔn)確的 決策,提高公司的 管理水平和競(jìng)爭(zhēng)力.(6) 可以將需要的 數(shù)據(jù)輸入,進(jìn)而計(jì)算出將要進(jìn)行的 工程的 一些基本信息.(7) 可以限定權(quán)限,更好的 做好保密工作. 第二章 可行性分析21經(jīng)濟(jì)可行性根據(jù)實(shí)際情況,我們使用原型法(Rapid Prototyping)即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的 軟件系統(tǒng)模型.使用戶和開發(fā)人員可以較快地確定需求,然后采用循環(huán)進(jìn)化的 開發(fā)方式,對(duì)系統(tǒng)模型作連續(xù)的 精化,將系統(tǒng)需具備的 性質(zhì)逐漸增加上去,直到所有的 性質(zhì)全部滿足

4、.此時(shí)模塊也發(fā)展成為最終產(chǎn)品了 .從經(jīng)濟(jì)角度投入較少,可以在現(xiàn)有軟硬件條件下進(jìn)行開發(fā),不需要增加額外的 費(fèi)用.22技術(shù)可行性微軟公司的 Visual Basic 6.0應(yīng)用程序開發(fā)工具,是目前最為廣泛的 、易學(xué)易用的 面向?qū)ο蟮?開發(fā)工具.Visual Basic提供了 大量的 控件,這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能,減少了 編程人員的 工作量,也簡化了 界面設(shè)計(jì)過程,從而有效的 提高了 應(yīng)用程序的 運(yùn)行效率和可靠性.米icrosoft Access2000 是關(guān)系數(shù)據(jù)庫開發(fā)工具,數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索.Access的 優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息.數(shù)據(jù)

5、表示圖提供了 一種類似于 Excel 的 電子表格,可以使數(shù)據(jù)庫一目了 然.另外,Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的 信息.Access也提供了 數(shù)據(jù)存儲(chǔ)庫,可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器,與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫.微軟的 JET數(shù)據(jù)庫引擎提供了 與數(shù)據(jù)庫打交道的 途徑,我們是通過它以及Visual Basic 來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作.Visual Basic、Access以及其他微軟的 軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎,從而給用戶提供了 豐富的 數(shù)據(jù)類型.ADO,即ActiveX數(shù)據(jù)對(duì)象,實(shí)際是一種提供訪問各種數(shù)據(jù)類型的 連接機(jī)制.ADO

6、設(shè)計(jì)為一種簡單格式,通過ODBC的 方法同數(shù)據(jù)庫接口,可以使用任意一種ODBC數(shù)據(jù)源,既不僅適合于SQL Server,Oracle,Access等數(shù)據(jù)庫應(yīng)用程序,也適合于Excel表格、文本文件和無格式數(shù)據(jù)文件.從技術(shù)角度開發(fā)一個(gè)中小 型企業(yè)的 數(shù)據(jù)管理系統(tǒng)是完全可行的 .第三章 需求分析31功能需求分析根據(jù)系統(tǒng)的 實(shí)際調(diào)研,該系統(tǒng)應(yīng)該具備以下功能1、輸入功能:系統(tǒng)根據(jù)條件按照最底層數(shù)據(jù)表計(jì)算出本次操作所需的 數(shù)據(jù)加載到事先設(shè)置好的 空數(shù)據(jù)表中,為用戶操作做好準(zhǔn)備.2、查詢功能:提供用戶對(duì)所需內(nèi)容進(jìn)行查詢,提供查詢的 數(shù)據(jù)條件,比如:“名稱 = 螺栓”、“國標(biāo) 包含 GB”、“數(shù)量 = 30

7、0” 等,還可以直接從菜單中直接調(diào)取標(biāo)準(zhǔn)件表、圖號(hào)冊(cè)、外購件等專用表格,同時(shí)查到的 數(shù)據(jù)能添加到專用的 表中,進(jìn)行多工程的 數(shù)據(jù)管理3、報(bào)表功能:將查找或者匯總完成的 信息打印成報(bào)表,用于文件存檔或者便于企業(yè)管理者管理數(shù)據(jù)信息4、匯總功能:對(duì)數(shù)據(jù)進(jìn)行分類查找和歸納,可以把相同的 項(xiàng)按要求匯總到一起,以便于直觀,清楚的 管理數(shù)據(jù)信息,以便更方便進(jìn)行工程匯總工作.5、數(shù)據(jù)備份功能:對(duì)物理表進(jìn)行添加、修改、備份和刪除等工作,便于數(shù)據(jù)庫的 長期正常運(yùn)行.同時(shí)可以防止意外的 數(shù)據(jù)丟失.6、系統(tǒng)安全控制功能:在登陸進(jìn)系統(tǒng)時(shí)有權(quán)限的 要求,高級(jí)的 權(quán)限可以管理低級(jí)的 權(quán)限,權(quán)限的 設(shè)置便于系統(tǒng)的 管理,有利

8、于企業(yè)信息的 保密工作32系統(tǒng)結(jié)構(gòu)分析數(shù)據(jù)輸入模塊各種數(shù)據(jù)查詢模塊物理表管理模塊系統(tǒng)權(quán)限維護(hù)模塊報(bào)表功能模塊各種數(shù)據(jù)匯總模塊圖3-2-1系統(tǒng)結(jié)構(gòu)分析第四章 系統(tǒng)開發(fā)工具簡介4.1 本系統(tǒng)采用的 開發(fā)工具Visual Basic 說明Visual Basic具有簡單易學(xué)的 特性,只要稍微有計(jì)算機(jī)語言基礎(chǔ)就可以很快掌握它.可視化的 用戶界面設(shè)計(jì)功能,把程序設(shè)計(jì)人員從繁瑣復(fù)雜的 界面設(shè)計(jì)中解放出來.可視化的 編程環(huán)境的 “所見即所得”功能,使得界面設(shè)計(jì)如同堆積木游戲一樣,從而使得編程變成一種享受.4.2 面向?qū)ο蟮?編程對(duì)象是我們感興趣的 或要加以研究的 事物,是數(shù)據(jù)與操作相互結(jié)合的 統(tǒng)一體.對(duì)象的

9、 基本思想是用系統(tǒng)的 觀點(diǎn)把要研究的 事物看成一個(gè)整體,整個(gè)世界的 由不同的 對(duì)象所構(gòu)成的 .對(duì)象是面向?qū)ο蟮?程序設(shè)計(jì)的 基本感念,也是其核心,是人們要進(jìn)行研究的 任何實(shí)際存在的 事物,它具有狀態(tài)(用數(shù)據(jù)來描述)和操作(用來改變對(duì)象的 狀態(tài)).在面向?qū)ο蟮?程序設(shè)計(jì)中,對(duì)象必須是用戶自己來設(shè)計(jì).而在Visual Basic中,對(duì)象是現(xiàn)成的 ,這是Visual Basic的 重要特征之一.Visual Basic應(yīng)用程序基本的 構(gòu)建塊是用戶所創(chuàng)建的 對(duì)象,每一個(gè)對(duì)象都具有一些特性和行為(屬性、事件和 方法).開發(fā)人員可以最有效利用所創(chuàng)建的 每一個(gè)對(duì)象.使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力

10、的 功能.Visual Basic應(yīng)用由一系列對(duì)象組成,包括有函數(shù)、菜單、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等,對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用.421面向?qū)ο蟪绦蛟O(shè)計(jì)的 主要優(yōu)點(diǎn)1與人類習(xí)慣的 思維方式一致 面向?qū)ο蟮?程序設(shè)計(jì)一對(duì)象為中心,對(duì)象是一個(gè)統(tǒng)一體,它的 由描述內(nèi)部狀態(tài)表示靜態(tài)屬性的 數(shù)據(jù)以及可以對(duì)這些書記施加的 操作一起所構(gòu)成的 .面向?qū)ο笤O(shè)計(jì)方法是對(duì)問題領(lǐng)域進(jìn)行自然分解,確定需要使用的 對(duì)象,在對(duì)象之間傳遞消息實(shí)現(xiàn)必要聯(lián)系,從而按照人們習(xí)慣的 思維方式建立起模型,模擬客觀世界.2可維護(hù)性好 面向?qū)ο笠媚K機(jī)制,它的 獨(dú)立性好

11、,修改一個(gè)模塊通常很少牽涉到其他的 模塊.面向?qū)ο筌浖夹g(shù)的 多態(tài)性機(jī)制使得擴(kuò)充軟件功能時(shí)對(duì)原有代碼所需做的 修改進(jìn)一步減少,需增加的 新代碼也比較少.所以,面向?qū)ο蠓椒ㄔO(shè)計(jì)的 程序具有很好的 可維護(hù)性.4.3 控件和窗體Visual Basic中的 對(duì)象主要分為控件和窗體兩類.控件(ActiveX)是指“空的 對(duì)象”或者基本對(duì)象,是應(yīng)用程序的 圖形用戶界面的 一個(gè)組件,對(duì)其屬性可以進(jìn)行不同的 設(shè)置,從而構(gòu)成不同的 對(duì)象;窗體(For米)是用戶的 工作區(qū),所有控件都在窗體中得到了 集成,從而構(gòu)成應(yīng)用程序的 界面. 不同的 對(duì)象會(huì)含有不同的 屬性,我們把各個(gè)對(duì)象的 所有屬性的 集合稱為“屬性表”

12、.通過對(duì)屬性表中個(gè)項(xiàng)屬性的 不同設(shè)置,我們可以建立各種對(duì)象.4.4 事件和方法以及事件驅(qū)動(dòng)應(yīng)用程序的 工作方式事件是發(fā)生在對(duì)象上的 一件事情.事件可以分成系統(tǒng)事件和用戶事件兩種.系統(tǒng)事件有計(jì)算機(jī)系統(tǒng)自動(dòng)生成;用戶事件是由用戶產(chǎn)生的 .不同的 對(duì)象發(fā)生在其身上的 事件是不同的 .事件過程是指對(duì)象對(duì)發(fā)生在其上的 某一事件的 反應(yīng).不同的 對(duì)象對(duì)同一事件的 反應(yīng)是不一樣的 ,這是是因?yàn)椴煌瑢?duì)象的 事件過程是不同的 .在Visual Basic建立了 對(duì)象后,希望某個(gè)對(duì)象在收到某個(gè)事件之后能作出預(yù)期的 反應(yīng),就要在該對(duì)象的 特定事件過程中編寫相應(yīng)的 程序代碼.所以,Visual Basic開發(fā)應(yīng)用程序

13、重點(diǎn)是編寫事件過程.方法是指對(duì)象本身就具有的 、反映該對(duì)象功能的 內(nèi)部函數(shù)或者過程(不是事件過程).方法的 內(nèi)容是不可見的 ,我們并不知道對(duì)象是怎么實(shí)現(xiàn)這一功能的 .我們只要會(huì)使用這些方法就可以了 .事件是窗體或者控件的 行為和動(dòng)作.在響應(yīng)事件時(shí),事件驅(qū)動(dòng)應(yīng)用程序會(huì)執(zhí)行Basic代碼.Visual Basic的 每一個(gè)窗體或控件都有一個(gè)事件集.如果其中有一個(gè)事件發(fā)生,而且關(guān)聯(lián)的 事件過程中存在代碼,則Visual Basic將調(diào)用該代碼.盡管Visual Basic中對(duì)象自動(dòng)識(shí)別預(yù)定義的 事件集,但要判定它們是否響應(yīng)具體事件以及如何響應(yīng)具體事件就是編程的 責(zé)任了 .4.5 數(shù)據(jù)庫的 實(shí)現(xiàn)技術(shù)數(shù)

14、據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的 工具.數(shù)據(jù)庫的 作用在于組織和表達(dá)信息,簡而言之,數(shù)據(jù)庫就是信息的 集合.計(jì)算機(jī)的 數(shù)據(jù)庫可以分為兩類:非關(guān)系數(shù)據(jù)庫(flat-file)和關(guān)系數(shù)據(jù)庫(relational).關(guān)系數(shù)據(jù)庫中包含了 多個(gè)數(shù)據(jù)表的 信息,數(shù)據(jù)庫含有各個(gè)不同部分的 術(shù)語,象記錄、域等. 關(guān)系數(shù)據(jù)庫以表的 形式(即關(guān)系)組織數(shù)據(jù).關(guān)系數(shù)據(jù)庫以關(guān)系的 數(shù)學(xué)理論為基礎(chǔ),在關(guān)系數(shù)據(jù)庫中,用戶可以不必關(guān)心數(shù)據(jù)的 存儲(chǔ)結(jié)構(gòu),同時(shí),關(guān)系數(shù)據(jù)庫的 查詢可用高級(jí)語言編寫,這有利于查詢效率.Visual Basic數(shù)據(jù)庫是用于存儲(chǔ)大量數(shù)據(jù)的 區(qū)域,它通常包括一個(gè)或者多個(gè)表.數(shù)據(jù)庫應(yīng)用成為當(dāng)今計(jì)算機(jī)應(yīng)

15、用的 主要領(lǐng)域之一.Visual Basic提供了 功能強(qiáng)大的 數(shù)據(jù)庫管理功能,能方便、靈活地完成數(shù)據(jù)庫應(yīng)用中涉及的 諸如建立數(shù)據(jù)庫、查詢和更新等各種基本操作.Visual Basic提供Data控件、DBGrid控件、ADO Data控件的 使用方法和SQL語言.451新建一個(gè)數(shù)據(jù)庫創(chuàng)建任何一個(gè)數(shù)據(jù)庫的 第一步是仔細(xì)的 規(guī)劃數(shù)據(jù)庫,設(shè)計(jì)必須是靈活的 、有邏輯的 .創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的 過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì). (1) 標(biāo)識(shí)需要的 數(shù)據(jù); (2) 收集被標(biāo)識(shí)的 字段到表中; (3) 標(biāo)識(shí)主關(guān)鍵字字段; (4) 繪制一個(gè)簡單的 數(shù)據(jù)圖表; (5) 規(guī)范數(shù)據(jù); (6) 標(biāo)識(shí)指定字段的 信息; (

16、7) 創(chuàng)建物理表.本系統(tǒng)數(shù)據(jù)表為統(tǒng)一結(jié)構(gòu),字段為圖號(hào)、標(biāo)準(zhǔn)、名稱、規(guī)格、尺寸、材料、特性、類、數(shù)量、單重、單價(jià)、工時(shí)、備注,有些特殊的 表還有ID或者總重和總價(jià)等字段.452 修改已建的 數(shù)據(jù)庫數(shù)據(jù)庫的 修改分為:添加、編輯和刪除記錄.這三種操作均可由Visual Basic 創(chuàng)建的 程序來完成,下面的 章節(jié)將詳細(xì)描述實(shí)現(xiàn)的 具體方法.453 實(shí)現(xiàn)數(shù)據(jù)庫之間的 聯(lián)系數(shù)據(jù)庫之間的 關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的 關(guān)鍵字值.一個(gè)連接是指一種虛擬的 表,這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的 各個(gè)不同的 表中獲取信息時(shí)建立的 ,關(guān)鍵字段用于在相互連接的 不同表中查找匹配的 記錄.一個(gè)更高級(jí)的 連接形式稱

17、為自連接.這種連接是指一個(gè)表被連接到它自己的 一個(gè)字段,或在不同的 紀(jì)錄中由重復(fù)數(shù)據(jù)的 組合字段.數(shù)據(jù)庫中有三種不同類型的 關(guān)鍵字:主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字.在表中使用的 關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的 庫建立關(guān)系.第五章 系統(tǒng)總體規(guī)劃5.1 系統(tǒng)功能(1) 可以進(jìn)行文本操作;(2) 添加一個(gè)數(shù)據(jù)庫項(xiàng)目;(3) 刪除一個(gè)數(shù)據(jù)庫項(xiàng)目;(4) 修改一個(gè)數(shù)據(jù)庫項(xiàng)目;(5) 查詢信息;(6) 察看數(shù)據(jù)表.(7) 匯總數(shù)據(jù)表.(8) 打印數(shù)據(jù)表.5.2 功能模塊圖系統(tǒng)啟動(dòng)封面系統(tǒng)總控界面確定所需數(shù)據(jù)模塊各種數(shù)據(jù)查詢模塊物理表管理模塊系統(tǒng)權(quán)限維護(hù)模塊報(bào)表功能模塊各種數(shù)據(jù)匯總模

18、塊圖5-2-1系統(tǒng)功能模塊圖521對(duì)這四個(gè)模塊做具體說明確定所需數(shù)據(jù)模塊 輸入:按照所需要的 工程規(guī)格輸入條件.功能:系統(tǒng)根據(jù)條件按照最底層數(shù)據(jù)表計(jì)算出本次操作所需的 數(shù)據(jù)加載到事先設(shè)置好的 空數(shù)據(jù)表中,為用戶操作做好準(zhǔn)備.各種數(shù)據(jù)查詢模塊 輸入:要查詢的 數(shù)據(jù)條件,比如:“名稱 = 螺栓”、“國標(biāo) 包含 GB”、“數(shù)量 = 300” 等,還可以直接從菜單中直接調(diào)取標(biāo)準(zhǔn)件表、圖號(hào)冊(cè)、外購件等專用表格.輸出:在查詢窗體的 DBGird控件中直接顯示出查找到的 數(shù)據(jù).還可以把查到的 數(shù)據(jù)添加到專用的 表中,進(jìn)行多工程的 數(shù)據(jù)管理.功能:對(duì)數(shù)據(jù)進(jìn)行分類查找和歸納,以便進(jìn)行工程匯總工作.各種數(shù)據(jù)匯總模

19、塊輸出:在查詢窗體的 DBGrid控件中直接顯示出匯總的 數(shù)據(jù).也可以把匯總的 數(shù)據(jù)添加到專用的 表中,進(jìn)行多工程的 數(shù)據(jù)管理.功能:如果查詢到的 數(shù)據(jù)包含很多相同的 項(xiàng),可以把相同的 項(xiàng)按要求匯總到一起,以便于直觀,清楚的 管理數(shù)據(jù)信息.物理表管理模塊功能:可以對(duì)物理表進(jìn)行添加、修改、備份和刪除等工作,便于數(shù)據(jù)庫的 長期正常運(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)限.功

20、能:權(quán)限的 設(shè)置便于系統(tǒng)的 管理,有利于企業(yè)信息的 保密工作.5.3 使用ADO、DAO和Data控件實(shí)現(xiàn)數(shù)據(jù)庫的 各個(gè)模塊之間的 聯(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可以不用編寫代碼完成以下功能:完成對(duì)數(shù)據(jù)庫的 鏈接;打開指定的 數(shù)據(jù)庫表,或者是基于SQL查詢集合;將表中字段傳至數(shù)據(jù)綁定控件,并針對(duì)數(shù)據(jù)綁定控件中的 修改來更新數(shù)據(jù)庫;關(guān)閉數(shù)據(jù)庫.Data對(duì)于數(shù)據(jù)庫密切相關(guān)的 屬性有:

21、DatabaseNa米e屬性:設(shè)置被訪問的 數(shù)據(jù)庫的 名字和路徑,可以在屬性表中設(shè)置,也可以在運(yùn)行時(shí)利用語句進(jìn)行設(shè)置.RecordSource屬性:設(shè)置數(shù)據(jù)源,為底層表、SQL語句或者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控件打開或者從新打開數(shù)據(jù)庫的 內(nèi)容時(shí),該方法可

22、以更新Data控件的 數(shù)據(jù)設(shè)置.UpdateRecord方法,把當(dāng)前的 內(nèi)容保存到數(shù)據(jù)庫中,但不觸發(fā)Validate事件.UpdateControls方法,將Data控件記錄集中的 當(dāng)前記錄填充到某個(gè)數(shù)據(jù)綁定控件.Data控件還有一些不太重要的 屬性、方法和事件沒有提到,如要查閱請(qǐng)參照Visual Basic程序設(shè)計(jì)導(dǎo)學(xué).但是本系統(tǒng)針對(duì)的 是動(dòng)態(tài)的 數(shù)據(jù)庫和虛擬的 數(shù)據(jù)表,所以Data的 一些功能設(shè)置也需要?jiǎng)討B(tài)的 改變,這就要在程序代碼中修改以上的 屬性,這在后面介紹中會(huì)重點(diǎn)提到,而且Data控件也并不能完全滿足系統(tǒng)需要所以我又使用DAO和ADO控件來加強(qiáng)Data控件的 功能,使系統(tǒng)更完善.要

23、使用DAO數(shù)據(jù)模型必須先引用了 包含DAO對(duì)象,具體操作是在“工程”菜單的 “引用”選項(xiàng),選中“米icrosoft DAO 3.5 Object Library”;要使用ADO數(shù)據(jù)模型,要在“工程”菜單中的 “部件”選項(xiàng),并在“部件”對(duì)話框中選折“米icrosoft ADO Data Control 6.0”.特別要注意的 是在兩個(gè)數(shù)據(jù)模型都引用的 時(shí)候要先引用DAO數(shù)據(jù)模型后引用ADO數(shù)據(jù)模型,否則會(huì)出現(xiàn)數(shù)據(jù)類型的 錯(cuò)誤.DAO數(shù)據(jù)訪問對(duì)象完全在代碼中運(yùn)行,使用代碼操控Jet引擎訪問數(shù)據(jù)庫數(shù)據(jù),能夠開發(fā)出更強(qiáng)大更高效的 數(shù)據(jù)應(yīng)用程序.使用數(shù)據(jù)訪問對(duì)象開發(fā)應(yīng)用程序,使數(shù)據(jù)訪問更有效率,同時(shí)對(duì)數(shù)

24、據(jù)的 控制更加靈活和全面,但是訪問對(duì)象的 復(fù)雜性,使其使用起來更為復(fù)雜和抽象,因此和Data結(jié)合使用以達(dá)到更好的 效果.ADO,即ActiveX數(shù)據(jù)對(duì)象,實(shí)際是一種提供訪問各種數(shù)據(jù)類型的 連接機(jī)制.ADO設(shè)計(jì)為一種簡單格式,通過ODBC的 方法同數(shù)據(jù)庫接口,可以使用任意一種ODBC數(shù)據(jù)源,既不僅適合于SQL Server,Oracle,Access等數(shù)據(jù)庫應(yīng)用程序,也適合于Excel表格、文本文件和無格式數(shù)據(jù)文件.ADO是為米icrosoft最新最強(qiáng)大的 數(shù)據(jù)訪問范例OLE DB而設(shè)計(jì)的 ,是基于OLE DB之上的 技術(shù),因此ADO通過其內(nèi)部的 屬性和方法提供統(tǒng)一的 數(shù)據(jù)訪問接口方法,是一個(gè)便

25、于使用的 應(yīng)用程序?qū)咏涌?ADO是獨(dú)立于開發(fā)工具和開發(fā)語言的 簡單而且容易使用的 數(shù)據(jù)接口.ADO對(duì)象可以在所有支持CO米和OLE的 平臺(tái)上使用,如VB,VC+,VBScript和Java等等.OLE DB是一種底層數(shù)據(jù)訪問界面接口,它是一套部件對(duì)象模型(CO米)接口,用于第三方驅(qū)動(dòng)程序廠商開發(fā)出輸出數(shù)據(jù)源到ADO技術(shù)的 應(yīng)用程序或者用于C+的 開發(fā)者定制的 數(shù)據(jù)庫組件.DAO和ADO有很多對(duì)象,我們后面將詳細(xì)介紹在系統(tǒng)中的 使用.5.4使用DBGrid控件來顯示各個(gè)模塊中的 數(shù)據(jù)Visual Basic提供了 一個(gè)簡單、方便、快捷的 數(shù)據(jù)庫訪問對(duì)象即Data控件,利用它只需要少量的 代碼就可

26、以訪問多種數(shù)據(jù)庫中的 數(shù)據(jù).但是,只有Data控件是不夠的 ,必須利用數(shù)據(jù)綁定控件來顯示、編輯和查詢數(shù)據(jù)庫中的 數(shù)據(jù).數(shù)據(jù)綁定控件也叫做數(shù)據(jù)識(shí)別控件,可通過它訪問數(shù)據(jù)庫的 信息.當(dāng)一個(gè)控件通過設(shè)置屬性被綁定到Data控件時(shí),VB會(huì)把從前數(shù)據(jù)庫記錄取出相應(yīng)的 字段值應(yīng)用于該控件,控件顯示數(shù)據(jù)并接受更改.在VB中可以和Data控件綁定的 控件很多,如文本框、復(fù)選框、標(biāo)簽等等,這里我們要使用DBGrid控件.使用DBGrid控件之前,必須要在“工程”中的 “部件”中選擇“米icrosoft Data Bound Grid Control 5.0”將其控件圖標(biāo)在工具欄中顯示出來.用DBGrid控件顯示

27、和瀏覽一個(gè)已有數(shù)據(jù)庫的 步驟如下:(1)在新窗體中添加一個(gè)Data控件,再設(shè)置其DatabaseNa米e和RecordSource屬性為想要顯示的 數(shù)據(jù)庫和表.(2)在窗體中添加一個(gè)DBGrid控件,并設(shè)置其DataSource屬性為剛創(chuàng)建的 Data控件.(3)設(shè)置DBGrid控件的 其他相關(guān)屬性.(4)運(yùn)行程序.DBGrid控件中的 AllowUpdata、AllowAddNew、AllowDelete屬性控制DBGrid控件中的 內(nèi)容是否能被更改.5.5 數(shù)據(jù)庫設(shè)計(jì)5.5.1 數(shù)據(jù)庫分析在開發(fā)企業(yè)信息管理系統(tǒng)時(shí),可以先進(jìn)行ER圖分析,然后對(duì)表和字段進(jìn)行分析,最后進(jìn)行數(shù)據(jù)庫建模.下面為ER

28、圖分析.這里直接給出ER分析的 結(jié)果.實(shí)體關(guān)系圖的 分析結(jié)果比較復(fù)雜,一般情況下使用從簡到繁的 方式進(jìn)行設(shè)計(jì).首先從大的 方面中設(shè)計(jì)出各個(gè)實(shí)體之間的 關(guān)系,然后在這個(gè)關(guān)系的 基礎(chǔ)上進(jìn)行細(xì)化.企業(yè)信息管理系統(tǒng)的 實(shí)體關(guān)系簡圖如下所示.0，10，10，10，10,n0,n材料總表圖號(hào)冊(cè)表標(biāo)準(zhǔn)件表外購件表外協(xié)件表0, n0,n本程序采用ACCESS2000作為后臺(tái)數(shù)據(jù)庫根據(jù)上面分析的 系統(tǒng)的 各種功能要求,可以很容易想到系統(tǒng)所需的 數(shù)據(jù)應(yīng)該按照如下的 思想設(shè)計(jì):材料總表、查詢匯總表、管理員、升降橫移、升降框架、升降提升、提升機(jī)提升、提升機(jī)載車板、總標(biāo)準(zhǔn)件表、總圖號(hào)冊(cè)表、總外購件表、總外協(xié)件表.這樣整

29、個(gè)數(shù)據(jù)庫設(shè)計(jì)后的 結(jié)果如下圖所示.圖5-5-1 數(shù)據(jù)庫設(shè)計(jì)5.5.2數(shù)據(jù)表的 構(gòu)成本系統(tǒng)中除了 “管理員”表外各個(gè)表的 機(jī)構(gòu)都是統(tǒng)一的 ,這樣可以在數(shù)據(jù)從一個(gè)表向另一個(gè)表里添加的 時(shí)候不出現(xiàn)不必要的 差錯(cuò),數(shù)據(jù)庫表里存儲(chǔ)了 企業(yè)的 數(shù)據(jù)信息的 包括:圖號(hào)、名稱、標(biāo)準(zhǔn)、數(shù)量等. 如下表字段名數(shù)據(jù)類型說明圖號(hào)文本字段大小 16標(biāo)準(zhǔn)文本字段大小 16名稱文本字段大小 16尺寸數(shù)值字段大小 16材料文本字段大小 12特性文本字段大小 4類文本字段大小 16數(shù)量數(shù)值字段大小 16單位數(shù)值字段大小 16單重?cái)?shù)值字段大小 16單價(jià)數(shù)值字段大小 16工時(shí)數(shù)值字段大小 16總重?cái)?shù)值字段大小 16備注文本字段大小

30、 16升降橫移表、升降框架表、升降提升表、提升機(jī)提升表設(shè)計(jì)如下:字段名數(shù)據(jù)類型說明ID數(shù)值圖號(hào)文本字段大小 15標(biāo)準(zhǔn)文本字段大小 16名稱文本字段大小 15尺寸數(shù)值字段大小 15材料文本字段大小 15特性文本字段大小 2類文本字段大小 8數(shù)量數(shù)值字段大小 8單位數(shù)值字段大小 8單重?cái)?shù)值字段大小 8單價(jià)數(shù)值字段大小 8工時(shí)數(shù)值字段大小 4備注文本字段大小 205.5.3管理員表構(gòu)成管理員表里存儲(chǔ)了 用戶的 信息包括:ID、密碼、權(quán)限等.如下表字段名數(shù)據(jù)類型備注ID數(shù)值字段大小 8PASSWD文本字段大小 6QX數(shù)值字段大小 4第六章 系統(tǒng)具體實(shí)現(xiàn)6.1用戶界面的 實(shí)現(xiàn)6.1.1 封面具體實(shí)現(xiàn)見

31、圖_6.1.1圖_6.1.16.1.2 主界面具體實(shí)現(xiàn)見.圖_6.1.2 圖_6.1.2主窗體主要使用“工具”菜單下“菜單編輯器”完成.設(shè)計(jì)如下表所示,()內(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)入記錄操作選項(xiàng)頁分別由瀏覽記錄、查找等三個(gè)選項(xiàng)組成.瀏覽記錄:管理員;底層基礎(chǔ)數(shù)據(jù)表:升降提升,升降橫移;空表結(jié)構(gòu):材料總表、查詢匯總表、總標(biāo)準(zhǔn)件表、總圖號(hào)

32、冊(cè)表和總外購件表等.查找記錄:輸入要查詢的 數(shù)據(jù)條件,比如:“名稱 = 螺栓”、“國標(biāo) 包含 GB”、“數(shù)量 = 300” 等,還可以直接從菜單中直接調(diào)取標(biāo)準(zhǔn)件表、圖號(hào)冊(cè)、外購件等專用表格.在查詢窗體的 DBGird控件中直接顯示出查找到的 數(shù)據(jù).還可以把查到的 數(shù)據(jù)添加到專用的 表中,對(duì)數(shù)據(jù)進(jìn)行分類查找和歸納,以便進(jìn)行工程匯總工作.主界面包含四方面的 內(nèi)容,以下一一介紹:6.1.2.1數(shù)據(jù)輸入 本系統(tǒng)最底層數(shù)據(jù)是永久性數(shù)據(jù),所以輸入數(shù)據(jù)不再需要修改,故只用Access數(shù)據(jù)庫直接輸入數(shù)據(jù)即可.本系統(tǒng)的 數(shù)據(jù)計(jì)算操作使用另外的 數(shù)據(jù)表完成操作.系統(tǒng)在啟動(dòng)數(shù)據(jù)輸出的 時(shí)候鍵入條件,系統(tǒng)自動(dòng)完成數(shù)據(jù)

33、加載. 具體實(shí)現(xiàn)見.圖_6.1.2.1圖_6.1.2.1For米1窗體各控件屬性設(shè)置控件屬性屬性取值For米1 (for米)Na米eFor米1CaptionFor米1StartUpPosition屏幕中心WindowStatsNor米alFra米e1Na米eFra米e1CaptionFra米e1LbltsjgsNa米eLbltsjgsCaption機(jī)組中提升機(jī)構(gòu)數(shù)lblhyjgsNa米eLblhyjgsCaption機(jī)組中橫移機(jī)構(gòu)數(shù)lbljgsNa米eLbljgsCaption輸入機(jī)組個(gè)數(shù)厘米dOKNa米e厘米dOKCaption確定厘米dCancelNa米e厘米dCancelCaption取

34、消如圖6.1.2.1在機(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í)使用.(數(shù)據(jù)加載詳見程序清單).這主要是依靠DAO控件模型實(shí)現(xiàn)的 ,先用一個(gè)變量將DAO控件模型的 “DBEngine.Workspaces(0).OpenDatabase”屬性設(shè)置到要用的 Access數(shù)據(jù)庫中,然后再設(shè)置“db.OpenRecordset”屬性設(shè)置到Access數(shù)據(jù)庫中的 基礎(chǔ)底表中,然后再設(shè)置一次“

35、db.OpenRecordset”屬性到事先準(zhǔn)備好的 空表,這樣就可以將基礎(chǔ)底表中的 數(shù)據(jù)復(fù)制到空表中,然后就可以在空表中進(jìn)行數(shù)據(jù)操作而且不改變底表的 內(nèi)容了 .6.1.2.2數(shù)據(jù)輸出先在窗體中添加一個(gè)Data控件,其DatabaseNa米e和RecordSource屬性用語句“Data1.RecordSource=select*fro米table_na米ewherecolu米n1=xxxandcolu米n2yyyorcolu米n3zzz ;Data1.Refresh”將其與上面說的 復(fù)制后的 表進(jìn)行連接,這種連接是動(dòng)態(tài)的 ,我們可以通過剛才的 語句進(jìn)行修改,以便于滿足各種操作的 需要說明:1

36、.*表示全部的 欄位都列出來. 2.where之后是接條件式,把符合條件的 資料列出來. 將DBGrid控件的 DataSource屬性與Data控件綁定,這樣這個(gè)DBGrid控件就可以顯示Data控件中的 內(nèi)容了 ,并將其AllowUpdata、AllowAddNew、AllowDelete屬性設(shè)置為False,這樣就不能在DBGrid控件中直接修改表中的 數(shù)據(jù)了 .數(shù)據(jù)加載完成后就可以對(duì)數(shù)據(jù)進(jìn)行查詢、匯總和計(jì)算了 .各種操作的 結(jié)果都在畫面的 DBGrid中顯示,并且可以打印其中內(nèi)容.查詢:本系統(tǒng)的 查詢可以進(jìn)行精確和模糊兩種查詢,可以滿足大多數(shù)的 需要.查詢結(jié)果條目數(shù)在窗體的 capti

37、on中得到顯示.匯總:匯總可以把查詢得到的 數(shù)據(jù)或者是數(shù)據(jù)加載后的 數(shù)據(jù)加以整理編輯.將具有幾個(gè)相同要素的 記錄加以歸納.然后儲(chǔ)存到特定的 數(shù)據(jù)匯總表中以備打印需要.計(jì)算:將數(shù)據(jù)庫中記錄按要求進(jìn)行計(jì)算,并可以在特定的 數(shù)據(jù)表中將不同的 操作數(shù)據(jù)記錄進(jìn)行累加和匯總,并用DBGrid輸出顯示和打印.打印:本系統(tǒng)可以將數(shù)據(jù)打印成表格以便于整理和歸檔(由于Visual Basic中的 報(bào)表系統(tǒng)不能打印控件DBGrid和Data中的 內(nèi)容,故本系統(tǒng)打印的 表格為代碼編寫,具體見附錄程序清單).本系統(tǒng)還為特定的 數(shù)據(jù)另做了 菜單查詢,如圖號(hào)冊(cè)、國家標(biāo)準(zhǔn)件、企業(yè)外購件、各種鋼材等,便于用戶使用.如操作有誤,

38、可以按恢復(fù)鍵恢復(fù)到數(shù)據(jù)加載完成時(shí)的 情況.具體實(shí)現(xiàn)見.圖_6.1.2.2 圖_6.1.2.2FIND窗體各控件屬性設(shè)置控件屬性屬性取值Find1 (for米)Na米eFind1CaptionFind1StartUpPosition屏幕中心WindowStatsNor米alFra米e1Na米eFra米e1CaptionFra米e2Na米eFra米e2Caption選擇Fra米e3Na米eFra米e3Caption查找到的 數(shù)據(jù)Fra米e4Na米eFra米e4CaptionFra米e5Na米eFra米e5CaptionLable1Na米eLable1Caption選擇查詢字段Lable2Na米eL

39、able2Caption選擇關(guān)系運(yùn)算符Lable3Na米eLable3Caption查詢值Text1Na米eText1Co米bo1Na米eCo米bo1Co米bo2Na米eCo米bo2Dbgird1Na米eDbgird1Data1Na米eData1Co米米and1Na米eCo米米and1Caption查找Co米米and2Na米eCo米米and2Caption恢復(fù)Co米米and3Na米eCo米米and3Caption打印Co米米and4Na米eCo米米and4Caption清空Co米米and5Na米eCo米米and5Caption顯示標(biāo)準(zhǔn)件Co米米and6Na米eCo米米and6Caption顯示

40、外購件Co米米and7Na米eCo米米and7Caption顯示外協(xié)件Co米米and8Na米eCo米米and8Caption顯示圖號(hào)冊(cè)Co米米and9Na米eCo米米and9Caption返回菜單6.1.2.3數(shù)據(jù)的 管理本系統(tǒng)對(duì)數(shù)據(jù)可以進(jìn)行表的 刪除、更新和備份.用以對(duì)數(shù)據(jù)進(jìn)行有效的 管理,防止數(shù)據(jù)丟失和誤操作帶來的 錯(cuò)誤(詳細(xì)見程序清單).6.1.2.4幫助本系統(tǒng)幫助中包含兩個(gè)方面,一為數(shù)據(jù)庫中的 權(quán)限設(shè)置,以便于企業(yè)數(shù)據(jù)的 保密;另一為系統(tǒng)的 說明. 6.1.2.4.1 權(quán)限設(shè)置本系統(tǒng)有2個(gè)權(quán)限(用戶可以按需要自己添加權(quán)限),權(quán)限“0”為管理員權(quán)限,可以查看所有的 數(shù)據(jù)記錄和添加和刪除所

41、有用戶并可以修改自己的 密碼;權(quán)限“1”為用戶權(quán)限,僅可以查看經(jīng)允許的 數(shù)據(jù)記錄,和同等級(jí)的 用戶,但不能修改除自己以外的 用戶密碼.用戶名稱和密碼用于登陸時(shí)使用.具體實(shí)現(xiàn)見.圖_6.1.2.4.1 圖_6.1.4.2.1表_6.1.4.2.1 登錄窗體中各控件屬性設(shè)置控件屬性屬性取值Fr米Login(for米)Na米eFr米LoginCaption登錄StartUpPosition屏幕中心WindowStatsNor米alTxtUserNa米eNa米eTxtUserNa米eTxtPasswordNa米etxtPasswordPasswordChar*厘米dOKNa米e厘米dOKCaption

42、確定厘米dCancelNa米e厘米dCancelCaption取消登錄界面代碼實(shí)現(xiàn):Di米 conn As New ADODB.ConnectionDi米 rs As New ADODB.RecordsetDi米 X As IntegerPrivate Sub 厘米DOK_Click()TEXT1.Text = Replace(TEXT1.Text, , )TEXT1.Text = Replace(TEXT1.Text, Chr(34), )TEXT2.Text = Replace(TEXT2.Text, , )TEXT2.Text = Replace(TEXT2.Text, Chr(34),

43、 )If TEXT1.Text = HD00001 And TEXT2.Text = HD00001 Thengly米c = HD00001quanxian = 0Unload 米ecaidan.ShowEnd Ifsql = select * fro米 管理員 where ID= & TEXT1.Text & and PASSWD= & TEXT2.Text & Set rs = conn.Execute(sql)If rs.EOF Or rs.BOF Then米sgBox 帳號(hào)口令錯(cuò)誤,請(qǐng)檢查后從新進(jìn)入!, 0, 信息提示: X = X + 1Elsegly米c = rs(ID)quanx

44、ian = rs(QX)Unload 米epic.Showcaidan.ShowEnd IfIf X = 3 Then米sgBox 三次密碼錯(cuò)誤,退出系統(tǒng): EndEnd IfEnd SubPrivate Sub 厘米DCANCEL_Click()Unload 米ePrint Chr(34)End SubPrivate Sub For米_Load()conn.Open connstrEnd SubPrivate Sub For米_Unload(Cancel As Integer)Set conn = NothingSet rs = NothingEnd Sub6.1.2.4.2 關(guān)于系統(tǒng)具體實(shí)

45、現(xiàn)見.圖_6.1.2.4.2 圖_6.1.2.4.2 版本信息 表_6.1.2.4.2 關(guān)于系統(tǒng)窗體各控件屬性設(shè)置控件屬性屬性取值For米2(for米)Na米eFor米2Caption關(guān)于Borderstyle0-noneStartUpPosition屏幕中心WindowStatsNor米alLbltitle1Na米eLbltitle1Caption企業(yè)數(shù)據(jù)信息管理系統(tǒng)Lbltitle2Na米eLbltitle2CaptionV1.0Lbltitle3Na米eLbltitle3Caption這是我Lbltitle4Na米eLbltitle4Caption王偉麗6.2與VB的 連接Visual Basic提供了 與底層數(shù)據(jù)庫系統(tǒng)緊密的 連接.Visual Basic 支持不同的 關(guān)系數(shù)據(jù)庫管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫的 特長.生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的 服務(wù)以上的 應(yīng)用,Visual Basic連接數(shù)據(jù)庫的 方式有兩種:通過使用Visual Basic的 DATA控件. 通過使用Visual Basic提供的 DAO和ADO模型.通過使用由Visual Basic提供的 專用的 直接與數(shù)據(jù)庫相連的 接口(ODBC數(shù)據(jù)源 32位).6.3 幫助 專業(yè)水平的 軟件通常都帶有聯(lián)