【正文】 。 end。with adoquery1 do begin close。 with sql do begin clear。 add(39。insert into 設(shè)備表 values(:p0,:p1,:P2,:p3,:p4)39。)。 end。 parameters[0].value:=。 parameters[1].value:=。 parameters[2].value:=。 parameters[3].value:=。 parameters[4].value:=。 execsql。 end。 with adoquery1 do begin close。 with SQL do begin clear。 add(39。select * from 設(shè)備表39。)。 end。 execsql。 open。 end。end。procedure (Sender: TObject)。//刪除記錄beginif (39。確定要?jiǎng)h除這條記錄嗎39。,39。提示39。,mb_okcancel+mb_iconinformation)=id_ok thenwith adoquery1 do if isempty=false then delete。 end。procedure (Sender: TObject)。beginif =39。編號(hào)39。 then begin with adoquery1 do begin close。 。 (39。select * from 設(shè)備表 where 編號(hào)=:id39。)。 (39。id39。).Value :=。 open。 if recordcount=0 then begin (39。沒有檢索到該設(shè)備信息39。,39。提示39。,mb_ok+mb_iconinformation)。 end。 end。 end。 if =39。設(shè)備名稱39。 then begin with adoquery1 do begin close。 。 (39。select * from 設(shè)備表 where 編號(hào)=:d39。)。 (39。d39。).Value :=。 open。 if recordcount=0 then begin (39。沒有檢索到該設(shè)備信息39。,39。提示39。,mb_ok+mb_iconinformation)。 end。 end。 end。 end。procedure (Sender: TObject)。//打印窗口的代碼如下 。end。procedure (Sender: TObject)。begin。 。(39。select * from 設(shè)備表39。)。end。procedure (Sender: TObject)。//刷新begin 。end。打印窗口如下所示：（3）入庫(kù)記錄查詢功能為可查詢歷來設(shè)備入庫(kù)的具體記錄。界面如下所示：可按照入庫(kù)時(shí)間來查詢。程序代碼如下所示：procedure (Sender: TObject)。begininherited。with adoquery1 dobegin close。 。 (39。select * from 入庫(kù)記錄表 where 入庫(kù)日期=:id 39。)。 .parambyname(39。id39。).value:=datetostr( )。 。 。 end。end。（4）設(shè)備資料出庫(kù)功能為對(duì)設(shè)備庫(kù)中的設(shè)備出庫(kù)操作。界面如下所示：該模塊具有智能化，會(huì)根據(jù)你輸入的設(shè)備編號(hào)，自動(dòng)得出設(shè)備名稱。程序代碼具體如下：procedure (Sender: TObject)。beginif =39。39。 then begin showmessage(39。該記錄不能為空39。)。 exit。 。 。 end。if length(trim())6 then begin showmessage(39。請(qǐng)輸入6位設(shè)備編號(hào)39。)。 。 。 exit。 end。 with adoquery1 do begin close。 。 (39。select * from 設(shè)備表 where 編號(hào)=:id39。)。 (39。id39。).Value:=。 。 if recordcount0 then begin 。 (39。數(shù)量39。).Value :=strtoint((39。數(shù)量39。).asstring)strtoint()。 (39。總金額39。).Value:=strtoint((39。單價(jià)39。).asstring)*strtoint((39。數(shù)量39。).asstring)。 (39。編號(hào)39。).Value:= 。 (39。設(shè)備名稱39。).Value:= 。 (39。單價(jià)39。).Value:=。 post。 end。with adoquery2 do 。 。 (39。select * from 出庫(kù)記錄表39。)。 。 。 。 [0].Value :=。 [1].Value :=。 [2].Value :=。 [3].Value :=strtoint()*strtoint()。 [4].Value :=date。 [5].Value := 。 [6].Value := 。 。end。 。 。 。 。 。 。 。end。procedure (Sender: TObject)。beginclose。end。procedure (Sender: TObject)。begin with adoquery1 do begin 。 。 (39。select * from 設(shè)備表 where 編號(hào)=:id39。)。 (39。id39。).Value:=。 。 if recordcount0 then begin :=(39。設(shè)備名稱39。).AsString 。 :=(39。單價(jià)39。).AsString 。 end else begin showmessage(39。無此設(shè)備編號(hào),請(qǐng)查實(shí)再來!退出請(qǐng)按右上角的X按鈕!39。)。 。 exit。 end。 end。end。（5）出庫(kù)記錄查詢?cè)擁?xiàng)功能可以查詢歷來出庫(kù)記錄。具體界面及設(shè)計(jì)如下所示：對(duì)確定按鈕的編程如下：procedure (Sender: TObject)。begininherited。with adoquery1 dobegin close。 。 (39。select * from 出庫(kù)記錄表 where 入庫(kù)日期=:id 39。)。 .parambyname(39。id39。).value:=datetostr( )。 。 。 end。end。（6）設(shè)備情況瀏覽該模塊為顯示當(dāng)前庫(kù)中所有設(shè)備資料，以及所有入庫(kù)記錄及出庫(kù)記錄。界面如下所示：（7）關(guān)于模塊關(guān)于窗口如下所示：五、系統(tǒng)要求硬件環(huán)境要求為運(yùn)行本例，計(jì)算機(jī)應(yīng)滿足如下條件：（1）CPU:Intel Pentium 166MHZ或更高主頻的處理器，或任何運(yùn)行于Microsoft Windows NT Workstation的Alpha處理器。（2）操作系統(tǒng)：Microsoft Windows98/me/xp/2000或Microsoft Windows NT Service/Workstation 或更高版本。（3）顯示器：Micorsoft Windows 支持的VGA或分辨率更高的顯示器。（4）內(nèi)存：64MB以上。軟件環(huán)境要求本系統(tǒng)適用于Microsoft Windows 98/2000/XP下開發(fā)的，所采用的開發(fā)工具是Delphi 。所使用的數(shù)據(jù)庫(kù)是Access 2000。六、致謝七、參考文獻(xiàn)Delphi數(shù)據(jù)庫(kù)高級(jí)實(shí)例導(dǎo)航Delphi數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析Delphi入門與提高實(shí)驗(yàn)室設(shè)備管理系統(tǒng)摘要學(xué)校實(shí)驗(yàn)室設(shè)備管理系統(tǒng)是典型的設(shè)備信息管理系統(tǒng)(EMIS),要求能為學(xué)校實(shí)驗(yàn)室管理提供信息化動(dòng)態(tài)化的管理，方便學(xué)校實(shí)驗(yàn)室設(shè)備管理工作，提高學(xué)校設(shè)備管理質(zhì)量和使用效率。而且系統(tǒng)應(yīng)符合設(shè)備管理的有關(guān)規(guī)定，包括新設(shè)備的申請(qǐng)、購(gòu)買確認(rèn)、新設(shè)備信息錄入、舊設(shè)備維修和報(bào)廢及用戶管理等。能滿足日常工作的基本需要，并達(dá)到操作過程中的直觀、方便、實(shí)用、安全等有關(guān)要求。經(jīng)過分析綜合,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能夠方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象（后端采用Sybase ASA數(shù)據(jù)庫(kù)）,本系統(tǒng)采用結(jié)構(gòu)化程序設(shè)計(jì)方法，嚴(yán)格按照結(jié)構(gòu)化方法開發(fā)過程，從計(jì)劃階段到開發(fā)階段再到維護(hù)階段一步一步實(shí)現(xiàn)本系統(tǒng)的功能。關(guān)鍵詞: 設(shè)備信息管理系統(tǒng)（EMIS） Sybase ASA數(shù)據(jù)庫(kù) 快速原型法 面向?qū)ο? 數(shù)據(jù)窗口 數(shù)據(jù)對(duì)象 設(shè)備購(gòu)買申請(qǐng) 購(gòu)買批準(zhǔn)確認(rèn) 新設(shè)備信息錄入 設(shè)備維修 設(shè)備報(bào)廢 用戶登錄 用戶管理一、引言 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。實(shí)驗(yàn)室設(shè)備管理系統(tǒng)是一個(gè)眾多企業(yè)、事業(yè)單位不可缺少的部分。它的內(nèi)容對(duì)于企事業(yè)的決策者和管理者來說都至關(guān)重要,所以實(shí)驗(yàn)室設(shè)備管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理設(shè)備，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間稍長(zhǎng),將產(chǎn)生大量的冗余,文件越來越多，使人工管理沒有頭緒，這對(duì)于查找、更新和維護(hù)都帶來了很大的困難。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)校實(shí)驗(yàn)室設(shè)備管理,:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提設(shè)備管理的效率,也是正規(guī)化管理,與世界接軌的重要條件。 編寫目的　　 本系統(tǒng)的開發(fā)正是為了完成這樣的任務(wù)，使用計(jì)算機(jī)對(duì)實(shí)驗(yàn)室設(shè)備進(jìn)行管理,:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等,它在當(dāng)今信息社會(huì)已成為必要。 背景儀征XX學(xué)校是一所職業(yè)中學(xué)，擁有多個(gè)實(shí)驗(yàn)室，實(shí)驗(yàn)室的儀器設(shè)備比較齊全，也比較多，每種設(shè)備情況都不一樣。這就給實(shí)驗(yàn)室管理人員的管理帶來了諸多不便。如果管理跟不上，一旦造成錯(cuò)誤，很可能給學(xué)校造成巨大的損失。在沒有使用管理軟件前，管理人員一直為此而苦惱。今年，該校決定采用計(jì)算機(jī)技術(shù)進(jìn)行設(shè)備上面的管理。根據(jù)該校的具體情況，本系統(tǒng)在實(shí)施后，將幫助實(shí)驗(yàn)室管理人員提高工作效率?！　”卷?xiàng)目的任務(wù)提出者: 學(xué)校實(shí)驗(yàn)室設(shè)備管理人員. 開發(fā):是本人的實(shí)驗(yàn)設(shè)計(jì). 用戶:為學(xué)校實(shí)驗(yàn)室設(shè)備管理人員.　　使用該軟件系統(tǒng)同時(shí)與其他Windos系統(tǒng)兼容,能方便實(shí)驗(yàn)室設(shè)備管理人員管理.1．3功能介紹 系統(tǒng)主要功能有：（1）設(shè)備管理：添加設(shè)備、添加設(shè)備、修改設(shè)備、設(shè)備情況查詢。（2）系統(tǒng)管理：用戶管理（添加用戶、刪除用戶、更改密碼）、換名登錄、退出系統(tǒng)。（3）系統(tǒng)幫助：關(guān)于。二、系統(tǒng)框架設(shè)計(jì) 根據(jù)本系統(tǒng)的功能主框架設(shè)計(jì)如下所示： 實(shí)驗(yàn)室設(shè)備管理系統(tǒng)幫助系統(tǒng)設(shè)備管理系統(tǒng)功能幫助系統(tǒng)關(guān)于 設(shè)備資料入庫(kù)設(shè)備資料管理入庫(kù)記錄查詢?cè)O(shè)備資料出庫(kù)出庫(kù)記錄查詢?cè)O(shè)備情況瀏覽用戶管理修改密碼換名登錄退出系統(tǒng)三、數(shù)據(jù)庫(kù)設(shè)計(jì)針對(duì)該校的具體情況，本系統(tǒng)采用了Access2000 數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)路徑為\人事管理系統(tǒng)。數(shù)據(jù)庫(kù)共有4個(gè)數(shù)據(jù)庫(kù)表：用戶表、設(shè)備表、入庫(kù)記錄表、出庫(kù)記錄表。下面主要介紹一些重要數(shù)據(jù)庫(kù)表的結(jié)構(gòu)。用戶表該表主要用來存放系統(tǒng)用戶資料。其主要結(jié)構(gòu)如下所示：字段名稱數(shù)據(jù)類型字段大小說明用戶名文本10用戶的名稱口令文本10用戶的口令設(shè)備表設(shè)備表主要用來存放設(shè)備的相關(guān)信息。表結(jié)構(gòu)如下所示：字段名稱數(shù)據(jù)類型字段大小說明編號(hào)文本6設(shè)備的編號(hào)設(shè)備名稱文本20設(shè)備的名稱數(shù)量文本4設(shè)備的數(shù)量單價(jià)貨幣設(shè)備的單價(jià)總金額貨幣設(shè)備的總金額入庫(kù)記錄表入庫(kù)記錄表主要用于存放設(shè)備入庫(kù)時(shí)的相關(guān)信息。表結(jié)構(gòu)如下圖所示：字段名稱數(shù)據(jù)類型字段大小說明編號(hào)文本6設(shè)備的編號(hào)設(shè)備名稱文本20設(shè)備的名稱數(shù)量文本4設(shè)備的數(shù)量總金額貨幣總金額入庫(kù)日期日期/時(shí)間入庫(kù)的日期經(jīng)辦