【正文】 o begin close。 總金額 39。 end。 。 (39。 。 。 實(shí)驗(yàn)室設(shè)備管理系統(tǒng)是一個(gè)眾多企業(yè)、事業(yè)單位不可缺少的部分。數(shù)據(jù)庫(kù)共有 4 個(gè)數(shù)據(jù)庫(kù)表：用戶表、設(shè)備表、入庫(kù)記錄表、出庫(kù)記錄表。 使用 ADO 開發(fā)數(shù)據(jù)庫(kù)程序的步驟如下： （ 1）在窗體添加 TADOConnection 組件（名稱為 ADOConnection1），可以雙擊該組件設(shè)計(jì)其數(shù)據(jù)庫(kù)連接屬性。 (39。 end。 。 確 定 要 刪 除 本 條 記 錄 嗎 ？ 39。 該界面之確定按鈕代碼如下： procedure (Sender: TObject)。,mb_iconasterisk)。)。 數(shù)量39。).Value:= 。單價(jià) 39。 [1].Value :=。 該程序?yàn)榕袛嘣摦a(chǎn)品是否在設(shè)備庫(kù)中有庫(kù)存，如果有庫(kù)存，則會(huì)使原有的庫(kù)存產(chǎn)生改變。 begin :=inttostr(strtoint( )*strtoint( ))。 execsql。 提示39。 沒(méi) 有 檢 索 到 該 設(shè) 備 信 息 39。).Value :=。 。select * from 入庫(kù)記錄表 where 入庫(kù)日期 =:id 39。)。)。數(shù)量 39。select * from 出庫(kù)記錄表 39。 。id39。 end。 （ 6）設(shè)備情況瀏覽 該模塊為顯示當(dāng)前庫(kù)中所有設(shè)備資料，以及所有入庫(kù)記錄及出庫(kù)記錄。這些優(yōu)點(diǎn)能夠極大地提設(shè)備管理的效率 ,也是正規(guī)化管理 ,與世界接軌的重要條件。 表結(jié)構(gòu)如下所示： 字段名稱 數(shù)據(jù)類型 字段大小 說(shuō)明 編號(hào) 文本 6 設(shè)備的 編號(hào) 設(shè)備名稱 文本 20 設(shè)備的名稱 數(shù)量 文本 4 設(shè)備的數(shù)量 單價(jià) 貨幣 設(shè)備的單價(jià) 總金額 貨幣 設(shè)備的總金額 入庫(kù)記錄表 入庫(kù)記錄表主要用于存放設(shè)備入庫(kù)時(shí)的相關(guān)信息。選擇好后，單擊“下一步”按鈕，進(jìn)入下圖所示界面。 。,[loPartialkey])。 var Key: Char)。 end。提示 39。 “確定”按鈕的程序如下： procedure (Sender: TObject)。 end。 (39。 post。).Value:=strtoint()*strtoint() 。 [5].Value := 。 具體該程序的代碼如下所示： procedure (Sender: TObject)。 end。 add(39。 execsql。 begin :=inttostr(strtoint( )*strtoint( ))。 該程序?yàn)榕袛嘣摦a(chǎn)品是否在設(shè)備庫(kù)中有庫(kù)存，如果有庫(kù)存，則會(huì)使原有的庫(kù)存產(chǎn)生改變。 [1].Value :=。單價(jià) 39。).Value:= 。 數(shù)量39。)。,mb_iconasterisk)。 該界面之確定按鈕代碼如下： procedure (Sender: TObject)。 確 定 要 刪 除 本 條 記 錄 嗎 ？ 39。 。 end。 (39。 使用 ADO 開發(fā)數(shù)據(jù)庫(kù)程序的步驟如下： （ 1）在窗體添加 TADOConnection 組件（名稱為 ADOConnection1），可以雙擊該組件設(shè)計(jì)其數(shù)據(jù)庫(kù)連接屬性。數(shù)據(jù)庫(kù)共有 4 個(gè)數(shù)據(jù)庫(kù)表：用戶表、設(shè)備表、入庫(kù)記錄表、出庫(kù)記錄表。 實(shí)驗(yàn)室設(shè)備管理系統(tǒng)是一個(gè)眾多企業(yè)、事業(yè)單位不可缺少的部分。 。 。 (39。 。 end。 總金額 39。 with adoquery1 do begin close。 begin if =39。 begin inherited。//打印窗口的代碼如下 。select * from 設(shè)備表 where 編號(hào) =:d39。id39。 procedure (Sender: TObject)。 parameters[1].value:=。//當(dāng)修改過(guò)價(jià)格或數(shù)量之后，總 金額會(huì)智能改變。 。 。 (39。編號(hào) 39。).Value:=。 。 messagebox(,39。 :=39。 。 。 。//讓窗體在顯示之后，框中有用戶選擇。 adodataset。 本項(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è)備情況查詢。而且系統(tǒng)應(yīng)符合設(shè)備管理的有關(guān)規(guī)定，包括新設(shè)備的申請(qǐng)、購(gòu)買確認(rèn)、新設(shè)備信息錄入、舊設(shè)備維修和報(bào)廢 及用戶管理等。)。).AsString 。 end。 [3].Value :=strtoint()*strtoint()。 (39。).Value :=strtoint((39。 。 end。 end。 end。設(shè)備名稱 39。 (39。 execsql。insert into 設(shè)備表 values(:p0,:p1,:P2,:p3,:p4)39。 := [3].AsString 。 。 。).Value:= 。).asstring)*strtoint((39。select * from 設(shè)備表 where 編號(hào) =:id39。該記錄不能為空 39。 。 begin 。主程序界面主要實(shí)現(xiàn)如下功能： 使用菜單操作、顯示系統(tǒng)日期、單位信息?？诹?39。).AsString 。系統(tǒng)登錄窗口主要實(shí)現(xiàn)如下功能： 以圖標(biāo)列表形式顯示操作員，并憑口令進(jìn)入系統(tǒng)。我們這里使用 ADO 開發(fā)數(shù)據(jù)庫(kù)技術(shù)。如果管理跟不上，一旦造成錯(cuò)誤，很可能給學(xué)校造成巨大的損失。能滿足日常工作的基本需要，并達(dá)到操作過(guò)程中的直觀、方便、實(shí)用、安全等有關(guān)要求。 （ 2）系統(tǒng)管理：用戶管理（添加用戶、刪除用戶、更改密碼）、換名登錄、退出系統(tǒng)。 adotable。 var list_a:TlistItem。 end。 。//添加用戶窗口顯示 end。39。您的密碼修改成功！ 39。 end。 。).Value:= 。數(shù)量 39。 。 。 begin :=inttostr(strtoint( )*strtoint( ))。 parameters[2].value:=。//刪除記錄 begin if (39。).Value :=。)。 end。 with adoquery1 do begin close。39。 。).Value:=strtoint((39。 with adoquery2 do 。 end。select * from 設(shè)備表 where 編號(hào) =:id39。 exit。 。它的內(nèi)容對(duì)于企事業(yè)的決策者和管理者來(lái)說(shuō)都至關(guān)重要 ,所以實(shí)驗(yàn)室設(shè)備管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍? 下面主要介紹一些重要數(shù)據(jù)庫(kù)表的結(jié)構(gòu)。如下圖所示： 選擇 User Connection String，然后單擊 Build… 按鈕，進(jìn)入下圖所示的界面。select * from 用戶表 39。 procedure (Sender: Tobject)。 end。,39。 begin if then begin messagebox(,39。 close。//判斷設(shè)備編號(hào)是否為 6 位 。).Value :=strtoint()+strtoint((39。 (39。).Value:= 。 [2].Value :=。 （ 2）設(shè)備資料管理 該程序模塊的用法如下：先在左邊選中某個(gè)數(shù)據(jù)，如果想修改，則點(diǎn)擊修改按鈕，則左邊選中數(shù)據(jù)在右邊顯示出詳細(xì)信息。 end。 end。,mb_okcancel+mb_iconinformation)=id_ok then with adoquery1 do if isempty=false then delete。,39。 open。 (39。)。 exit。 (39。).asstring)。)。 。).Value:=。 （ 5）出庫(kù)記錄查詢 該項(xiàng)功能可以查詢歷來(lái)出庫(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 處理器。 編寫目的 本系統(tǒng)的開發(fā)正是為了完成這樣的任務(wù)，使用計(jì)算機(jī)對(duì)實(shí)驗(yàn)室設(shè)備進(jìn)行管理 ,具有手工管理所無(wú)法比擬 的優(yōu)點(diǎn) .例如 :檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等 ,它在當(dāng)今信息社會(huì)已成為必要。 表結(jié)構(gòu)如下圖所示： 字段名稱 數(shù)據(jù)類型 字段大小 說(shuō)明 編號(hào) 文本 6 設(shè)備的編號(hào) 設(shè)備名稱 文本 20 設(shè)備的名稱 數(shù)量 文本 4 設(shè)備的數(shù)量 總金額 貨幣 總金額 入庫(kù)日期 日期 /時(shí)間 入庫(kù)的日期 經(jīng)辦人 文本 10 經(jīng)手辦此事的人名 備注 備注 備注 出庫(kù)記錄表 出庫(kù)記錄表主要用 于存放設(shè)備出庫(kù)時(shí)的相關(guān)信息。 點(diǎn)右邊的 … 按鈕，則進(jìn)入選擇數(shù)據(jù)庫(kù)頁(yè)面。//清空列表 while not do//將所有操作人員加入到列表 begin list_a:=。 end。//執(zhí)行登錄操作 begin if key=13 then 。 end。,mb_iconerror)。 begin if =39。 with adoquery1 do begin close。 總金額 39。 end else begin 。 post。 [6].Value := 。//修改按鈕的程序代碼 begin :=[0].AsString 。 with adoquery1 do begin close。select * from 設(shè)備表 39。 parameters[4].value:=。 procedure (Sender: TObject)。 end。 [0].Value :=。 (39。設(shè)備名稱 39。 (39。請(qǐng)輸入 6 位設(shè)備編號(hào) 39。信息 39。 end。 begin if messagebox(,39。 。//退出 begin close。 。 adostoredproc。 二、系統(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)。 關(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ā)揮著越來(lái)越重要的作用。).value:=datetostr( )。)。 。 [6].Value := 。 post。 (39。 end。 程序代碼具體如下： procedure (Sender: TObject)。 程序代碼如下所示： procedure (Sender: TObject)。 procedure (Sender: TObject)。 (39。 (39。 end。 parameters[0].value:=。 procedure (Sender: TObject)。 。)。).value:= 。 (39。id39。 。 。 。 begin 。)。 end。 程序代碼如下： procedure (Sender: TObject)。 Adomand。根據(jù)該校的具體情況，本系統(tǒng)在實(shí)施后，將幫助實(shí)驗(yàn)室管理人員提高工作效率。 六、致謝 七、參考文獻(xiàn) Delphi數(shù)據(jù)庫(kù)高級(jí)實(shí)例導(dǎo)航 Delphi數(shù)據(jù)庫(kù)開發(fā)實(shí)例解析 Delphi入門與提高