設(shè)備資產(chǎn)管理信息系統(tǒng)的設(shè)計與開發(fā)

1、 學(xué)號： 07416215 常 州 大 學(xué) 畢業(yè)設(shè)計（論文）（2011屆）題 目 設(shè)備資源管理資產(chǎn)管理信息系統(tǒng)的設(shè)計與開發(fā) 學(xué) 生 任衛(wèi)星 學(xué) 院 經(jīng)濟(jì)管理學(xué)院 專 業(yè) 班 級 信管071 校內(nèi)指導(dǎo)教師 劉輝 專業(yè)技術(shù)職務(wù) 講師 二一一年五月設(shè)備資源管理資產(chǎn)管理信息系統(tǒng)的設(shè)計與開發(fā)摘 要: 設(shè)備資產(chǎn)管理是企業(yè)資產(chǎn)管理的重要內(nèi)容之一，過去人工管理的方法現(xiàn)存在管理效率低，勞動強度大，信息處理速度與準(zhǔn)確率低等缺點。隨著信息技術(shù)的發(fā)展，設(shè)備資產(chǎn)管理信息系統(tǒng)為企業(yè)廣泛使用，管理為設(shè)備資產(chǎn)的的編號、登記使用、檢修、報廢等日常工作提供極大的方便和與快捷的管理手段，。但目前國內(nèi)有些中小型企業(yè)的設(shè)備自動化管理水

2、平不是很高，有必要開發(fā)一個符合中小型企業(yè)需求的設(shè)備管理系統(tǒng)。本文以Delphi與Access作為開發(fā)工具，設(shè)計并開發(fā)了一個功能較全面、簡單易用的其開發(fā)內(nèi)容主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面設(shè)備資產(chǎn)管理系統(tǒng)。利用Delphi 7軟件及其提供的各種面向?qū)ο蟮拈_發(fā)工具，建立完整性的數(shù)據(jù)庫，開發(fā)出功能完備，易使用的應(yīng)用程序。該系統(tǒng)的主要功能模塊包括有用戶管理，修改密碼，添加設(shè)備，設(shè)備類型管理，設(shè)備管理，設(shè)備臺帳，設(shè)備檢修登記，設(shè)備報廢登記，查詢統(tǒng)計報表等功能。，并經(jīng)過調(diào)試、編譯與實現(xiàn)，該程序界面友好、程序設(shè)計風(fēng)格樸素，使用起來美觀大方、方便易用。尤其是開發(fā)了較強大的系統(tǒng)的“查

3、詢模塊”的功能，既可以按設(shè)備類型統(tǒng)計查詢，又也可按故障情況，報廢情況查詢，同時查詢結(jié)果可以導(dǎo)出為Excel表格。極大的減輕了設(shè)備管理工作人員的工作量，并以快速、準(zhǔn)確等優(yōu)點取代人工操作，提高了設(shè)備管理工作效率。關(guān)鍵詞 ： Delphi 7；數(shù)據(jù)庫；模塊；設(shè)設(shè)備資源管理資產(chǎn)管理系統(tǒng)；Delphi；信息系統(tǒng)Equipment Resource Management Information System Design and DevelopmentAbstract: Equipment management system for the daily management needed equipmen

4、t numbers, a bank, put in storage, the use of routine work such as registration and the provision of adequate and efficient management tools to facilitate the development of content, including background of the establishment and maintenance of database and front-end application development two. Delp

5、hi 7.0 and the use of object-oriented software development tools, the establishment of strong integrity, good safety database developed functions, easy to use applications. After debugging, Translation and the realization that the process friendly interface, simple programming style, using up aesthe

6、tic generous, convenient user-friendly. In particular system "enquiries module" function greatly reduce the workload of staff, and to the rapid, accurate, and other advantages replace manually operated. Key words: Delphi 7.0; database; module; Equipment Management System 目 錄摘要··&

7、#183;·················································&

8、#183;·················································&

9、#183;····································目錄·············

10、;··················································

11、;··················································

12、;··························一、 緒論1（一）開發(fā)背景1（二）國內(nèi)外研究現(xiàn)狀1（三）系統(tǒng)開發(fā)的目標(biāo)2二、開發(fā)平臺2（一）Delphi簡介2（二）數(shù)據(jù)庫系統(tǒng)簡介2三、本應(yīng)用程序的構(gòu)成和開發(fā)步驟3（一）系統(tǒng)需求分析3（二）系統(tǒng)總體設(shè)計4（三）數(shù)據(jù)庫設(shè)計5（四）數(shù)據(jù)庫的建立和連接8四、 本程序的技術(shù)實現(xiàn)及具體功能9（一

