【正文】 的構(gòu)成和開發(fā)步驟 下面從軟件工程的角度介紹本程序的基本開發(fā)步驟。數(shù)據(jù)共享節(jié)省了大量人力物力，為數(shù)據(jù)庫(kù)系統(tǒng)的廣泛應(yīng)用奠定了基礎(chǔ)。為了實(shí)現(xiàn)對(duì)任意部分?jǐn)?shù)據(jù)的快速訪問(wèn)，就要研究許多優(yōu) 化技術(shù)。在這一含義下，數(shù)據(jù)庫(kù)系統(tǒng)是軟件 研究領(lǐng)域的一個(gè)重要分支，常稱為數(shù)據(jù)庫(kù)領(lǐng)域。對(duì)數(shù)據(jù)庫(kù)的維護(hù)包括保持?jǐn)?shù)據(jù)的完整性、一致性和安全性。數(shù)據(jù)庫(kù)是依照某種數(shù)據(jù)模型組織起來(lái)并存放二級(jí)存儲(chǔ)器中的數(shù)據(jù)集合。也有的把 Delphi 稱作 VB殺手。它易學(xué)易用，如同 VB，因而被稱為“第四代編程語(yǔ)言”。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。 Delphi 編程語(yǔ)言 繼承了 其 他 語(yǔ)言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí)Windows 系統(tǒng)編程。各行各業(yè)的人們無(wú)須經(jīng)過(guò)特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。尤其是系統(tǒng)的“查詢模塊”的功能極大的減輕工作人員的工作量，并以快速、準(zhǔn)確等優(yōu)點(diǎn)取代人工操作， 提高了光盤管理工作效率。 畢業(yè)設(shè)計(jì) 實(shí)驗(yàn)室儀器管理系統(tǒng) 院系 ______ 專業(yè) ______ 班級(jí) ______ 姓名 ______ 日期 年 月 日 中文摘要 實(shí)驗(yàn)室儀器 管理系統(tǒng) 為 試驗(yàn)室儀器 管理者 管理日常試驗(yàn)所需要的儀器的編號(hào) ,出庫(kù) ,入庫(kù) ,使用登記等日常工作 提供充足 方便 和快捷的 管理 手段，其開發(fā)內(nèi)容主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。 關(guān)鍵詞 ： DELPHI 信息管理系統(tǒng) 數(shù)據(jù)庫(kù) 模塊 實(shí)驗(yàn)室儀器管理系統(tǒng) Laboratory equipment management system for the daily management of laboratory testing equipment managers needed equipment 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 frontend application development two. Delphi and the use of objectoriented 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 aesthetic generous, convenient userfriendly. In particular system enquiries module function greatly reduce the workload of staff, and to the rapid, accurate, and other advantages replace manually operated, and enhanced CDs management efficiency. Keyword : Delphi Laboratory Information Management System database module Equipment Management System 引 言 1 1 Delphi 語(yǔ)言概述 2 Delphi 簡(jiǎn)介 2 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介 2 本應(yīng)用軟件的基本介紹 3 2 本應(yīng)用程序的構(gòu)成和開發(fā)步驟 4 可行性研究 4 經(jīng)濟(jì)可行性 4 時(shí)間可行性 4 技術(shù)可行性 4 社會(huì)可行性 5 數(shù)據(jù)庫(kù)的建立和連接 5 系統(tǒng)的總體設(shè)計(jì) 5 3 本程序的技術(shù)實(shí)現(xiàn)及具體功能 13 儀器庫(kù)維護(hù)界面與程序設(shè)計(jì) 實(shí)現(xiàn) 13 儀器借用庫(kù)維護(hù)界面與代碼 設(shè)計(jì) 實(shí)現(xiàn)及功能 13 通訊錄維護(hù)界面與代碼設(shè)計(jì)實(shí)現(xiàn) 14, 儀器代碼庫(kù)維護(hù)界面與代碼設(shè)計(jì) 15 主界面設(shè)計(jì)與代碼設(shè)計(jì) 16 總 結(jié) 21 致 謝 22 參 考 文 獻(xiàn) 23 引 言 隨著經(jīng)濟(jì)的發(fā)展，社會(huì)的進(jìn)步，計(jì)算機(jī)越來(lái)越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。 實(shí)驗(yàn)室儀器 管理系統(tǒng)用計(jì)算機(jī)管理 實(shí)驗(yàn)室儀器的出借 ,歸還 ,修理編號(hào) ,等日常使用過(guò)程 的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前 實(shí)驗(yàn)室儀器 管理都是由工作人員 人工代勞 ,記錄的方式 來(lái)操作的 .現(xiàn)在一般的 試驗(yàn)室管理都采用 計(jì)算機(jī)智能化管理 ,采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī) 智能化 管理程序來(lái)幫助 前臺(tái) 管理員進(jìn)行更有效的 試驗(yàn)儀器 管理工作。 經(jīng)過(guò)分析 ,我們使用 Delphi編程語(yǔ)言 開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象 ,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。 從 1995 年推出 至今已經(jīng)經(jīng)歷了 7 個(gè)版本， 運(yùn)行在 win9x 或 winme， win2020 ， winxp ，windowsNT 等操作系統(tǒng)下，是一個(gè) 32 位的應(yīng)用程序開發(fā)工具。 數(shù)據(jù)庫(kù)系統(tǒng)簡(jiǎn)介 數(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ù)為多個(gè)應(yīng)用服務(wù)，獨(dú)立于具體的應(yīng)用程序。數(shù)據(jù)管理員負(fù)責(zé)創(chuàng)建、監(jiān)控和維護(hù)整個(gè)數(shù)據(jù)庫(kù)，使數(shù)據(jù)能被任何有權(quán)使用的人有效使用。 數(shù)據(jù)庫(kù)研究跨越于計(jì)算機(jī)應(yīng)用、系統(tǒng)軟件和理論三個(gè)領(lǐng)域，其中應(yīng)用促進(jìn)新系統(tǒng)的研制開發(fā)，新系統(tǒng)帶來(lái)新的理論研究，而理論研究又對(duì)前兩個(gè)領(lǐng)域起著指導(dǎo)作用。這些優(yōu)化技術(shù)往往很復(fù)雜，是普通用戶難以實(shí)現(xiàn)的，所以就由系統(tǒng)軟件（數(shù)據(jù)庫(kù)管理系統(tǒng)）來(lái)完成，而提供給用戶的是簡(jiǎn)單易用的數(shù)據(jù)庫(kù)語(yǔ)言。數(shù)據(jù)庫(kù)系統(tǒng)的出現(xiàn)使得普通用戶能夠方便地將日常數(shù)據(jù)存入計(jì)算機(jī)并在需要的時(shí)候快速訪問(wèn)它們，從而使的計(jì)算機(jī)走出科研機(jī)構(gòu)進(jìn)入各行各業(yè)、進(jìn)入家庭。Delphi 應(yīng)用程序一般包含以下三個(gè) 基本部分： 應(yīng)用程序運(yùn)行的接口：負(fù)責(zé)系統(tǒng)整體環(huán)境的設(shè)置，運(yùn)行狀態(tài)的監(jiān)視，應(yīng)用程序的啟動(dòng)等。可能性指開發(fā)信息系統(tǒng)的條件是否具備，必要性是指 客觀上是否真正需要，通過(guò)可行性研究，可避免盲目投資，減少政治性要的損失。本系統(tǒng)對(duì)人事的管理比較全面，可長(zhǎng)期使用。 社會(huì)可行性 人類社會(huì)文明的發(fā)展已進(jìn)入信息化的高速發(fā)展時(shí)期，傳統(tǒng)的手工方式支持下的管理模式，已經(jīng)不能滿足各方面的需要。數(shù)據(jù)庫(kù)的建立則時(shí)在 access2020 中建立的，在這里你可以設(shè)置數(shù)據(jù)庫(kù)的密碼，對(duì)數(shù)據(jù)庫(kù)進(jìn)行保護(hù)。同樣建表的過(guò)程也不是唯一的，但是最終實(shí)現(xiàn)的結(jié)果是唯一的。因?yàn)橐院笠O(shè)計(jì)到主鍵，外鍵的問(wèn)題。導(dǎo)致數(shù)據(jù)窗口不好用的連鎖反映。 type Tfrm_YQ_Lab = class(TForm) Table1: TTable。 Table1DateField: TDateField。 Table1SmallintField: TSmallintField。 Table2: TTable。 DBNavigator: TDBNavigator。 Label10: TLabel。 Label6: TLabel。 Label4: TLabel。 EditDBEdit7: TDBEdit。 EditDBEdit2: TDBEdit。 DBComboBox1: TDBComboBox。 DBGrid1: TDBGrid。 Label20: TLabel。 Label11: TLabel。 Edit_date: TEdit。 Edit_experi: TEdit。 RadioGroup3: TRadioGroup。 Table2BDEDesigner2: TStringField。 Table4_UserName: TStringField。 Table4_GHRQ: TStringField。 DataSource2: TDataSource。 Table1Field_OutUserName: TStringField。 Query1BDEDesigner3: TStringField。 Query1BDEDesigner7: TStringField。 Query1Field_OutUserName: TStringField。 var Action: TCloseAction)。 procedure SpeedButton3Click(Sender: TObject)。 procedure Table1CalcFields(DataSet: TDataSet)。 var frm_YQ_Lab: Tfrm_YQ_Lab。 (39。 ExecSQL。 procedure (Sender: TObject)。 :=alClient。 :=+39。 :=+39。 :=+39。 :=+39。 。 。 procedure (Sender: TObject。 。 if MDIChildCount=1 then [1].Text:=39。 end。 end。 end。 end。 arrstr:array[1..7]of String。 if 39。 begin SQLAll:=39。 if =1 then Log:=39。 if Getsth(Edit_name) then arrstr[1]:=39。++39。 arrstr[2]:=。(狀況 =39。39。(型號(hào) =39。39。(啟用日期 =39。39。(放置位置 =39。39。(所屬實(shí)驗(yàn) =39。39。39。 then SQLAll:=SQLAll+Log+arrstr[i]。 then begin showmessage(39。 end。 if SQLAll[1]=39。A39。 FreeMem(SQLTemp)。 with Query1 do begin 。 Open。 begin (Tfrm_prt_Lab, frm_prt_Lab)。 1:begin ShowMessage(39。 end。 end。 end。+inttostr()+39。 end。 while not do begin if (=)and(=39。 end。 procedure (DataSet: TDataSet)。 while not do begin if (=)and(=39。 :=。 end。 DBNavigator: TDBNavigator。 Table2: TTable。 TabSheet1: TTabSheet。 Label5: TLabel。 Label4: TLabel。 EditDBEdit6: TDBEdit。 EditDBEdit3: TDBEdit。 Panel2: TPanel。 Label23: TLabel。 Edit_name: TEdit。 DBGrid1: TDBGrid。 procedure PageControl1Change(Sender: TObject)。 procedure FormActivate(Sender: TObject)。 implementation uses Main。SELECT * FROM 儀器借出信息庫(kù) .db39。 Open。 begin Heigh