實驗室設備管理系統—畢業設計論文-資料下載頁

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

　　

【正文】 ． 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 連接能夠發揮更大的效率。現在我們使用的是 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。 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 設備表 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 設備表 39。)。 end。