13、）系統(tǒng)登錄界面與程序設(shè)計實現(xiàn)9（二）系統(tǒng)主界面10（三）系統(tǒng)模塊121. 修改密碼122. 用戶管理133. 退出15(四) 設(shè)備類型管理模塊15（五）設(shè)備臺帳模塊17（六）添加設(shè)備模塊18（七）設(shè)備檢修模塊19（八）設(shè)備報廢模塊20（九）查詢統(tǒng)計模塊221. 按設(shè)備種類查詢222. 按故障情況查詢223. 按報廢情況查詢23五、結(jié)論24參考文獻(xiàn)·····················

14、··················································

15、··················································

16、··········26致謝·······································&#

17、183;·················································&#

18、183;·················································27

19、一、 緒論（一）開發(fā)背景設(shè)備資源設(shè)備資產(chǎn)是企業(yè)固定資產(chǎn)的重要組成部分。只有精心保養(yǎng)和及時檢修維護(hù)設(shè)備，才能保證企業(yè)正常運作，并按計劃完成生產(chǎn)任務(wù)，從而提高企業(yè)的經(jīng)濟(jì)效益。因此，設(shè)備管理是企業(yè)的一項重要管理工作。隨著科學(xué)技術(shù)迅速的發(fā)展,設(shè)備管理的方法也應(yīng)與時俱進(jìn),以前由人工管理的方法現(xiàn)存在很多的缺點：管理效率低，勞動強度大，信息處理速度低而且準(zhǔn)確率也不夠令人滿意。利用計算機技術(shù)開發(fā)的設(shè)備管理系統(tǒng)，使用計算機管理設(shè)備的基礎(chǔ)信息維護(hù)、檢修、報廢等,可以提高設(shè)備管理效率，減輕設(shè)備管理員的勞動強度，提高信息處理速度和準(zhǔn)確性。但目前國內(nèi)有些中小型企業(yè)的設(shè)備自動化管理水平不是很高，有必要開發(fā)一個符合中小型企

20、業(yè)需求，并且能夠承擔(dān)的設(shè)備管理系統(tǒng)。（二）國內(nèi)外研究現(xiàn)狀設(shè)備管理的發(fā)展，先后經(jīng)歷了事后維修、預(yù)防維修、生產(chǎn)維修、設(shè)備綜合管理四個階段，隨著計算機技術(shù)的發(fā)展，信息化應(yīng)用于設(shè)備管理，主要有以下幾種：類手工型。類手工型只是以電子化部分代替手工紙質(zhì)操作，表現(xiàn)為錄入并打印相關(guān)表單為主，并沒有實現(xiàn)真正的信息化，甚至沒有數(shù)據(jù)的概念，表單之間也是彼此孤立的，無法方便地查詢統(tǒng)計相關(guān)數(shù)據(jù)，不能自動形成報表，如利用Excel等軟件進(jìn)行處理。應(yīng)用系統(tǒng)型。應(yīng)用系統(tǒng)型是類手工型的改進(jìn)，引入了數(shù)據(jù)表，通過開發(fā)管理系統(tǒng)，提供了用戶界面，有良好的互動性，同時要求用戶將相關(guān)數(shù)據(jù)及時錄入系統(tǒng)，提供了設(shè)備信息的查詢、分類、統(tǒng)計等，并

21、且可以形成報表。這種模型大多是基于單機模式的，安裝在客戶機上運行。在業(yè)務(wù)相對簡單和業(yè)務(wù)算法改變相對少的情況下，得到了很好的應(yīng)用。適合的開發(fā)工具也很多，是目前主要的應(yīng)用方式。以上兩種，都可稱為單機應(yīng)用型，隨著計算機的發(fā)展，出現(xiàn)了基于網(wǎng)絡(luò)的，多臺計算機同時應(yīng)用的系統(tǒng)。網(wǎng)絡(luò)運行型。隨著網(wǎng)絡(luò)的普及應(yīng)用，應(yīng)用系統(tǒng)型由于開發(fā)周期長、升級難度大，無法滿足用戶日益變化的需求。因此，對管理方式改良的迫切需求，使得設(shè)備管理轉(zhuǎn)入到了網(wǎng)絡(luò)信息化運營平臺上來，主要有基于C/S或B/S架構(gòu)的設(shè)備管理系統(tǒng)。通過網(wǎng)絡(luò)，人們可以輕松地找到并使用所需要的信息，網(wǎng)絡(luò)的應(yīng)用使得其他相關(guān)資源實現(xiàn)了一體化。更主要的是它的平臺無關(guān)性，具有

