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

1、摘 要計算機作為一種高效的管理工具，對現(xiàn)代企業(yè)的管理發(fā)揮了極其重要的作用。本文結(jié)合實驗室儀器管理的情況，經(jīng)過實際的需求分析，采用功能強大的DELPHI7作為開發(fā)工具而開發(fā)出來的實驗室儀器管理系統(tǒng)。對于管理子系統(tǒng)的現(xiàn)狀進行了概述，并根據(jù)其現(xiàn)狀提出了相應的解決方法，而且結(jié)合用戶需求，對管理子系統(tǒng)進行了數(shù)據(jù)流程分析。在系統(tǒng)分析的基礎上劃分了系統(tǒng)模塊，對數(shù)據(jù)庫、輸入輸出、代碼和界面等進行了詳細設計，通過系統(tǒng)軟硬件的準備，采用Windows 2000、Microsoft SQL Server 2000和Delphi7.0的技術(shù)手段，完成了實驗室管理信息系統(tǒng)管理子系統(tǒng)的實施。本文的目的是通過調(diào)研、分析、設

2、計和實施，完成實驗室管理信息系統(tǒng)中管理子系統(tǒng)的開發(fā)；通過對數(shù)據(jù)高效、自動的處理，將管理子系統(tǒng)的各個部分有機地結(jié)合在一起，實現(xiàn)數(shù)據(jù)共享，提高管理的效率。關鍵詞 系統(tǒng)設計 系統(tǒng)分析 子系統(tǒng)Title laboratory instrument management system AbstractAs an effective instrument, computer has played a very important role in the management of modern enterprises management. Considering the situation in lab

3、oratory instrument management, through the actual demand analysis, the text developed a laboratory instrument management system by function formidable DELPHI 7. This text outlined the current situation in management subsystem. Then it proposed the corresponding solution according to current situatio

4、n, and carried on the data flow analysis of data flow analysis management subsystem regarding users demand. The text divided the system module based on the system analysis, and carried detail design on database, input and output, code and interface. Through the preparation for system software and ha

5、rdware, this text implemented the management subsystem of the laboratory information management system using .This article goal is to complete the development of laboratory information management system through the investigation and study, the analysis, the design and the implementation. Through eff

6、ective data sharing and automatic processing, the text managed each part of subsystem to unify organically in together, enhanced data sharing and increased the efficiency of management.Key words Database SQL SERVER Delph7 System design System analysis目 次 TOC o 1-2 h z HYPERLINK l _Toc138060328 1 系統(tǒng)概

7、述 PAGEREF _Toc138060328 h 1 HYPERLINK l _Toc138060329 1.1 需求分析 PAGEREF _Toc138060329 h 1 HYPERLINK l _Toc138060330 1.2 主要功能 PAGEREF _Toc138060330 h 1 HYPERLINK l _Toc138060331 1.3 系統(tǒng)結(jié)構(gòu) PAGEREF _Toc138060331 h 1 HYPERLINK l _Toc138060332 1.4 Delphi簡介 PAGEREF _Toc138060332 h 1 HYPERLINK l _Toc13806033

8、3 1.5 數(shù)據(jù)庫及其應用 PAGEREF _Toc138060333 h 2 HYPERLINK l _Toc138060334 1.6 數(shù)據(jù)庫系統(tǒng) PAGEREF _Toc138060334 h 3 HYPERLINK l _Toc138060335 2 系統(tǒng)結(jié)構(gòu)圖編程思路 PAGEREF _Toc138060335 h 5 HYPERLINK l _Toc138060336 2.1 主要用到的控件 PAGEREF _Toc138060336 h 5 HYPERLINK l _Toc138060337 2.2 整體思路 PAGEREF _Toc138060337 h 5 HYPERLINK

9、 l _Toc138060338 2.3 系統(tǒng)設計 PAGEREF _Toc138060338 h 5 HYPERLINK l _Toc138060339 2.4 數(shù)據(jù)庫的設計 PAGEREF _Toc138060339 h 7 HYPERLINK l _Toc138060340 數(shù)據(jù)庫邏輯結(jié)構(gòu)設計 PAGEREF _Toc138060340 h 8 HYPERLINK l _Toc138060341 3 程序詳細設計 PAGEREF _Toc138060341 h 10 HYPERLINK l _Toc138060342 3.1 窗體和模塊的創(chuàng)建 PAGEREF _Toc138060342

