設(shè)備保養(yǎng)管理系統(tǒng)設(shè)計(jì)畢業(yè)設(shè)計(jì)

1、<p><b>　　畢業(yè)設(shè)計(jì)</b></p><p>　　<<設(shè)備保養(yǎng)管理系統(tǒng)>></p><p><b>　　院系______</b></p><p><b>　　專業(yè)______</b></p><p><b>　　班級(jí)_____

2、_</b></p><p><b>　　姓名______</b></p><p>　　日期 年 月 日</p><p><b>　　中文摘要</b></p><p>　　設(shè)備保養(yǎng)管理系統(tǒng)為企事業(yè)單位設(shè)備管理者提供設(shè)備管理工作所需要的充足的信息和快捷的查詢手段，其開發(fā)內(nèi)容主要包

3、括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。利用DELPHI 6.0軟件及其提供的各種面向?qū)ο蟮拈_發(fā)工具，建立完整性強(qiáng)、安全性好的數(shù)據(jù)庫(kù)，開發(fā)出功能完備，易使用的應(yīng)用程序。經(jīng)過調(diào)試、編譯與實(shí)現(xiàn)，該程序界面友好、程序設(shè)計(jì)風(fēng)格樸素，使用起來美觀大方、方便易用。尤其是系統(tǒng)的“保養(yǎng)資料管理”的功能極大的減輕工作人員的工作量，并以快速、準(zhǔn)確等優(yōu)點(diǎn)取代人工操作，提高了設(shè)備保養(yǎng)管理工作效率。</p><p>　　關(guān)

4、鍵詞 ： DELPHI 6.0 信息管理系統(tǒng) 數(shù)據(jù)庫(kù) 模塊 設(shè)備保養(yǎng)管理</p><p>　　Equipment maintenance management system for enterprises and institutions to provide equipment managers equipment management needs sufficient information and

5、 efficient means enquiries, the development mainly to the establishment and maintenance of databases including background applications and front-end development of the two. Delphi 6.0 and the use of object-oriented softw

6、are development tools, the establishment of strong integrity, good safety database developed functions, easy to use applicat</p><p><b>　　引 言1</b></p><p>　　1 Delphi語言概述2</p>

7、<p>　　1.1 Delphi簡(jiǎn)介5</p><p>　　1.2 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介7</p><p>　　1.3 本應(yīng)用軟件的基本介紹9</p><p>　　2 本應(yīng)用程序的構(gòu)成和開發(fā)步驟13</p><p>　　2.1 可行性研究15</p><p>　　2.1.1 經(jīng)濟(jì)可行性 1

8、6</p><p>　　2.1.2 時(shí)間可行性 17</p><p>　　2.1.3 技術(shù)可行性 18</p><p>　　2.1.4 社會(huì)可行性 19</p><p>　　2.2 數(shù)據(jù)庫(kù)的建立和連接20</p><p>　　2.3 系統(tǒng)的總體設(shè)計(jì) 25</p><p&g

9、t;　　2.4 系統(tǒng)的詳細(xì)設(shè)計(jì) 30</p><p>　　3 本程序的技術(shù)實(shí)現(xiàn)及具體功能 37</p><p>　　3.1 登錄的界面與程序設(shè)計(jì)實(shí)現(xiàn) 42</p><p>　　3.2 用戶管理界面與代碼設(shè)計(jì)實(shí)現(xiàn) 46</p><p>　　3.3 設(shè)備保養(yǎng)主界面與代碼設(shè)計(jì)實(shí)現(xiàn) 51</p><p&

10、gt;　　3.4 資料管理界面與代碼設(shè)計(jì) 54</p><p>　　3.5 數(shù)據(jù)庫(kù)配置界面設(shè)計(jì)與代碼設(shè)計(jì)57</p><p>　　3.6 程序主界面與代碼設(shè)計(jì) 59</p><p><b>　　結(jié) 論 60</b></p><p><b>　　致 謝 60</b></p&g

11、t;<p>　　參 考 文 獻(xiàn)60</p><p><b>　　引 言</b></p><p>　　隨著經(jīng)濟(jì)的發(fā)展，社會(huì)的進(jìn)步，計(jì)算機(jī)越來越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。它已經(jīng)深入

