【導(dǎo)讀】而且系統(tǒng)應(yīng)符合設(shè)備管理的有關(guān)規(guī)定，包括新設(shè)備的申請、購買確認(rèn)、新設(shè)備信息錄。入、舊設(shè)備維修和報(bào)廢及用戶管理等。能滿足日常工作的基本需要，并達(dá)到操作過程中的直。觀、方便、實(shí)用、安全等有關(guān)要求。用SybaseASA數(shù)據(jù)庫）,本系統(tǒng)采用結(jié)構(gòu)化程序設(shè)計(jì)方法，嚴(yán)格按照結(jié)構(gòu)化方法開發(fā)過程，從計(jì)劃階段到開發(fā)階段再到維護(hù)階段一步一步實(shí)現(xiàn)本系統(tǒng)的功能。已進(jìn)入人類社會的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。實(shí)驗(yàn)室設(shè)備管理系統(tǒng)是一個(gè)眾多企業(yè)、事業(yè)單位不可缺少的部分。它的內(nèi)容對于企事業(yè)的決?？旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理設(shè)備，這種管理方式存在著許多。有頭緒，這對于查找、更新和維護(hù)都帶來了很大的困難。不上，一旦造成錯(cuò)誤，很可能給學(xué)校造成巨大的損失。今年，該校決定采用計(jì)算機(jī)技術(shù)進(jìn)行設(shè)備上面的管理。根據(jù)該校的具體情況，本系統(tǒng)在實(shí)施后，將幫助實(shí)驗(yàn)室管理人員提高工作效率。程序啟動后，首先進(jìn)入“系統(tǒng)登錄”界面驗(yàn)證操作員密碼。

　　

【正文】 功能有： （ 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ā)揮更大的效率?，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ì) 程序啟動后，首先進(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ì) 程序啟動后，在登錄操作員密碼后，將進(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è)備庫中有庫存，如果有庫存，則會使原有的庫存產(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ù)量之后，總 金額會智能改變。 begin :=inttostr(strtoint( )*strtoint( ))。 end。 procedure (Sender: TObject)。 begin :=inttostr(strtoint( )*strtoint( ))。 end。 procedure (Sender: TObject)。//保存按鈕的程序代碼如下 begin with adoquery1 do begin 。 end。 with adoquery1 do begin close。 with sql do begin clear。 add(39。insert into 設(shè)備表 values(:p0,:p1,:P2,:p3,:p4)39。)。 end。 parameters[0].value:=。 parameters[1].value:=。 parameters[2].value:=。 parameters[3].value:=。 parameters[4].value:=。 execsql。 end。 with adoquery1 do begin close。 with SQL do begin clear。 add(39。select * from 設(shè)備表 39。)。 end。 execsql。