10、h 10 HYPERLINK l _Toc138060343 3.2 儀器借用信息維護窗體的設計 PAGEREF _Toc138060343 h 13 HYPERLINK l _Toc138060344 3.3 儀器和實驗代碼維護 PAGEREF _Toc138060344 h 14 HYPERLINK l _Toc138060345 3.4 借用人通訊錄維護窗體的設計 PAGEREF _Toc138060345 h 15 HYPERLINK l _Toc138060346 3.5 儀器統(tǒng)計相關窗體的創(chuàng)建 PAGEREF _Toc138060346 h 20 HYPERLINK l _Toc1

11、38060347 3.6 儀器是否借出統(tǒng)計窗體的設計 PAGEREF _Toc138060347 h 21 HYPERLINK l _Toc138060348 3.7 儀器分類統(tǒng)計窗體的設計 PAGEREF _Toc138060348 h 23 HYPERLINK l _Toc138060349 結(jié) 論 PAGEREF _Toc138060349 h 25 HYPERLINK l _Toc138060350 致 謝 PAGEREF _Toc138060350 h 26 HYPERLINK l _Toc138060351 參 考 文 獻 PAGEREF _Toc138060351 h 271 系

12、統(tǒng)概述1.1 需求分析實驗儀器管理是一個單位不可缺少的部分，尤其對于一個大型的實驗室來說，它的管理直接影響到他的成功與失敗。隨著社會的不斷在發(fā)展，我們應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理，這種管理方式存在著許多缺點，如：效率低、保密性差，另外時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護都帶來了不少的困難?？傮w來說，在現(xiàn)在這個時代，計算機的應用已經(jīng)成了一種趨勢。 主要功能 首先了解一下這個實驗室儀器管理系統(tǒng)的主要功能。實驗室儀器管理系統(tǒng)，主要實現(xiàn)以下幾項功能：（1）基本儀器信息錄入，修改和信息查詢。（2）借用信息維護，包括錄入，修改和查詢

13、，以及打印儀器催交通知書等功能。（3）借用人通信信息維護，包括錄入，修改，查詢和通信人信封格式打印等功能。（4）代碼庫維護，包括實驗代碼庫，分類代碼庫的維護。（5）統(tǒng)計信息，包括儀器狀況，借出情況和儀器分類統(tǒng)計 。1.3 系統(tǒng)結(jié)構(gòu)本系統(tǒng)的結(jié)構(gòu)圖可以表示成如圖1.1所示。 Delphi簡介Delphi是美國Borland Software Corporation公司的編程工具產(chǎn)品。它基于Pascal語言，具有語法嚴謹、結(jié)構(gòu)清晰、可讀性強和代碼執(zhí)行效率高等優(yōu)點；最重要的是，它功能強大且靈活易學，利用Delphi，我們在Windows平臺下幾乎可以做任何事情。作為一下優(yōu)秀的、體貼的、以人為本的開發(fā)工

14、具，Delphi一直堅持復雜問題簡單化的思想，而且不隱藏其細節(jié)以適應不同層次的程序員。此外，Delphi還對其開發(fā)環(huán)境以及內(nèi)核進行了比較大的改善；繼續(xù)加強了和C+ Builder的融合能力；進一步完善了dbExpress和網(wǎng)絡相關組件。啟動系統(tǒng)實驗室儀器管理系統(tǒng)儀器基本信息管理借出信息管理借出人通訊錄管理信息統(tǒng)計報表輸出退出系統(tǒng) 實驗室儀器管理系統(tǒng)結(jié)構(gòu)圖1.5 數(shù)據(jù)庫及其應用自20世紀70年代以來，數(shù)據(jù)庫技術(shù)得到迅速發(fā)展。目前世界上已經(jīng)有數(shù)百萬個數(shù)據(jù)庫系統(tǒng)在運行，其應用已經(jīng)深入到社會生活的各個領域，從企業(yè)管理，銀行管理,資源管理，經(jīng)濟預測一直到信息檢索、檔案管理、普查統(tǒng)計等。我國20世紀90年

