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

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

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

3、詢模塊”的功能，既可以按設(shè)備類型統(tǒng)計(jì)查詢，又也可按故障情況，報(bào)廢情況查詢，同時(shí)查詢結(jié)果可以導(dǎo)出為Excel表格。極大的減輕了設(shè)備管理工作人員的工作量，并以快速、準(zhǔn)確等優(yōu)點(diǎn)取代人工操作，提高了設(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ā)平臺(tái)2（一）Delphi簡介2（二）數(shù)據(jù)庫系統(tǒng)簡介2三、本應(yīng)用程序的構(gòu)成和開發(fā)步驟3（一）系統(tǒng)需求分析3（二）系統(tǒng)總體設(shè)計(jì)4（三）數(shù)據(jù)庫設(shè)計(jì)5（四）數(shù)據(jù)庫的建立和連接8四、 本程序的技術(shù)實(shí)現(xiàn)及具體功能9（一

13、）系統(tǒng)登錄界面與程序設(shè)計(jì)實(shí)現(xiàn)9（二）系統(tǒng)主界面10（三）系統(tǒng)模塊121. 修改密碼122. 用戶管理133. 退出15(四) 設(shè)備類型管理模塊15（五）設(shè)備臺(tái)帳模塊17（六）添加設(shè)備模塊18（七）設(shè)備檢修模塊19（八）設(shè)備報(bào)廢模塊20（九）查詢統(tǒng)計(jì)模塊221. 按設(shè)備種類查詢222. 按故障情況查詢223. 按報(bào)廢情況查詢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)和及時(shí)檢修維護(hù)設(shè)備，才能保證企業(yè)正常運(yùn)作，并按計(jì)劃完成生產(chǎn)任務(wù)，從而提高企業(yè)的經(jīng)濟(jì)效益。因此，設(shè)備管理是企業(yè)的一項(xiàng)重要管理工作。隨著科學(xué)技術(shù)迅速的發(fā)展,設(shè)備管理的方法也應(yīng)與時(shí)俱進(jìn),以前由人工管理的方法現(xiàn)存在很多的缺點(diǎn)：管理效率低，勞動(dòng)強(qiáng)度大，信息處理速度低而且準(zhǔn)確率也不夠令人滿意。利用計(jì)算機(jī)技術(shù)開發(fā)的設(shè)備管理系統(tǒng)，使用計(jì)算機(jī)管理設(shè)備的基礎(chǔ)信息維護(hù)、檢修、報(bào)廢等,可以提高設(shè)備管理效率，減輕設(shè)備管理員的勞動(dòng)強(qiáng)度，提高信息處理速度和準(zhǔn)確性。但目前國內(nèi)有些中小型企業(yè)的設(shè)備自動(dòng)化管理水平不是很高，有必要開發(fā)一個(gè)符合中小型企

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

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

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

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

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

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

26、供數(shù)據(jù)的軟件系統(tǒng)，是存儲(chǔ)介質(zhì)、處理對(duì)象和管理系統(tǒng)的集合體。它通常由軟件、數(shù)據(jù)庫和數(shù)據(jù)管理員組成。其軟件主要包括操作系統(tǒng)、各種宿主語言，實(shí)用程序以及數(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ù)。對(duì)數(shù)據(jù)庫的維護(hù)包括保持?jǐn)?shù)據(jù)的完整性、一致性和安全性。數(shù)據(jù)管理員負(fù)責(zé)創(chuàng)建、監(jiān)控和維護(hù)整個(gè)數(shù)據(jù)庫，使數(shù)據(jù)能被任何有權(quán)使用的人有效使用。由于對(duì)數(shù)據(jù)庫的操作都由數(shù)據(jù)庫管理系統(tǒng)完成，所以數(shù)據(jù)庫就可以獨(dú)立于具體的應(yīng)用程序而存在，從而數(shù)據(jù)庫又可以為多個(gè)用戶所共享。因此，數(shù)據(jù)的獨(dú)立性

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

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

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

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

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

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

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

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

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

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

37、 begin ShowMessage('請(qǐng)輸入用戶名！'); Exit; end; if trim(Edit2.Text) = '' then begin ShowMessage('請(qǐng)輸入用戶密碼！'); 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('用戶不存在，請(qǐng)重新輸入！'); 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('密碼錯(cuò)誤，請(qǐng)重新輸入！'); Exit; end; Query.Close; Query.SQL.Text := 'Select * from 用戶表 where 用戶名稱=''' + trim(Edit1.Text) + ''' and 用戶密碼=''' + tri

40、m(edit2.Text) + '''' Query.Open; userID := Query.FieldByName('編號(hào)').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)計(jì)' 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('請(qǐng)?zhí)顚懺艽a！'); Exit; end; if trim(edtNew.Text) = '' then begin ShowMessage('請(qǐng)?zhí)顚懶旅艽a！'); Ex

45、it; end; if trim(edtNew2.Text) = '' then begin ShowMessage('請(qǐng)?jiān)俅翁顚懶旅艽a！'); Exit; end; if trim(edtNew.Text) <> trim(edtNew2.Text) then begin ShowMessage('兩次密碼不一致，請(qǐng)重新輸入！'); Exit; end; if Query.Active then Query.Close; Query.SQL.Text := 'update 用戶表 set 用戶密碼=''

46、9; + Trim(edtNew.Text) + ''' where 編號(hào)=' + IntToStr(UserID); Query.ExecSQL; ShowMessage('密碼修改成功！請(qǐng)重新登錄！');end;2. 用戶管理圖12主要代碼：procedure TUserForm.Button2Click(Sender: TObject);begin if dstUser.FieldByName('編號(hào)').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('請(qǐng)?zhí)顚懹脩艟幋a！'); Exit; end; if trim(DBEdit3.Text) = '' Then begin ShowMessage('請(qǐng)?zhí)顚懹脩裘Q！'); Exit; end; if trim(DBComboBox1.Text) = '&#

48、39; Then begin ShowMessage('請(qǐng)選擇用戶類型！'); 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('請(qǐng)選擇上級(jí)種類！'); Exit; end; if Edit4.Text = '' Then begin ShowMessage('請(qǐng)輸入類型編碼！'); Exit; end; if Edit5.Text = '' Then begin ShowMes

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

51、dit6.Text; dstSBLX.FieldByName('報(bào)廢年限').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è)備臺(tái)帳模塊圖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('編號(hào)').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('請(qǐng)?zhí)顚懺O(shè)備編號(hào)！'); E

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

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

56、d; if Edit3.Text = '' then begin ShowMessage('請(qǐng)輸入檢修人！'); Exit; end; if Memo1.Text = '' then begin ShowMessage('請(qǐng)輸入檢修結(jié)果！'); Exit; end; if not dstJX.Active then dstJX.Open; dstJX.Append; dstJX.FieldByName('設(shè)備編號(hào)').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è)備報(bào)廢模塊圖18功能描述：本模塊通過點(diǎn)擊選擇設(shè)備，錄入相關(guān)信息后，點(diǎn)擊確定，保存報(bào)廢記錄，并將報(bào)廢的設(shè)備狀態(tài)置為“已報(bào)廢”，在設(shè)備列表中不再列出。

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

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

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

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