【正文】 with adoquery1 do begin close。 procedure (Sender: TObject)。用戶修改之后，點(diǎn)擊保存即可。 [3].Value :=strtoint()*strtoint()。 (39。單價(jià) 39。數(shù)量 39。 。 end。請(qǐng)重新確認(rèn)新密碼！ 39。 請(qǐng) 確 認(rèn)39。 end。//選擇操作員 begin if Nil then//如果選擇不為空 (39。)。 使用 OLE DB 連接能夠發(fā)揮更大的效率。 用戶表 該表主要用來存放系統(tǒng)用戶資料。但一直以來人們使用傳統(tǒng)人工的方式管理設(shè)備， 這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 ,另外時(shí)間稍長(zhǎng) ,將產(chǎn)生大量的冗余 ,文件越來越多，使人工管理沒有頭緒，這對(duì)于查找、更新和維護(hù)都帶來了很大的困難。 end。 end。)。 。 。 單價(jià)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)于。 經(jīng)過分析綜合 ,使用 Sybase 公司的 作為前端開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(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)化方法開發(fā)過程，從計(jì)劃階段到開發(fā)階段再到維護(hù)階段一步一步實(shí)現(xiàn)本系統(tǒng)的功能。id39。無此設(shè)備編號(hào) ,請(qǐng)查實(shí)再來 !退出請(qǐng)按右上角的 X 按鈕 !39。 begin with adoquery1 do begin 。 [5].Value := 。).Value:=。).asstring)strtoint()。 exit。 界面如下所示： 該模塊具有智能化，會(huì)根據(jù)你輸入的設(shè)備編號(hào)，自動(dòng)得出設(shè)備名稱。界面如下所示： 可按照入庫(kù)時(shí)間來查詢。 end。 。)。 end。 end。 end。 。select * from 入庫(kù)記錄表 39。設(shè)備名稱 39。).asstring)。 (39。 exit。 [1].Value:=。39。 系統(tǒng)管理功能模塊的設(shè)計(jì) （ 1）用戶管理 添加按鈕的代碼如下： procedure (Sender: TObject)。密碼不正確請(qǐng)重新輸入 !39。 。 系統(tǒng)登錄界面如下圖所示： 具體實(shí)現(xiàn)如下： 添加新窗體，設(shè)置窗體 caption 屬性為登陸窗口，向窗體中添加相關(guān)控件。 Adoconion。今年，該校決定采用計(jì)算機(jī)技術(shù)進(jìn)行設(shè)備上面的管理。實(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ù)該校的具體情況，本系統(tǒng)在實(shí)施后，將幫助實(shí)驗(yàn)室管理人員提高工作效率。 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ù)庫(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ā)揮著越來越重要的作用。 二、系統(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)。 adostoredproc。 。//退出 begin close。 。 begin if messagebox(,39。 end。信息 39。請(qǐng)輸入 6 位設(shè)備編號(hào) 39。 (39。設(shè)備名稱 39。 (39。 [0].Value :=。 end。 procedure (Sender: TObject)。 parameters[4].value:=。,39。 if recordcount=0 then begin (39。d39。 begin 。 (39。該記錄不能為空 39。select * from 設(shè)備表 where 編號(hào) =:id39。).asstring)*strtoint((39。 (39。 。 (39。 end。 end。 作為計(jì)算機(jī)應(yīng)用的一部分 ,使用計(jì)算機(jī)對(duì)學(xué)校實(shí)驗(yàn)室設(shè)備管理 ,具有手工管理所無法比擬的優(yōu)點(diǎn) .例如 :檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。 其主要結(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ù)類型 字段大小 說明 用戶名 文本 10 用戶的名稱 口令 文本 10 用戶的口令 設(shè)備表 設(shè)備表主要用來存放設(shè)備的相關(guān)信息?，F(xiàn)在我們使用的是 Access2020，則可 以選擇Microsoft DB Provider。//選擇所有操作員 。用戶名 39。 procedure (Sender: TObject。,mb_okcancel)=idok then begin 。,39。 end。 exit。).asstring)。).Value:=?？偨痤~ 39。 [4].Value :=date。 另外此界面中還實(shí)現(xiàn)了查詢、打印功能。//保存按鈕的程序代碼如下 begin with adoquery1 do begin 。 with SQL do begin clear。 end。 end。 （ 2）設(shè)備資料管理 該程序模塊的用法如下：先在左邊選中某個(gè)數(shù)據(jù)，如果想修改，則點(diǎn)擊修改按鈕，則左邊選中數(shù)據(jù)在右邊顯示出詳細(xì)信息。 [2].Value :=。).Value:= 。 (39。).Value :=strtoint()+strtoint((39。//判斷設(shè)備編號(hào)是否為 6 位 。 close。 begin if then begin messagebox(,39。,39。 end。 procedure (Sender: Tobject)。select * from 用戶表 39。如下圖所示： 選擇 User Connection String，然后單擊 Build… 按鈕，進(jìn)入下圖所示的界面。 下面主要介紹一些重要數(shù)據(jù)庫(kù)表的結(jié)構(gòu)。它的內(nèi)容對(duì)于企事業(yè)的決策者和管理者來說都至關(guān)重要 ,所以實(shí)驗(yàn)室設(shè)備管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍? 。 exit。select * from 設(shè)備表 where 編號(hào) =:id39。 end。 with adoquery2 do 。).Value:=strtoint((39。 。39。 with adoquery1 do begin close。 end。)。).Value :=。//刪除記錄 begin if (39。 parameters[2].value:=。 begin :=inttostr(strtoint( )*strtoint( ))。 。 。數(shù)量 39。).Value:= 。 。 end。您的密碼修改成功！ 39。39。//添加用戶窗口顯示 end。 。 end。 var list_a:TlistItem。 adotable。 （ 2）系統(tǒng)管理：用戶管理（添加用戶、刪除用戶、更改密碼）、換名登錄、退出系統(tǒng)。能滿足日常工作的基本需要，并達(dá)到操作過程中的直觀、方便、實(shí)用、安全等有關(guān)要求。 .parambyname(39。 end else begin showmessage(39。 procedure (Sender: TObject)。 [4].Value :=date。單價(jià) 39。 數(shù)量39。 。 （ 4）設(shè)備資料出庫(kù) 功能為對(duì)設(shè)備庫(kù)中的設(shè)備出庫(kù)操作。 打印窗口如下所示： （ 3）入庫(kù)記錄查詢 功能為可查詢歷來設(shè)備入庫(kù)的具體記錄。 end。 then begin with adoquery1 do begin close。select * from 設(shè)備表 where 編號(hào) =:id39。 open。)。 := [4].AsString 。 。 (39。 (39。數(shù)量 39。)。)。 end else begin 。 :=39。通過主界面，退出程序。).AsString then begin showmessage(39。 :=1。 操作員錯(cuò)誤或密碼錯(cuò)誤提醒并返回錯(cuò)誤點(diǎn)。使用 ADO 開發(fā)數(shù)據(jù)庫(kù)程序，通常需要以下組件： Datasource。在沒有使用管理軟件前，管理人員一直為此而苦惱。而且系統(tǒng)應(yīng)符合設(shè)備管理的有關(guān)規(guī)定，包括新設(shè)備的申請(qǐng)、購(gòu)買確認(rèn)、新設(shè)備信息錄入、舊設(shè)備維修和報(bào)廢及用戶管理等。 本項(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è)備情況查詢。 adodataset。//讓窗體在顯示之后，框中有用戶選擇。 。 。 。 :=39。 messagebox(,39。 。).Value:=。編號(hào) 39。 (39。 。 。//當(dāng)修改過價(jià)格或數(shù)量之后，總 金額會(huì)智能改變。 parameters[1].value:=。 procedure (Sender: TObject)。id39。select * from 設(shè)備表 where 編號(hào) =:d39。//打印窗口的代碼如下 。 begin inherited。 begin if =39。 with adoquery1 d