【正文】 end。 end。 (39。 。 (39。).asstring)*strtoint((39。select * from 設(shè)備表 where 編號=:id39。該記錄不能為空39。 (39。begin。d39。 if recordcount=0 then begin (39。,39。 parameters[4].value:=。procedure (Sender: TObject)。end。 [0].Value :=。 (39。設(shè)備名稱39。 (39。請輸入6位設(shè)備編號39。信息39。end。begin if messagebox(,39。 。//退出beginclose。 。 adostoredproc。二、系統(tǒng)框架設(shè)計 根據(jù)本系統(tǒng)的功能主框架設(shè)計如下所示： 實驗室設(shè)備管理系統(tǒng)幫助系統(tǒng)設(shè)備管理系統(tǒng)功能幫助系統(tǒng)關(guān)于 設(shè)備資料入庫設(shè)備資料管理入庫記錄查詢設(shè)備資料出庫出庫記錄查詢設(shè)備情況瀏覽用戶管理修改密碼換名登錄退出系統(tǒng)三、數(shù)據(jù)庫設(shè)計針對該校的具體情況，本系統(tǒng)采用了Access2000 數(shù)據(jù)庫，數(shù)據(jù)庫路徑為\人事管理系統(tǒng)。一、引言 隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認(rèn)識它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。 。 。 (39。 。 end。總金額39。 with adoquery1 do begin close。beginif =39。begininherited。//打印窗口的代碼如下 。select * from 設(shè)備表 where 編號=:d39。id39。procedure (Sender: TObject)。 parameters[1].value:=。//當(dāng)修改過價格或數(shù)量之后，總金額會智能改變。 。 。 (39。編號39。).Value:=。 。 messagebox(,39。 :=39。 。 。//讓窗體在顯示之后，框中有用戶選擇。 adodataset?！　”卷椖康娜蝿?wù)提出者: 學(xué)校實驗室設(shè)備管理人員. 開發(fā):是本人的實驗設(shè)計. 用戶:為學(xué)校實驗室設(shè)備管理人員.　　使用該軟件系統(tǒng)同時與其他Windos系統(tǒng)兼容,能方便實驗室設(shè)備管理人員管理.1．3功能介紹 系統(tǒng)主要功能有：（1）設(shè)備管理：添加設(shè)備、添加設(shè)備、修改設(shè)備、設(shè)備情況查詢。能滿足日常工作的基本需要，并達(dá)到操作過程中的直觀、方便、實用、安全等有關(guān)要求。 .parambyname(39。 end else begin showmessage(39。procedure (Sender: TObject)。 [4].Value :=date。單價39。數(shù)量39。 。（4）設(shè)備資料出庫功能為對設(shè)備庫中的設(shè)備出庫操作。打印窗口如下所示：（3）入庫記錄查詢功能為可查詢歷來設(shè)備入庫的具體記錄。 end。 then begin with adoquery1 do begin close。select * from 設(shè)備表 where 編號=:id39。 open。)。 := [4].AsString 。 。 (39。 (39。數(shù)量39。)。)。 end else begin 。 :=39。通過主界面，退出程序。).AsString then begin showmessage(39。 :=1。操作員錯誤或密碼錯誤提醒并返回錯誤點。使用ADO開發(fā)數(shù)據(jù)庫程序，通常需要以下組件： Datasource。在沒有使用管理軟件前，管理人員一直為此而苦惱。實驗室設(shè)備管理系統(tǒng)摘要學(xué)校實驗室設(shè)備管理系統(tǒng)是典型的設(shè)備信息管理系統(tǒng)(EMIS),要求能為學(xué)校實驗室管理提供信息化動態(tài)化的管理，方便學(xué)校實驗室設(shè)備管理工作，提高學(xué)校設(shè)備管理質(zhì)量和使用效率。今年，該校決定采用計算機技術(shù)進(jìn)行設(shè)備上面的管理。 Adoconnetion。系統(tǒng)登錄界面如下圖所示：具體實現(xiàn)如下：添加新窗體，設(shè)置窗體caption屬性為登陸窗口，向窗體中添加相關(guān)控件。 。密碼不正確請重新輸入!39。系統(tǒng)管理功能模塊的設(shè)計（1）用戶管理添加按鈕的代碼如下：procedure (Sender: TObject)。39。 [1].Value:=。 exit。 (39。).asstring)。設(shè)備名稱39。select * from 入庫記錄表39。 。end。 end。 end。)。 。 end。界面如下所示：可按照入庫時間來查詢。界面如下所示：該模塊具有智能化，會根據(jù)你輸入的設(shè)備編號，自動得出設(shè)備名稱。 exit。).asstring)strtoint()。).Value:=。 [5].Value := 。begin with adoquery1 do begin 。無此設(shè)備編號,請查實再來!退出請按右上角的X按鈕!39。id39。經(jīng)過分析綜合,利用其提供的各種面向?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)的功能。（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:=。//刪除記錄beginif (39。).Value :=。)。end。with adoquery1 dobegin close。39。 。).Value:=strtoint((39。with adoquery2 do 。end。select * from 設(shè)備表 where 編號=:id39。 exit。 。實驗室設(shè)備管理系統(tǒng)是一個眾多企業(yè)、事業(yè)單位不可缺少的部分。數(shù)據(jù)庫共有4個數(shù)據(jù)庫表：用戶表、設(shè)備表、入庫記錄表、出庫記錄表。 使用ADO開發(fā)數(shù)據(jù)庫程序的步驟如下： （1）在窗體添加TADOConnection組件（名稱為ADOConnection1），可以雙擊該組件設(shè)計其數(shù)據(jù)庫連接屬性。 (39。end。 。確定要刪除本條記錄嗎？39。添加用戶窗口如下所示：該界面之確定按鈕代碼如下：procedure (Sender: TObject)。,mb_iconasterisk)。)。數(shù)量39。).Value:= 。單價39。 [1].Value :=。該程序為判斷該產(chǎn)品是否在設(shè)備庫中有庫存，如果有庫存，則會使原有的庫存產(chǎn)生改變。begin :=inttostr(strtoint( )*strtoint( ))。 execsql。提示39。沒有檢索到該設(shè)備信息39。).Value :=。 。select * from 入庫記錄表 where 入庫日期=:id 39。)。)。數(shù)量39。select * from 出庫記錄表39。 。id39。end。（6）設(shè)備情況瀏覽該模塊為顯示當(dāng)前庫中所有設(shè)備資料，以及所有入庫記錄及出庫記錄。 end。 end。)。 。 。單價39。 (39。 then begin showmessage(39。 。procedure (Sender: TObject)。 (39。 open。確定要刪除這條記錄嗎39。 parameters[3].value:=。end。 。 。).Value:= 。 (39。 if recordcount0 then begin 。if length(trim())6 then begin showmessage(39。,39。 。刪除按鈕的程序如下：procedure (Sender: TObject)。 end else begin 。procedure (Sender: TObject)。begin 。 adoquery。（3）系統(tǒng)幫助：關(guān)于。關(guān)鍵詞: 設(shè)備信息管理系統(tǒng)（EMIS） Sybase ASA數(shù)據(jù)庫 快速原型法 面向?qū)ο? 數(shù)據(jù)窗口 數(shù)據(jù)對象 設(shè)備購買申請 購買批準(zhǔn)確認(rèn) 新設(shè)備信息錄入 設(shè)備維修 設(shè)備報廢 用戶登錄 用戶管理).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)在實施后，將幫助實驗室管理人員提高工作效率。而且系統(tǒng)應(yīng)符合設(shè)備管理的有關(guān)規(guī)定，包括新設(shè)備的申請、購買確認(rèn)、新設(shè)備信息錄入、舊設(shè)備維修和報廢及用戶管理等。)。).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 編號=:id39。該記錄不能為空39。 。begin。主程序界面主要實現(xiàn)如下功能：使用菜單操作、顯示系統(tǒng)日期、單位信息?？诹?9。).AsString 。系統(tǒng)登錄窗口主要實現(xiàn)如下功能：以圖標(biāo)列表形式顯示操作員，并憑口令進(jìn)入系統(tǒng)。我們這里使用ADO開發(fā)數(shù)據(jù)庫技術(shù)。如果管理跟不上，一旦造成錯誤，很可能給學(xué)校造成巨大的損失。而且系統(tǒng)應(yīng)符合設(shè)備管理的有關(guān)規(guī)定，包括新設(shè)備的申請、購買確認(rèn)、新設(shè)備信息錄入、舊設(shè)備維修和報廢及用戶管理等。根據(jù)該校的具體情況，本系統(tǒng)在實施后，將幫助實驗室管理人員提高工作效率。 Adomand。程序代碼如下：procedure (Sender: TObject)。 end。)。begin。 。 。 。id39。 (39。).value:= 。)。 。procedure (Sender: TObject)。 parameters[0].value:=。end。 (39。 (39。procedure (Sender: TObject)。程序代碼如下所示：procedure (Sender: TObject)。程序代碼具體如下：procedure (Sender: TObject)。 end。 (39。 post。 [6].Value := 。 。)。).value:=datetostr( )。關(guān)鍵詞: 設(shè)備信息管理系統(tǒng)（EMIS） Sybase ASA數(shù)據(jù)庫 快速原型法 面向?qū)ο? 數(shù)據(jù)窗口 數(shù)據(jù)對象 設(shè)備購買申請 購買批準(zhǔn)確認(rèn) 新設(shè)備信息錄入 設(shè)備維修 設(shè)備報廢 用戶登錄 用戶管理（3）系統(tǒng)幫助：關(guān)于。 adoquery。begin 。procedure (Sender: TObject)。 end else begin 。刪除按鈕的程序如下：procedure (Sender: TObject)。 。,39。if length(trim())6 then begin showmessage(39。 if recordcount0 then begin 。 (39。).Value:= 。 。 。end。 parameters[3].value:=。確定要刪除這條記錄嗎39。 open。 (39。p