【正文】 4 設(shè)備的數(shù)量 單價 貨幣 設(shè)備的單價 總金額 貨幣 設(shè)備的總金額 入庫記錄表 入庫記錄表主要用于存放設(shè)備入庫時的相關(guān)信息。數(shù)據(jù)庫共有 4 個數(shù)據(jù)庫表：用戶表、設(shè)備表、入庫記錄表、出庫記錄表。 本項目的任務(wù)提出者 : 學(xué)校實驗室設(shè)備管理人員 . 開發(fā) :是本人的實驗設(shè)計 . 用戶 :為學(xué)校實驗室設(shè)備管理人員 . 使用該軟件系統(tǒng)同時與其他 Windos 系統(tǒng)兼容 ,能方便實驗室設(shè)備管理人員管理 . 1． 3 功能介紹 系統(tǒng)主要功能有： （ 1）設(shè)備管理 ：添加設(shè)備、添加設(shè)備、修改設(shè)備、設(shè)備情況查詢。如果管理跟不上，一旦造成錯誤，很可能給學(xué)校造成巨大的損失。這些優(yōu)點能夠極大地提設(shè)備管理的效率 ,也是正規(guī)化管理 ,與世界接軌的重要條件。 實驗室設(shè)備管理系統(tǒng)是一個眾多企業(yè)、事業(yè)單位不可缺少的部分。而且系統(tǒng)應(yīng)符合設(shè)備管理的有關(guān)規(guī)定，包括新設(shè)備的申請、購買確認、新設(shè)備信息錄入、舊設(shè)備維修和報廢及用戶管理等。能滿足日常工作的基本需要，并達到操作過程中的直觀、方便、實用、安全等有關(guān)要求。它的內(nèi)容對于企事業(yè)的決策者和管理者來說都至關(guān)重要 ,所以實驗室設(shè)備管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。 編寫目的 本系統(tǒng)的開發(fā)正是為了完成這樣的任務(wù)，使用計算機對實驗室設(shè)備進行管理 ,具有手工管理所無法比擬的優(yōu)點 .例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等 ,它在當(dāng)今信息社會已成為必要。在沒有使用管理軟件前，管理人員一直為此而苦惱。 （ 2）系統(tǒng)管理：用戶管理（添加用戶、刪除用戶、更改密碼）、換名登錄、退出系統(tǒng)。 下面主要介紹一些重要數(shù)據(jù)庫表的結(jié)構(gòu)。 表結(jié)構(gòu)如下圖所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設(shè)備的編號 設(shè)備名稱 文本 20 設(shè)備的名稱 數(shù)量 文本 4 設(shè)備的數(shù)量 總金額 貨幣 總金額 入庫日期 日期 /時間 入庫的日期 經(jīng)辦人 文本 10 經(jīng)手辦此事的人名 備注 備注 備注 出庫記錄表 出庫記錄表主要用于存放設(shè)備出庫時的相關(guān)信息。使用 ADO 開發(fā)數(shù)據(jù)庫程序，通常需要以下組件： Datasource。 adotable。如下圖所示： 選擇 User Connection String，然后單擊 Build… 按鈕，進入下圖所示的界面。 點右邊的 … 按鈕，則進入選擇數(shù)據(jù)庫頁面。 操作員錯誤或密碼錯誤提醒并返回錯誤點。 var list_a:TlistItem。select * from 用戶表 39。//清空列表 while not do//將所有操作人員加入到列表 begin list_a:=。 :=1。 end。 procedure (Sender: Tobject)。 end。).AsString then begin showmessage(39。 。 end。//執(zhí)行登錄操作 begin if key=13 then 。通過主界面，退出程序。//添加用戶窗口顯示 end。,39。 end。 :=39。39。 begin if then begin messagebox(,39。,mb_iconerror)。 end else begin 。您的密碼修改成功！ 39。 close。 begin if =39。)。 end。//判斷設(shè)備編號是否為 6 位 。 with adoquery1 do begin close。)。 。).Value :=strtoint()+strtoint((39。 總金額 39。數(shù)量 39。).Value:= 。 (39。 end else begin 。 (39。數(shù)量 39。).Value:= 。 post。 (39。 。 [2].Value :=。 [6].Value := 。 。 。 （ 2）設(shè)備資料管理 該程序模塊的用法如下：先在左邊選中某個數(shù)據(jù)，如果想修改，則點擊修改按鈕，則左邊選中數(shù)據(jù)在右邊顯示出詳細信息。//修改按鈕的程序代碼 begin :=[0].AsString 。 := [4].AsString 。 begin :=inttostr(strtoint( )*strtoint( ))。 end。 with adoquery1 do begin close。)。 parameters[2].value:=。 end。select * from 設(shè)備表 39。 open。//刪除記錄 begin if (39。,mb_okcancel+mb_iconinformation)=id_ok then with adoquery1 do if isempty=false then delete。編號 39。select * from 設(shè)備表 where 編號 =:id39。).Value :=。,39。 end。 then begin with adoquery1 do begin close。)。 open。 提示39。 end。 end。 (39。 end。 打印窗口如下所示： （ 3）入庫記錄查詢 功能為可查詢歷來設(shè)備入庫的具體記錄。 with adoquery1 do begin close。)。 。 （ 4）設(shè)備資料出庫 功能為對設(shè)備庫中的設(shè)備出庫操作。39。 exit。 if length(trim())6 then begin showmessage(39。 。 。 (39。 if recordcount0 then begin 。 數(shù)量39。).Value:=strtoint((39。).asstring)。 (39。單價 39。 with adoquery2 do 。)。 [0].Value :=。 [4].Value :=date。 end。 。 end。 procedure (Sender: TObject)。select * from 設(shè)備表 where 編號 =:id39。).Value:=。).AsString 。 end else begin showmessage(39。 exit。 （ 5）出庫記錄查詢 該項功能可以查詢歷來出庫記錄。 。 .parambyname(39。 。 界面如下所示： （ 7）關(guān)于模塊 關(guān)于窗口如下所示： 五、系統(tǒng)要求 硬件環(huán)境要求 為運行本例，計算機應(yīng)滿足如下條件： （ 1） CPU:Intel Pentium 166MHZ 或更高主頻的處理器，或任何運行于 Microsoft Windows NT Workstation 的 Alpha 處理器。 軟件環(huán)境要求 本系統(tǒng)適用于 Microsoft Windows 98/2020/XP 下開發(fā)的，所采用的開發(fā)工具是 Delphi 。能滿足日常工作的基本需要，并達到操作過程中的直觀、方便、實用、安全等有關(guān)要求。它的內(nèi)容對于企事業(yè)的決策者和管理者來說都至關(guān)重要 ,所以實驗室設(shè)備管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。 編寫目的 本系統(tǒng)的開發(fā)正是為了完成這樣的任務(wù)，使用計算機對實驗室設(shè)備進行管理 ,具有手工管理所無法比擬 的優(yōu)點 .例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等 ,它在當(dāng)今信息社會已成為必要。在沒有使用管理軟件前，管理人員一直為此而苦惱。 （ 2）系統(tǒng)管理：用戶管理（添加用戶、刪除用戶、更改密碼）、換名登錄、退出系統(tǒng)。 下面主要介紹一些重要數(shù)據(jù)庫表的結(jié)構(gòu)。 表結(jié)構(gòu)如下圖所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設(shè)備的編號 設(shè)備名稱 文本 20 設(shè)備的名稱 數(shù)量 文本 4 設(shè)備的數(shù)量 總金額 貨幣 總金額 入庫日期 日期 /時間 入庫的日期 經(jīng)辦人 文本 10 經(jīng)手辦此事的人名 備注 備注 備注 出庫記錄表 出庫記錄表主要用 于存放設(shè)備出庫時的相關(guān)信息。使用 ADO 開發(fā)數(shù)據(jù)庫程序，通常需要以下組件： Datasource。 adotable。如下圖所示： 選擇 User Connection String，然后單擊 Build… 按鈕，進入下圖所示的界面。 點右邊的 … 按鈕，則進入選擇數(shù)據(jù)庫頁面。 操作員錯誤或密碼錯誤提醒并返回錯誤點。 var list_a:TlistItem。select * from 用戶表 39。//清空列表 while not do//將所有操作人員加入到列表 begin list_a:=。 :=1。 end。 procedure (Sender: Tobject)。 end。).AsString then begin showmessage(39。 。 end。//執(zhí)行登錄操作 begin if key=13 then 。通過主界面，退出程序。//添加用戶窗口顯示 end。,39。 end。 :=39。39。 begin if then begin messagebox(,39。,mb_iconerror)。 end else begin 。您的密碼修改成功！ 39。 close。 begin if =39。)。 end。//判斷設(shè)備編號是否為 6 位 。 with adoquery1 do begin close。)。 。).Value :=strtoint()+strtoint((39。 總金額 39。數(shù)量 39。).Value:= 。 (39。 end else begin 。 (39。數(shù)量 39。).Value:= 。 post。 (39。 。 [2].Value :=。 [6].Value := 。 。 。 （ 2）設(shè)備資料管理 該程序模塊的用法如下：先在左邊選中某個數(shù)據(jù)，如果想修改，則點擊修改按鈕，則左邊選中數(shù)據(jù)在右邊顯示出詳細信息。//修改按鈕的程序代碼 begin :=[0].AsString 。 := [4].AsString 。 begin :=inttostr(strtoint( )*strtoint( ))。 end。 with adoquery1 do begin close。)。 parameters[2].value:=。 end。select * from 設(shè)備表 39。 open。//刪除記錄 begin if (39。,mb_okcancel+mb_iconinformation)=id_ok then with adoquery1 do if isempty=false then delete。編號 39。select * from 設(shè)備表 where 編號 =:id39。).Value :=。,39。 end。 then begin with adoquery1 do begin close。)。 open。 提示39。 end。 end。 (39。 end。 打印窗口如下所示： （ 3）入庫記錄查詢 功能為可查詢歷來設(shè)備入庫的具體記錄。 with adoquery1 do begin close。)。 。 （ 4）設(shè)備資料出庫 功能為對設(shè)備庫中的設(shè)備出庫操作。39。 exit。 if length(trim())6 then begin showmessage(39。 。 。 (39。 if recordcount0 then begin 。 數(shù)量39。).Value:=strtoint((39。).asstring)。 (39。單價 39。 with adoquery2 do 。)。 [0].Value :=。 [4].Value :=date。 end。 。 end。 procedure (Sender: TObject)。select * from 設(shè)備表 where 編號 =:id39。).Value:=。).AsString 。 end else begin