15、代初在全國范圍內(nèi)裝備了12個以數(shù)據(jù)庫為基礎的大型計算機系統(tǒng)，這些系統(tǒng)分布在郵電、計委、銀行、電力、鐵路、氣象、民航、情報、公安、軍事、航天和財稅等行業(yè)?，F(xiàn)在，數(shù)據(jù)庫技術(shù)還在不斷發(fā)展，并且不斷的與其它計算機技術(shù)相互滲透。數(shù)據(jù)庫技術(shù)與網(wǎng)絡通信技術(shù)相結(jié)合，產(chǎn)生了面向?qū)ο髷?shù)據(jù)庫系統(tǒng)等各種數(shù)據(jù)庫系統(tǒng)。在人類邁向21世紀知識經(jīng)濟的時候，信息變?yōu)榻?jīng)濟發(fā)展的戰(zhàn)略資源，信息技術(shù)已成為社會生產(chǎn)力重要的組成部分。人們充分認識到,數(shù)據(jù)庫是信息化社會中信息資源管理與開發(fā)利用的基礎。對于一個國家,數(shù)據(jù)庫的建設規(guī)模，使用水平已成為衡量該國信息化程度的重要標志。因此，數(shù)據(jù)庫的學習是非常重要的。 數(shù)據(jù)庫系統(tǒng)數(shù)據(jù)庫系統(tǒng)本質(zhì)上是一

16、個用計算機存儲記錄的系統(tǒng)。數(shù)據(jù)庫本身可被看作為一種電子文件柜：也就是說，它是收集計算機數(shù)據(jù)文件的倉庫或容器。系統(tǒng)用戶可以對這些文件執(zhí)行插入數(shù)據(jù)、檢索數(shù)據(jù)、更改數(shù)據(jù)、刪除數(shù)據(jù)等一系列操作?？傊瑪?shù)據(jù)庫系統(tǒng)是一個計算機存儲記錄的系統(tǒng)，即它是一個計算機系統(tǒng)，該系統(tǒng)的目標存儲信息并支持用戶檢索和更新所需要的信息。圖1.2是一個數(shù)據(jù)庫系統(tǒng)的簡圖。圖1.2 數(shù)據(jù)庫系統(tǒng)簡圖本系統(tǒng)采用SQL技術(shù)建立數(shù)據(jù)庫，使用Delphi技術(shù)建立數(shù)據(jù)源的鏈接，并且生成實驗室管理的數(shù)據(jù)庫應用程序從而實現(xiàn)數(shù)據(jù)庫的管理功能。SQL語言介紹SQL(Structured Query Language，結(jié)構(gòu)查詢語言)是一個功能強大的數(shù)據(jù)

17、庫語言。SQL通常使用于數(shù)據(jù)庫的通訊。ANSI（美國國家標準學會）聲稱，SQL是關系數(shù)據(jù)庫管理系統(tǒng)的標準語言。SQL語句通常用于完成一些數(shù)據(jù)庫的操作任務，比如在數(shù)據(jù)庫中更新數(shù)據(jù)，或者從數(shù)據(jù)庫中檢索數(shù)據(jù)。使用SQL的常見關系數(shù)據(jù)庫管理系統(tǒng)有：Oracle、 Sybase、 Microsoft SQL Server、 Access等等。雖然絕大多數(shù)的數(shù)據(jù)庫系統(tǒng)使用SQL，但是它們同樣有它們自立另外的專有擴展功能用于它們的系統(tǒng)。但是標準的SQL命令，比如Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成絕大多數(shù)數(shù)據(jù)庫的操作。MS SQL Serve