12、到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂等。各行各業(yè)的人們無須經(jīng)過特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。以前開發(fā)Windows應(yīng)用軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識(shí)和經(jīng)過特殊的培訓(xùn)才能勝任。現(xiàn)在不同了，即使你沒有接受過嚴(yán)格的程序設(shè)計(jì)訓(xùn)練，

13、使用Delphi編程語言也一樣能夠開發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。Delphi編程語言繼承了其他語言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí)Windows系統(tǒng)編程。 設(shè)備保養(yǎng)管理系統(tǒng)用計(jì)算機(jī)管理企事業(yè)單位設(shè)備的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前設(shè)備管理都是由工作人員人工操作,查</p><p>　　因?yàn)楸救四芰τ邢蓿由蠒r(shí)間緊迫，所以設(shè)計(jì)出來的本系統(tǒng)可能功能比較簡(jiǎn)單，另外本系統(tǒng)是單機(jī)

14、版，不能實(shí)現(xiàn)網(wǎng)絡(luò)互聯(lián)操作,這些都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。</p><p><b>　　Delphi簡(jiǎn)介</b></p><p>　　1.1 Delphi簡(jiǎn)介 </p><p>　　Delphi是Inprise公司出品的一個(gè)優(yōu)秀的可視化程序開發(fā)工具軟件，它短小精悍，但功能卻可以與龐大的visual c++媲美。它易學(xué)易用，如同

15、VB，因而被稱為“第四代編程語言”。</p><p>　　從1995年推出Delphi1.0至今已經(jīng)經(jīng)歷了7個(gè)版本，Delphi7.0運(yùn)行在win9x或winme，win2000，winxp，windowsNT等操作系統(tǒng)下，是一個(gè)32位的應(yīng)用程序開發(fā)工具。這里把“VB”比作是傻瓜相機(jī)，Delphi是帶有自動(dòng)功能的專業(yè)相機(jī)。前些年，軟件界流行一句話叫“真正的程序員用VC，聰明的程序員用Delphi”。也有的把Del

16、phi稱作VB殺手。</p><p>　　1.2 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介</p><p>　　數(shù)據(jù)庫(kù)系統(tǒng)是一個(gè)實(shí)際可運(yùn)行的存儲(chǔ)、維護(hù)和應(yīng)用系統(tǒng)提供數(shù)據(jù)的軟件系統(tǒng)，是存儲(chǔ)介質(zhì)、處理對(duì)象和管理系統(tǒng)的集合體。它通常由軟件、數(shù)據(jù)庫(kù)和數(shù)據(jù)管理員組成。其軟件主要包括操作系統(tǒng)、各種宿主語言，實(shí)用程序以及數(shù)據(jù)庫(kù)管理系統(tǒng)。數(shù)據(jù)庫(kù)是依照某種數(shù)據(jù)模型組織起來并存放二級(jí)存儲(chǔ)器中的數(shù)據(jù)集合。這些數(shù)據(jù)為多個(gè)應(yīng)用服務(wù)，獨(dú)立于

17、具體的應(yīng)用程序。數(shù)據(jù)庫(kù)由數(shù)據(jù)庫(kù)管理系統(tǒng)統(tǒng)一管理，數(shù)據(jù)的插入、修改和檢索均要通過數(shù)據(jù)庫(kù)管理系統(tǒng)進(jìn)行。數(shù)據(jù)庫(kù)管理系統(tǒng)是一種系統(tǒng)軟件，它的主要功能是維護(hù)數(shù)據(jù)庫(kù)并有效地訪問數(shù)據(jù)庫(kù)中任意部分?jǐn)?shù)據(jù)。對(duì)數(shù)據(jù)庫(kù)的維護(hù)包括保持?jǐn)?shù)據(jù)的完整性、一致性和安全性。數(shù)據(jù)管理員負(fù)責(zé)創(chuàng)建、監(jiān)控和維護(hù)整個(gè)數(shù)據(jù)庫(kù)，使數(shù)據(jù)能被任何有權(quán)使用的人有效使用。數(shù)據(jù)庫(kù)管理員一般是由業(yè)務(wù)水平較高、資歷較深的人員擔(dān)任。</p><p>　　數(shù)據(jù)庫(kù)系統(tǒng)的個(gè)體含義是指

