【正文】 )。 parameters[3].value:=。 with sql do begin clear。 end。 :=[1].AsString 。 。 。 。 end。).Value:= 。 (39。 (39。).Value:=strtoint((39。 if recordcount0 then begin 。 。 if length(trim())6 then begin showmessage(39。39。,39。 :=39。 。 添加用戶窗口如下所示： （ 2）修改口令窗口如下所示： 設(shè)備管理模塊的設(shè)計(jì) （ 1）設(shè)備資料入庫(kù) 輸入用戶名和密碼，點(diǎn)擊確定。 刪除按鈕的程序如下： procedure (Sender: TObject)。 end。 end else begin 。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 :=(39。 begin 。選擇好數(shù)據(jù)庫(kù)，點(diǎn)擊測(cè)試連接按鈕。 adoquery。 表結(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)手辦此事的人名 備注 備注 備注 中數(shù)據(jù)庫(kù)的連接方式。 （ 3）系統(tǒng)幫助：關(guān)于。 背景 儀征 XX學(xué)校是一所職業(yè)中學(xué)，擁有多個(gè)實(shí)驗(yàn)室，實(shí)驗(yàn)室的儀器設(shè)備比較齊全，也比較多，每種設(shè)備情況都不一樣。 經(jīng)過(guò)分析綜合 ,使用 Sybase 公司的 作為前端開(kāi)發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能夠方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象（后端采用 Sybase ASA數(shù)據(jù)庫(kù)） ,本系統(tǒng)采用結(jié)構(gòu)化程序設(shè)計(jì)方法，嚴(yán)格按照結(jié)構(gòu)化方法開(kāi)發(fā)過(guò)程，從計(jì)劃階段到開(kāi)發(fā)階段再到維護(hù)階段一步一步實(shí)現(xiàn)本系統(tǒng)的功能。 （ 2 ） 操 作 系 統(tǒng) ： Microsoft Windows98/me/xp/2020 或 Microsoft Windows NT Service/Workstation 或更高版本。id39。具體界面及設(shè)計(jì)如下所示： 對(duì)確定按鈕的編程如下： procedure (Sender: TObject)。無(wú)此設(shè)備編號(hào) ,請(qǐng)查實(shí)再來(lái) !退出請(qǐng)按右上角的 X 按鈕 !39。 。 begin with adoquery1 do begin 。 。 [5].Value := 。 。).Value:=。 (39。).asstring)strtoint()。id39。 exit。 。 界面如下所示： 該模塊具有智能化，會(huì)根據(jù)你輸入的設(shè)備編號(hào)，自動(dòng)得出設(shè)備名稱。 .parambyname(39。界面如下所示： 可按照入庫(kù)時(shí)間來(lái)查詢。select * from 設(shè)備表 39。 end。 if recordcount=0 then begin (39。 。 提示39。)。 end。 end。 with adoquery1 do begin close。 end。 procedure (Sender: TObject)。 end。用戶修改之后，點(diǎn)擊保存即可。 。 [3].Value :=strtoint()*strtoint()。select * from 入庫(kù)記錄表 39。 (39。設(shè)備名稱 39。單價(jià) 39。).asstring)。數(shù)量 39。 (39。 。 exit。 end。 [1].Value:=。請(qǐng)重新確認(rèn)新密碼！ 39。39。 請(qǐng) 確 認(rèn)39。 系統(tǒng)管理功能模塊的設(shè)計(jì) （ 1）用戶管理 添加按鈕的代碼如下： procedure (Sender: TObject)。 end。密碼不正確請(qǐng)重新輸入 !39。//選擇操作員 begin if Nil then//如果選擇不為空 (39。 。)。 系統(tǒng)登錄界面如下圖所示： 具體實(shí)現(xiàn)如下： 添加新窗體，設(shè)置窗體 caption 屬性為登陸窗口，向窗體中添加相 關(guān)控件。 使用 OLE DB 連接能夠發(fā)揮更大的效率。 Adoconion。 用戶表 該表主要用來(lái)存放系統(tǒng)用戶資料。今年，該校決定采用計(jì)算機(jī)技術(shù)進(jìn)行設(shè)備上面的管理。但一直以來(lái)人們使用傳統(tǒng)人工的方式管理設(shè)備， 這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 ,另外時(shí)間稍長(zhǎng) ,將產(chǎn)生大量的冗余 ,文件越來(lái)越多，使人工管理沒(méi)有頭緒，這對(duì)于查找、更新和維護(hù)都帶來(lái)了很大的困難。 所使用的數(shù)據(jù)庫(kù)是 Access 2020。 end。 (39。 end。 :=(39。)。 procedure (Sender: TObject)。 。 [1].Value :=。 。設(shè)備名稱 39。 單價(jià)39。 (39。 (39。請(qǐng)輸入 6 位設(shè)備編號(hào) 39。 then begin showmessage(39。 。 。 procedure (Sender: TObject)。 procedure (Sender: TObject)。,mb_ok+mb_iconinformation)。 (39。 end。 open。 then begin with adoquery1 do begin close。 確 定 要 刪 除 這 條 記 錄 嗎 39。)。 parameters[3].value:=。 with sql do begin clear。 end。 :=[1].AsString 。 。 。 。 end。).Value:= 。 (39。 (39。).Value:=strtoint((39。 if recordcount0 then begin 。 。 if length(trim())6 then begin showmessage(39。39。,39。 :=39。 。 添加用戶窗口如下所示： （ 2）修改口令窗口如下所示： 設(shè)備管理模塊的設(shè)計(jì) （ 1）設(shè)備資料入庫(kù) 輸入用戶名和密碼，點(diǎn)擊確定。 刪除按鈕的程序如下： procedure (Sender: TObject)。 end。 end else begin 。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 :=(39。 begin 。選擇好數(shù)據(jù)庫(kù)，點(diǎn)擊測(cè)試連接按鈕。 adoquery。 表結(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)手辦此事的人名 備注 備注 備注 中數(shù)據(jù)庫(kù)的連接方式。 （ 3）系統(tǒng)幫助：關(guān)于。 背景 儀征 XX學(xué)校是一所職業(yè)中學(xué)，擁有多個(gè)實(shí)驗(yàn)室，實(shí)驗(yàn)室的儀器設(shè)備比較齊全，也比較多，每種設(shè)備情況都不一樣 。 經(jīng)過(guò)分析綜合 ,使用 Sybase 公司的 作為前端開(kāi)發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能夠方 便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象（后端采用 Sybase ASA數(shù)據(jù)庫(kù)） ,本系統(tǒng)采用結(jié)構(gòu)化程序設(shè)計(jì)方法，嚴(yán)格按照結(jié)構(gòu)化方法開(kāi)發(fā)過(guò)程，從計(jì)劃階段到開(kāi)發(fā)階段再到維護(hù)階段一步一步實(shí)現(xiàn)本系統(tǒng)的功能。 關(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)廢 用戶登錄 用戶管理 一、引言 隨著科學(xué)技術(shù)的不斷提高 ,計(jì)算機(jī)科學(xué)日漸成熟 ,其強(qiáng)大的功能已 為人們深刻認(rèn)識(shí)它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。這就給實(shí)驗(yàn)室管理人員的管理帶來(lái)了諸多不便。 二、系統(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)。 Delphi 可以使用多種數(shù)據(jù)庫(kù)。 adostoredproc。 四、詳細(xì)設(shè)計(jì) 系統(tǒng)登錄界面 設(shè)計(jì) 程序啟動(dòng)后，首先進(jìn)入“系統(tǒng)登錄”界面驗(yàn)證操作員密碼。 。用戶名 39。//退出 begin close。//如果密碼不正確 begin if (39。 。 主窗體界面設(shè)計(jì) 程序啟動(dòng)后，在登錄操作員密碼后，將進(jìn)入主程序界面。 begin if messagebox(,39。 代碼如下： procedure (Sender: TObject)。 end。39。信息 39。 then begin showmessage(39。請(qǐng)輸入 6 位設(shè)備編號(hào) 39。 (39。 (39。 單價(jià)39。設(shè)備名稱 39。編號(hào) 39。 (39。 with adoquery2 do 。 [0].Value :=。 end。 end。 := [2].AsString 。 procedure (Sender: TObject)。 add(39。 parameters[4].value:=。 end。,39。 。 if recordcount=0 then begin (39。 if =39。d39。 end。 begin 。//刷新 begin 。 (39。 end。該記錄不能為空 39。)。select * from 設(shè)備表 where 編號(hào) =:id39。 數(shù)量 39。).asstring)*strtoint((39。).Value:= 。 (39。 [2].Value :=。 。 begin close。 (39。單價(jià) 39。 end。select * from 出庫(kù)記錄表 where 入庫(kù)日期 =:id 39。 end。 六、致謝 七、參考文獻(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ì)量和使用效率。 作為計(jì)算機(jī)應(yīng)用的一部分 ,使用計(jì)算機(jī)對(duì)學(xué)校實(shí)驗(yàn)室設(shè)備管理 ,具有手工管理所無(wú)法比擬的優(yōu)點(diǎn) .例如 :檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。根據(jù)該校的具體情況，本系統(tǒng)在實(shí)施后，將幫助實(shí)驗(yàn)室管理人員提高工作效率。 其主要結(jié)構(gòu)如下所示： 實(shí)驗(yàn)室設(shè)備管理系統(tǒng) 用戶管理 修改密碼 換名登錄 退出系統(tǒng) 系統(tǒng)功能 設(shè)備管理 設(shè)備資料入庫(kù) 設(shè)備資料管理 入庫(kù)記錄查詢 設(shè)備資料出庫(kù) 出庫(kù)記錄查詢 設(shè)備情況瀏覽 幫助系統(tǒng) 關(guān)于 幫助系統(tǒng) 字段名稱 數(shù)據(jù)類型 字段大小 說(shuō)明 用戶名 文本 10 用戶的名稱 口令