18、r 就是用的Transact- SQL。SQL語言有著非常突出的優(yōu)點，主要是：（1）非過程化語言（2）統(tǒng)一的語言（3）是所有關系數(shù)據(jù)庫的公共語言非過程化語言：SQL是一個非過程化的語言，因為它一次處理一個記錄，對數(shù)據(jù)提供自動導航。SQL允許用戶在高層的數(shù)據(jù)結(jié)構(gòu)上工作，而不對單個記錄進行操作，可操作記錄集，所有SQL 語句接受集合作為輸入，返回集合作為輸出。SQL的集合特性允許一條SQL語句的結(jié)果作為另一條SQL語句的輸入。SQL語句使用查詢優(yōu)化器，它是RDBMS的一部分，由它決定對指定數(shù)據(jù)存取的最快速度的手段，查詢優(yōu)化器知道存在什么索引，在哪兒使用索引合適，而用戶則從不需要知道表是否有索引、有

19、什么類型的索引。統(tǒng)一的語言：SQL可用于所有用戶的DB活動模型，包括系統(tǒng)管理員、數(shù)據(jù)庫管理員、 應用程序員、決策支持系統(tǒng)人員及許多其它類型的終端用戶。 SQL為許多任務提供了命令，其中包括：（1）查詢數(shù)據(jù)（2）在表中插入、修改和刪除記錄（3）建立、修改和刪除數(shù)據(jù)對象（4）控制對數(shù)據(jù)和數(shù)據(jù)對象的存取（5）保證數(shù)據(jù)庫一致性和完整性以前的數(shù)據(jù)庫管理系統(tǒng)為上述各類操作提供單獨的語言，而SQL 將全部任務統(tǒng)一在一種語言中。所有關系數(shù)據(jù)庫的公共語言：由于所有主要的關系數(shù)據(jù)庫管理系統(tǒng)都支持SQL語言，用戶可將使用SQL的技能從一個RDBMS(關系數(shù)據(jù)庫管理系統(tǒng))轉(zhuǎn)到另一個，所有用SQL編寫的程序都是可以移植

20、的。2 系統(tǒng)結(jié)構(gòu)圖編程思路2.1 主要用到的控件實驗室儀器管理系統(tǒng)主要用到的控件如下：（1）數(shù)據(jù)集和數(shù)據(jù)源控件：TTABLE，TQUERY，TDATESOURCE等。（2）數(shù)據(jù)控制控件：TDBGRID，TDBCHART， TDBNAVIGATOR等。（3）報表控件：TQUICKREP，TQRLABEL，TQRDBTEXT，TQRCHART等。 整體思路首先是數(shù)據(jù)庫需求分析。根據(jù)實際實驗室儀器管理所要進行的相關管理工作，設計了5個數(shù)據(jù)表，并做詳細的介紹。實驗儀器管理系統(tǒng)，從總體上可以分為二大部分：一部分是用于實驗儀器的管理，另外一部分是用于對實驗儀器的分類設計，因而在對系統(tǒng)設計的時候，可以從這兩

21、方面著手來進行。最后是系統(tǒng)功能模塊的組合編譯，以及系統(tǒng)功能的完善。 系統(tǒng)設計 系統(tǒng)功能分析（1）基本信息錄入：包括儀器基本信息，借用信息和借用人基本信息的錄入。主要借用了數(shù)據(jù)編輯控件，例如，TEDIT，TMASKEDIT。TCOMBOBOX和TDATATIMEPICK等控件提供給用戶輸入數(shù)據(jù)，然后用TABLE數(shù)據(jù)集控件的APPEND功能錄入信息。在錄入時，提供較嚴格的數(shù)據(jù)檢查機制控制差錯輸入。（2）信息修改：包括對儀器基本信息，借用信息的數(shù)據(jù)修改。主要借用了數(shù)據(jù)控制控件，例如：TDBNAVIGATOR，TDNEDIT等控件，用NAVIGATOR控件所提供的數(shù)據(jù)；瀏覽和數(shù)據(jù)編輯等功能，來實現(xiàn)對T

