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