實驗室儀器管理系統(tǒng)的設計與實現(xiàn)畢業(yè)論文

摘 要DELPHI7WindowsMicrosoftSQLServer2000Delphi7.0的技術手段，完成了實驗室管理信息系統(tǒng)管理子系統(tǒng)的實施。本文的目的是通過調研、分析、設計和實施，完成實驗室管理信息系統(tǒng)中管理子系統(tǒng)的開發(fā)；通過對數(shù)據高效、自動的處理，將管理子系統(tǒng)的各個部分有機地結合在一起，實現(xiàn)數(shù)據共享，提高管理的效率。關鍵詞 系統(tǒng)設計系統(tǒng)分析 子系統(tǒng)Titlelaboratory instrument management systemAbstractAsaneffectiveinstrument,computerhasplayedaveryimportantroleinthemanagementofmodernenterprise'smanagement.Consideringthesituationinlaboratoryinstrumentmanagement,throughtheactualdemandanalysis,thetextdevelopedalaboratoryinstrumentmanagementsystembyfunctionformidableDELPHI7.Thistextoutlinedthecurrentsituationinmanagementsubsystem.Thenitproposedthecorrespondingsolutionaccordingtocurrentsituation,andcarriedonthedataflowanalysisofdataflowanalysismanagementsubsystemregardinguser’sdemand.Thetextdividedthesystemmodulebasedonthesystemanalysis,andcarrieddetaildesignondatabase,inputandoutput,codeandinterface.Throughthepreparationforsystemsoftwareandhardware,thistextimplementedthemanagementsubsystemofthelaboratoryinformationmanagementsystemusing.This article goal is to complete the development of laboratory informationmanagementsystemthroughtheinvestigationandstudy,theanalysis,thedesignandtheimplementation.Througheffectivedatasharingandautomaticprocessing,thetextmanagedeachpartofsubsystemtounifyorganicallyintogether,enhanceddatasharingandincreasedtheefficiencyofmanagement.Keywords DatabaseSQLSERVER Delph7Systemdesign Systemanalysis目次系統(tǒng)概述 4需求分析 4主要功能 4系統(tǒng)結構 4DELPHI簡介 4數(shù)據庫及其應用 5數(shù)據庫系統(tǒng) 6系統(tǒng)結構圖編程思路 8主要用到的控件 8整體思路 8系統(tǒng)設計 8數(shù)據庫的設計 10數(shù)據庫邏輯結構設計 11程序詳細設計 13窗體和模塊的創(chuàng)建 13儀器借用信息維護窗體的設計 16儀器和實驗代碼維護 17借用人通訊錄維護窗體的設計 18儀器統(tǒng)計相關窗體的創(chuàng)建 23儀器是否借出統(tǒng)計窗體的設計 24儀器分類統(tǒng)計窗體的設計 26結論 28致謝 29參考文獻 30系統(tǒng)概述需求分析實驗儀器管理是一個單位不可缺少的部分，尤其對于一個大型的實驗室來說，它的管理直接影響到他的成功與失敗。隨著社會的不斷在發(fā)展，我們應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理，這種管理方式存在著許多缺點，如：效率低、保密性差，另外時間一長，將產生大量的文件和數(shù)據，這對于查找、更新和維護都帶來了不少的困難。總體來說，在現(xiàn)在這個時代，計算機的應用已經成了一種趨勢。主要功能首先了解一下這個實驗室儀器管理系統(tǒng)的主要功能。實驗室儀器管理系統(tǒng)，主要實現(xiàn)以下幾項功能：基本儀器信息錄入，修改和信息查詢。借用信息維護，包括錄入，修改和查詢，以及打印儀器催交通知書等功能。代碼庫維護，包括實驗代碼庫，分類代碼庫的維護。統(tǒng)計信息，包括儀器狀況，借出情況和儀器分類統(tǒng)計。1.3 系統(tǒng)結構本系統(tǒng)的結構圖可以表示成如圖1.1所示。Delphi簡介Delphi是美國BorlandSoftwareCorporation公司的編程工具產品。它基于Pascal語言，具有語法嚴謹、結構清晰、可讀性強和代碼執(zhí)行效率高等優(yōu)點；最重要的是，它功能強大且靈活易學，利用Delphi，我們在Windows平臺下幾乎可以做任何事情。C++Builder了dbExpress和網絡相關組件。儀借器基借出出人信報本信通息表信息訊統(tǒng)輸息管錄計出管理管理理啟動系統(tǒng)實驗室儀器管理系統(tǒng)啟動系統(tǒng)實驗室儀器管理系統(tǒng)退出系統(tǒng)1.5 數(shù)據庫及其應用2070管理,20世紀9012個以數(shù)據庫為基礎的大型計算機系統(tǒng)，這些系統(tǒng)財稅等行業(yè)?，F(xiàn)在，數(shù)據庫技術還在不斷發(fā)展，并且不斷的與其它計算機技術相互滲透。數(shù)21,,量該國信息化程度的重要標志。因此，數(shù)據庫的學習是非常重要的。數(shù)據庫系統(tǒng)數(shù)據庫系統(tǒng)本質上是一個用計算機存儲記錄的系統(tǒng)。數(shù)據庫本身可被看作為一種電子文件柜：也就是說，它是收集計算機數(shù)據文件的倉庫或容器。系統(tǒng)用戶可以對這些文件執(zhí)行插入數(shù)據、檢索數(shù)據、更改數(shù)據、刪除數(shù)據等一系列操作?？傊?，數(shù)據庫系統(tǒng)是一個計算機存儲記錄的系統(tǒng)，即它是一個計算機系統(tǒng)，該系統(tǒng)的目標存儲信息并支持用戶檢索和更新所需要的信息。圖1.2是一個數(shù)據庫系統(tǒng)的簡圖。圖1.2數(shù)據庫系統(tǒng)簡圖本系統(tǒng)采用SQL技術建立數(shù)據庫，使用Delphi技術建立數(shù)據源的鏈接，并且生成實驗室管理的數(shù)據庫應用程序從而實現(xiàn)數(shù)據庫的管理功能。SQL語言介紹SQL(StructuredQueryLanguage，結構查詢語言)SQL美國國家標準學會）是關系數(shù)據庫SQLSQL的常見關系數(shù)據庫管理系統(tǒng)有：OracleSybaseMicrosoftSQLServerAccess使用的SQL命令，比如"Select"、"Insert"、"Update"、"Delete"、"Create"和"Drop"常常被用于完成絕大多數(shù)數(shù)據庫的操作。MSSQLServer就是用的Transact-。SQL語言有著非常突出的優(yōu)點，主要是：非過程化語言統(tǒng)一的語言是所有關系數(shù)據庫的公共語言是一個非過程化的語言，因為它一次處理一個記錄，對數(shù)據提供自動導航。SQL可操作記錄集，所有SQLSQL的集合特性允許一條SQL語句的結果作為另一條SQL語句的輸入。SQL語句使用查詢優(yōu)化器，它是RDBMS的一部分，由它決定對指定數(shù)據存取的不需要知道表是否有索引、有什么類型的索引。統(tǒng)一的語言：SQL可用于所有用戶的DB活動模型，包括系統(tǒng)管理員、數(shù)據庫管理員、應用程序員、決策支持系統(tǒng)人員及許多其它類型的終端用戶。SQL為許多任務提供了命令，其中包括：查詢數(shù)據在表中插入、修改和刪除記錄建立、修改和刪除數(shù)據對象控制對數(shù)據和數(shù)據對象的存取保證數(shù)據庫一致性和完整性以前的數(shù)據庫管理系統(tǒng)為上述各類操作提供單獨的語言，而SQL將全部任務統(tǒng)都支持SQLSQL的技能從一個RDBMS(關系數(shù)據庫管理系統(tǒng))另一個，所有用SQL編寫的程序都是可以移植的。系統(tǒng)結構圖編程思路主要用到的控件實驗室儀器管理系統(tǒng)主要用到的控件如下：等。數(shù)據控制控件：TDBGRID，TDBCHART等。等。整體思路5合編譯，以及系統(tǒng)功能的完善。系統(tǒng)設計系統(tǒng)功能分析基本信息錄入：包括儀器基本信息，借用信息和借用人基本信息的錄入主要借用了數(shù)據編輯控件，例如， TEDIT，TMASKEDIT。TCOMBOBOX和TDATATIMEPICK等控件提供給用戶輸入數(shù)據，然后用 TABLE數(shù)據集控件的APPEND功能錄入信息。在錄入時，提供較嚴格的數(shù)據檢查機制控制差錯輸入?？丶鵗ABLE數(shù)據集連接的數(shù)據表中的數(shù)據進行修改。TQUERY帶參數(shù)進行多條件作何查詢。是按用戶輸入的名字動態(tài)打印。TCHARTTDBCHART控件來實現(xiàn)。系統(tǒng)功能模塊設計系統(tǒng)功能模塊設計,。實驗儀器管理實驗儀器管理儀儀儀儀通儀器器訊器基借錄相本用信關信信息代息息管碼管管理管理理理儀儀儀器器器狀借分況用類統(tǒng)統(tǒng)統(tǒng)計計計儀器信息管理儀器分類統(tǒng)計圖實驗室儀器管理系統(tǒng)功能模塊圖儀器信息管理儀器分類統(tǒng)計還可以在系統(tǒng)擴展中添加儀器功能和作用介紹。數(shù)據流程圖系統(tǒng)的數(shù)據流程如圖2.2所示。查詢查詢查詢結果儀器信息記錄儀器信息用戶添加，修改，刪除借用信息記錄借用信息報表輸出借用信息借用人通信信通訊錄催還通知單圖2.2實驗室儀器管理系統(tǒng)數(shù)據流程圖數(shù)據庫的設計數(shù)據庫的需求分析數(shù)據流程圖，可以列出下列系統(tǒng)所需要的數(shù)據項和數(shù)據結構：啟用日期，放置位置，分類碼，備注。借用日期，歸還日期，用途，備注。儀器借用者通訊錄表：姓名，性別， ， 地址，電子郵件，生日注。實驗代碼庫表：所屬實驗碼，實驗名稱。儀器分類代碼庫表：分類碼，名稱。數(shù)據庫概念結構設計實驗室儀器管理系統(tǒng)主要的E-R如圖2.3所示。儀器信息表儀器信息表儀器借用信息儀器編號儀器名稱……..1：1儀器編號登記編……………借用N:1記錄儀器借用報表輸出N:1通訊信息表實驗代碼表儀器分類表分類碼名稱所屬實驗碼實驗名稱姓名地址……圖2.3實驗室儀器管理系統(tǒng)E-R圖數(shù)據庫邏輯結構設計5信息，借用人通訊錄和兩個代碼庫的信息保存；需要建立的數(shù)據表如下圖所示。儀器基本信息表表2.4儀器基本信息表字段值數(shù)據類型是否可空儀器編號（關鍵字）Char(6)Notnull儀器名稱Char(20)yes型號Char(16)Yes價格FloatYes所屬實驗Char(2)yes狀況Char(4)Notnull啟用日期Dateyes放置位置Char(4)Yes分類碼Char(2)yes備注Char(100)yes通訊錄表表2.5通訊錄表字段值數(shù)據類型是否可空姓名（關鍵字）CHAR（8）NOTNULL性別CHAR（2）YESCHAR（13）YES地址CHAR（30）NOTNULLCHAR（6）NOTNULL電子郵件CHAR（20）YES生日CHAR（5）YES備注CHAR（100）YES實驗代碼表表2.6實驗代碼表字段值字段值數(shù)據類型是否可空（關鍵字）CHAR（2）NUTNULL名稱 NOTNULL實驗分類代碼庫字段值數(shù)據類型是否可空所屬實驗碼（關CHAR（2）NUTNULL鍵字）實驗名稱NOTNULL 程序詳細設計窗體和模塊的創(chuàng)建主窗口的創(chuàng)建。主窗口主菜單設計4所示。主菜單從圖中可以看出，主菜單有兩個子菜單組成分別對應系統(tǒng)的兩大功能模塊，子菜單的設計都很簡單。各菜單項所完成的功能都是調用相關功能模塊的窗體。（1）儀器的管理：①②③④⑤退出：close.儀器統(tǒng)計：①②③jilu.pasassort.pas是儀器分類統(tǒng)計圖的單元tongxun.pas是借用儀器者的通訊資料管理窗體的單元文件名；code.pas是在儀器管理系統(tǒng)中所包含的各種代碼jiechu.pas是按儀器是否借出統(tǒng)計圖窗體的文件名。儀器管理相關功能窗口的創(chuàng)建：儀器管理包括四個功能模塊，分別用于管理儀器基本信息，儀器借用信息，借用人通訊信息以及實驗相關代碼維護，下面分別介紹。實驗儀器基本信息窗體在實驗儀器基本信息窗體中，主要提供三種功能，分別用于實現(xiàn)儀器基本信息的添加，修改和查詢，用三個選項卡在一個窗體中來實現(xiàn)。“輸入記錄”的設計窗體：“輸入記錄”的設計窗體如圖3.3所示。圖儀器基本信息——輸入記錄頁DBGIRDDBGIRDDATASOURCETABLEQUERY的數(shù)據集控件?！八鶎賹嶒灧诸悹顩r”TCOMBOBOX，“啟用日期”備注”TMEMOTEDIT，而且我們還對“儀器編號”輸入框做了MAXLENGTHBASIC_INFO.DB中“儀器編號”的字段的長度：另外對于上面提到的前兩個TCOMBOBOXONSHOW事件中從CODE1.DB，CODE2.DB“狀況”右邊的列表框中的數(shù)據，因為數(shù)ITEMS屬性中有如下數(shù)據：良好，好，可用，待修，報廢。該頁下半部分的DBGIRD主要用于顯示數(shù)據表中的信息，其DGROWSELECT屬性為TURE，用戶只能瀏覽而不能通過該網格修改表中信息。TDBEDIT，TDBMEMOTDBGRIDDBROWSELECTTURE乎不涉及代碼的編寫。QUERY件動態(tài)產生。在實現(xiàn)時，定義了一個本窗體的全局變量SELSTR的組合要求，即使用“OR“AND的方法組合查詢。SELSTR在本窗體的ONCREATE部分初始化為“OR”TRADIOBUTTONONCLICK事件中改變：①“邏輯或”單選按鈕的ONCLICK事件：selstr:=’or’②“邏輯與”單選按鈕的ONCLICK事件：selstr:=’and’其中‘and’和‘or’的前后都留有一個空格。圖中“啟用日期”右邊的控件是TDATETIMEPICKER；“狀況”右邊的控件是TCOMBOBOXITEMSTEDIT儀器借用信息維護窗體的設計該窗體的設計思路和儀器基本信息窗體的設計思路基本上是一樣的，窗體主要也涉及到三頁的選項卡，分別提供錄入，修改，查詢的功能，介紹如下?！拜斎胗涗洝表摰脑O計：設計界面如圖3.4所示。TABLETABLEborrow_info.db，TABLE法的，即不能借出QUERY用來查詢記錄。該頁的“儀器名稱”右邊的輸入框是只讀的，其信息根據用戶輸入的儀器編號，從儀器信息表中讀出?！靶薷挠涗洝表摰脑O計，如圖所示。儀器借用——輸入記錄頁儀器借用——修改記錄設計頁TDBEDIT，TDBMEMO。儀器和實驗代碼維護儀器和實驗代碼運行界面。儀器和實驗代碼維護設計窗體TABLE連接的數(shù)據表分別是：code1.dbcode2.db代碼和儀器分類代碼。借用人通訊錄維護窗體的設計TABLEQUERY用來查詢記錄，下面分別介紹三個頁的設計情況?！颁浫胗涗洝表摰脑O計：本頁的設計情況如圖3.7所示。圖錄入記錄性別”ITEMS男女”是在設計時輸入的；“”，“生日”，“”TMASKEDIT控件；“備注”輸入使用的TMEMOTEDITTDBGRID給擁護瀏覽記錄。“確定”按鈕實現(xiàn)代碼如下：procedureTForm_Tongxun.SpeedButton1Click(Sender:TObject);beginwithtable_TongxundobeginAppend;FieldByName('姓名').AsString:=Edit_Name.Text;FieldByName('性別').AsString:=combobox1.Text;FieldByName(' ').AsString:=MaskEdit_Num.Text;FieldByName('備注').AsString:=Edit_Memo.Text;生日').AsString:=MaskEdit_Birth.Text;FieldByName(' ').AsString:=Edit_post.Text;FieldByName('地址').AsString:=Edit_Address.Text;FieldByName('EMAIL').AsString:=EDIT_Mail.Text;Post;end;end;“取消”按鈕實現(xiàn)代碼如下：beginedit_Name.Clear;MaskEdit_Num.Clear;Edit_Memo.Clear;MaskEdit_Birth.Clear;edit_post.Clear;Edit_Address.Clear;Edit_Mail.Text:='@';Edit_Memo.Lines.Clear;end;“查詢記錄”頁的設計：該頁的設計如圖3.8所示。圖借用人通訊錄——查詢記錄設計頁“查詢”按鈕實現(xiàn)代碼如下：beginifradiobutton1.Checked thenlogicstr:='andifradiobutton2.Checkedthenlogicstr:='or';sqlstr:='select * from borrowers where 姓名=:sname'+logicstr+'性別=:ssex'+logicstr;sqlstr:=sqlstr+' =:sphone'+logicstr+'地址withquery_ComdobeginClose;SQL.Clear;SQL.Add(sqlstr);ParamByName('sname').AsString:=edit_sql_name.Text;ParamByName('ssex').AsString:=combobox2.Text;ParamByName('sphone').AsString:=maskedit_sql_num.Text;ParamByName('saddress').AsString:=edit_Sql_Add.text;Open;ifrecordcount=0thenmessagedlg('',mtinformation,[mbOk],0);end;end;“查詢所有記錄”按鈕實現(xiàn)代碼如下：beginwithquery_ComdobeginClose;SQL.Clear;sQL.Add('select*fromlabcom');Open;end;end;。圖3.9借用人通訊錄——打印報表設計頁“查詢并打印結果（信封格式的催還通知單；而“打印全部借用信息”則打印所有儀器借用信息和借用人相關信IMPLEMENTATION兩個報表所在的單元文件。代碼如下：ImplementationUsesallcuihuan,print;{$R*.dfm}“查詢并打印結果（信封格式）”按鈕的實現(xiàn)代碼如下：varq:tquery;beginiftrim(edit_jy_name.Text)=''thenbeginmessagedlg('名字不能為空！',mtError,[mbok],0);exit;end;q:=tquery.Create(nil);q.DatabaseName:=form_print.Query1.DatabaseName;q.SQL.Add('select*fromborrowerswhere姓名=:bname');q.ParamByName('bname').AsString:=edit_JY_Name.Text;q.Open;ifq.RecordCount=0thenbeginmessagedlg('庫中無此人！',mtinformation,[mbok],0);q.Close;q.Free;exit;endelsebeginq.Close;q.Free;form_print.Query1.ParamByName('qname').AsString:=edit_JY_Name.Text;form_print.Query1.Open;Form_Print.qrp.preview;end;儀器統(tǒng)計相關窗體的創(chuàng)建儀器狀況統(tǒng)計窗體，。代碼為：

