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