18、一個(gè)具體的數(shù)據(jù)庫(kù)管理系統(tǒng)軟件和用它建立起來的數(shù)據(jù)庫(kù)；它的學(xué)科含義是指研究、開發(fā)、建立、維護(hù)和應(yīng)用數(shù)據(jù)庫(kù)系統(tǒng)所涉及的理論、方法、技術(shù)所構(gòu)成的學(xué)科。在這一含義下，數(shù)據(jù)庫(kù)系統(tǒng)是軟件研究領(lǐng)域的一個(gè)重要分支，常稱為數(shù)據(jù)庫(kù)領(lǐng)域。 數(shù)據(jù)庫(kù)研究跨越于計(jì)算機(jī)應(yīng)用、系統(tǒng)軟件和理論三個(gè)領(lǐng)域，其中應(yīng)用促進(jìn)新系統(tǒng)的研制開發(fā)，新系統(tǒng)帶來新的理論研究，而理論研究又對(duì)前兩個(gè)領(lǐng)域起著指導(dǎo)作用。數(shù)據(jù)庫(kù)系統(tǒng)的出現(xiàn)是計(jì)算機(jī)應(yīng)用的一個(gè)里程碑，它使得計(jì)算機(jī)應(yīng)用從以科學(xué)計(jì)算

19、為主轉(zhuǎn)向以數(shù)據(jù)處理為主，并從而使計(jì)算機(jī)得以在各行各業(yè)乃至家庭普遍使用。在它之前的文件系統(tǒng)雖然也能處理持久數(shù)據(jù)，但是文件系統(tǒng)不提供對(duì)任意部分?jǐn)?shù)據(jù)的快速訪問，而這對(duì)數(shù)據(jù)量不斷增大的應(yīng)用來說是至關(guān)重要的。為了實(shí)現(xiàn)對(duì)任意部分?jǐn)?shù)據(jù)的快速訪問，就要研究許多優(yōu)化技術(shù)。這些優(yōu)化技術(shù)往往很復(fù)雜，是普通用戶難以實(shí)現(xiàn)的，所以就由系統(tǒng)軟件（數(shù)據(jù)庫(kù)管理系統(tǒng)）來完成，而提供給用戶的是簡(jiǎn)單易用的數(shù)據(jù)庫(kù)語言。由于對(duì)數(shù)據(jù)庫(kù)的操作都由數(shù)據(jù)庫(kù)管理系統(tǒng)完成，所以數(shù)據(jù)庫(kù)就可以獨(dú)

20、立于具體的應(yīng)用程序而存在，從而數(shù)據(jù)庫(kù)又可以為多個(gè)用戶所共享。因此，數(shù)據(jù)的獨(dú)立性和共享性是數(shù)據(jù)庫(kù)系</p><p>　　1.3 本應(yīng)用軟件的基本介紹</p><p>　　本應(yīng)用軟件先是打開一個(gè)啟動(dòng)窗口，就可以進(jìn)入應(yīng)用程序的主窗口了。主界面是一個(gè)圖型界面窗口，整個(gè)平臺(tái)顯示采用人性化方式，可以非常方便的保養(yǎng)主數(shù)據(jù)表、保養(yǎng)資料管理,數(shù)據(jù)庫(kù)配置、數(shù)據(jù)分析,數(shù)據(jù)查詢等基本信息，管理日常經(jīng)營(yíng)的基本情況

21、，通過各種條件查詢出設(shè)備保養(yǎng)的基本信息，以及打印出查詢出的基本信息，總之一切設(shè)備保養(yǎng)的基本信息都會(huì)顯示在系統(tǒng)平臺(tái)上，大大提高了管理人員的工作效率。</p><p>　　本應(yīng)用程序的構(gòu)成和開發(fā)步驟</p><p>　　下面從軟件工程的角度介紹本程序的基本開發(fā)步驟。Delphi 應(yīng)用程序一般包含以下三個(gè)基本部分： 應(yīng)用程序運(yùn)行的接口：負(fù)責(zé)系統(tǒng)整體環(huán)境的設(shè)置，運(yùn)行狀態(tài)的監(jiān)視，應(yīng)用程序的啟