22、ABLE數(shù)據(jù)集連接的數(shù)據(jù)表中的數(shù)據(jù)進行修改。（3）信息查詢：包括對儀器基本信息，借用信息和借用人基本信息的數(shù)據(jù)表中的信息進行查詢。主要使用查詢控件TQUERY帶參數(shù)進行多條件作何查詢。（4）報表輸出功能：包括打印催交通知單和所有借用記錄；其中催交通知單是按用戶輸入的名字動態(tài)打印。（5）分類統(tǒng)計儀器數(shù)量：包括儀器狀況統(tǒng)計，儀器是否借出和儀器分類統(tǒng)計，主要使用TCHART和TDBCHART控件來實現(xiàn)。 系統(tǒng)功能模塊設計系統(tǒng)功能模塊設計, 。儀器基本信息管理儀器借用信息管理通訊錄信息管理儀器相關代碼管理儀器狀況統(tǒng)計儀器借用統(tǒng)計儀器分類統(tǒng)計儀器信息管理儀器分類統(tǒng)計實驗儀器管理圖 實驗室儀器管理系統(tǒng)功能

23、模塊圖實驗室儀器管理可作為后勤管理系統(tǒng)中的一部分，就實驗儀器進行管理，同時還可以在系統(tǒng)擴展中添加儀器功能和作用介紹。 數(shù)據(jù)流程圖系統(tǒng)的數(shù)據(jù)流程如圖2.2所示。 查詢用戶報表輸出催還通知單查詢結(jié)果添加，修改，刪除借用信息儀器信息記錄借用信息記錄借用人通信信息儀器信息借用信息通訊錄圖2.2 實驗室儀器管理系統(tǒng)數(shù)據(jù)流程圖 數(shù)據(jù)庫的設計2.4.1 數(shù)據(jù)庫的需求分析數(shù)據(jù)流程圖，可以列出下列系統(tǒng)所需要的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)：（1）儀器基本信息表：儀器編號，儀器名稱，型號，價格，狀況，所屬實驗，啟用日期，放置位置，分類碼，備注。（2）儀器借用信息表：儀器編號，登記編號，借用人，經(jīng)手人，儀器名稱，借用日期，歸還日

24、期，用途，備注。（3）儀器借用者通訊錄表：姓名，性別， ， 地址，電子郵件，生日備注。（4）實驗代碼庫表：所屬實驗碼，實驗名稱。（5）儀器分類代碼庫表：分類碼，名稱。 數(shù)據(jù)庫概念結(jié)構(gòu)設計實驗室儀器管理系統(tǒng)主要的E-R如圖2.3所示。儀器借用信息儀器信息表儀器編號儀器名稱 .N:1實驗代碼表分類碼名稱儀器分類表所屬實驗碼實驗名稱1：1儀器編號登記編N:1通訊信息表姓名地址儀器借用報表輸出記錄借用圖2.3 實驗室儀器管理系統(tǒng)E-R圖 數(shù)據(jù)庫邏輯結(jié)構(gòu)設計實驗儀器管理系統(tǒng)總共涉及到5個數(shù)據(jù)表，分別用于儀器基本信息，借出儀器信息，借用人通訊錄和兩個代碼庫的信息保存；需要建立的數(shù)據(jù)表如下圖所示。2.5.1

25、 儀器基本信息表表2.4儀器基本信息表字段值數(shù)據(jù)類型是否可空儀器編號（關鍵字）Char(6) Not null儀器名稱Char(20)yes型號Char(16)Yes價格FloatYes所屬實驗Char(2)yes狀況Char(4)Not null啟用日期Dateyes放置位置Char(4)Yes分類碼Char(2)yes備注Char(100)yes2.5.2 通訊錄表 字段值數(shù)據(jù)類型是否可空姓名（關鍵字）CHAR（8）NOT NULL性別CHAR（2）YES CHAR（13）YES地址CHAR（30）NOT NULL CHAR（6）NOT NULL電子郵件CHAR（20）YES生日CHAR（

26、5）YES備注CHAR（100）YES表2.5通訊錄表 實驗代碼表表2.6實驗代碼表 字段值數(shù)據(jù)類型是否可空分類碼（關鍵字）CHAR（2）NUT NULL名稱CHAR（20）NOT NULL 實驗分類代碼庫 字段值數(shù)據(jù)類型是否可空所屬實驗碼（關鍵字）CHAR（2）NUT NULL實驗名稱CHAR（20）NOT NULLHYPERLINK l _Toc218793573 程序詳細設計 窗體和模塊的創(chuàng)建 主窗口的創(chuàng)建。 主窗口 主菜單設計主菜單的設計如圖：從圖中可以看出，主窗體主要是由主4菜單和工具條組成，所示。 主菜單從圖中可以看出，主菜單有兩個子菜單組成分別對應系統(tǒng)的兩大功能模塊，子菜單的設計

