【文章內(nèi)容簡介】 使用傳統(tǒng)人工的方式管理設(shè)備， 這種管理方式存在著許多缺點(diǎn) ,如 :效率低、保密性差 ,另外時(shí)間稍長 ,將產(chǎn)生大量的冗余 ,文件越來越多，使人工管理沒有頭緒，這對于查找、更新和維護(hù)都帶來了很大的困難。 作為計(jì)算機(jī)應(yīng)用的一部分 ,使用計(jì)算機(jī)對學(xué)校實(shí)驗(yàn)室設(shè)備管理 ,具有手工管理所無法比擬的優(yōu)點(diǎn) .例如 :檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提設(shè)備管理的效率 ,也是正規(guī)化管理 ,與世界接軌的重要條件。 編寫目的 本系統(tǒng)的開發(fā)正是為了完成這樣的任務(wù)，使用計(jì)算機(jī)對實(shí)驗(yàn)室設(shè)備進(jìn)行管理 ,具有手工管理所無法比擬 的優(yōu)點(diǎn) .例如 :檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等 ,它在當(dāng)今信息社會(huì)已成為必要。 背景 儀征 XX學(xué)校是一所職業(yè)中學(xué)，擁有多個(gè)實(shí)驗(yàn)室，實(shí)驗(yàn)室的儀器設(shè)備比較齊全，也比較多，每種設(shè)備情況都不一樣。這就給實(shí)驗(yàn)室管理人員的管理帶來了諸多不便。如果管理跟不上，一旦造成錯(cuò)誤，很可能給學(xué)校造成巨大的損失。在沒有使用管理軟件前，管理人員一直為此而苦惱。今年，該校決定采用計(jì)算機(jī)技術(shù)進(jìn)行設(shè)備上面的管理。根據(jù)該校的具體情況，本系統(tǒng)在實(shí)施后，將幫助實(shí)驗(yàn)室管理人員提高工作效率。 本項(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è)備情況查詢。 （ 2）系統(tǒng)管理：用戶管理（添加用戶、刪除用戶、更改密碼）、換名登錄、退出系統(tǒng)。 （ 3）系統(tǒng)幫助：關(guān)于。 二、系統(tǒng)框架設(shè)計(jì) 根據(jù)本系統(tǒng)的功能主框架設(shè)計(jì)如下所示： 三、數(shù)據(jù)庫設(shè)計(jì) 針對該校的具體情況，本系統(tǒng)采用了 Access2020 數(shù)據(jù)庫，數(shù)據(jù)庫路徑為 \人事管理系統(tǒng)。數(shù)據(jù)庫共有 4 個(gè)數(shù)據(jù)庫表：用戶表、設(shè)備表、入庫記錄表、出庫記錄表。 下面主要介紹一些重要數(shù)據(jù)庫表的結(jié)構(gòu)。 用戶表 該表主要用來存放系統(tǒng)用戶資料。 其主要結(jié)構(gòu)如下所示： 實(shí)驗(yàn)室設(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)信息。 表結(jié)構(gòu)如下所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設(shè)備的 編號 設(shè)備名稱 文本 20 設(shè)備的名稱 數(shù)量 文本 4 設(shè)備的數(shù)量 單價(jià) 貨幣 設(shè)備的單價(jià) 總金額 貨幣 設(shè)備的總金額 入庫記錄表 入庫記錄表主要用于存放設(shè)備入庫時(shí)的相關(guān)信息。 表結(jié)構(gòu)如下圖所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設(shè)備的編號 設(shè)備名稱 文本 20 設(shè)備的名稱 數(shù)量 文本 4 設(shè)備的數(shù)量 總金額 貨幣 總金額 入庫日期 日期 /時(shí)間 入庫的日期 經(jīng)辦人 文本 10 經(jīng)手辦此事的人名 備注 備注 備注 出庫記錄表 出庫記錄表主要用 于存放設(shè)備出庫時(shí)的相關(guān)信息。 表結(jié)構(gòu)如下圖所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設(shè)備的編號 設(shè)備名稱 文本 20 設(shè)備的名稱 數(shù)量 文本 4 設(shè)備的數(shù)量 總金額 貨幣 總金額 出庫日期 日期 /時(shí)間 入庫的日期 經(jīng)辦人 文本 10 經(jīng)手辦此事的人名 備注 備注 備注 中數(shù)據(jù)庫的連接方式。 Delphi 可以使用多種數(shù)據(jù)庫。我們這里使用 ADO 開發(fā)數(shù)據(jù)庫技術(shù)。使用 ADO 開發(fā)數(shù)據(jù)庫程序，通常需要以下組件： Datasource。 Adoconion。 Adomand。 adodataset。 adotable。 adoquery。 adostoredproc。 使用 ADO 開發(fā)數(shù)據(jù)庫程序的步驟如下： （ 1）在窗體添加 TADOConnection 組件（名稱為 ADOConnection1），可以雙擊該組件設(shè)計(jì)其數(shù)據(jù)庫連接屬性。如下圖所示： 選擇 User Connection String，然后單擊 Build… 按鈕，進(jìn)入下圖所示的界面。 使用 OLE DB 連接能夠發(fā)揮更大的效率。現(xiàn)在我們使用的是 Access2020，則可 以選擇Microsoft DB Provider。選擇好后，單擊“下一步”按鈕，進(jìn)入下圖所示界面。 點(diǎn)右邊的 … 按鈕，則進(jìn)入選擇數(shù)據(jù)庫頁面。選擇好數(shù)據(jù)庫，點(diǎn)擊測試連接按鈕。 四、詳細(xì)設(shè)計(jì) 系統(tǒng)登錄界面設(shè)計(jì) 程序啟動(dòng)后，首先進(jìn)入“系統(tǒng)登錄”界面驗(yàn)證操作員密碼。系統(tǒng)登錄窗口主要實(shí)現(xiàn)如下功能： 以圖標(biāo)列表形式顯示操作員，并憑口令進(jìn)入系統(tǒng)。 操作員錯(cuò)誤或密碼錯(cuò)誤提醒并返回錯(cuò)誤點(diǎn)。 系統(tǒng)登錄界面如下圖所示： 具體實(shí)現(xiàn)如下： 添加新窗體，設(shè)置窗體 caption 屬性為登陸窗口，向窗體中添加相 關(guān)控件。 程序代碼如下： procedure (Sender: TObject)。//讓窗體在顯示之后，框中有用戶選擇。 var list_a:TlistItem。 begin 。 。 (39。select * from 用戶表 39。)。//選擇所有操作員 。 。//清空列表 while not do//將所有操作人員加入到列表 begin list_a:=。 :=(39。用戶名 39。).AsString 。 :=1。 。 end。 。 end。 procedure (Sender: TObject)。//退出 begin close。 end。 procedure (Sender: Tobject)。//選擇操作員 begin if Nil then//如果選擇不為空 (39。用戶名 39。,[loPartialkey])。 end。 procedure (Sender: TObject)。//如果密碼不正確 begin if (39。口令 39。).AsString then begin showmessage(39。密碼不正確請重新輸入 !39。)。 。 。 end else begin 。 。 。 end。 end。 procedure (Sender: TObject。 var Key: Char)。//執(zhí)行登錄操作 begin if key=13 then 。 end。 主窗體界面設(shè)計(jì) 程序啟動(dòng)后，在登錄操作員密碼后，將進(jìn)入主程序界面。主程序界面主要實(shí)現(xiàn)如下功能： 使用菜單操作、顯示系統(tǒng)日期、單位信息。通過主界面，退出程序。 系統(tǒng)管理功能模塊的設(shè)計(jì) （ 1）用戶管理 添加按鈕的代碼如下： procedure (Sender: TObject)。 begin 。 。//添加用戶窗口顯示 end。 刪除按鈕的程序如 下： procedure (Sender: TObject)。 begin if messagebox(,39。 確 定 要 刪 除 本 條 記 錄 嗎 ？ 39。,39。 請 確 認(rèn)39。,mb_okcancel)=idok then begin 。 end。 end。 添加用戶窗口如下所示： （ 2）修改口令窗口如下所示： 設(shè)備管理模塊的設(shè)計(jì) （ 1）設(shè)備資料入庫 輸入用戶名和密碼，點(diǎn)擊確定。 代碼如下： procedure (Sender: TObject)。 begin 。 :=39。39。 。 :=39。39。 。 end。 該界面之確定按鈕代碼如下： procedure (Sender: TObject)。 begin if then begin messagebox(,39。請重新確認(rèn)新密碼！ 39。,39。提示 39。,mb_iconerror)。 :=39。39。 。 end else begin 。 [1].Value:=。 。 messagebox(,39。您的密碼修改成功！ 39。,39。信息 39。,mb_iconasterisk)。 close。 end。 end。 “確定”按鈕的程序如下： procedure (Sender: TObject)。 begin if =39。39。 then begin showmessage(39。該記錄不能為空 39。)。 exit。 。 。 end。 if length(trim())6 then begin showmessage(39。請輸入 6 位設(shè)備編號 39。)。//判斷設(shè)備編號是否為 6 位 。 。 exit。 end。 with adoquery1 do begin close。 。 (39。select * from 設(shè)備表 where 編號 =:id39。)。 (39。id39。).Value:=。 。 if recordcount0 then begin 。 (39。 數(shù)量39。).Value :=strtoint()+strtoint((39。數(shù)量 39。).asstring)。 (39。 總金額 39。).Value:=strtoint((39。 單價(jià)39。).asstring)*strtoint((39。數(shù)量 39。).asstring)。 (39。編號 39。).Value:= 。 (39。設(shè)備名稱 39。).Value:= 。 (39。單價(jià) 39。).Value:=。 post。 end else begin 。 (39。編號 39。).Value:= 。 (39。設(shè)備名稱 39。).value:= 。 (39。數(shù)量 39。).Value:= 。 (39。單價(jià) 39。).Value:= 。 (39?？偨痤~ 39。).Value:=strtoint()*strtoint() 。 post。 end。 with adoquery2 do 。 。 (39。select * from 入庫記錄表 39。)。 。 。 。 [0].Value :=。 [1].Value :=。 [2].Value :=。 [3].Value :=strtoint()*strtoint()。 [4].Value :=date。 [5].Value := 。 [6].Value := 。 。 end。 。 。 。 。 。 。 。 end。 該程序?yàn)榕袛嘣摦a(chǎn)品是否在設(shè)備庫中有庫存，如果有庫存，則會(huì)使原有的庫存產(chǎn)生改變。 （ 2）設(shè)備資料管理 該程序模塊的用法如下：先在左邊選中某個(gè)數(shù)據(jù)，如果想修改，則點(diǎn)擊修改按鈕，則左邊選中數(shù)據(jù)在右邊顯示出詳細(xì)信息。用戶修改之后，點(diǎn)擊保存即可。 另外此界面中還實(shí)現(xiàn)了查詢、打印功能。 具體該程序的代碼如下所示： procedure (Sender: TObject)。//修改按鈕的程序代碼 begin :=[0].AsString 。 :=[1].AsString 。 := [2].AsString 。 := [3].AsString 。 := [4].AsString 。 end。 procedure (Sender: TObject)。//當(dāng)修改過價(jià)格或數(shù)量之后，總 金額會(huì)智能改變。 begin :=inttostr(strtoint( )*strtoint( ))。 end。 procedure (Se