【正文】 文本 10 用戶的口令 設備表 設備表主要用來存放設備的相關信息。 Adomand。現(xiàn)在我們使用的是 Access2020，則可 以選擇Microsoft DB Provider。 程序代碼如下： procedure (Sender: TObject)。//選擇所有操作員 。 end。用戶名 39。)。 procedure (Sender: TObject。 begin 。,mb_okcancel)=idok then begin 。 。,39。 。 end。 。 exit。id39。).asstring)。 (39。).Value:=。).value:= ?？偨痤~ 39。)。 [4].Value :=date。 。 另外此界面中還實現(xiàn)了查詢、打印功能。 procedure (Sender: TObject)。//保存按鈕的程序代碼如下 begin with adoquery1 do begin 。 parameters[0].value:=。 with SQL do begin clear。 end。 procedure (Sender: TObject)。 (39。,mb_ok+mb_iconinformation)。 (39。 沒 有 檢 索 到 該 設 備 信 息 39。 procedure (Sender: TObject)。)。 程序代碼如下所示： procedure (Sender: TObject)。id39。 程序代碼具體如下： procedure (Sender: TObject)。 。 end。).Value:=。 (39。編號 39。 post。 。 [6].Value := 。 。 。 if recordcount0 then begin :=(39。)。 begin inherited。).value:=datetostr( )。 （ 3）顯示器： Micorsoft Windows 支持的 VGA或分辨率更高的顯示器。 關鍵詞 : 設備信息管理系統(tǒng)（ EMIS） Sybase ASA數(shù)據(jù)庫 快速原型法 面向對象 數(shù)據(jù)窗口 數(shù)據(jù)對象 設備購買申請 購買批準確認 新設備信息錄入 設備維修 設備報廢 用戶登錄 用戶管理 一、引言 隨著科學技術的不斷提高 ,計算機科學日漸成熟 ,其強大的功能已為人們深刻認識它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。這就給實驗室管理人員的管理帶來了諸多不便。 二、系統(tǒng)框架設計 根據(jù)本系統(tǒng)的功能主框架設計如下所示： 三、數(shù)據(jù)庫設計 針對該校的具體情況，本系統(tǒng)采用了 Access2020 數(shù)據(jù)庫，數(shù)據(jù)庫路徑為 \人事管理系統(tǒng)。 Delphi 可以使用多種數(shù)據(jù)庫。 adostoredproc。 四、詳細設計 系統(tǒng)登錄界面設計 程序啟動后，首先進入“系統(tǒng)登錄”界面驗證操作員密碼。 。用戶名 39。//退出 begin close。//如果密碼不正確 begin if (39。 。 主窗體界面設計 程序啟動后，在登錄操作員密碼后，將進入主程序界面。 begin if messagebox(,39。 代碼如下： procedure (Sender: TObject)。 end。39。信息 39。 then begin showmessage(39。請輸入 6 位設備編號 39。 (39。 (39。 單價39。設備名稱 39。編號 39。 (39。 with adoquery2 do 。 [0].Value :=。 end。 end。 := [2].AsString 。 procedure (Sender: TObject)。 add(39。 parameters[4].value:=。 end。select * from 設備表 39。 parameters[2].value:=。 with adoquery1 do begin close。 begin :=inttostr(strtoint( )*strtoint( ))。//修改按鈕的程序代碼 begin :=[0].AsString 。 。 [6].Value := 。 。 post。數(shù)量 39。 end else begin 。).Value:= 。 總金額 39。 。 with adoquery1 do begin close。 end。 begin if =39。您的密碼修改成功！ 39。,mb_iconerror)。39。 end。//添加用戶窗口顯示 end。//執(zhí)行登錄操作 begin if key=13 then 。 。 end。 end。//清空列表 while not do//將所有操作人員加入到列表 begin list_a:=。 var list_a:TlistItem。 點右邊的 … 按鈕，則進入選擇數(shù)據(jù)庫頁面。 adotable。 表結構如下圖所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設備的編號 設備名稱 文本 20 設備的名稱 數(shù)量 文本 4 設備的數(shù)量 總金額 貨幣 總金額 入庫日期 日期 /時間 入庫的日期 經辦人 文本 10 經手辦此事的人名 備注 備注 備注 出庫記錄表 出庫記錄表主要用 于存放設備出庫時的相關信息。 （ 2）系統(tǒng)管理：用戶管理（添加用戶、刪除用戶、更改密碼）、換名登錄、退出系統(tǒng)。 編寫目的 本系統(tǒng)的開發(fā)正是為了完成這樣的任務，使用計算機對實驗室設備進行管理 ,具有手工管理所無法比擬 的優(yōu)點 .例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等 ,它在當今信息社會已成為必要。能滿足日常工作的基本需要，并達到操作過程中的直觀、方便、實用、安全等有關要求。 界面如下所示： （ 7）關于模塊 關于窗口如下所示： 五、系統(tǒng)要求 硬件環(huán)境要求 為運行本例，計算機應滿足如下條件： （ 1） CPU:Intel Pentium 166MHZ 或更高主頻的處理器，或任何運行于 Microsoft Windows NT Workstation 的 Alpha 處理器。 .parambyname(39。 （ 5）出庫記錄查詢 該項功能可以查詢歷來出庫記錄。 end else begin showmessage(39。).Value:=。 procedure (Sender: TObject)。 。 [4].Value :=date。)。單價 39。).asstring)。 數(shù)量39。 (39。 。 exit。 （ 4）設備資料出庫 功能為對設備庫中的設備出庫操作。)。 打印窗口如下所示： （ 3）入庫記錄查詢 功能為可查詢歷來設備入庫的具體記錄。 (39。 end。 open。 then begin with adoquery1 do begin close。,39。select * from 設備表 where 編號 =:id39。,mb_okcancel+mb_iconinformation)=id_ok then with adoquery1 do if isempty=false then delete。 open。 end。)。 end。 := [4].AsString 。 （ 2）設備資料管理 該程序模塊的用法如下：先在左邊選中某個數(shù)據(jù)，如果想修改，則點擊修改按鈕，則左邊選中數(shù)據(jù)在右邊顯示出詳細信息。 。 [2].Value :=。 (39。).Value:= 。 (39。 (39。數(shù)量 39。).Value :=strtoint()+strtoint((39。)。//判斷設備編號是否為 6 位 。)。 close。 end else begin 。 begin if then begin messagebox(,39。 :=39。,39。通過主界面，退出程序。 end。).AsString then begin showmessage(39。 procedure (Sender: Tobject)。 :=1。select * from 用戶表 39。 操作員錯誤或密碼錯誤提醒并返回錯誤點。如下圖所示： 選擇 User Connection String，然后單擊 Build… 按鈕，進入下圖所示的界面。使用 ADO 開發(fā)數(shù)據(jù)庫程序，通常需要以下組件： Datasource。 下面主要介紹一些重要數(shù)據(jù)庫表的結構。在沒有使用管理軟件前，管理人員一直為此而苦惱。它的內容對于企事業(yè)的決策者和管理者來說都至關重要 ,所以實驗室設備管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。 軟件環(huán)境要求 本系統(tǒng)適用于 Microsoft Windows 98/2020/XP 下開發(fā)的，所采用的開發(fā)工具是 Delphi 。 。 。 exit。).AsString 。select * from 設備表 where 編號 =:id39。 end。 end。 [0].Value :=。 with adoquery2 do 。 (39。).Value:=strtoint((39。 if recordcount0 then begin 。 。 if length(trim())6 then begin showmessage(39。39。 。 with adoquery1 do begin close。 end。 end。 提示39。)。 end。).Value :=。編號 39。//刪除記錄 begin if (39。select * from 設備表 39。 parameters[2].value:=。 with adoquery1 do begin close。 begin :=inttostr(strtoint( )*strtoint( ))。//修改按鈕的程序代碼 begin :=[0].AsString 。 。 [6].Value := 。 。 post。數(shù)量 39。 end else begin 。).Value:= 。 總金額 39。 。 with adoquery1 do begin close。 end。 begin if =39。您的密碼修改成功！ 39。,mb_iconerror)。39。 end。//添加用戶窗口顯示 end。//執(zhí)行登錄操作 begin if key=13 then 。 。 end。 end。//清空列表 while not do//將所有操作人員加入到列表 begin list_a:=。 var list_a:TlistItem。 點右邊的 … 按鈕，則進入選擇數(shù)據(jù)庫頁面。 adotable。 表結構如下圖所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設備的編號 設備名稱 文本 20 設備的名稱 數(shù)量 文本 4 設備的數(shù)量 總金額 貨幣 總金額 入庫日期 日期 /時間 入庫的日期 經辦人 文本 10 經手辦此事的人名 備注 備注 備注 出庫記錄表 出庫記錄表主要用于存放設備出庫時的相關信息。 （ 2）系統(tǒng)管理：用戶管理（添加用戶、刪除用戶、更改密碼）、換名登錄、退出系統(tǒng)。 編寫目的 本系統(tǒng)的開發(fā)正是為了完成這樣的任務，使用計算機對實驗室設備進行管理 ,具有手工管理所無法比擬的優(yōu)點 .例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等 ,它在當今信息社會已成為必要。能滿足日常工作的基本需要，并達到操作過程中的直觀、方便、實用、安全等有關要求。 實