27、都很簡單。各菜單項所完成的功能都是調(diào)用相關功能模塊的窗體。（1）儀器的管理：退出：close.（2）儀器統(tǒng)計：jilu.pas是儀器信息維護窗口的單元文件名；assort.pas是儀器分類統(tǒng)計圖的單元文件名；jieyong.pas是儀器借出管理窗口的單元文件名tongxun.pas是借用儀器者的通訊資料管理窗體的單元文件名；code.pas是在儀器管理系統(tǒng)中所包含的各種代碼的信息庫管理窗體的單元文件名；state.pas是按儀器狀況統(tǒng)計圖窗體的單元文件名；jiechu.pas是按儀器是否借出統(tǒng)計圖窗體的文件名。（3）儀器管理相關功能窗口的創(chuàng)建：儀器管理包括四個功能模塊，分別用于管理儀器基本信息

28、，儀器借用信息，借用人通訊信息以及實驗相關代碼維護，下面分別介紹。實驗儀器基本信息窗體在實驗儀器基本信息窗體中，主要提供三種功能，分別用于實現(xiàn)儀器基本信息的添加，修改和查詢，用三個選項卡在一個窗體中來實現(xiàn)?！拜斎胗涗洝钡脑O計窗體：“輸入記錄”的設計窗體如圖3.3所示。 圖 儀器基本信息輸入記錄頁從上圖可以看出，這里用到了一個TABLE，QUERY。，用于儀器信息的錄入和修改，是第一頁和第二頁DBGIRD的數(shù)據(jù)集控件，也即第一，第二的DBGIRD通過DATASOURCE和該TABLE連接；而QUERY則用于查詢，是第三頁DAGIRD的數(shù)據(jù)集控件。本頁分兩部分：上半部分用于添加新儀器信息，除了“所

29、屬實驗”，“分類”，“狀況”，用的是列表框TCOMBOBOX，“啟用日期”用的是TDATETIMEPICKER，“備注”用的是TMEMO外，其他的都是TEDIT，而且我們還對“儀器編號”輸入框做了輸入長度的限制，即其MAXLENGTH設置為對應數(shù)據(jù)表BASIC_INFO.DB 中“儀器編號”的字段的長度：另外對于上面提到的前兩個TCOMBOBOX，考慮到它們的數(shù)據(jù)是動態(tài)變化的，所以把它們列表中的數(shù)據(jù)，安排在窗體的ONSHOW事件中從數(shù)據(jù)表CODE1.DB，CODE2.DB中讀入，而“狀況”右邊的列表框中的數(shù)據(jù)，因為數(shù)據(jù)項是固定的，所以在設計期就輸入，在該列表框的ITEMS屬性中有如下數(shù)據(jù)：良好

30、，好，可用，待修，報廢。該頁下半部分的DBGIRD主要用于顯示數(shù)據(jù)表中的信息，其DGROWSELECT屬性為TURE，用戶只能瀏覽而不能通過該網(wǎng)格修改表中信息。該頁主要提供給用戶對儀器信息的修改，只要使用TDBEDIT，TDBMEMO和TDBNAVIGATOR控件，連接的數(shù)據(jù)集是TABLE1。下半部分的TDBGRID也只是用來顯示信息，其DBROWSELECT為TURE，而且只讀，該頁的設計很簡單，幾乎不涉及代碼的編寫。查詢：使用QUERY帶參數(shù)的方法進行查詢，SQL語句根據(jù)用戶選擇的查詢條件動態(tài)產(chǎn)生。在實現(xiàn)時，定義了一個本窗體的全局變量SELSTR來保存用戶對條件的組合要求，即使用“OR”還