22、兼容性好，應(yīng)用方便，升級輕松等優(yōu)勢。目前國內(nèi)中小型企業(yè)的設(shè)備管理辦法大多是設(shè)備采購進(jìn)來以后，將設(shè)備的基本情況和相關(guān)信息登記存檔，然后將檔案存檔。以后檔案基本就沒人維護(hù)，如設(shè)備檢修情況、設(shè)備當(dāng)前運行狀態(tài)等信息不能體現(xiàn)在設(shè)備臺帳上，即設(shè)備跟蹤信息不能及時體現(xiàn)在設(shè)備檔案上。這樣的管理機制已經(jīng)不能適應(yīng)時代發(fā)展的需要，也不能滿足管理工作逐步走向規(guī)范化、科學(xué)化和自動化的要求。為了適應(yīng)這種要求，一些商用設(shè)備管理軟件先后出現(xiàn)。但缺點也很明顯。由于設(shè)備管理模式不匹配，國外企業(yè)設(shè)備管理軟件很難在國內(nèi)企業(yè)中直接應(yīng)用，而國內(nèi)企業(yè)設(shè)備管理模式也各不相同，還沒有成功的綜合、通用的大型設(shè)備管理系統(tǒng)，現(xiàn)有系統(tǒng)大都側(cè)重行業(yè)性，

23、基于功能加以實現(xiàn)，不具有良好的通用性，企業(yè)之間的相互移植困難。國外的設(shè)備管理軟件由于產(chǎn)生時間早，產(chǎn)品歷經(jīng)企業(yè)和用戶的檢驗，版本更新升級了數(shù)代，穩(wěn)定性經(jīng)過了驗證。但實施項目投資比較大，不是很符合國內(nèi)企業(yè)的管理模式，而且每個企業(yè)的基礎(chǔ)不同，導(dǎo)致產(chǎn)品通用性差，對企業(yè)的管理人員素質(zhì)要求比較高。只有少數(shù)大型企業(yè)有能力選用或者改造。國內(nèi)外在設(shè)備管理系統(tǒng)技術(shù)的研究與系統(tǒng)的開發(fā)上投入了大量的人力、物力和財力，開發(fā)了為數(shù)眾多的設(shè)備管理系統(tǒng)。但設(shè)備管理系統(tǒng)的研究和開發(fā)還存在問題，例如設(shè)備管理系統(tǒng)系統(tǒng)開發(fā)多，應(yīng)用少：開發(fā)投入多，實際應(yīng)用效果不盡人意；商品化設(shè)備管理系統(tǒng)少，難以滿足客戶需求。（三）系統(tǒng)開發(fā)的目標(biāo)經(jīng)過分

24、析,使用 Delphi編程語言開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。本系統(tǒng)將會為中小型企業(yè)提高辦公效率和設(shè)備可靠性，減少工作人員的勞動強度，提高信息處理速度，提高現(xiàn)代化管理水平。二、開發(fā)平臺（一）Delphi簡介Delphi是Borland公司出品的一個優(yōu)秀的可視化程序開發(fā)工具軟件，它短小精悍，但功能卻可以與龐大的visual c+媲美。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Delphi是一個理想選擇。Delphi因簡單易學(xué)、功能強大、編譯

25、速度快而從眾多的軟件開發(fā)工具中脫穎而出。它提供了靈活的可視化設(shè)計工具，將可視化界面與面向?qū)ο蠹夹g(shù)完善、緊密地結(jié)合起來，并封裝了Windows編程的復(fù)雜性。其友好的集成開發(fā)界面，可視化的雙向開發(fā)模式，良好的數(shù)據(jù)庫應(yīng)用支持高效的程序開發(fā)和程序運行，備受廣大程序開發(fā)人員的好評。尤其是Delphi對數(shù)據(jù)庫應(yīng)用的強大支持，大大提高了數(shù)據(jù)庫應(yīng)用軟件開發(fā)的效率，縮短了開發(fā)周期，深受廣大數(shù)據(jù)庫應(yīng)用程序設(shè)計人員的喜愛。Delphi為數(shù)據(jù)庫應(yīng)用開發(fā)人員提供了豐富的數(shù)據(jù)庫開發(fā)組件，使數(shù)據(jù)庫應(yīng)用開發(fā)功能更強大，控制更靈活，編譯后的程序運行速度更快。（二）數(shù)據(jù)庫系統(tǒng)簡介數(shù)據(jù)庫系統(tǒng)是一個實際可運行的存儲、維護(hù)和應(yīng)用系統(tǒng)提