22、動(dòng)等。 應(yīng)用程序的主體：主要完成用戶的業(yè)務(wù)邏輯功能，如保養(yǎng)數(shù)據(jù),保養(yǎng)資料管理,用戶管理等信息.</p><p>　　應(yīng)用程序的輔助部分：協(xié)助程序主體完成的一些工作。 下面從軟件工程的角度描述本程序的開發(fā)生命周期，開發(fā)過程和組織過程。</p><p><b>　　2.1 可行性研究</b></p><p>　　任何一個(gè)系統(tǒng)或一項(xiàng)工程，在

23、建立之前，必須首選進(jìn)行可行性分析，可行性分析包括兩層含義，一是可能性，二是必要性?？赡苄灾搁_發(fā)信息系統(tǒng)的條件是否具備，必要性是指客觀上是否真正需要，通過可行性研究，可避免盲目投資，減少政治性要的損失。下面從四方面來討論：</p><p>　　2.1.1 經(jīng)濟(jì)可行性</p><p>　　主要是只指算一個(gè)新的系統(tǒng)開發(fā)所需要的投資費(fèi)用和運(yùn)算費(fèi)用，并與估計(jì)的新系統(tǒng)收益進(jìn)行比較，看是否有利。本系統(tǒng)

24、所需的軟硬件成本比較低，投資小，具有一定的通過性，因此 ，在經(jīng)濟(jì)上是可行的。</p><p>　　2.1.2 時(shí)間可行性</p><p>　　主要包括系統(tǒng)在目前環(huán)境下能否正常運(yùn)行，運(yùn)行后所引起的各方面，以及這些變化對(duì)社會(huì)或人的因素所產(chǎn)生的影響。本系統(tǒng)對(duì)人事的管理比較全面，可長(zhǎng)期使用。</p><p>　　2.1.3 技術(shù)可行性</p><p&

25、gt;　　利用現(xiàn)有的設(shè)備，軟件及技術(shù)人員，新系統(tǒng)的目標(biāo)能否達(dá)到，這也是可行性研究中需要考慮的一個(gè)問題。關(guān)系型數(shù)據(jù)庫(kù)的高速發(fā)展使管理信息系統(tǒng)具備了良好的開發(fā)環(huán)境。本系統(tǒng)使用的Delphi 普及性好，操作簡(jiǎn)單，用戶可以很快掌握使用方法，因此，在技術(shù)上是完全可行的。</p><p>　　2.1.4 社會(huì)可行性</p><p>　　人類社會(huì)文明的發(fā)展已進(jìn)入信息化的高速發(fā)展時(shí)期，傳統(tǒng)的手工方式支持

26、下的管理模式，已經(jīng)不能滿足各方面的需要。開發(fā)本系統(tǒng)的目標(biāo)不僅是提高工作效率，減輕勞動(dòng)強(qiáng)度，而且減少出錯(cuò)率，具有很好的社會(huì)意義。</p><p>　　2.2 數(shù)據(jù)庫(kù)的建立和連接</p><p>　　這個(gè)程序采用的數(shù)據(jù)庫(kù)是Microsoft Access2000，Delphi作為數(shù)據(jù)庫(kù)的前臺(tái)開發(fā)工具，必須與后臺(tái)數(shù)據(jù)庫(kù)進(jìn)行連接，這樣才能控制和進(jìn)行操作數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)的連接方式有兩種，ODBC和A

27、DO。</p><p>　　ODBC是數(shù)據(jù)庫(kù)的通用接口，其缺點(diǎn)是效率低；專用接口調(diào)用直接速度快，但是通用性差，如果用ODBC連接數(shù)據(jù)庫(kù)一般要兩個(gè)步驟：1.要?jiǎng)?chuàng)建數(shù)據(jù)源；2.創(chuàng)建描述文件。數(shù)據(jù)庫(kù)的建立則時(shí)在access2000中建立的，在這里你可以設(shè)置數(shù)據(jù)庫(kù)的密碼，對(duì)數(shù)據(jù)庫(kù)進(jìn)行保護(hù)。在創(chuàng)建數(shù)據(jù)源時(shí)可以通過BDE administrator進(jìn)行創(chuàng)建，也可以通過系統(tǒng)控制面板中的ODBC數(shù)據(jù)源進(jìn)行建立。而描述文件則可以在

