實驗室設備管理系統—畢業設計論文(編輯修改稿)

　

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