26、供數(shù)據(jù)的軟件系統(tǒng)，是存儲介質(zhì)、處理對象和管理系統(tǒng)的集合體。它通常由軟件、數(shù)據(jù)庫和數(shù)據(jù)管理員組成。其軟件主要包括操作系統(tǒng)、各種宿主語言，實用程序以及數(shù)據(jù)庫管理系統(tǒng)。數(shù)據(jù)庫由數(shù)據(jù)庫管理系統(tǒng)統(tǒng)一管理，數(shù)據(jù)的插入、修改和檢索均要通過數(shù)據(jù)庫管理系統(tǒng)進(jìn)行。數(shù)據(jù)庫管理系統(tǒng)是一種系統(tǒng)軟件，它的主要功能是維護(hù)數(shù)據(jù)庫并有效地訪問數(shù)據(jù)庫中任意部分?jǐn)?shù)據(jù)。對數(shù)據(jù)庫的維護(hù)包括保持?jǐn)?shù)據(jù)的完整性、一致性和安全性。數(shù)據(jù)管理員負(fù)責(zé)創(chuàng)建、監(jiān)控和維護(hù)整個數(shù)據(jù)庫，使數(shù)據(jù)能被任何有權(quán)使用的人有效使用。由于對數(shù)據(jù)庫的操作都由數(shù)據(jù)庫管理系統(tǒng)完成，所以數(shù)據(jù)庫就可以獨立于具體的應(yīng)用程序而存在，從而數(shù)據(jù)庫又可以為多個用戶所共享。因此，數(shù)據(jù)的獨立性

27、和共享性是數(shù)據(jù)庫系統(tǒng)的重要特征。數(shù)據(jù)共享節(jié)省了大量人力物力，為數(shù)據(jù)庫系統(tǒng)的廣泛應(yīng)用奠定了基礎(chǔ)。數(shù)據(jù)庫系統(tǒng)的出現(xiàn)使得普通用戶能夠方便地將日常數(shù)據(jù)存入計算機并在需要的時候快速訪問它們。數(shù)據(jù)庫采用Access，采用它完全可以適合我們的工作需求，并且它所支持的數(shù)據(jù)類型十分豐富，維護(hù)簡便，費用比較低，專業(yè)要求不是很高。三、本應(yīng)用程序的構(gòu)成和開發(fā)步驟（一） 系統(tǒng)需求分析鑒于設(shè)備管理的現(xiàn)狀以及設(shè)備管理信息化的要求，開展計算機輔助設(shè)備管理，并在此基礎(chǔ)上為管理者進(jìn)行決策分析提供幫助，提高設(shè)備管理的工作效率。系統(tǒng)分析階段開展的主要工作包括:收集和分析系統(tǒng)需求、提供系統(tǒng)說明書等。系統(tǒng)需求分析就是通過系統(tǒng)調(diào)查，了解用

28、戶實際需求，進(jìn)行系統(tǒng)分析，提煉出系統(tǒng)需求。業(yè)務(wù)流程是系統(tǒng)設(shè)計的關(guān)鍵，要開發(fā)一個系統(tǒng)，必須確定系統(tǒng)的功能需求，這就必須先了解實際的業(yè)務(wù)流程，從業(yè)務(wù)流程中分析系統(tǒng)的需求。設(shè)備信息是系統(tǒng)進(jìn)行管理的主線，它描述了設(shè)備的基本情況，主要包括:設(shè)備名稱、設(shè)備編號、規(guī)格型號等。系統(tǒng)工作流程主要是用戶進(jìn)行設(shè)備信息的登記以及維護(hù)處理；對設(shè)備信息的查詢統(tǒng)計、導(dǎo)出報表，添加、修改設(shè)備信息等。不同權(quán)限的用戶進(jìn)行不同的操作，具有不同的工作流程。通常信息管理系統(tǒng)按照對信息的操作，將系統(tǒng)劃分為:數(shù)據(jù)采集、數(shù)據(jù)處理、數(shù)據(jù)傳輸以及系統(tǒng)維護(hù)等功能組成部分。所以，通過綜合分析，本系統(tǒng)主要需求有:1.設(shè)備信息的登記與處理；2.設(shè)備信息

29、的存儲與維護(hù)；3.能方便、快捷地導(dǎo)出設(shè)備信息；4.能進(jìn)行查詢統(tǒng)計設(shè)備信息；5.能進(jìn)行設(shè)備檢修、報廢。具體功能有：用戶管理功能：分為管理員，數(shù)據(jù)錄入，查詢統(tǒng)計三種用戶，進(jìn)行用戶權(quán)限管理，不同權(quán)限的用戶有不同的操作功能，管理員可以對本系統(tǒng)的所有功能進(jìn)行操作，數(shù)據(jù)錄入用戶能夠進(jìn)行設(shè)備登記，設(shè)備臺帳，設(shè)備分類的操作，查詢用戶只能進(jìn)行查詢統(tǒng)計操作。修改密碼：不同用戶有不同密碼，用戶可以對自己的密碼進(jìn)行修改，保證了安全性。添加設(shè)備：可以登記新設(shè)備的編碼、種類、名稱、規(guī)格型號、供應(yīng)商、責(zé)任人、采購日期、價格、財務(wù)編號、保修日期、建檔日期、備注。設(shè)備類型管理：可以進(jìn)行分類，便于對設(shè)備的管理，提高查找效率。如果

