實驗室設備管理系統(tǒng)畢業(yè)論文-無憂無慮畢設網(wǎng)

無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 本文配套程序下載地址 ： 無憂無慮畢設網(wǎng) ()-大學生畢業(yè)設計站 ,免費畢業(yè)設計論文 ,無憂無慮畢設網(wǎng) 大學生畢業(yè)設計 ,出售各類畢業(yè)設計源碼 ,論文 ,程序源碼 ,網(wǎng)站源碼 ,免費視頻教程 ,我們將竭誠為您服務！ 實驗室設備管理系統(tǒng) 摘要 學校實驗室設備管理系統(tǒng)是典型的設備信息管理系統(tǒng) (EMIS),要求能為學校實驗室管理提供信息化動態(tài)化的管理，方便學校實驗室設備管理工作，提高學校設備管理質(zhì)量和使用效率。而且系統(tǒng)應符合設備管理的有關(guān)規(guī)定，包括新設備的申請、購買確認、新設備信息錄入、舊設備維修和報廢及用 戶管理等。能滿足日常工作的基本需要，并達到操作過程中的直觀、方便、實用、安全等有關(guān)要求。 經(jīng)過分析綜合 ,使用 Sybase公司的 delphi7.0作為前端開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能夠方便而簡潔操縱數(shù)據(jù)庫的智能化對象（后端采用Sybase ASA 數(shù)據(jù)庫） ,本系統(tǒng)采用結(jié)構(gòu)化程序設計方法，嚴格按照結(jié)構(gòu)化方法開發(fā)過程，從計劃階段到開發(fā)階段再到維護階段一步一步實現(xiàn)本系統(tǒng)的功能。 關(guān)鍵詞 : 設備信息管理系統(tǒng)（ EMIS） delphi7.0 Sybase ASA 數(shù)據(jù)庫 快 速原型法 面向?qū)ο?數(shù)據(jù)窗口 數(shù)據(jù)對象 設備購買申請 購買批準確認 新設備信息錄入 設備維修 設備報廢 用戶登錄 用戶管理 一、引言 隨著科學技術(shù)的不斷提高 ,計算機科學日漸成熟 ,其強大的功能已為人們深刻認識它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。 實驗室設備管理系統(tǒng)是一個眾多企業(yè)、事業(yè)單位不可缺少的部分。它的內(nèi)容對于企事業(yè)的決策者和管理者來說都至關(guān)重要 ,所以實驗室設備管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理設備，這種 管理方式存在著許多缺點 ,如 :效率低、保密性差 ,另外時間稍長 ,將產(chǎn)生大量的冗余 ,文件越來越多，使人工管理沒有頭緒，這對于查找、更新和維護都帶來了很大的困難。 作為計算機應用的一部分 ,使用計算機對學校實驗室設備管理 ,具有手工管理所無法比擬的優(yōu)點 .例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提設備管理的效率 ,也是正規(guī)化管理 ,與世界接軌的重要條件。 1.1 編寫目的 本系統(tǒng)的開發(fā)正是為了完成這樣的任務，使用計算機對實驗室設備進行管理 ,具有手工管理所無法比擬的優(yōu) 點 .例如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等 ,它在當今信息社會已成為必要。 1.2 背景 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 儀征 XX 學校是一所職業(yè)中學，擁有多個實驗室，實驗室的儀器設備比較齊全，也比較多，每種設備情況都不一樣。這就給實驗室管理人員的管理帶來了諸多不便。如果管理跟不上，一旦造成錯誤，很可能給學校造成巨大的損失。在沒有使用管理軟件前，管理人員一直為此而苦惱。今年，該校決定采用計算機技術(shù)進行設備上面的管理。根據(jù)該校的具體情況，本系統(tǒng)在實施后，將幫助實驗室管理人員提高工作效率。 本項目的任務提出者 : 學校實驗室設備管理人員 . 開發(fā) :是本人的實驗設計 . 用戶 :為學校實驗室設備管理人員 . 使用該軟件系統(tǒng)同時與其他 Windos 系統(tǒng)兼容 ,能方便實驗室設備管理人員管理 . 1 3 功能介紹 系統(tǒng)主要功能有： （ 1）設備管理：添加設備、添加設備、修改設備、設備情況查詢。 （ 2）系統(tǒng)管理：用戶管理（添加用戶、刪除用戶、更改密碼）、換名登錄、退出系統(tǒng)。 （ 3）系統(tǒng)幫助：關(guān)于。 二、系統(tǒng)框架設計 根據(jù)本系統(tǒng)的功能主框架設計如下所示： 三 、數(shù)據(jù)庫設計 實驗室設備管理系統(tǒng) 用戶管理 修改密碼 換名登錄 退出系統(tǒng) 系統(tǒng)功能 設備管理 設備資料入庫 設備資料管理 入庫記錄查詢 設備資料出庫 出庫記錄查詢 設備情況瀏覽 幫助系統(tǒng) 關(guān)于 幫助系統(tǒng) 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 針對該校的具體情況，本系統(tǒng)采用了 Access2000 數(shù)據(jù)庫，數(shù)據(jù)庫路徑為 人事管理系統(tǒng)。數(shù)據(jù)庫共有 4 個數(shù)據(jù)庫表：用戶表、設備表、入庫記錄表、出庫記錄表。 下面主要介紹一些重要數(shù)據(jù)庫表的結(jié)構(gòu)。 1、用戶表 該表主要用來存放系統(tǒng)用戶資料。 其主要結(jié)構(gòu)如下所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 用戶名 文本 10 用戶的名稱 口令 文本 10 用戶的口令 2、設備表 設備表主要用來存放設備的相關(guān)信息。 表結(jié)構(gòu)如下所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設備的編號 設備名稱 文本 20 設備的名稱 數(shù)量 文本 4 設備的數(shù)量 單價 貨幣 設備的單價 總金額 貨幣 設備的總金額 3、入庫記錄表 入庫記錄表主要用于存放設備入庫時的相關(guān)信息。 表結(jié)構(gòu)如下圖所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設備的編號 設備名稱 文本 20 設備的名稱 數(shù)量 文本 4 設備的數(shù)量 總金額 貨幣 總金額 入庫日期 日期 /時間 入庫的日期 經(jīng)辦人 文本 10 經(jīng)手辦此事的人名 備注 備注 備注 4、出庫記錄表 出庫記錄表主要用于存 放設備出庫時的相關(guān)信息。 表結(jié)構(gòu)如下圖所示： 字段名稱 數(shù)據(jù)類型 字段大小 說明 編號 文本 6 設備的編號 設備名稱 文本 20 設備的名稱 數(shù)量 文本 4 設備的數(shù)量 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 總金額 貨幣 總金額 出庫日期 日期 /時間 入庫的日期 經(jīng)辦人 文本 10 經(jīng)手辦此事的人名 備注 備注 備注 Delphi7.0 中數(shù)據(jù)庫的連接方式。 Delphi 可以使用多種數(shù)據(jù)庫。我們這里使用 ADO 開發(fā)數(shù)據(jù)庫技術(shù)。使用 ADO 開發(fā)數(shù)據(jù)庫程序，通常需要以下組件： Datasource。 Adoconnetion。 Adocommand。 adodataset。 adotable。 adoquery。 adostoredproc。 使用 ADO 開發(fā)數(shù)據(jù)庫程序的步驟如下： （ 1）在窗體添加 TADOConnection 組件（名稱為 ADOConnection1），可以雙擊該組件設計其數(shù)據(jù)庫連接屬性。如下圖所示： 選擇 User Connection String，然后單擊 Build 按鈕，進入下圖所示的界面。 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 使用 OLE DB 連接能夠發(fā)揮更大的效率?，F(xiàn)在我們使用的是 Access2000，則可以選 擇Microsoft Jet4.0OLE DB Provider。選擇好后，單擊“下一步”按鈕，進入下圖所示界面。 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 點右邊的 按鈕，則進入選擇數(shù)據(jù)庫頁面。選擇好數(shù)據(jù)庫，點擊測試連接按鈕。 四、詳細設計 1、系統(tǒng)登錄界面設計 程序啟動后，首先進入“系統(tǒng)登錄”界面驗證操作員密碼。系統(tǒng)登錄窗口主要實現(xiàn)如下功能： 以圖標列表形式顯示操作員，并憑口令進入系統(tǒng)。 操作員錯誤或密碼錯誤提醒并返回錯誤點。 系統(tǒng)登錄界面如下圖所示： 具體實現(xiàn)如下： 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 添加新窗體，設置窗體 caption 屬性為登陸窗口，向窗體中添加相關(guān)控 件。 程序代碼如下： procedure Tloginform.FormShow(Sender: TObject)；/讓窗體在顯示之后，框中有用戶選擇。 var list_a:TlistItem； begin adoquery1.Close； adoquery1.SQL.Clear； adoquery1.sql.add(select * from 用戶表 )；/選擇所有操作員 adoquery1.Open； listview1.Items.Clear；/清空列表 while not adoquery1.Eof do/將所有操作人員加入到列表 begin list_a:=listview1.Items.Add； list_a.Caption :=adoquery1.fieldbyname(用戶名 ).AsString ； list_a.ImageIndex:=1； adoquery1.Next ； end； edit1.setfocus； end； procedure Tloginform.Button2Click(Sender: TObject)；/退出 begin close； end； procedure Tloginform.ListView1Click(Sender: Tobject)；/選擇操作員 begin if listview1.Selected Nil then/如果選擇不為空 adoquery1.Locate(用戶名 ,listview1.Selected.Caption,loPartialkey)； end； procedure Tloginform.Button1Click(Sender: TObject)；/如果密碼不正確 begin if edit1.Text adoquery1.FieldByName(口令 ).AsString then begin showmessage(密碼不正確請重新輸入 !)； edit1.Clear； edit1.SetFocus； end else begin mainform.showmodal； edit1.Clear； listview1.SetFocus ； end； end； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： procedure Tloginform.Edit1KeyPress(Sender: TObject； var Key: Char)；/執(zhí)行登錄操作 begin if key=#13 then button1.Click； end； 2、主窗體界面設計 程序啟動后，在登錄操作員密碼后，將進入主程序界面。主程序界面主要實現(xiàn)如下功能： 使用菜單操作、顯示系統(tǒng)日期、單位信息。通過主界面，退出程序。 3、系統(tǒng)管理功能模塊的設計 （ 1）用戶管理 添加按鈕的代碼如下： procedure Tyhglform.Button1Click(Sender: TObject)； begin adotable1.Append； tjyhform.showmodal；/添加用戶窗口顯示 end； 刪除按鈕的程序如下： procedure Tyhglform.Button2Click(Sender: TObject)； begin if messagebox(yhglform.Handle, 確 定 要 刪 除 本 條 記 錄 嗎 ？ , 請 確 認,mb_okcancel)=idok then begin adotable1.delete； end； end； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 添加用戶窗口如下所示： （ 2）修改口令窗口如下所示： 4、設備管理模塊的設計 （ 1）設備資料入庫 輸入用戶名和密碼，點擊確定。 代碼如下： procedure Ttjyhform.Button1Click(Sender: TObject)； begin yhglform.adotable1.post； dbedit1.Text :=； dbedit1.Clear ； dbedit2.Text :=； dbedit1.SetFocus ； end； 該界面之確定按鈕代碼如下： procedure Tfrm_xgmm.BitBtn1Click(Sender: TObject)； begin if edit3.Textedit2.Text then begin messagebox(frm_xgmm.Handle,請重新確認新密碼！ ,提示 ,mb_iconerror)； edit3.Text:=； edit3.SetFocus； end else begin adotable1.Edit； adotable1.Fields1.Value:=edit3.Text； adotable1.Post； messagebox(frm_xgmm.Handle,您的密碼修改成功！ ,信息 ,mb_iconasterisk)； close； end； end； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： “確定”按鈕的程序如下： procedure Tsbrkform.Button1Click(Sender: TObject)； begin if edit6.Text= then begin showmessage(該記錄不能為空 )； exit； edit6.Clear； edit6.SetFocus ； end； if length(trim(edit1.Text)6 then begin showmessage(請輸入 6 位設備編號 )；/判斷設備編號是否為 6 位 edit1.Clear； edit1.SetFocus ； exit； end； with adoquery1 do begin close； adoquery1.SQL.Clear； adoquery1.SQL.add(select * from 設備表 where 編號 =:id)； parameters.parambyname(id).Value:=edit1.text； adoquery1.Open； if recordcount0 then begin adoquery1.Edit； adoquery1.fieldbyname( 數(shù)量).Value :=strtoint(edit3.text)+strtoint(adoquery1.FieldByName(數(shù)量 ).asstring)； adoquery1.FieldByName( 總金 額 ).Value:=strtoint(adoquery1.fieldbyname( 單價無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： ).asstring)*strtoint(adoquery1.fieldbyname(數(shù)量 ).asstring)； adoquery1.FieldByName(編號 ).Value:=edit1.Text ； adoquery1.FieldByName(設備名稱 ).Value:=edit2.Text ； adoquery1.FieldByName(單價 ).Value:=edit4.Text； post； end else begin adoquery1.Append； adoquery1.FieldByName(編號 ).Value:=edit1.Text ； adoquery1.FieldByName(設備名稱 ).value:=edit2.Text ； adoquery1.FieldByName(數(shù)量 ).Value:=edit3.Text ； adoquery1.FieldByName(單價 ).Value:=edit4.Text ； adoquery1.FieldByName(總金額 ).Value:=strtoint(edit4.Text)*strtoint(edit3.Text) ； post； end； with adoquery2 do adoquery2.Close； adoquery2.SQL.Clear； adoquery2.SQL.Add(select * from 入庫記錄表 )； adoquery2.Open； adoquery2.Edit ； adoquery2.Append； adoquery2.Fields0.Value :=edit1.Text； adoquery2.Fields1.Value :=edit2.Text； adoquery2.Fields2.Value :=edit3.Text； adoquery2.Fields3.Value :=strtoint(edit3.Text)*strtoint(edit4.Text)； adoquery2.Fields4.Value :=date； adoquery2.Fields5.Value :=edit6.Text ； adoquery2.Fields6.Value :=memo1.Text ； adoquery2.Post； end； edit1.Clear； edit2.Clear； edit3.Clear； edit4.Clear； edit6.Clear； memo1.Clear； edit1.SetFocus； end； 該程序為判斷該產(chǎn)品是否在設備庫中有庫存，如果有庫存，則會 使原有的庫存產(chǎn)生改變。 （ 2）設備資料管理 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 該程序模塊的用法如下：先在左邊選中某個數(shù)據(jù)，如果想修改，則點擊修改按鈕，則左邊選中數(shù)據(jù)在右邊顯示出詳細信息。用戶修改之后，點擊保存即可。 另外此界面中還實現(xiàn)了查詢、打印功能。 具體該程序的代碼如下所示： procedure Tsbglform.Button1Click(Sender: TObject)；/修改按鈕的程序代碼 begin edit1.Text :=adoquery1.Fields0.AsString ； edit2.Text :=adoquery1.Fields1.AsString ； edit3.Text :=adoquery1.Fields 2.AsString ； edit4.Text :=adoquery1.Fields 3.AsString ； edit5.Text :=adoquery1.Fields 4.AsString ； end； procedure Tsbglform.Edit4Exit(Sender: TObject)；/當修改過價格或數(shù)量之后，總金額會智能改變。 begin edit5.Text :=inttostr(strtoint(edit4.Text )*strtoint(edit3.Text )； end； procedure Tsbglform.Edit3Exit(Sender: TObject)； begin edit5.Text :=inttostr(strtoint(edit4.Text )*strtoint(edit3.Text )； end； procedure Tsbglform.Button2Click(Sender: TObject)；/保存按鈕的程序代碼如下 begin with adoquery1 do begin adoquery1.delete； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： end； with adoquery1 do begin close； with sql do begin clear； add(insert into 設備表 values(:p0,:p1,:P2,:p3,:p4)； end； parameters0.value:=edit1.text； parameters1.value:=edit2.text； parameters2.value:=edit3.text； parameters3.value:=edit4.text； parameters4.value:=edit5.text； execsql； end； with adoquery1 do begin close； with SQL do begin clear； add(select * from 設備表 )； end； execsql； open； end； end； procedure Tsbglform.Button3Click(Sender: TObject)；/刪除記錄 begin if application.MessageBox( 確 定 要 刪 除 這 條 記 錄 嗎 , 提示,mb_okcancel+mb_iconinformation)=id_ok then with adoquery1 do if isempty=false then delete； end； procedure Tsbglform.Button5Click(Sender: TObject)； begin if combobox1.Text =編號 then 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： begin with adoquery1 do begin close； sql.Clear； sql.add(select * from 設備表 where 編號 =:id)； parameters.ParamByName (id).Value :=edit6.text； open； if recordcount=0 then begin application.MessageBox( 沒 有 檢 索 到 該 設 備 信 息 , 提示,mb_ok+mb_iconinformation)； end； end； end； if combobox1.Text =設備名稱 then begin with adoquery1 do begin close； sql.Clear； sql.add(select * from 設備表 where 編號 =:d)； parameters.ParamByName (d).Value :=edit6.text； open； if recordcount=0 then begin application.MessageBox( 沒 有 檢 索 到 該 設 備 信 息 , 提示,mb_ok+mb_iconinformation)； end； end； end； end； procedure Tsbglform.Button6Click(Sender: TObject)；/打印窗口的代碼如下 beginbbdyform.QuickRep1.Preview ； end； procedure Tsbglform.FormShow(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.add(select * from 設備表 )； adoquery1.Open； end； procedure Tsbglform.Button7Click(Sender: TObject)；/刷新 begin adoquery1.Refresh ； end； 打印窗口如下所示： 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： （ 3）入庫記錄查詢 功能為可查詢歷來設備入庫的具體記錄。界面如下所示： 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： 可按照入庫時間來查詢。 程序代碼如下所示： procedure Trkcxform.Button1Click(Sender: TObject)； begin inherited； with adoquery1 do begin close； adoquery1.SQL.clear； adoquery1.SQL.add(select * from 入庫記錄表 where 入庫日期 =:id )； adoquery1.Parameters .parambyname(id).value:=datetostr(datetimepicker1.Date )； adoquery1.open； adoquery1.first； end； end； （ 4）設備資料出庫 功能為對設備庫中的設備出庫操作。 界面如下所示： 該模塊具有智能化，會根據(jù)你輸入的設備編號，自動得出設備名稱。 程序代碼具體如下： procedure Tsbckform.Button1Click(Sender: TObject)； begin 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： if edit6.Text= then begin showmessage(該記錄不能為空 )； exit； edit6.Clear； edit6.SetFocus ； end； if length(trim(edit1.Text)6 then begin showmessage(請輸入 6 位設備編號 )； edit1.Clear； edit1.SetFocus ； exit； end； with adoquery1 do begin close； adoquery1.SQL.Clear； adoquery1.SQL.add(select * from 設備表 where 編號 =:id)； parameters.parambyname(id).Value:=edit1.text； adoquery1.Open； if recordcount0 then begin adoquery1.Edit； adoquery1.fieldbyname( 數(shù)量 ).Value :=strtoint(adoquery1.FieldByName( 數(shù)量).asstring)-strtoint(edit3.text)； adoquery1.FieldByName( 總金額 ).Value:=strtoint(adoquery1.fieldbyname( 單價).asstring)*strtoint(adoquery1.fieldbyname(數(shù)量 ).asstring)； adoquery1.FieldByName(編號 ).Value:=edit1.Text ； adoquery1.FieldByName(設備名稱 ).Value:=edit2.Text ； adoquery1.FieldByName(單價 ).Value:=edit4.Text； post； end； with adoquery2 do adoquery2.Close； adoquery2.SQL.Clear； adoquery2.SQL.Add(select * from 出庫記錄表 )； adoquery2.Open； adoquery2.Edit ； adoquery2.Append； adoquery2.Fields0.Value :=edit1.Text； 無憂無慮畢設網(wǎng) ():畢業(yè)設計源碼下載 畢業(yè)設計源碼下載： adoquery2.Fields1.Value :=edit2.Text； adoquery2.Fields2.Value :=edit3.Text； adoquery2.Fields3.Value :=strtoint(edit3.Text)*strtoint(edit4.Text)； adoquery2.Fields4.Value :=date； adoquery2.Fields5.Value :=edit6.Text ； adoquery2.Fields6.Value :=memo1.Text ； adoquery2.Post； end； edit1.Clear； edit2.Clear； edit3.Clear； edit4.Clear； edit6.Clear； memo1.Clear； button2.SetFocus； end； procedure Tsbckform.Button2Click(Sender: TObject)； begin close； end； procedure Tsbckform.Edit1Exit(Sender: TObject)； begin with adoquery1 do begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.add(select * from 設備表 wh