31、是“AND”的方法組合查詢。SELSTR在本窗體的ONCREATE部分初始化為“OR”，而在本頁的兩個TRADIOBUTTON的ONCLICK事件中改變：“邏輯或”單選按鈕的ONCLICK事件：selstr:=or “邏輯與”單選按鈕的ONCLICK事件：selstr:=and 其中and和or的前后都留有一個空格。圖中“啟用日期”右邊的控件是TDATETIMEPICKER；“狀況”右邊的控件是TCOMBOBOX，其ITEMS項的設計和第一頁的設計是一樣的；其他的為TEDIT。 儀器借用信息維護窗體的設計該窗體的設計思路和儀器基本信息窗體的設計思路基本上是一樣的，窗體主要也涉及到三頁的選項卡，

32、分別提供錄入，修改，查詢的功能，介紹如下?！拜斎胗涗洝表摰脑O計：設計界面如圖3.4所示。從上圖可以看到，這里用到了兩個TABLE和一個QUERY，連接的數(shù)據(jù)庫都是上面建立的“APPARATUSMGR”。第一個TABLE連接的數(shù)據(jù)表是borrow_info.db，用來錄入和修改記錄，第二個TABLE連接的數(shù)據(jù)表是basic_info.db，用來查詢用戶輸入的儀器編號是否已經(jīng)存在于儀器信息庫中（不存在于儀器信息庫中的儀器是非法的，即不能借出）；而QUERY用來查詢記錄。該頁的“儀器名稱”右邊的輸入框是只讀的，其信息根據(jù)用戶輸入的儀器編號，從儀器信息表中讀出。“修改記錄”頁的設計，如圖所示。 儀器借

33、用輸入記錄頁 儀器借用修改記錄設計頁使用的控件為TDBEDIT，TDBMEMO和TDBNAVIGATOR，連接的數(shù)據(jù)集控件都是TABLE。3.3 儀器和實驗代碼維護 儀器和實驗代碼運行界面。 儀器和實驗代碼維護設計窗體圖中的兩個TABLE連接的數(shù)據(jù)表分別是：code1.db和code2.db，即所屬實驗代碼和儀器分類代碼。3.4 借用人通訊錄維護窗體的設計該窗體的設計也涉及到三個選項卡，所對應的功能子模塊分別是借用人信息錄入，查詢和兩個報表的輸出：按名字打印信封格式的催還單以及打印全部借用信息。窗體中有一個TABLE和一個QUERY，TABLE連接的數(shù)據(jù)表borrowers.db，用來錄入記錄

34、，而QUERY用來查詢記錄，下面分別介紹三個頁的設計情況?！颁浫胗涗洝表摰脑O計：本頁的設計情況如圖3.7所示。 圖 錄入記錄圖中的上半部分，“性別”右邊列表框的ITEMS屬性值：“男”，“女”是在設計時輸入的；“ ”，“生日”，“ ”的輸入使用TMASKEDIT控件；“備注”輸入使用的是TMEMO控件；其他的是TEDIT控件。該頁的TDBGRID是只讀的，主要提供給擁護瀏覽記錄?！按_定”按鈕實現(xiàn)代碼如下：procedure TForm_Tongxun.SpeedButton1Click(Sender: TObject);beginwith table_Tongxun do begin Appe

35、nd; FieldByName(姓名).AsString:=Edit_Name.Text; FieldByName(性別).AsString:=combobox1.Text; FieldByName( ).AsString:=MaskEdit_Num.Text; FieldByName(備注).AsString:=Edit_Memo.Text; FieldByName(生日).AsString:=MaskEdit_Birth.Text; FieldByName( ).AsString:=Edit_post.Text; FieldByName(地址).AsString:=Edit_Address

36、.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)代碼如下：beginif

37、 radiobutton1.Checked then logicstr:= and ;if radiobutton2.Checked then logicstr:= or ;sqlstr:=select * from borrowers where 姓名=:sname+logicstr+性別=:ssex+logicstr;sqlstr:=sqlstr+ =:sphone+logicstr+地址=:saddress;with query_Com do begin Close; SQL.Clear; SQL.Add(sqlstr); ParamByName(sname).AsString :=ed

