【正文】 。 [0].Value :=。 [1].Value :=。 [2].Value :=。 [3].Value :=strtoint()*strtoint()。 [4].Value :=date。 [5].Value := 。 [6].Value := 。 。 end。 。 。 。 。 。 。 。 end。 該程序?yàn)榕袛嘣摦a(chǎn)品是否在設(shè)備庫中有庫存，如果有庫存，則會(huì)使原有的庫存產(chǎn)生改變。 （ 2）設(shè)備資料管理 該程序模塊的用法如下：先在左邊選中某個(gè)數(shù)據(jù)，如果想修改，則點(diǎn)擊修改按鈕，則左邊選中數(shù)據(jù)在右邊顯示出詳細(xì)信息。用戶修改之后，點(diǎn)擊保存即可。 另外此界面中還實(shí)現(xiàn)了查詢、打印功能。 具體該程序的代碼如下所示： procedure (Sender: TObject)。//修改按鈕的程序代碼 begin :=[0].AsString 。 :=[1].AsString 。 := [2].AsString 。 := [3].AsString 。 := [4].AsString 。 end。 procedure (Sender: TObject)。//當(dāng)修改過價(jià)格或數(shù)量之后，總 金額會(huì)智能改變。 begin :=inttostr(strtoint( )*strtoint( ))。 end。 procedure (Sender: TObject)。 begin :=inttostr(strtoint( )*strtoint( ))。 end。 procedure (Sender: TObject)。//保存按鈕的程序代碼如下 begin with adoquery1 do begin 。 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)。//刪除記錄 begin if (39。 確 定 要 刪 除 這 條 記 錄 嗎 39。,39。 提示39。,mb_okcancel+mb_iconinformation)=id_ok then with adoquery1 do if isempty=false then delete。 end。 procedure (Sender: TObject)。 begin if =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）入庫記錄查詢 功能為可查詢歷來設(shè)備入庫的具體記錄。界面如下所示： 可按照入庫時(shí)間來查詢。 程序代碼如下所示： procedure (Sender: TObject)。 begin inherited。 with adoquery1 do begin close。 。 (39。select * from 入庫記錄表 where 入庫日期 =:id 39。)。 .parambyname(39。id39。).value:=datetostr( )。 。 。 end。 end。 （ 4）設(shè)備資料出庫 功能為對(duì)設(shè)備庫中的設(shè)備出庫操作。 界面如下所示： 該模塊具有智能化，會(huì)根據(jù)你輸入的設(shè)備編號(hào)，自動(dòng)得出設(shè)備名稱。 程序代碼具體如下： procedure (Sender: TObject)。 begin if =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 出庫記錄表 39。)。 。 。 。 [0].Value :=。 [1].Value :=。 [2].Value :=。 [3].Value :=strtoint()*strtoint()。 [4].Value :=date。 [5].Value := 。 [6].Value := 。 。 end。 。 。 。 。 。 。 。 end。 procedure (Sender: TObject)。 begin close。 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）出庫記錄查詢 該項(xiàng)功能可以查詢歷來出庫記錄。具體界面及設(shè)計(jì)如下所示： 對(duì)確定按鈕的編程如下： procedure (Sender: TObject)。 begin inherited。 with adoquery1 do begin close。 。 (39。select * from 出庫記錄表 where 入庫日期 =:id 39。)。 .parambyname(39。id39。).value:=datetostr( )。 。 。 end。 end。 （ 6）設(shè)備情況瀏覽 該模塊為顯示當(dāng)前庫中所有設(shè)備資料，以及所有入庫記錄及出庫記錄。 界面如下所示： （ 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/2020 或 Microsoft Windows NT Service/Workstation 或更高版本。 （ 3）顯示器： Micorsoft Windows 支持的 VGA或分辨率更高的顯示器。 （ 4）內(nèi)存： 64MB 以上。 軟件環(huán)境要求 本系統(tǒng)適用于 Microsoft Windows 98/2020/XP 下開發(fā)的，所采用的開發(fā)工具是 Delphi 。 所使用的數(shù)據(jù)庫是 Access 2020。 六、致謝 七、參考文獻(xiàn) Delphi數(shù)據(jù)庫高級(jí)實(shí)例導(dǎo)航 Delphi數(shù)據(jù)庫開發(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)、購買確認(rèn)、新設(shè)備信息錄入、舊設(shè)備維修和報(bào)廢 及用戶管理等。能滿足日常工作的基本需要，并達(dá)到操作過程中的直觀、方便、實(shí)用、安全等有關(guān)要求。 經(jīng)過分析綜合 ,使用 Sybase 公司的 作為前端開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能夠方便而簡潔操縱數(shù)據(jù)庫的智能化對(duì)象（后端采用 Sybase ASA數(shù)據(jù)庫） ,本系統(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ù)庫 快速原型法 面向?qū)ο? 數(shù)據(jù)窗口 數(shù)據(jù)對(duì)象 設(shè)備購買申請(qǐng) 購買批準(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)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍５恢币詠砣藗?