儀器狀況表procedureTForm_Tongji_State.FormShow(Sender:TObject);vart:Ttable;i:integer;data_sum:array[1..6]ofinteger;begint:=Ttable.Create(nil);t.DatabaseName:='apparatusmgr';t.TableName:='basic_info.db';t.Open;series1.Clear;fori:=1to6dodata_sum[i]:=0;whilenott.EofdowithtdobeginifFieldByName('狀況').AsString=''data_sum[1]:=data_sum[1]+1;ifFieldByName('狀況').AsString='好data_sum[2]:=data_sum[2]+1;ifFieldByName('狀況').AsString='良好data_sum[3]:=data_sum[3]+1;ifFieldByName('狀況').AsString='勘用data_sum[4]:=data_sum[4]+1;ifFieldByName('狀況').AsString='待修data_sum[5]:=data_sum[5]+1;ifFieldByName('狀況').AsString='報廢data_sum[6]:=data_sum[6]+1;Next;end;Series1.Add(data_sum[2],'好',clTeeColor);Series1.Add(data_sum[3],'良好',clTeeColor);Series1.Add(data_sum[4],'勘用',clTeeColor);Series1.Add(data_sum[5],'待修',clTeeColor);Series1.Add(data_sum[6],'報廢',clTeeColor);Series1.Add(data_sum[1],'其他',clTeeColor);t.Close;t.Free;end;儀器是否借出統(tǒng)計窗體的設計儀器是否借出統(tǒng)計窗體的設計運行界面，。借出統(tǒng)計窗體代碼如下：beginseries1.Clear;t:=ttable.Create(nil);t.DatabaseName:='apparatusmgr';t.TableName:='borrow_info.db';t.Open;i:=t.RecordCount;t.Close;t.TableName:='basic_info.db';t.Open;j:=t.RecordCount-i;t.Close;t.Free;Series1.Add(i,'已借出',clTeeColor);Series1.Add(j,'未借出',clTeeColor);end;儀器分類統(tǒng)計窗體的設計儀器分類統(tǒng)計窗體的設計，。圖儀器分類統(tǒng)計窗體ONSHOW得，代碼如下：procedureTForm_Assort.FormShow(Sender:TObject);varq:Tquery;sqlstr:string;beginq:=Tquery.Create(nil);q.DatabaseName:='apparatusmgr';series1.Clear;sqlstr:='select a.名稱as 名稱,count(b.儀器編號) as 數(shù)量fromcode2a,basic_infob';sqlstr:=sqlstr+'whereb.分類碼=a.分類