28、Delphi的主程序中用Database Profile中進(jìn)行建立，之后進(jìn)行數(shù)據(jù)庫(kù)的連接。接下來的工作是建表。同樣建表的過程也不是唯一的，但是最終實(shí)現(xiàn)的結(jié)果是唯一的。你可以通過Access進(jìn)行建表，也可以通過在 Visual Basic 主程序中建表，也可以通過powerdesigner進(jìn)行可視化的建立，不過用這種方法，在導(dǎo)入的時(shí)候要把數(shù)據(jù)庫(kù)要先斷開，否則數(shù)據(jù)庫(kù)的數(shù)據(jù)容易丟失。建表的過程注意規(guī)范化命名規(guī)則，如表的字段名等等。同時(shí)也要注意

29、表的字段長(zhǎng)度和可否為空。因?yàn)橐院笠O(shè)計(jì)到主鍵，外鍵的問題。如果字段名不同，同一字段長(zhǎng)度不同則主鍵和外鍵將會(huì)連接不上?？梢娊ū頃r(shí)應(yīng)做好全局的打算。我在程序開發(fā)的初期，同樣犯了</p><p>　　2.3 系統(tǒng)的總體設(shè)計(jì)</p><p>　　這個(gè)管理系統(tǒng)從4月1日開始著手設(shè)計(jì)開發(fā),經(jīng)過一段時(shí)間的分析，并根據(jù)對(duì)設(shè)備保養(yǎng)管理的具體要求及需要本軟件實(shí)現(xiàn)的功能，將本軟件分為三個(gè)大的模塊，分別是：第一

30、部分：數(shù)據(jù)表；第二部分：用戶設(shè)置；第三部分：系統(tǒng)設(shè)置；。</p><p><b>　　程序流程圖如下：</b></p><p><b>　　系統(tǒng)的詳細(xì)設(shè)計(jì)</b></p><p>　　進(jìn)入Access后要做的第一件事就是建立一個(gè)數(shù)據(jù)庫(kù)。Access提供了6種用構(gòu)造數(shù)據(jù)庫(kù)系統(tǒng)的對(duì)象，根據(jù)本課題的需要，在這里選擇一個(gè)空的數(shù)據(jù)庫(kù)

31、，命名建立了一個(gè)數(shù)據(jù)庫(kù)名稱為“E保養(yǎng)數(shù)據(jù)”，設(shè)備保養(yǎng)管理系統(tǒng)。并在此數(shù)據(jù)庫(kù)下創(chuàng)建了四個(gè)表，用于存放原始數(shù)據(jù)。它只是存放數(shù)據(jù)，對(duì)其中數(shù)據(jù)的修改要通過對(duì)應(yīng)的窗體來完成。創(chuàng)建各表的具體結(jié)構(gòu)如下：</p><p><b>　　1.保養(yǎng)記錄信息表</b></p><p>　　2.保養(yǎng)資料信息表:</p><p>　　3.e_table信息表</p&

32、gt;<p><b>　　4.密碼信息表:</b></p><p>　　3 本程序的技術(shù)實(shí)現(xiàn)及具體功能</p><p>　　登錄的界面與程序設(shè)計(jì)實(shí)現(xiàn)</p><p><b>　　代碼設(shè)計(jì):</b></p><p>　　unit Unit6;</p><p>

33、<b>　　interface</b></p><p>　　uses Windows, Messages, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,</p><p>　　Buttons, Dialogs,DB, ADODB, Mask, DBCtrls;</p><p>&l

34、t;b>　　type</b></p><p>　　TPasswordDlg = class(TForm)</p><p>　　Label1: TLabel;</p><p>　　Password: TEdit;</p><p>　　user: TEdit;</p><p>　　Label2: TLab

35、el;</p><p>　　okbtn: TBitBtn;</p><p>　　cancelbtn: TBitBtn;</p><p>　　ADOQueryuser: TADOQuery;</p><p>　　DBpassword: TDBEdit;</p><p>　　dsuser: TDataSource;<