30、某個一級分類過大，還可以添加二級分類，也可以刪除不合適的分類，同時可以設(shè)置保修和報廢年限。設(shè)備臺帳：顯示設(shè)備信息，可以按類顯示相應(yīng)設(shè)備信息，可以修改、刪除設(shè)備信息。設(shè)備檢修：可以選擇要檢修的設(shè)備，填寫檢修人、檢修結(jié)果，便于及時檢修設(shè)備，保證企業(yè)正常運作，在系統(tǒng)里記錄維護(hù)信息，符合設(shè)備生命周期管理。設(shè)備報廢：可以選擇要報廢的設(shè)備，填寫審批人、報廢原因，報廢后的設(shè)備不在設(shè)備臺帳里顯示，但留有記錄，可以在報廢查詢里查詢。查詢統(tǒng)計：可以按種類統(tǒng)計，可以按照日期查詢故障情況，可以按照日期查詢報廢情況，都可以導(dǎo)出為Excel表格。（二）系統(tǒng)總體設(shè)計按照系統(tǒng)的需求分析，設(shè)計的系統(tǒng)功能結(jié)構(gòu)圖如下：系統(tǒng)功能用戶

31、管理修改密碼退出系統(tǒng)添加設(shè)備設(shè)備類型設(shè)備臺帳設(shè)備檢修設(shè)備報廢查詢統(tǒng)計管理功能設(shè)備資源設(shè)備資產(chǎn)設(shè)備資產(chǎn)管理信息系統(tǒng)圖1為保證系統(tǒng)安全性，有必要進(jìn)行用戶權(quán)限管理。各用戶權(quán)限如下：管理員數(shù)據(jù)錄入查詢統(tǒng)計設(shè)備類型添加設(shè)備設(shè)備臺帳設(shè)備檢修設(shè)備報廢查詢統(tǒng)計圖2系統(tǒng)的基本流程是：用戶登陸系統(tǒng)主控平臺選擇各項子系統(tǒng)，系統(tǒng)流程圖如下： 登錄驗證是否合法系統(tǒng)主界面修改當(dāng)前用戶設(shè)置各界面的操作退出否是圖3（三） 數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫是信息系統(tǒng)的核心組成部分。數(shù)據(jù)庫系統(tǒng)將數(shù)據(jù)信息以某種數(shù)據(jù)模型組織起來進(jìn)行存儲，通過數(shù)據(jù)庫管理系統(tǒng)能夠方便有效地完成數(shù)據(jù)信息的插入、刪除、修改、查詢等操作，并保持?jǐn)?shù)據(jù)信息的完整性、一致性和安全

32、性。一個數(shù)據(jù)庫由若干張表組成，一張表是若干相關(guān)數(shù)據(jù)信息的集合。表的一行就是一條數(shù)據(jù)信息記錄，而一列就是一個字段，每一個字段都有相應(yīng)的數(shù)據(jù)類型和數(shù)據(jù)寬度。1概念結(jié)構(gòu)設(shè)計本系統(tǒng)的實體有：用戶，設(shè)備種類，設(shè)備信息，設(shè)備檢修，設(shè)備報廢。用戶實體的E-R圖，如圖所示：密碼編碼用戶用戶名類型圖4設(shè)備種類實體的E-R圖，如圖所示：編碼名稱種類圖5設(shè)備信息實體的E-R圖，如圖所示：設(shè)備信息備注編碼采購日期名稱型號責(zé)任人種類財務(wù)編號價格供應(yīng)商建檔日期保修至圖6設(shè)備檢修實體的E-R圖，如圖所示：設(shè)備檢修檢修人編號設(shè)備名稱檢修日期故障圖7設(shè)備報廢實體的E-R圖，如圖所示：設(shè)備報廢審批人編號設(shè)備名稱原因檢修日期圖82

33、邏輯結(jié)構(gòu)設(shè)計系統(tǒng)共創(chuàng)建了5個數(shù)據(jù)表，依次為：用戶表，設(shè)備種類表，設(shè)備信息表，設(shè)備檢修，設(shè)備報廢。下面是各表具體情況：用戶表表1字段名稱數(shù)據(jù)類型字段長度是否為空用戶編碼文本50否用戶名稱文本50否用戶密碼文本50否用戶類型文本50否設(shè)備種類表表2字段名稱數(shù)據(jù)類型字段長度是否為空編碼文本50否名稱文本255否父節(jié)點整型否設(shè)備信息表表3字段名稱數(shù)據(jù)類型字段長度是否為空設(shè)備編碼文本50否設(shè)備種類文本50否設(shè)備名稱文本255否規(guī)格型號文本50是供應(yīng)商文本255是采購日期日期/時間是價格貨幣是幣種文本50是責(zé)任人文本50是建檔日期日期/時間是財務(wù)編號文本50是保修至日期/時間是備注文本255是設(shè)備檢修表4

