【導(dǎo)讀】利用DELPHI軟件及其提供的各種面向。出功能完備，易使用的應(yīng)用程序。經(jīng)過調(diào)試、編譯與實現(xiàn)，尤其是系統(tǒng)的“保養(yǎng)資料管理”的功能極大的減。輕工作人員的工作量，并以快速、準確等優(yōu)點取代人工操作，工作學(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。管理、輔助設(shè)計、圖形圖像處理、教育培訓(xùn)以及游戲娛樂等。以前開發(fā)Windows應(yīng)用軟件是專業(yè)人員的工作，需要。掌握許多專業(yè)知識和經(jīng)過特殊的培訓(xùn)才能勝任。夠開發(fā)出功能強大、適合自己特殊需求的應(yīng)用程序了。助前臺管理員進行更有效的設(shè)備管理管理工作。護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致。性和完整性強、數(shù)據(jù)安全性好的庫。都有待于我在以后的工作學(xué)習(xí)中進一步改進。它易學(xué)易用，如同VB，因而被稱為“第四代編程語。從1995年推出至今已經(jīng)經(jīng)歷了7個版本，運行在win9x或winme，win2020，winxp，這里把“VB”比作是傻瓜相機，Delphi是帶有自動功能。用VC，聰明的程序員用Delphi”。也有的把Delphi稱作VB

　　

【正文】 QRShape。 QRShape19: TQRShape。 QRShape20: TQRShape。 QRShape21: TQRShape。 QRShape22: TQRShape。 QRShape23: TQRShape。 QRShape24: TQRShape。 private { Private declarations } public { Public declarations } end。 var frmprint: Tfrmprint。 implementation {$R *.dfm} end. 程序主界面與代碼設(shè)計 代碼設(shè)計 : unit Unit5。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, DB, ADODB, XPMenu,ADOConEd。 type Tfrmmain = class(TForm) MainMenu: TMainMenu。 mnufile: TMenuItem。 mnudata: TMenuItem。 mnuexit: TMenuItem。 mnuabout: TMenuItem。 mnumain: TMenuItem。 mnuuser: TMenuItem。 mnuuserlongin: TMenuItem。 mnuusermang: TMenuItem。 StatusBar1: TStatusBar。 adocon: TADOConnection。 mnufileline: TMenuItem。 mnuset: TMenuItem。 mnudataset: TMenuItem。 mnuprint: TMenuItem。 mnuusernologin: TMenuItem。 mnuuserline: TMenuItem。 XPMenu1: TXPMenu。 procedure mnudataClick(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure mnumainClick(Sender: TObject)。 procedure mnuexitClick(Sender: TObject)。 procedure mnuuserlonginClick(Sender: TObject)。 procedure mnuaboutClick(Sender: TObject)。 procedure mnudatasetClick(Sender: TObject)。 procedure mnuusermangClick(Sender: TObject)。 procedure mnuprintClick(Sender: TObject)。 procedure mnuusernologinClick(Sender: TObject)。 private { Private declarations } procedure IntINI。 public { Public declarations } SL:TStringList。 end。 var frmmain: Tfrmmain。 FileName:String。 implementation uses Unit2, Unit1, Unit7, Unit8, Unit9, Unit3, Unit6。 const ScreenWidth: LongInt = 800。 ScreenHeight: LongInt = 600。 {$R *.dfm} procedure (Sender: TObject)。 begin //if 2 then if 39。資料管理 39。 then begin (Tform2, form2)。 //form2:=(nil)。 。 end else begin messagedlg(39。SORRY!,資料管理窗口已打開，不能重復(fù)打開同一個窗口 39。,mterror,[mbok],0)。 end end。 procedure (Sender: TObject)。 var Con:String。 begin fileName:=ExtractFilePath(ParamStr(0))+39。39。 if FileExists(FileName) then begin SL:=。 (FileName)。 Con:=。 try :=false。 :=Con。 :=true。 // RunTimeInfo。 except showmessage(39。 數(shù)據(jù) 庫初始 化錯誤 ，無法找到 數(shù)據(jù)庫39。+13+Con)。 end。 end。 scaled := true。 if ( ScreenWidth) then begin height := longint(height) * longint() div ScreenHeight。 width := longint(width) * longint() div ScreenWidth。 scaleBy(, ScreenWidth)。 end。 [1].Text:=39。歡迎使用！請選擇你要進行的操作！ 39。 。 [2].Text:=39。當(dāng)前用戶： 39。 end。 procedure (Sender: TObject)。 begin if 39。主數(shù)據(jù)表 39。 then //if 2 then begin (Tfrmmaintable, frmmaintable)。 //frmmaintable:=(nil)。 。 :=true。 end else begin messagedlg(39。SORRY!,主數(shù)據(jù)表窗口已打開，不能重復(fù)打開同一個窗口 39。,mterror,[mbok],0)。 end end。 procedure (Sender: TObject)。 begin close。 end。 procedure (Sender: TObject)。 begin (TPasswordDlg, PasswordDlg)。 。 end。 procedure (Sender: TObject)。 begin (Tfrmabout, frmabout)。 。 end。 procedure (Sender: TObject)。 begin EditConnectionString()。 :=。 IntINI。 end。 procedure 。 begin (Filename)。 //RunTimeInfo。 end。 procedure (Sender: TObject)。 begin if [3].Text39。39。 then begin frmusermang:=(nil)。 。 end else messagedlg(39。 當(dāng) 前 用戶 尚 未登 錄， 請 先進 行登 錄 后再 試！39。,mtwarning,[mbok],0)。 end。 procedure (Sender: TObject)。 //判斷當(dāng)前激活的子窗口 begin if =39。主數(shù)據(jù)表 39。 then 。 if =39。資料管理 39。 then 。 end。 procedure (Sender: TObject)。 begin :=false。 [2].Text:=39。當(dāng)前用戶： 39。 [3].Text:=39。39。 end。 end. 總 結(jié) 設(shè)備保養(yǎng) 管理系統(tǒng)是一個典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、 需求分析、總體設(shè)計、選用工具、程序模塊、系統(tǒng)測試等幾個步驟來實現(xiàn)。開發(fā)本系統(tǒng)的過程中，首先 要 對 設(shè)備保養(yǎng) 管理進行系統(tǒng)調(diào)研， 熟悉 其中的新設(shè)備登記 、 設(shè)備信息耗材收集 的 流程 、步驟；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到 設(shè)備 管理中存在的各種問題，并在總體設(shè)計把握好對問題的分析、理解，進而解決問題；選用開發(fā)工具要選用自己最熟悉、應(yīng)用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用DELPHI ，其具有語言簡單、功能強大、組件眾多的優(yōu)點。程序模塊的編制中，重點把握系統(tǒng)內(nèi)部完整性、功能性、實用性、便捷性，使其能夠協(xié)調(diào)統(tǒng) 一、運行無誤。 致 謝 我首先感謝我的指導(dǎo)老師呂老師，在他嚴格的要求下我懂得了開發(fā)軟件要有一種極其認真負責(zé)的態(tài)度。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。 在這里我還要感謝我們宿舍的其它 5 個同學(xué)。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。 參 考 文 獻 1 張春林 .Delphi 6 程序設(shè)計導(dǎo)學(xué) .北京：清華大學(xué)出版社， 2 飛思科技 . Delphi6 開發(fā)者手冊 . 北京：電子工業(yè)出版社 , 3 飛思科技 . Delphi6 數(shù)據(jù)庫開發(fā) . 北京 ：電子工業(yè)出版社 , 4 丁寶康 .數(shù)據(jù)庫原理 . 北京：經(jīng)濟科學(xué)出版社， 5 何旭洪 .Delphi 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航 .北京：人民郵電出版社 , 6周璋鵬 . 基于 B/S結(jié)構(gòu)的學(xué)生信息管理系統(tǒng)垢研究與開發(fā) .西北電力技術(shù) .2020， 31(4):15~17,26 7 李全彬 , 顧明亮 . 基于 ASP 技術(shù)的 學(xué)生信息管理系統(tǒng)的 研 究 與 開 發(fā) . 徐 州 師 范 大 學(xué) 學(xué) 報 ( 自 然 科 學(xué)版 ).2020,19(2):25~28 8 谷軍 .用 Authorware 開發(fā)學(xué)生信息管理系統(tǒng) .計算機與與現(xiàn)代化 .2020(7):40~41,44 9 李丹榮 ,杜維 .基于 Delphi6． 0 的實時數(shù)據(jù)采集與分析系統(tǒng) 機電工程 .2020,20(5): 64~67