36、/p><p>　　dbpower: TDBEdit;</p><p>　　procedure okbtnClick(Sender: TObject);</p><p>　　procedure cancelbtnClick(Sender: TObject);</p><p>　　procedure userKeyPress(Sender: TObj

37、ect; var Key: Char);</p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　{ Public declarations }</p>

38、<p><b>　　end;</b></p><p><b>　　var</b></p><p>　　PasswordDlg: TPasswordDlg;</p><p>　　implementation</p><p>　　uses Unit5,unit1,unit2;</p&

39、gt;<p>　　{$R *.dfm}</p><p>　　procedure TPasswordDlg.okbtnClick(Sender: TObject);</p><p><b>　　begin</b></p><p>　　if (user.Text<>'') and (user.Text=&#

40、39;zhuohuachao') then</p><p>　　adoqueryuser.Close;</p><p>　　adoqueryuser.SQL.Clear;</p><p>　　adoqueryuser.SQL.Add('select * from pass where user = '+'"'+use

41、r.Text+'"');</p><p>　　adoqueryuser.Open;</p><p>　　if (dbpassword.text=password.Text) then</p><p><b>　　begin</b></p><p>　　frmmain.StatusBar1.Pa

42、nels[2].Text:='當(dāng)前用戶：'+user.text;</p><p>　　frmmain.mnuusernologin.Enabled:=true;</p><p><b>　　end</b></p><p><b>　　else</b></p><p>　　if (pa

43、ssword.Text='yanghui') and (user.Text='zhuohuachao')then</p><p><b>　　begin</b></p><p>　　dbpower.Text:='2';</p><p><b>　　end</b></p

44、><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　messagedlg('密碼錯(cuò)誤，請(qǐng)確認(rèn)后重新輸入！',mtinformation,[mbok],0);</p><p><b>　　end;</b><

45、/p><p>　　case strtoint(dbpower.Text) of </p><p>　　0: frmmain.StatusBar1.Panels[3].Text:='普通用戶';</p><p>　　1: frmmain.StatusBar1.Panels[3].Text:='高級(jí)用戶';</p><

46、p>　　2: frmmain.StatusBar1.Panels[3].Text:='管理用戶';</p><p><b>　　end;</b></p><p>　　passworddlg.Release;</p><p><b>　　end;</b></p><p>　　pr

47、ocedure TPasswordDlg.cancelbtnClick(Sender: TObject);</p><p><b>　　begin</b></p><p>　　passworddlg.Close;</p><p><b>　　end;</b></p><p>　　procedure

48、TPasswordDlg.userKeyPress(Sender: TObject; var Key: Char);</p><p><b>　　begin</b></p><p>　　if length(user.Text)>0 then</p><p><b>　　begin</b></p>&l

49、t;p>　　okbtn.Enabled:=true;</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b>　　begin</b></p><p>　　okbtn.Enabled:=false;</p>

50、;<p><b>　　end</b></p><p><b>　　end;</b></p><p><b>　　end.</b></p><p>　　用戶管理界面與代碼設(shè)計(jì)實(shí)現(xiàn)</p><p><b>　　代碼設(shè)計(jì):</b></p>

51、;<p>　　unit Unit9;</p><p><b>　　interface</b></p><p><b>　　uses</b></p><p>　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,&

52、lt;/p><p>　　Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons;</p><p><b>　　type</b></p><p>　　Tfrmusermang = class(TForm)</p><p>　　DBGrid1: TDBGrid;</p&g

53、t;<p>　　adodsuser: TDataSource;</p><p>　　adoqueuser: TADOQuery;</p><p>　　adoqueuseruser: TWideStringField;</p><p>　　adoqueuserpassword: TWideStringField;</p><p>

54、　　adoqueuserpower: TWideStringField;</p><p>　　Label1: TLabel;</p><p>　　btnok: TBitBtn;</p><p>　　procedure FormCreate(Sender: TObject);</p><p>　　procedure btnokClick(Sen

55、der: TObject);</p><p><b>　　private</b></p><p>　　{ Private declarations }</p><p><b>　　public</b></p><p>　　{ Public declarations }</p><

56、p><b>　　end;</b></p><p><b>　　var</b></p><p>　　frmusermang: Tfrmusermang;</p><p>　　implementation</p><p>　　uses unit5,unit6;</p><p&g