34、字段名稱數(shù)據(jù)類型字段長度是否為空設(shè)備編號文本50否檢修日期日期/時間否故障文本255否檢修人文本50是設(shè)備名稱文本255是設(shè)備報廢表5字段名稱數(shù)據(jù)類型字段長度是否為空設(shè)備編號文本50否報廢日期日期/時間否報廢原因文本255否審批人文本50是設(shè)備名稱文本255是（四） 數(shù)據(jù)庫的建立和連接這個程序采用的數(shù)據(jù)庫是Microsoft Access2003，Delphi作為數(shù)據(jù)庫的前臺開發(fā)工具，必須與后臺數(shù)據(jù)庫進(jìn)行連接，這樣才能控制和進(jìn)行操作數(shù)據(jù)庫，數(shù)據(jù)庫的連接方式有兩種，ODBC和ADO。ODBC是數(shù)據(jù)庫的通用接口，其缺點是效率低；ADO是專用接口，調(diào)用直接速度快，但是通用性差。如果用ODBC連接數(shù)據(jù)

35、庫一般要兩個步驟：1.要創(chuàng)建數(shù)據(jù)源；2.創(chuàng)建描述文件。數(shù)據(jù)庫的建立則是在access2003中建立的，在這里你可以設(shè)置數(shù)據(jù)庫的密碼，對數(shù)據(jù)庫進(jìn)行保護(hù)。在創(chuàng)建數(shù)據(jù)源時可以通過BDE administrator進(jìn)行創(chuàng)建，也可以通過系統(tǒng)控制面板中的ODBC數(shù)據(jù)源進(jìn)行建立。而描述文件則可以在Delphi的主程序中用Database Profile中進(jìn)行建立，之后進(jìn)行數(shù)據(jù)庫的連接。接下來的工作是建表。同樣建表的過程也不是唯一的，但是最終實現(xiàn)的結(jié)果是唯一的。你可以通過Access進(jìn)行建表，也可以通過powerdesigner進(jìn)行可視化的建立，不過用這種方法，在導(dǎo)入的時候要把數(shù)據(jù)庫要先斷開，否則數(shù)據(jù)庫的數(shù)據(jù)

36、容易丟失。建表的過程注意規(guī)范化命名規(guī)則，如表的字段名等等。同時也要注意表的字段長度和可否為空。因為以后要設(shè)計到主鍵，外鍵的問題。如果字段名不同，同一字段長度不同則主鍵和外鍵將會連接不上?？梢娊ū頃r應(yīng)做好全局的打算。我在程序開發(fā)的初期，同樣犯了這個錯誤，導(dǎo)致數(shù)據(jù)庫出錯，有時還要向表中新加入字段。導(dǎo)致數(shù)據(jù)窗口不好用的連鎖反映。四、 本程序的技術(shù)實現(xiàn)及具體功能（一）系統(tǒng)登錄界面與程序設(shè)計實現(xiàn)圖9主要代碼：procedure TLoginForm.SpeedButton1Click(Sender: TObject);begin if trim(Edit1.Text) = '' then

37、 begin ShowMessage('請輸入用戶名！'); Exit; end; if trim(Edit2.Text) = '' then begin ShowMessage('請輸入用戶密碼！'); Exit; end; if Query.Active then Query.Close; Query.SQL.Text := 'Select count(*) as f_count from 用戶表 where 用戶名稱=''' + trim(Edit1.Text) + ''''

38、Query.Open; if Query.FieldByName('f_count').AsInteger = 0 Then begin ShowMessage('用戶不存在，請重新輸入！'); Exit; end; Query.Close; Query.SQL.Text := 'Select count(*) as f_count from 用戶表 where 用戶名稱=''' + trim(Edit1.Text) + ''' and 用戶密碼=''' + trim(edit2.T

39、ext) + '''' Query.Open; if Query.FieldByName('f_count').AsInteger = 0 then begin ShowMessage('密碼錯誤，請重新輸入！'); Exit; end; Query.Close; Query.SQL.Text := 'Select * from 用戶表 where 用戶名稱=''' + trim(Edit1.Text) + ''' and 用戶密碼=''' + tri

