【正文】 ginif =39。 then begin showmessage(39。)。 。 end。請(qǐng)輸入6位設(shè)備編號(hào)39。 。 exit。 with adoquery1 do begin close。 (39。)。id39。 。 (39。).Value :=strtoint((39。).asstring)strtoint()?？偨痤~39。單價(jià)39。數(shù)量39。 (39。).Value:= 。設(shè)備名稱39。 (39。).Value:=。 end。 。select * from 出庫記錄表39。 。 。 [1].Value :=。 [3].Value :=strtoint()*strtoint()。 [5].Value := 。 。 。 。 。 。procedure (Sender: TObject)。end。begin with adoquery1 do begin 。 (39。)。id39。 。設(shè)備名稱39。 :=(39。).AsString 。無此設(shè)備編號(hào),請(qǐng)查實(shí)再來!退出請(qǐng)按右上角的X按鈕!39。 。 end。end。具體界面及設(shè)計(jì)如下所示：對(duì)確定按鈕的編程如下：procedure (Sender: TObject)。with adoquery1 dobegin close。 (39。)。id39。 。 end。（6）設(shè)備情況瀏覽該模塊為顯示當(dāng)前庫中所有設(shè)備資料，以及所有入庫記錄及出庫記錄。（2）操作系統(tǒng)：Microsoft Windows98/me/xp/2000或Microsoft Windows NT Service/Workstation 或更高版本。（4）內(nèi)存：64MB以上。所使用的數(shù)據(jù)庫是Access 2000。而且系統(tǒng)應(yīng)符合設(shè)備管理的有關(guān)規(guī)定，包括新設(shè)備的申請(qǐng)、購買確認(rèn)、新設(shè)備信息錄入、舊設(shè)備維修和報(bào)廢及用戶管理等。經(jīng)過分析綜合,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能夠方便而簡(jiǎn)潔操縱數(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)的功能。一、引言 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。它的內(nèi)容對(duì)于企事業(yè)的決策者和管理者來說都至關(guān)重要,所以實(shí)驗(yàn)室設(shè)備管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。作為?jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)校實(shí)驗(yàn)室設(shè)備管理,:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。 編寫目的　　 本系統(tǒng)的開發(fā)正是為了完成這樣的任務(wù)，使用計(jì)算機(jī)對(duì)實(shí)驗(yàn)室設(shè)備進(jìn)行管理,:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等,它在當(dāng)今信息社會(huì)已成為必要。這就給實(shí)驗(yàn)室管理人員的管理帶來了諸多不便。在沒有使用管理軟件前，管理人員一直為此而苦惱。根據(jù)該校的具體情況，本系統(tǒng)在實(shí)施后，將幫助實(shí)驗(yàn)室管理人員提高工作效率。（2）系統(tǒng)管理：用戶管理（添加用戶、刪除用戶、更改密碼）、換名登錄、退出系統(tǒng)。二、系統(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è)備資料入庫設(shè)備資料管理入庫記錄查詢?cè)O(shè)備資料出庫出庫記錄查詢?cè)O(shè)備情況瀏覽用戶管理修改密碼換名登錄退出系統(tǒng)三、數(shù)據(jù)庫設(shè)計(jì)針對(duì)該校的具體情況，本系統(tǒng)采用了Access2000 數(shù)據(jù)庫，數(shù)據(jù)庫路徑為\人事管理系統(tǒng)。下面主要介紹一些重要數(shù)據(jù)庫表的結(jié)構(gòu)。其主要結(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ù)量總金額貨幣總金額入庫日期日期/時(shí)間入庫的日期經(jīng)辦人文本10經(jīng)手辦此事的人名備注備注備注出庫記錄表出庫記錄表主要用于存放設(shè)備出庫時(shí)的相關(guān)信息。 Delphi可以使用多種數(shù)據(jù)庫。使用ADO開發(fā)數(shù)據(jù)庫程序，通常需要以下組件： Datasource。 Adomand。 adotable。 adostoredproc。如下圖所示： 選擇User Connection String，然后單擊Build…按鈕，進(jìn)入下圖所示的界面?，F(xiàn)在我們使用的是Access2000，則可以選擇Microsoft DB Provider。點(diǎn)右邊的…按鈕，則進(jìn)入選擇數(shù)據(jù)庫頁面。四、詳細(xì)設(shè)計(jì)系統(tǒng)登錄界面設(shè)計(jì)程序啟動(dòng)后，首先進(jìn)入“系統(tǒng)登錄”界面驗(yàn)證操作員密碼。操作員錯(cuò)誤或密碼錯(cuò)誤提醒并返回錯(cuò)誤點(diǎn)。程序代碼如下：procedure (Sender: TObject)。var list_a:TlistItem。 。select * from 用戶表39。//選擇所有操作員 。//清空列表 while not do//將所有操作人員加入到列表 begin list_a:=。用戶名39。 :=1。 end。end。//退出beginclose。procedure (Sender: Tobject)。用戶名39。end。//如果密碼不正確beginif (39。).AsString then begin showmessage(39。)。 。 。 end。procedure (Sender: TObject。//執(zhí)行登錄操作beginif key=13 then 。主窗體界面設(shè)計(jì)程序啟動(dòng)后，在登錄操作員密碼后，將進(jìn)入主程序界面。通過主界面，退出程序。begin。//添加用戶窗口顯示end。begin if messagebox(,39。,39。,mb_okcancel)=idok then begin 。end。代碼如下：procedure (Sender: TObject)。 :=39。 。39。end。begin if then begin messagebox(,39。,39。,mb_iconerror)。39。 end else begin 。 。您的密碼修改成功！39。信息39。 close。end。beginif =39。 then begin showmessage(39。)。 。 end。請(qǐng)輸入6位設(shè)備編號(hào)39。//判斷設(shè)備編號(hào)是否為6位 。 exit。with adoquery1 do begin close。 (39。)。id39。 。 (39。).Value :=strtoint()+strtoint((39。).asstring)?？偨痤~39。單價(jià)39。數(shù)量39。 (39。).Value:= 。設(shè)備名稱39。 (39。).Value:=。 end else begin 。編號(hào)39。 (39。).value:= 。數(shù)量39。 (39。).Value:= ?？偨痤~39。 post。with adoquery2 do 。 (39。)。 。 [0].Value :=。 [2].Value :=。 [4].Value :=date。 [6].Value := 。end。 。 。 。end。（2）設(shè)備資料管理該程序模塊的用法如下：先在左邊選中某個(gè)數(shù)據(jù)，如果想修改，則點(diǎn)擊修改按鈕，則左邊選中數(shù)據(jù)在右邊顯示出詳細(xì)信息。另外此界面中還實(shí)現(xiàn)了查詢、打印功能。//修改按鈕的程序代碼begin :=[0].AsString 。 := [2].AsString 。 := [4].AsString 。procedure (Sender: TObject)。begin :=inttostr(strtoint( )*strtoint( ))。procedure (Sender: TObject)。end。//保存按鈕的程序代碼如下beginwith adoquery1 do begin 。with adoquery1 do begin close。 add(39。)。 parameters[0].value:=。 parameters[2].value:=。 parameters[4].value:=。 end。 with SQL do begin clear。select * from 設(shè)備表39。 end。 open。end。//刪除記錄beginif (39。,39。,mb_okcancel+mb_iconinformation)=id_ok thenwith adoquery1 do if isempty=false then delete。procedure (Sender: TObject)。編號(hào)39。 。select * from 設(shè)備表 where 編號(hào)=:id39。 (39。).Value :=。 if recordcount=0 then begin (39。,39。,mb_ok+mb_iconinformation)。 end。 if =39。 then begin with adoquery1 do begin close。 (39。)。d39。 open。沒有檢索到該設(shè)備信息39。提示39。 end。 end。procedure (Sender: TObject)。end。begin。(39。)。end。//刷新begin 。打印窗口如下所示：（3）入庫記錄查詢功能為可查詢歷來設(shè)備入庫的具體記錄。程序代碼如下所示：procedure (Sender: TObject)。with adoquery1 dobegin close。 (39。)。id39。 。 end。（4）設(shè)備資料出庫功能為對(duì)設(shè)備庫中的設(shè)備出庫操作。程序代碼具體如下：procedure (Sender: TObject)。39。該記錄不能為空39。 exit。 。if length(trim())6 then begin showmessage(39。)。 。 end。 。select * from 設(shè)備表 where 編號(hào)=:id39。 (39。).Value:=。 if recordcount0 then begin 。數(shù)量39。數(shù)量39。 (39。).Value:=strtoint((39。).asstring)*strtoint((39。).asstring)。編號(hào)39。 (39。).Value:= 。單價(jià)39。 post。with adoquery2 do 。 (39。)。 。 [0].Value :=。 [2].Value :=。 [4].Value :=date。 [6].Value := 。end。 。 。 。end。beginclose。procedure (Sender: TObject)。 。select * from 設(shè)備表 where 編號(hào)=:id39。 (39。).Value:=。 if recordcount0 then begin :=(39。).AsString 。單價(jià)39。 end else begin showmessage(39。)。 exit。 end。（5）出庫記錄查詢?cè)擁?xiàng)功能可以查詢歷來出庫記錄。begininherited。 。select * from 出庫記錄表 where 入庫日期=:id 39。 .parambyname(39。).value:=datetostr( )。 。end。界面如下所示：（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處理器。（3）顯示器：Micorsoft Windows 支持的VGA或分辨率更高的顯示器。軟件環(huán)境要求本系統(tǒng)適用于Microsoft Windows 98/2000/XP下開發(fā)的，所采用的開發(fā)工具是Delphi 。六、致謝