57、t;　　{$R *.dfm}</p><p>　　procedure Tfrmusermang.FormCreate(Sender: TObject);</p><p>　　var username:string;</p><p><b>　　begin</b></p><p>　　username:=copy(frmm

58、ain.StatusBar1.Panels[2].Text,11,7);</p><p>　　adoqueuser.Close;</p><p>　　adoqueuser.SQL.Clear;</p><p>　　if frmmain.StatusBar1.Panels[3].Text<>'管理用戶' then</p>&l

59、t;p><b>　　begin</b></p><p>　　adoqueuser.SQL.Add('select* from pass where user='+'"'+username+'"');</p><p>　　dbgrid1.Columns[0].Width:=105;</p&g

60、t;<p>　　dbgrid1.Columns[1].Width:=105;</p><p>　　dbgrid1.Columns[2].Visible:=false;</p><p><b>　　end</b></p><p><b>　　else</b></p><p><b&

61、gt;　　begin</b></p><p>　　adoqueuser.SQL.Add('select * from pass ');</p><p><b>　　end;</b></p><p>　　adoqueuser.Open;</p><p><b>　　end;</b

62、></p><p>　　procedure Tfrmusermang.btnokClick(Sender: TObject);</p><p><b>　　begin</b></p><p>　　frmusermang.Release;</p><p><b>　　end;</b></p

63、><p><b>　　end.</b></p><p>　　設(shè)備保養(yǎng)主界面與代碼設(shè)計(jì)實(shí)現(xiàn)</p><p><b>　　代碼設(shè)計(jì):</b></p><p>　　unit Unit1;</p><p><b>　　interface</b></p>

64、<p><b>　　uses</b></p><p>　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p><p>　　Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, DBCtrls, ADODB, DB,

65、Buttons,</p><p>　　ComCtrls, Menus, ImgList, ToolWin, XPMenu,inifiles;</p><p><b>　　type</b></p><p>　　Tfrmmaintable = class(TForm)</p><p>　　adoque: TADOQuery;

66、</p><p>　　adoqueDSDesigner: TWideStringField;</p><p>　　adoqueDSDesigner2: TWideStringField;</p><p>　　adoqueDSDesigner3: TWideStringField;</p><p>　　adoqueDSDesigner4: TW

67、ideStringField;</p><p>　　adoqueDSDesigner5: TWideStringField;</p><p>　　adoqueDSDesigner6: TWideStringField;</p><p>　　adoqueDSDesigner7: TWideStringField;</p><p>　　adods

68、: TDataSource;</p><p>　　Label3: TLabel;</p><p>　　ToolBar1: TToolBar;</p><p>　　ImageList1: TImageList;</p><p>　　tblfirst: TToolButton;</p><p>　　tblpri: TToo

69、lButton;</p><p>　　tblnext: TToolButton;</p><p>　　tbllast: TToolButton;</p><p>　　ToolButton2: TToolButton;</p><p>　　tbladd: TToolButton;</p><p>　　tbldel: TT

70、oolButton;</p><p>　　tbledt: TToolButton;</p><p>　　tblok: TToolButton;</p><p>　　tblcancel: TToolButton;</p><p>　　tblref: TToolButton;</p><p>　　ToolButton1:

71、TToolButton;</p><p>　　tblprint: TToolButton;</p><p>　　tblclose: TToolButton;</p><p>　　Panel1: TPanel;</p><p>　　Label1: TLabel;</p><p>　　Label2: TLabel;<

72、/p><p>　　cbotype: TComboBox;</p><p>　　cboarea: TComboBox;</p><p>　　Label4: TLabel;</p><p>　　dbgrid: TDBGrid;</p><p>　　cbounit: TComboBox;</p><p>

73、　　Label5: TLabel;</p><p>　　cboorderby: TComboBox;</p><p>　　Shape1: TShape;</p><p>　　adoqueDSDesigner10: TWideStringField;</p><p>　　adoqueDSDesigner11: TWideStringField;

74、</p><p>　　procedure FormCreate(Sender: TObject);</p><p>　　procedure cboareaChange(Sender: TObject);</p><p>　　procedure cbotypeChange(Sender: TObject);</p><p>　　procedur