38、it_sql_name.Text ; ParamByName(ssex).AsString :=combobox2.Text ; ParamByName(sphone).AsString :=maskedit_sql_num.Text ; ParamByName(saddress).AsString :=edit_Sql_Add.text; Open; if recordcount=0 then messagedlg(沒有找到滿足要求的記錄，請檢查查詢條件！,mtinformation,mbOk,0); end;end;“查詢所有記錄”按鈕實現(xiàn)代碼如下：beginwith query_Com

39、do begin Close; SQL.Clear; sQL.Add(select * from labcom); Open; end;end;。圖3.9 借用人通訊錄打印報表設計頁“查詢并打印結(jié)果（信封格式）”是按用戶輸入的借用人姓名來打印信封格式的催還通知單；而“打印全部借用信息”則打印所有儀器借用信息和借用人相關信息。因為這里涉及到兩個報表，所以在本單元的IMPLEMENTATION部分要包含著兩個報表所在的單元文件。代碼如下：ImplementationUses allcuihuan,print;$R*.dfm“查詢并打印結(jié)果（信封格式）”按鈕的實現(xiàn)代碼如下：var q:tquery;

40、beginif trim(edit_jy_name.Text)= then begin messagedlg(名字不能為空！,mtError,mbok,0); exit; end; q:=tquery.Create(nil); q.DatabaseName :=form_print.Query1.DatabaseName ; q.SQL.Add(select * from borrowers where 姓名=:bname); q.ParamByName(bname).AsString :=edit_JY_Name.Text; q.Open ; if q.RecordCount=0 then

41、begin messagedlg(庫中無此人！,mtinformation,mbok,0); q.Close ; q.Free ; exit; end else begin q.Close ; q.Free ; form_print.Query1.ParamByName(qname).AsString :=edit_JY_Name.Text; form_print.Query1.Open; Form_Print.qrp.preview; end;3.5 儀器統(tǒng)計相關窗體的創(chuàng)建儀器狀況統(tǒng)計窗體，。 儀器狀況表代碼為：procedure TForm_Tongji_State.FormShow(Se

42、nder: TObject);var t:Ttable; i:integer; data_sum:array1.6 of integer;begin t:=Ttable.Create(nil); t.DatabaseName :=apparatusmgr; t.TableName :=basic_info.db; t.Open; series1.Clear; for i:=1 to 6 do data_sumi:=0; while not t.Eof do with t do begin if FieldByName(狀況).AsString= then data_sum1:=data_sum

43、1+1; if FieldByName(狀況).AsString=好 then data_sum2:=data_sum2+1; if FieldByName(狀況).AsString=良好 then data_sum3:=data_sum3+1; if FieldByName(狀況).AsString=勘用 then data_sum4:=data_sum4+1; if FieldByName(狀況).AsString=待修 then data_sum5:=data_sum5+1; if FieldByName(狀況).AsString=報廢 then data_sum6:=data_sum6

44、+1; Next; end; Series1.Add(data_sum2,好,clTeeColor); Series1.Add(data_sum3,良好,clTeeColor); Series1.Add(data_sum4,勘用,clTeeColor); Series1.Add(data_sum5,待修,clTeeColor); Series1.Add(data_sum6,報廢,clTeeColor); Series1.Add(data_sum1,其他,clTeeColor); t.Close ; t.Free ;end;3.6 儀器是否借出統(tǒng)計窗體的設計 儀器是否借出統(tǒng)計窗體的設計運行界面，

45、。 借出統(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;3.7 儀器分類統(tǒng)計窗體的設計儀器

46、分類統(tǒng)計窗體的設計，。圖 儀器分類統(tǒng)計窗體本窗體的圖形顯示控件是TCHART，統(tǒng)計數(shù)據(jù)在窗體的ONSHOW時間中獲得，代碼如下：procedure TForm_Assort.FormShow(Sender: TObject);var q:Tquery; sqlstr:string;beginq:=Tquery.Create(nil);q.DatabaseName :=apparatusmgr;series1.Clear;sqlstr:=select a.名稱 as 名稱,count(b.儀器編號) as 數(shù)量 from code2 a,basic_info b ;sqlstr:=sqlstr+where b.分類碼=a.分類碼 group by a.名稱;q.SQL.Add(sqlstr);q.open;whi