40、m(edit2.Text) + '''' Query.Open; userID := Query.FieldByName('編號').AsInteger; username := Query.fieldbyname('用戶名稱').AsString; userLeval := Query.fieldbyname('用戶類型').AsString; Query.Close; modalresult := mrOk;end;（二）系統(tǒng)主界面圖10主要代碼：procedure TMainForm.FormCreate(S

41、ender: TObject);begin LoginForm:= TLoginForm.Create(Application ); try if LoginForm.ShowModal<>mrok then application.Terminate finally LoginForm.Free; end; if userLeval = '查詢統(tǒng)計' then begin dxBarButton15.Visible := ivNever; dxBarButton16.Visible := ivNever; dxBarButton12.Visible := ivNe

42、ver; dxBarButton14.Visible := ivNever; dxBarButton13.Visible := ivNever; dxBarLargeButton1.Visible := ivNever; dxBarLargeButton2.Visible := ivNever; end; if userLeval = '數(shù)據(jù)錄入' then begin dxBarButton14.Visible := ivNever; dxBarButton13.Visible := ivNever; dxBarButton17.Visible := ivNever; dxB

43、arLargeButton3.Visible := ivNever; end; sbMain.Panels0.Text:= userleval+ ' ：' + username; sbMain.Panels1.Text := '歡迎使用設(shè)備管理系統(tǒng)！'end;procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if application.MessageBox('確定退出系統(tǒng)嗎？', '提示', MB_YESNO) = I

44、D_YES then CanClose := True else CanClose := false;end;（三）系統(tǒng)模塊1. 修改密碼圖11主要代碼：procedure TPassForm.BitBtn1Click(Sender: TObject);begin if trim(edtOld.Text) = '' then begin ShowMessage('請?zhí)顚懺艽a！'); Exit; end; if trim(edtNew.Text) = '' then begin ShowMessage('請?zhí)顚懶旅艽a！'); Ex

45、it; end; if trim(edtNew2.Text) = '' then begin ShowMessage('請再次填寫新密碼！'); Exit; end; if trim(edtNew.Text) <> trim(edtNew2.Text) then begin ShowMessage('兩次密碼不一致，請重新輸入！'); Exit; end; if Query.Active then Query.Close; Query.SQL.Text := 'update 用戶表 set 用戶密碼=''

46、9; + Trim(edtNew.Text) + ''' where 編號=' + IntToStr(UserID); Query.ExecSQL; ShowMessage('密碼修改成功！請重新登錄！');end;2. 用戶管理圖12主要代碼：procedure TUserForm.Button2Click(Sender: TObject);begin if dstUser.FieldByName('編號').AsInteger = 1 Then begin ShowMessage('默認(rèn)用戶不能刪除！'); E

47、xit; End; dstUser.Delete;end;procedure TUserForm.Button3Click(Sender: TObject);begin if trim(DBEdit2.Text) = '' Then begin ShowMessage('請?zhí)顚懹脩艟幋a！'); Exit; end; if trim(DBEdit3.Text) = '' Then begin ShowMessage('請?zhí)顚懹脩裘Q！'); Exit; end; if trim(DBComboBox1.Text) = '&#

48、39; Then begin ShowMessage('請選擇用戶類型！'); Exit; end; dstUser.Post;end;3. 退出圖13主要代碼：procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if application.MessageBox('確定退出系統(tǒng)嗎？', '提示', MB_YESNO) = ID_YES then CanClose := True else CanClose := false;end;(四

49、) 設(shè)備類型管理模塊圖14主要代碼：procedure TSBLXForm.Button1Click(Sender: TObject);var PID :Integer;begin if Edit3.Text = '' Then begin ShowMessage('請選擇上級種類！'); Exit; end; if Edit4.Text = '' Then begin ShowMessage('請輸入類型編碼！'); Exit; end; if Edit5.Text = '' Then begin ShowMes

50、sage('請輸入類型名稱！'); Exit; end; PID := StrToInt(Edit3.Text); dstSBLX.Append; dstSBLX.FieldByName('父節(jié)點').AsInteger := PID; dstSBLX.FieldByName('編碼').AsString := Edit4.Text; dstSBLX.FieldByName('名稱').AsString := Edit5.Text; dstSBLX.FieldByName('保修年限').AsString := E

51、dit6.Text; dstSBLX.FieldByName('報廢年限').AsString := Edit7.Text; dstSBLX.Post;end;procedure TSBLXForm.Button2Click(Sender: TObject);begin if Application.MessageBox('確定刪除當(dāng)前類型嗎？', '提示', MB_YESNO) = ID_YES Then dstSBLX.Delete;end;（五）設(shè)備臺帳模塊圖15主要代碼：procedure TTZForm.BitBtn2Click(Sen

52、der: TObject);begin if dstSB.RecordCount = 0 then begin ShowMessage('當(dāng)前數(shù)據(jù)為空，無法修改！'); Exit; end; stype := 1; sbid := dstSB.FieldByName('編號').AsInteger; MyCreateForm(TNewForm, TForm(NewForm), true);end;procedure TTZForm.BitBtn3Click(Sender: TObject);begin if dstSB.RecordCount =0 then b

