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