53、egin ShowMessage('沒有任何設(shè)備！'); Exit; end; if Application.MessageBox('確定刪除當(dāng)前選中的設(shè)備嗎？', '提示', MB_YESNO) = ID_YES then dstSB.Delete;end;（六）添加設(shè)備模塊圖16主要代碼：procedure TNewForm.Button1Click(Sender: TObject);begin if DBEdit1.Text = '' then begin ShowMessage('請?zhí)顚懺O(shè)備編號！'); E

54、xit end; if DBEdit3.Text = '' then begin ShowMessage('請?zhí)顚懺O(shè)備名稱！'); Exit end; if DBEdit9.Text = '' then begin ShowMessage('請?zhí)顚懺O(shè)備價格！'); Exit end; if DBComboBox1.Text = '' then begin ShowMessage('請選擇設(shè)備類型！'); Exit end; dstSB.Post; close; if TZForm <>

55、Nil then TZForm.dstSB.Refresh;end;（七）設(shè)備檢修模塊圖17功能描述：本模塊通過點擊選擇設(shè)備，錄入相關(guān)信息后，點擊確定，增加設(shè)備的檢修記錄主要代碼：procedure TJXForm.Button1Click(Sender: TObject);begin if Edit1.Text = '' Then begin ShowMessage('請選擇設(shè)備！'); Exit End; if Edit2.Text = '' then begin ShowMessage('請輸入時間！'); Exit; en

56、d; if Edit3.Text = '' then begin ShowMessage('請輸入檢修人！'); Exit; end; if Memo1.Text = '' then begin ShowMessage('請輸入檢修結(jié)果！'); Exit; end; if not dstJX.Active then dstJX.Open; dstJX.Append; dstJX.FieldByName('設(shè)備編號').AsString := sbcode; dstJX.FieldByName('設(shè)備名稱&#

57、39;).AsString := sbcaption; dstJX.FieldByName('檢修日期').AsString := Edit2.Text; dstJX.FieldByName('檢修人').AsString := Edit3.Text; dstJX.FieldByName('檢修結(jié)果').AsString := Memo1.Text; dstJX.Post; close;end;（八）設(shè)備報廢模塊圖18功能描述：本模塊通過點擊選擇設(shè)備，錄入相關(guān)信息后，點擊確定，保存報廢記錄，并將報廢的設(shè)備狀態(tài)置為“已報廢”，在設(shè)備列表中不再列出。

58、主要代碼：procedure TBFForm.Button1Click(Sender: TObject);begin if Edit1.Text = '' Then begin ShowMessage('請選擇設(shè)備！'); Exit End; if Edit2.Text = '' then begin ShowMessage('請輸入時間！'); Exit; end; if Edit3.Text = '' then begin ShowMessage('請輸入審批人！'); Exit; end; i

59、f Memo1.Text = '' then begin ShowMessage('請輸入報廢原因！'); Exit; end; if Application.MessageBox('報廢后將無法繼續(xù)使用，確定要報廢當(dāng)前設(shè)備嗎？', '提示', MB_YESNO) = ID_YES then begin if not dstBF.Active then dstBF.Open; dstBF.Append; dstBF.FieldByName('設(shè)備編號').AsString := sbcode; dstBF.Fiel

60、dByName('設(shè)備名稱').AsString := sbcaption; dstBF.FieldByName('報廢日期').AsString := Edit2.Text; dstBF.FieldByName('審批人').AsString := Edit3.Text; dstBF.FieldByName('報廢原因').AsString := Memo1.Text; dstBF.Post; If Query.Active Then Query.Close; Query.SQL.Text := 'Update 設(shè)備信息

61、表 Set 設(shè)備狀態(tài)=''報廢'' WHere 編號='+sbID; Query.ExecSQL; end; close;end;（九）查詢統(tǒng)計模塊1.按設(shè)備種類查詢圖19功能描述：本功能講系統(tǒng)中的設(shè)備種類動態(tài)添加到下拉列表中，用戶通過選擇相應(yīng)類型，點擊查詢系統(tǒng)即可列出符合條件的設(shè)備信息，并可以將結(jié)果導(dǎo)出到Excel中。2.按故障情況查詢圖20功能描述：本功能提供用戶選擇時間段，即可查詢出在該時間段內(nèi)檢修的設(shè)備的情況，并可以導(dǎo)出為Excel。3.按報廢情況查詢圖21功能描述：本功能提供用戶選擇時間段，即可查詢出該時間段內(nèi)設(shè)備的報廢情況，并可以導(dǎo)出為Excel。主要代碼：procedure TQueryForm.Button3Click(Sender: TObject);var sql :String;begin if