儀器設(shè)備信息管理系統(tǒng)設(shè)計【畢業(yè)論文】

1、<p>　　本科畢業(yè)論文(設(shè)計)</p><p><b>　?。ǘ?屆）</b></p><p>　　儀器設(shè)備信息管理系統(tǒng)設(shè)計</p><p>　　所在學(xué)院 </p><p>　　專業(yè)班級 電氣工程及其自動化 </p>

2、<p>　　學(xué)生姓名 學(xué)號 </p><p>　　指導(dǎo)教師 職稱 </p><p>　　完成日期 年 月 </p><p><b>　　摘 要</b></p><p>　　21世紀(jì)是

3、信息時代，人們將迎接全面信息化社會的挑戰(zhàn)。信息技術(shù)使人類認(rèn)識和理解客觀世界的能力、手段發(fā)生了質(zhì)的變化。</p><p>　　管理信息系統(tǒng)是一個進(jìn)行信息收集、存儲、加工、傳輸和使用的人機系統(tǒng)。它不是簡單的計算機應(yīng)用，而是綜合了管理科學(xué)、計算機科學(xué)、通信技術(shù)、運籌學(xué)、數(shù)理統(tǒng)計、決策科學(xué)、系統(tǒng)科學(xué)的新型學(xué)科。</p><p>　　為了加強對二級學(xué)院的實驗儀器設(shè)備的信息管理，將設(shè)計一個單機版的實驗

4、儀器設(shè)備信息管理系統(tǒng)。系統(tǒng)基于Access 2003 和VB語言來實現(xiàn)。通過信息管理系統(tǒng)，可以給管理人員提供分析和決策信息。</p><p>　　關(guān)鍵詞： 管理信息系統(tǒng)；Access 2003；數(shù)據(jù)庫；儀器設(shè)備</p><p><b>　　Abstract </b></p><p>　　The 21st century is an inform

5、ation age, people will meet the challenges of a comprehensive information society.Information technology make the ability of humans' recognizing and understanding of the objective world arise a qualitative change.<

6、;/p><p>　　Management information system is an man-machine system of information collection, storage, processing, transmission and to use . It is not a simple application, but rather a new discipline which integ

7、rate management science, computer science, communications technology, operations research, statistics, decision science, system science . In order to strengthen the information management of school's equipment,I

8、will design a stand-alone version equipment information management system.System is </p><p>　　Key Words： Management information system；Access 2003；database；equipment</p><p><b>　　目 錄</b

9、></p><p>　　1 引言- 1 -</p><p>　　2 管理信息系統(tǒng)- 2 -</p><p>　　2.1 概述- 2 -</p><p>　　2.2 結(jié)構(gòu)- 2 -</p><p>　　2.3 開發(fā)方法- 2 -</p><p>　　3 數(shù)據(jù)庫概述- 4 -<

10、;/p><p>　　3.1 數(shù)據(jù)庫的基本概念- 4 -</p><p>　　3.2 DBMS的主要功能- 4 -</p><p>　　4 Access2003程序設(shè)計- 6 -</p><p>　　4.1 概述- 6 -</p><p>　　4.2 特點- 6 -</p><p>　　5

11、儀器設(shè)備信息管理系統(tǒng)實現(xiàn)- 7 -</p><p>　　5.1表單設(shè)計- 7 -</p><p>　　5.1.1 儀器設(shè)備使用情況表- 7 -</p><p>　　5.1.2 儀器設(shè)備基本信息表- 8 -</p><p>　　5.1.3 大型（精密）儀器設(shè)備使用情況信息表- 9 -</p><p>　　5.2

12、 查詢設(shè)計- 9 -</p><p>　　5.2.1 儀器設(shè)備使用情況查詢表- 10 -</p><p>　　5.2.2 儀器設(shè)備基本信息查詢表- 10 -</p><p>　　5.2.3 大型（精密）儀器設(shè)備使用人時數(shù)統(tǒng)計查詢- 11 -</p><p>　　5.3 窗體設(shè)計- 11 -</p><p>　

13、　5.3.1 主窗體設(shè)計- 12 -</p><p>　　5.3.2 儀器設(shè)備使用情況信息管理窗體設(shè)計- 12 -</p><p>　　5.3.3 儀器設(shè)備基本信息管理窗體設(shè)計- 22 -</p><p>　　5.3.4 大型（精密）儀器設(shè)備使用情況信息管理窗體設(shè)計- 29 -</p><p>　　5.4 報表設(shè)計- 37 -<

14、;/p><p>　　5.4.1 大型（精密）儀器使用人數(shù)統(tǒng)計報表- 37 -</p><p>　　5.4.2 儀器設(shè)備基本信息報表- 37 -</p><p>　　5.4.3 儀器設(shè)備使用情況報表- 37 -</p><p>　　6 結(jié)論和展望- 38 -</p><p><b>　　致 謝39<

15、;/b></p><p>　　參考文獻(xiàn)- 39 -</p><p>　　附錄1 畢業(yè)設(shè)計作品說明書- 40 -</p><p><b>　　1 引言</b></p><p>　　教學(xué)過程中有大量信息在流動，包括學(xué)生信息、教師信息、實驗項目信息、儀器設(shè)備信息等，對這些信息的有效管理，可以為學(xué)校教學(xué)管理部門提供了

16、解學(xué)校實驗教學(xué)情況，是這些管理部門及時作出相關(guān)決策的依據(jù)。由于新技術(shù)的不斷出現(xiàn),儀器設(shè)備的更新和淘汰周期縮短,如果不盡量發(fā)揮現(xiàn)有儀器的效率,就可能出現(xiàn)儀器不是由于損壞而淘汰,而是由于功能陳舊而報廢,這就無法使有限的資源發(fā)揮最大的效益。因此必須加強實驗儀器設(shè)備的信息管理。實驗儀器設(shè)備信息收集應(yīng)包括實驗儀器設(shè)備名稱、型號、功能、單價、數(shù)量、儀器設(shè)備狀態(tài)、維修次數(shù)、儀器設(shè)備工齡、管理人員、所屬實驗室等。</p><p>

17、;　　本課題基于Access和VB語言設(shè)計單機版的實驗儀器設(shè)備信息管理系統(tǒng)。 </p><p>　　本儀器設(shè)備信息管理系統(tǒng)下述三個模塊（大型（精密）儀器設(shè)備使用情況管理、儀器設(shè)備使用情況管理和儀器設(shè)備基本信息管理），采集了設(shè)備編號、設(shè)備名稱、設(shè)備型號、設(shè)備出廠號或出廠廠家、設(shè)備單價、設(shè)備存放地點、設(shè)備情況、設(shè)備使用時數(shù)、使用人、使用單位等作為數(shù)據(jù)庫的字段。管理人員可以通過對上述字段信息的統(tǒng)計，統(tǒng)計有關(guān)信息。<

18、;/p><p><b>　　2 管理信息系統(tǒng)</b></p><p><b>　　2.1概述</b></p><p>　　管理信息系統(tǒng)（Management Information System，MIS）是在計算機和網(wǎng)絡(luò)技術(shù)基礎(chǔ)上開發(fā)設(shè)計的系統(tǒng)，它能夠為一個組織機構(gòu)內(nèi)部的作業(yè)管理、分析和決策職能提供信息支持，可以減輕管理人員的

19、工作量。它利用計算機硬件、軟件和網(wǎng)絡(luò)系統(tǒng)，通過手工規(guī)程，分析、計劃、控制和決策用的模型，通過數(shù)據(jù)庫對信息進(jìn)行收集、傳輸、加工、保存、應(yīng)用與維護(hù)[1]。</p><p><b>　　2.2 結(jié)構(gòu)</b></p><p>　　管理信息系統(tǒng)的結(jié)構(gòu)是指系統(tǒng)內(nèi)部各個組成要素之間的相互關(guān)系與相互作用方式，即各組成要素間在時間和空間上排列和組合的具體形式。管理信息系統(tǒng)為了實現(xiàn)組織預(yù)

20、期的目標(biāo)，對整個組織的信息資源進(jìn)行綜合管理、合理配置并有效利用。一個完整的管理信息系統(tǒng)包含以下九大部分[2] ：</p><p><b>　　企業(yè)信息數(shù)據(jù)</b></p><p><b>　　計算機硬件系統(tǒng)</b></p><p><b>　　計算機軟件系統(tǒng)</b></p><p&

21、gt;<b>　　存儲介質(zhì)</b></p><p><b>　　通信系統(tǒng)</b></p><p><b>　　信息收集與處理設(shè)備</b></p><p>　　管理信息系統(tǒng)管理機構(gòu)</p><p>　　管理信息系統(tǒng)規(guī)章制度</p><p><b>

22、;　　工作人員</b></p><p><b>　　2.3 開發(fā)方法</b></p><p>　　系統(tǒng)開發(fā)方法是指為了獲取某一對象而組織人們思維活動的過程以及實現(xiàn)這個過程所必須采取的步驟和途徑。管理信息系統(tǒng)的開發(fā)是一項復(fù)雜的系統(tǒng)工程工作。它涉及的知識面廣、部門多，所以至今還沒有出現(xiàn)一種完全有效的方法來很好的應(yīng)用于各種系統(tǒng)的開發(fā)，但也確有一些方法能夠為特定的

23、信息系統(tǒng)開發(fā)發(fā)揮積極的作用[3]。管理信息系統(tǒng)的開發(fā)設(shè)計主要有以下幾種方法：生命周期法、原型法、面向?qū)ο蠓椒ê陀嬎銠C輔助軟件工程方法。</p><p>　　（一）生命周期法（system development life cycle ，SDLC）</p><p>　　生命周期法的主要思想是將開發(fā)過程視為一個生命周期，運用生命周期的概念進(jìn)行系統(tǒng)開發(fā)，也就是分為幾個相互連接的階段，每個階段都有

24、每個階段的任務(wù)，要產(chǎn)生相應(yīng)的文檔。上一個階段的文檔就是下一階段工作的依據(jù)。由于上一階段的工作對于下一階段的工作產(chǎn)生影響，所以這種方法又稱瀑布法[4]。</p><p>　　（二）原型法（prototyping） 原型法的基本思想是在系統(tǒng)開發(fā)的初期，即建立系統(tǒng)原型，通過用戶的使用、熟悉，然后對系統(tǒng)的目標(biāo)和功能提出更精確、具體的要求，研究人員據(jù)此逐漸修改和完善原型，使它最終滿足用戶需求的一種系統(tǒng)開發(fā)方法。&l

25、t;/p><p>　　（三）面向?qū)ο蠓椒ǎ∣bject-Oriented）</p><p>　　所謂面向?qū)ο?，可以理解為客觀世界中的事物都是由對象組成的，對象又是在客觀事物基礎(chǔ)上抽象的結(jié)果。任何復(fù)雜的事物都可以通過對象的某種組合來構(gòu)成。對象由屬性和方法組成，屬性反映了對象的信息特征，而方法是指用來定義或者改變屬性狀態(tài)的各種操作。用對象這個概念及其方法來完整反映客觀事物的靜態(tài)屬性和動態(tài)屬性。面向

26、對象方法以類、類的繼承等概念描述客觀事物及其聯(lián)系，通過這些對象的組合來創(chuàng)建具體的應(yīng)用系統(tǒng)[5]。</p><p>　?。ㄋ模┯嬎銠C輔助軟件工程（computer-aided software engineering，CASE）</p><p>　　計算機輔助軟件工程定義為：任何輔助構(gòu)建、維護(hù)或管理軟件系統(tǒng)的計算機工具。</p><p>　　一個CASE包括以下四個部

27、分：</p><p><b>　　·信息庫</b></p><p>　　·設(shè)計規(guī)則的前端工具</p><p>　　·產(chǎn)生代碼的后臺工具</p><p><b>　　·開發(fā)工作站[6]</b></p><p><b>　　3 數(shù)

28、據(jù)庫概述</b></p><p>　　3.1 數(shù)據(jù)庫的基本概念</p><p>　　數(shù)據(jù)庫（database，簡稱DB）是指在計算機系統(tǒng)中按照一定的數(shù)據(jù)組織模型、存儲與應(yīng)用的相互聯(lián)系的數(shù)據(jù)的集合。數(shù)據(jù)庫可以提供多用戶共享[7]。</p><p>　　數(shù)據(jù)庫管理系統(tǒng)DBMS（Database Management System，簡稱DBMS）是位于用戶與操

29、作系統(tǒng)之間的數(shù)據(jù)管理軟件，能夠讓用戶定義、創(chuàng)建、維護(hù)與訪問數(shù)據(jù)庫。DBMS允許用戶從數(shù)據(jù)庫中插入、修改、刪除和檢索數(shù)據(jù)。擁有所有數(shù)據(jù)和數(shù)據(jù)描述的核心倉庫使得DBMS能夠提供對數(shù)據(jù)進(jìn)行通常查詢功能的語言，稱為查詢語言。</p><p>　　結(jié)構(gòu)化查詢語言（Structured Query Langguage，SQL）：關(guān)系數(shù)據(jù)庫管理系統(tǒng)的主要查詢語言[8]。</p><p>　　數(shù)據(jù)庫系統(tǒng)D

30、BS（Database System）：是對數(shù)據(jù)庫和數(shù)據(jù)庫管理系統(tǒng)的總稱。</p><p>　　數(shù)據(jù)庫系統(tǒng)有如下主要特征：較高的數(shù)據(jù)獨立性、數(shù)據(jù)的共享性、較小的數(shù)據(jù)冗余度、嚴(yán)密的數(shù)據(jù)保護(hù)措施和數(shù)據(jù)的統(tǒng)一管理與集中控制[9]。</p><p>　　3.2 DBMS的主要功能</p><p>　?。?）數(shù)據(jù)庫的定義功能 用戶可以通過DBMS提供的數(shù)據(jù)定義語言DDL，對數(shù)

31、據(jù)庫中的數(shù)據(jù)對象進(jìn)行定義。</p><p>　?。?）數(shù)據(jù)庫的操縱功能 數(shù)據(jù)庫的操縱功能是指接收，分析和執(zhí)行用戶提出的訪問數(shù)據(jù)庫的各種請求，實現(xiàn)對數(shù)據(jù)庫的插入、修改、刪除和檢索等操作。</p><p>　　（3）數(shù)據(jù)庫的存儲管理功能 DBMS的存儲管理器可以解決用戶多、數(shù)據(jù)量大而且數(shù)據(jù)在內(nèi)存與外存間頻繁傳送所引發(fā)的一系列問題，使訪問數(shù)據(jù)庫得以正常進(jìn)行。</p><p&g

32、t;　　（4）數(shù)據(jù)庫的保護(hù)功能 DBMS對數(shù)據(jù)庫的保護(hù)措施主要有以下四個方面：數(shù)據(jù)庫的恢復(fù)、數(shù)據(jù)庫的完整性控制、數(shù)據(jù)庫的并發(fā)控制，數(shù)據(jù)的安全控制。</p><p>　?。?）數(shù)據(jù)庫的維護(hù)功能 它包括數(shù)據(jù)庫裝載程序、重組織程序、工作日志、備份程序、性能監(jiān)控、分析功能等。</p><p>　　（6）數(shù)據(jù)字典 數(shù)據(jù)庫管理系統(tǒng)通常由三部分組成：數(shù)據(jù)庫描述語言及其編譯程序；查詢語言及其編譯程序；數(shù)據(jù)

33、庫管理例行程序[10]。 </p><p>　　4 Access2003程序設(shè)計</p><p><b>　　4.1概述</b></p><p>　　Access 2003是微軟公司開發(fā)的應(yīng)用于windows環(huán)境下的桌面數(shù)據(jù)庫管理系統(tǒng)。利用Access 2003無需編寫任何代碼，僅通過所提供的向?qū)Ш凸ぞ?/p>

34、就能開發(fā)出一個功能較為完善的數(shù)據(jù)庫應(yīng)用系統(tǒng)。</p><p>　　Access 2003提供了許多便捷的可視化操作工具如表生成器、查詢生成器、報表設(shè)計器等以及眾多向?qū)鐢?shù)據(jù)庫向?qū)?、表向?qū)?、查詢向?qū)?、窗體向?qū)?、報表向?qū)У?，利用這些工具與向?qū)?，就能?gòu)造一個功能較為完善的數(shù)據(jù)庫管理系統(tǒng)；Access 2003也為數(shù)據(jù)庫開發(fā)人員提供了Visual Basic for Appliaction（VBA）程序設(shè)計語言，方便高級

35、用戶開發(fā)功能更完善的信息管理系統(tǒng)[11]。</p><p><b>　　4.2 特點</b></p><p>　　Access 2003 是一個基于關(guān)系模型的數(shù)據(jù)庫管理系統(tǒng)，適用于中小型數(shù)據(jù)庫的開發(fā)與管理，它具有以下基本特點：</p><p>　　存儲文件單一。一個Access 2003數(shù)據(jù)庫文件中包含了該數(shù)據(jù)庫中的全部數(shù)據(jù)表、查詢等與之相關(guān)的

36、內(nèi)容。</p><p>　　可以利用各種圖例查詢快速獲取數(shù)據(jù)。</p><p>　　利用報表設(shè)計工具，可以非常方便迅速地生成數(shù)據(jù)報表。</p><p>　　能夠處理多數(shù)據(jù)類型，可以直接對Dbase，F(xiàn)oxBase,FoxPro等格式的數(shù)據(jù)進(jìn)行訪問。</p><p>　　采用OLE技術(shù)，能夠方便地創(chuàng)建、編輯多媒體數(shù)據(jù)庫，包含聲音、圖像、視頻等對

37、象。</p><p>　　由于設(shè)計過程的自動化大大提高了數(shù)據(jù)庫的工作效率。</p><p>　　具有較好的集成開發(fā)功能。</p><p>　　提供了斷點設(shè)置、單步執(zhí)行等調(diào)試功能，能自動進(jìn)行語法檢查和錯誤診斷[12]。</p><p>　　5 儀器設(shè)備信息管理系統(tǒng)實現(xiàn)</p><p><b>　　5.1表單設(shè)

38、計</b></p><p>　　在Access 2003中，表就是一個滿足關(guān)系模型的二維表，由表名、若干字段及記錄構(gòu)成。通常，把表名、表中字段、表中字段的數(shù)據(jù)類型、表中字段的屬性、表的主關(guān)鍵字的定義視為表結(jié)構(gòu)的定義，把對表中記錄的操作視為對表中數(shù)據(jù)的操作。</p><p>　　在本系統(tǒng)中，一共設(shè)計了儀器設(shè)備使用情況表、儀器設(shè)備基本信息表和大型（精密）儀器設(shè)備使用情況信息表共三張

39、表單。</p><p>　　5.1.1儀器設(shè)備使用情況表</p><p>　　儀器設(shè)備使用情況表設(shè)計視圖如圖5-1所示，其數(shù)據(jù)表視圖如圖5-2所示。</p><p>　　圖5-1 儀器設(shè)備使用情況表設(shè)計視圖</p><p>　　圖5-2 儀器設(shè)備使用情況數(shù)據(jù)表視圖</p><p>　　5.1.2 儀器設(shè)備基本信息表

40、</p><p>　　儀器設(shè)備基本信息表設(shè)計視圖如圖5-3所示，其數(shù)據(jù)表視圖如圖5-4所示。</p><p>　　圖5-3 儀器設(shè)備基本信息表設(shè)計視圖</p><p>　　圖5-4 儀器設(shè)備基本信息表數(shù)據(jù)表視圖</p><p>　　5.1.3大型（精密）儀器設(shè)備使用情況信息表</p><p>　　大型（精密）儀器設(shè)備

41、使用情況信息表設(shè)計視圖如圖5-5，其數(shù)據(jù)表視圖如圖5-6</p><p>　　圖5-5 大型（精密）儀器設(shè)備使用情況信息表設(shè)計視圖</p><p>　　圖5-6 大型（精密）儀器設(shè)備使用情況信息表數(shù)據(jù)表視圖</p><p><b>　　5.2 查詢設(shè)計</b></p><p>　　查詢就是以數(shù)據(jù)庫中的數(shù)據(jù)作為數(shù)據(jù)源，

42、根據(jù)給定的條件從指定的數(shù)據(jù)庫表檢索出符合用戶要求的記錄數(shù)據(jù)，形成一個新的數(shù)據(jù)集合。</p><p>　　本系統(tǒng)一共設(shè)計了儀器設(shè)備使用情況查詢表、儀器設(shè)備基本信息查詢表和大型（精密）儀器設(shè)備使用人時數(shù)統(tǒng)計查詢表共三張查詢表。</p><p>　　5.2.1儀器設(shè)備使用情況查詢表</p><p>　　儀器設(shè)備使用情況查詢表如圖5-7所示，其數(shù)據(jù)表如圖5-8所示。<

43、/p><p>　　圖5-7 儀器設(shè)備使用情況查詢表</p><p>　　圖5-8 儀器設(shè)備使用情況查詢表數(shù)據(jù)表視圖</p><p>　　5.2.2儀器設(shè)備基本信息查詢表</p><p>　　儀器設(shè)備基本信息查詢表如圖5-9所示，其數(shù)據(jù)表如圖5-10所示。</p><p>　　圖5-9 儀器設(shè)備基本信息查詢表</p

44、><p>　　圖5-10儀器設(shè)備基本信息查詢表數(shù)據(jù)表視圖</p><p>　　5.2.3大型（精密）儀器設(shè)備使用人時數(shù)統(tǒng)計查詢表</p><p>　　大型（精密）儀器設(shè)備使用人時數(shù)統(tǒng)計查詢表如圖5-11所示，其數(shù)據(jù)表如圖5-12所示。</p><p>　　圖5-11大型（精密）儀器設(shè)備使用人時數(shù)統(tǒng)計查詢表</p><p>

45、　　圖5-12 大型（精密）儀器設(shè)備使用人時數(shù)數(shù)據(jù)表視圖</p><p><b>　　5.3 窗體設(shè)計</b></p><p>　　窗體是數(shù)據(jù)庫應(yīng)用中的一個重要工具，連接著用戶和Access2003應(yīng)用程序。窗體可以為用戶提供一個輸入和編輯操作數(shù)據(jù)的良好界面。</p><p>　　本系統(tǒng)共設(shè)計了四個窗體，分別是主窗體（主界面）、儀器設(shè)備使用情況

46、信息管理窗體、儀器設(shè)備基本信息管理窗體和大型（精密）儀器設(shè)備使用情況信息管理窗體。</p><p>　　5.3.1 主窗體設(shè)計</p><p>　　1.本課題主窗體界面設(shè)計如圖5-13所示：</p><p><b>　　圖5-13 主窗體</b></p><p><b>　　2.功能簡介</b>&l

47、t;/p><p>　　利用切換面板來打開數(shù)據(jù)庫中的其他窗體和報表</p><p>　　5.3.2 儀器設(shè)備使用情況信息管理窗體設(shè)計</p><p>　　1. 儀器設(shè)備使用情況信息管理窗體界面設(shè)計如圖5-14所示：</p><p>　　圖5-14儀器設(shè)備使用情況信息管理窗體</p><p><b>　　2.功能簡介

48、</b></p><p>　　輸入與顯示儀器設(shè)備使用信息的數(shù)據(jù)，執(zhí)行新建記錄、保存記錄、修改刪除等各項操作 </p><p><b>　　3.程序代碼</b></p><p>　　Private Sub Form_Load()</p><p>　　Me![新建記錄].SetFocus</p>&

49、lt;p><b>　　End Sub</b></p><p>　　Private Sub 保存記錄_Click()</p><p>　　On Error GoTo Err_保存記錄_Click</p><p>　　Dim stemp As String</p><p>　　If IsNull(Me![序號]) =

50、True Then</p><p>　　MsgBox "請輸入“序號”，它不可以為空！", vbOKOnly, "輸入“序號”"</p><p>　　Me![序號].SetFocus</p><p>　　ElseIf IsNull(Me![儀器編號]) = True Then</p><p>　　Msg

51、Box "請輸入“儀器編號”，它不可以為空！", vbOKOnly, "輸入“儀器編號”"</p><p>　　Me![儀器編號].SetFocus</p><p>　　ElseIf IsNull(Me![儀器名稱]) = True Then</p><p>　　MsgBox "請輸入“儀器名稱”，它不可以為空！&q

52、uot;, vbOKOnly, "輸入“儀器名稱”"</p><p>　　Me![儀器名稱].SetFocus</p><p>　　ElseIf IsNull(Me![型號]) = True Then</p><p>　　MsgBox "請輸入“型號”，它不可以為空！", vbOKOnly, "輸入“型號”"

53、;</p><p>　　Me![型號].SetFocus</p><p>　　ElseIf IsNull(Me![規(guī)格]) = True Then</p><p>　　MsgBox "請輸入“規(guī)格”，它不可以為空！", vbOKOnly, "輸入“規(guī)格”"</p><p>　　Me![規(guī)格].SetFo

54、cus</p><p>　　ElseIf IsNull(Me![單價（元）]) = True Then</p><p>　　MsgBox "請輸入“單價（元）”，它不可以為空！", vbOKOnly, "輸入“單價（元）”"</p><p>　　Me![單價（元）].SetFocus</p><p>　

55、　ElseIf IsNull(Me![出廠號（1）]) = True Then</p><p>　　MsgBox "請輸入“出廠號（1）”，它不可以為空！", vbOKOnly, "輸入“出廠號（1）”"</p><p>　　Me![出廠號（1）].SetFocus</p><p>　　ElseIf IsNull(Me![出廠

56、號（2）]) = True Then</p><p>　　MsgBox "請輸入“出廠號（2）”，它不可以為空！", vbOKOnly, "輸入“出廠號（2）”"</p><p>　　Me![出廠號（2）].SetFocus</p><p>　　ElseIf IsNull(Me![購置日期]) = True Then</

57、p><p>　　MsgBox "請輸入“購置日期”，它不可以為空！", vbOKOnly, "輸入“購置日期”"</p><p>　　Me![購置日期].SetFocus</p><p>　　ElseIf IsNull(Me![存放地點]) = True Then</p><p>　　MsgBox &quo

58、t;請輸入“存放地點”，它不可以為空！", vbOKOnly, "輸入“存放地點”"</p><p>　　Me![存放地點].SetFocus</p><p>　　ElseIf IsNull(Me![管理人]) = True Then</p><p>　　MsgBox "請輸入“管理人”，它不可以為空！", vbOK

59、Only, "輸入“管理人”"</p><p>　　Me![管理人].SetFocus</p><p>　　ElseIf IsNull(Me![領(lǐng)用人]) = True Then</p><p>　　MsgBox "請輸入“領(lǐng)用人”，它不可以為空！", vbOKOnly, "輸入“領(lǐng)用人”"</p&g

60、t;<p>　　Me![領(lǐng)用人].SetFocus</p><p>　　ElseIf IsNull(Me![經(jīng)手人]) = True Then</p><p>　　MsgBox "請輸入“經(jīng)手人”，它不可以為空！", vbOKOnly, "輸入“經(jīng)手人”"</p><p>　　Me![經(jīng)手人].SetFocus&

61、lt;/p><p>　　ElseIf IsNull(Me![領(lǐng)用日期]) = True Then</p><p>　　MsgBox "請輸入“領(lǐng)用日期”，它不可以為空！", vbOKOnly, "輸入“領(lǐng)用日期”"</p><p>　　Me![領(lǐng)用日期].SetFocus</p><p>　　ElseIf

62、IsNull(Me![備注]) = True Then</p><p>　　MsgBox "請輸入“備注”，它不可以為空！", vbOKOnly, "輸入“備注”"</p><p>　　Me![備注].SetFocus</p><p><b>　　Else</b></p><p>

63、　　stemp = "INSERT INTO 儀器設(shè)備使用情況表"</p><p>　　stemp = stemp & "(序號,儀器編號,儀器名稱,型號,規(guī)格,單價（元）,出廠號（1）,"</p><p>　　stemp = stemp & "出廠號（2）,購置日期,存放地點,管理人,領(lǐng)用人,經(jīng)手人,"</

64、p><p>　　stemp = stemp & "領(lǐng)用日期,備注)"</p><p>　　stemp = stemp & "values('" & Me![序號] & "','" & Me![儀器編號] & "','" &

65、; Me![儀器名稱] & "','" & Me![型號] & "','" & Me![規(guī)格] & "',"</p><p>　　stemp = stemp & "'" & Me![單價（元）] & "',

66、'" & Me![出廠號（1）] & "','" & [出廠號（2）] & "','" & Me![購置日期] & "','" & Me![存放地點] & "',"</p><p>　　stemp

67、= stemp & "'" & [管理人] & "','" & Me![領(lǐng)用人] & "','" & [經(jīng)手人] & "','" & [領(lǐng)用日期] & "','" & [備注] &

68、 "')"</p><p>　　DoCmd.RunSQL stemp</p><p>　　Me![儀器設(shè)備使用情況信息管理 子窗體].Requery</p><p>　　Me![新建記錄].SetFocus</p><p><b>　　End If</b></p><p&g

69、t;　　Exit_保存記錄_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_保存記錄_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_保存記錄_Click</p><p>&

70、lt;b>　　End Sub</b></p><p>　　Private Sub 清空數(shù)據(jù)庫_Click()</p><p>　　On Error GoTo Err_清空數(shù)據(jù)庫_Click</p><p>　　Dim i As Integer</p><p>　　Dim stemp As String</p>

71、<p>　　If MsgBox("確定要清空數(shù)據(jù)庫嗎？數(shù)據(jù)庫清空后將不能恢復(fù)！", vbYesNo, "確定清空") = vbYes Then</p><p>　　stemp = "delete * from 儀器設(shè)備使用情況表"</p><p>　　DoCmd.RunSQL stemp</p><p

72、>　　MsgBox "成功清空數(shù)據(jù)庫", vbOKOnly, "清空成功"</p><p>　　Me![儀器設(shè)備使用情況信息管理 子窗體].Requery</p><p><b>　　Else</b></p><p>　　MsgBox "清空數(shù)據(jù)庫操作取消！", vbOKOnly

73、, "取消操作"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Exit_清空數(shù)據(jù)庫_Click:</p><p><b>　　Exit Sub</b></p>&l

74、t;p>　　Err_清空數(shù)據(jù)庫_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_清空數(shù)據(jù)庫_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub 刪除記錄_Click()</p&g

75、t;<p>　　On Error GoTo Err_刪除_Click</p><p>　　Dim i As Integer</p><p>　　Dim stemp As String</p><p>　　Dim rs As ADODB.Recordset</p><p>　　Set rs = New ADODB.Recordse

76、t</p><p>　　stemp = "select * from 儀器設(shè)備使用情況表"</p><p>　　rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic</p><p>　　rs.MoveFirst</p><p>　　

77、For i = 1 To rs.RecordCount</p><p>　　If rs("序號") = Me![儀器設(shè)備使用情況信息管理 子窗體]![序號] Then</p><p>　　rs.Delete adAffectCurrent</p><p>　　i = rs.RecordCount + 1</p><p>&

78、lt;b>　　Else</b></p><p>　　rs.MoveNext</p><p><b>　　End If</b></p><p><b>　　Next i</b></p><p>　　MsgBox "記錄已刪除完成", vbOKOnly, "

79、;刪除完成"</p><p>　　Me![儀器設(shè)備使用情況信息管理 子窗體].Requery</p><p>　　Set rs = Nothing</p><p>　　Exit_刪除_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_刪除_C

80、lick:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_刪除_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub 備注_LostFocus()</p><p>　　Me![保存

81、記錄].SetFocus</p><p><b>　　End Sub</b></p><p>　　Private Sub 新建記錄_Click()</p><p>　　On Error GoTo Err_新建記錄_Click</p><p>　　Me![序號] = Null</p><p>　　M

82、e![儀器編號] = Null</p><p>　　Me![儀器名稱] = Null</p><p>　　Me![型號] = Null</p><p>　　Me![規(guī)格] = Null</p><p>　　Me![單價（元）] = Null</p><p>　　Me![出廠號（1）] = Null</p>

83、<p>　　Me![出廠號（2）] = Null</p><p>　　Me![購置日期] = Null</p><p>　　Me![存放地點] = Null</p><p>　　Me![管理人] = Null</p><p>　　Me![領(lǐng)用人] = Null</p><p>　　Me![經(jīng)手人] = Nu

84、ll</p><p>　　Me![領(lǐng)用單位] = Null</p><p>　　Me![領(lǐng)用日期] = Null</p><p>　　Me![備注] = Null</p><p>　　Me![序號].SetFocus</p><p>　　Exit_新建記錄_Click:</p><p><

85、b>　　Exit Sub</b></p><p>　　Err_新建記錄_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_新建記錄_Click</p><p><b>　　End Sub</b></p><p&

86、gt;　　Private Sub 修改保存_Click()</p><p>　　On Error GoTo Err_修改保存_Click</p><p>　　Dim i As Integer</p><p>　　Dim stemp As String</p><p>　　Dim rs As ADODB.Recordset</p>

87、<p>　　Set rs = New ADODB.Recordset</p><p>　　stemp = "select * from 儀器設(shè)備使用情況表"</p><p>　　rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic</p><p&g

88、t;　　If IsNull(Me![序號]) = True Then</p><p>　　MsgBox "請輸入“序號”，它不可以為空！", vbOKOnly, "輸入“序號”"</p><p>　　Me![序號].SetFocus</p><p>　　ElseIf IsNull(Me![儀器編號]) = True Then&

89、lt;/p><p>　　MsgBox "請輸入“儀器編號”，它不可以為空！", vbOKOnly, "輸入“儀器編號”"</p><p>　　Me![儀器編號].SetFocus</p><p>　　ElseIf IsNull(Me![儀器名稱]) = True Then</p><p>　　MsgBox

90、"請輸入“儀器名稱”，它不可以為空！", vbOKOnly, "輸入“儀器名稱”"</p><p>　　Me![儀器名稱].SetFocus</p><p>　　ElseIf IsNull(Me![型號]) = True Then</p><p>　　MsgBox "請輸入“型號”，它不可以為空！", vb

91、OKOnly, "輸入“型號”"</p><p>　　Me![型號].SetFocus</p><p>　　ElseIf IsNull(Me![規(guī)格]) = True Then</p><p>　　MsgBox "請輸入“規(guī)格”，它不可以為空！", vbOKOnly, "輸入“規(guī)格”"</p>

92、<p>　　Me![規(guī)格].SetFocus</p><p>　　ElseIf IsNull(Me![單價（元）]) = True Then</p><p>　　MsgBox "請輸入“單價（元）”，它不可以為空！", vbOKOnly, "輸入“單價（元）”"</p><p>　　Me![單價（元）].SetFo

93、cus</p><p>　　ElseIf IsNull(Me![出廠號（1）]) = True Then</p><p>　　MsgBox "請輸入“出廠號（1）”，它不可以為空！", vbOKOnly, "輸入“出廠號（1）”"</p><p>　　Me![出廠號（1）].SetFocus</p><p&

94、gt;　　ElseIf IsNull(Me![出廠號（2）]) = True Then</p><p>　　MsgBox "請輸入“出廠號（2）”，它不可以為空！", vbOKOnly, "輸入“出廠號（2）”"</p><p>　　Me![出廠號（2）].SetFocus</p><p>　　ElseIf IsNull(Me

95、![購置日期]) = True Then</p><p>　　MsgBox "請輸入“購置日期”，它不可以為空！", vbOKOnly, "輸入“購置日期”"</p><p>　　Me![購置日期].SetFocus</p><p>　　ElseIf IsNull(Me![存放地點]) = True Then</p>

96、;<p>　　MsgBox "請輸入“存放地點”，它不可以為空！", vbOKOnly, "輸入“存放地點”"</p><p>　　Me![存放地點].SetFocus</p><p>　　ElseIf IsNull(Me![管理人]) = True Then</p><p>　　MsgBox "請輸入

97、“管理人”，它不可以為空！", vbOKOnly, "輸入“管理人”"</p><p>　　Me![管理人].SetFocus</p><p>　　ElseIf IsNull(Me![領(lǐng)用人]) = True Then</p><p>　　MsgBox "請輸入“領(lǐng)用人”，它不可以為空！", vbOKOnly, &q

98、uot;輸入“領(lǐng)用人”"</p><p>　　Me![領(lǐng)用人].SetFocus</p><p>　　ElseIf IsNull(Me![經(jīng)手人]) = True Then</p><p>　　MsgBox "請輸入“經(jīng)手人”，它不可以為空！", vbOKOnly, "輸入“經(jīng)手人”"</p><

99、p>　　Me![經(jīng)手人].SetFocus</p><p>　　ElseIf IsNull(Me![領(lǐng)用日期]) = True Then</p><p>　　MsgBox "請輸入“領(lǐng)用日期”，它不可以為空！", vbOKOnly, "輸入“領(lǐng)用日期”"</p><p>　　Me![領(lǐng)用日期].SetFocus</

100、p><p>　　ElseIf IsNull(Me![備注]) = True Then</p><p>　　MsgBox "請輸入“備注”，它不可以為空！", vbOKOnly, "輸入“備注”"</p><p>　　Me![備注].SetFocus</p><p><b>　　Else</b

101、></p><p>　　rs.MoveFirst</p><p>　　For i = 1 To rs.RecordCount</p><p>　　If rs("序號") = Me![序號] Then</p><p>　　rs("序號") = Me![序號]</p><p>

102、　　rs("儀器編號") = Me![儀器編號]</p><p>　　rs("儀器名稱") = Me![儀器名稱]</p><p>　　rs("型號") = Me![型號]</p><p>　　rs("規(guī)格") = Me![規(guī)格]</p><p>　　rs(&qu

103、ot;單價（元）") = Me![單價（元）]</p><p>　　rs("出廠號（1）") = Me![出廠號（1）]</p><p>　　rs("出廠號（2）") = Me![出廠號（2）]</p><p>　　rs("購置日期") = Me![購置日期]</p><p&g

104、t;　　rs("存放地點") = Me![存放地點]</p><p>　　rs("管理人") = Me![管理人]</p><p>　　rs("領(lǐng)用人") = Me![領(lǐng)用人]</p><p>　　rs("經(jīng)手人") = Me![經(jīng)手人]</p><p>　　rs

105、("領(lǐng)用單位") = Me![領(lǐng)用單位]</p><p>　　rs("領(lǐng)用日期") = Me![領(lǐng)用日期]</p><p>　　rs("備注") = Me![備注]</p><p><b>　　rs.Update</b></p><p>　　MsgBox &qu

106、ot;數(shù)據(jù)庫已經(jīng)修改完成", vbOKOnly, "修改完成"</p><p><b>　　Exit For</b></p><p><b>　　Else</b></p><p>　　rs.MoveNext</p><p><b>　　End If</b

107、></p><p><b>　　Next i</b></p><p><b>　　End If</b></p><p>　　Me![儀器設(shè)備使用情況信息管理 子窗體].Requery</p><p>　　Set rs = Nothing</p><p>　　Exit_修

108、改保存_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_修改保存_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_修改保存_Click</p><p><b>　　

109、End Sub</b></p><p>　　Private Sub Command44_Click()</p><p>　　On Error GoTo Err_Command44_Click</p><p>　　Screen.PreviousControl.SetFocus</p><p>　　DoCmd.DoMenuItem a

110、cFormBar, acEditMenu, 10, , acMenuVer70</p><p>　　Exit_Command44_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_Command44_Click:</p><p>　　MsgBox Err.Descriptio

111、n</p><p>　　Resume Exit_Command44_Click</p><p><b>　　End Sub</b></p><p>　　5.3.3儀器設(shè)備基本信息管理窗體設(shè)計</p><p>　　1. 儀器設(shè)備基本信息管理窗體界面設(shè)計如圖5-15所示：</p><p>　　圖5-1

112、5 儀器設(shè)備基本信息管理窗體</p><p><b>　　2.功能簡介</b></p><p>　　輸入與顯示儀器設(shè)備基本信息數(shù)據(jù)，執(zhí)行新建記錄、保存記錄、修改保存等各項操作 </p><p><b>　　3.程序代碼</b></p><p>　　Option Compare Database<

113、;/p><p>　　Private Sub Form_Load()</p><p>　　Me![新建記錄].SetFocus</p><p><b>　　End Sub</b></p><p>　　Private Sub 保存記錄_Click()</p><p>　　On Error GoTo Err

114、_保存記錄_Click</p><p>　　Dim stemp As String</p><p>　　If IsNull(Me![儀器編號]) = True Then</p><p>　　MsgBox "請輸入“儀器編號”，它不可以為空！", vbOKOnly, "輸入“儀器編號”"</p><p>

115、　　Me![儀器編號].SetFocus</p><p>　　ElseIf IsNull(Me![儀器名稱]) = True Then</p><p>　　MsgBox "請輸入“儀器名稱”，它不可以為空！", vbOKOnly, "輸入“儀器名稱”"</p><p>　　Me![儀器名稱].SetFocus</p>

116、;<p>　　ElseIf IsNull(Me![型號]) = True Then</p><p>　　MsgBox "請輸入“型號”，它不可以為空！", vbOKOnly, "輸入“型號”"</p><p>　　Me![型號].SetFocus</p><p>　　ElseIf IsNull(Me![單價（元）

117、]) = True Then</p><p>　　MsgBox "請輸入“單價（元）”，它不可以為空！", vbOKOnly, "輸入“單價（元）”"</p><p>　　Me![單價（元）].SetFocus</p><p>　　ElseIf IsNull(Me![廠家]) = True Then</p>&l

118、t;p>　　MsgBox "請輸入“廠家”，它不可以為空！", vbOKOnly, "輸入“廠家”"</p><p>　　Me![廠家].SetFocus</p><p>　　ElseIf IsNull(Me![入庫時間]) = True Then</p><p>　　MsgBox "請輸入“入庫時間”，它不可

119、以為空！", vbOKOnly, "輸入“入庫時間”"</p><p>　　Me![入庫時間].SetFocus</p><p>　　ElseIf IsNull(Me![存放地點]) = True Then</p><p>　　MsgBox "請輸入“存放地點”，它不可以為空！", vbOKOnly, "輸

120、入“存放地點”"</p><p>　　Me![存放地點].SetFocus</p><p>　　ElseIf IsNull(Me![備注]) = True Then</p><p>　　MsgBox "請輸入“備注”，它不可以為空！", vbOKOnly, "輸入“備注”"</p><p>　

121、　Me![備注].SetFocus</p><p><b>　　Else</b></p><p>　　stemp = "INSERT INTO 儀器設(shè)備基本信息表"</p><p>　　stemp = stemp & "(儀器編號,儀器名稱,型號,單價（元）,廠家,"</p><

122、;p>　　stemp = stemp & "入庫時間,存放地點,備注)"</p><p>　　stemp = stemp & "values('" & Me![儀器編號] & "','" & Me![儀器名稱] & "','" & M

123、e![型號] & "',"</p><p>　　stemp = stemp & "'" & Me![單價（元）] & "','" & Me![廠家] & "','" & Me![入庫時間] & "',

124、9;" & Me![存放地點] & "',"</p><p>　　stemp = stemp & "'" & Me![備注] & "')"</p><p>　　DoCmd.RunSQL stemp</p><p>　　Me![儀器設(shè)備

125、基本信息管理 子窗體].Requery</p><p>　　Me![新建記錄].SetFocus</p><p><b>　　End If</b></p><p>　　Exit_保存記錄_Click:</p><p><b>　　Exit Sub</b></p><p>　　

126、Err_保存記錄_Click:</p><p>　　MsgBox Err.Description</p><p>　　Resume Exit_保存記錄_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub 清空數(shù)據(jù)庫_Click()</p><p&

127、gt;　　On Error GoTo Err_清空數(shù)據(jù)庫_Click</p><p>　　Dim i As Integer</p><p>　　Dim stemp As String</p><p>　　If MsgBox("確定要清空數(shù)據(jù)庫嗎？數(shù)據(jù)庫清空后將不能恢復(fù)！", vbYesNo, "確定清空") = vbYes T

128、hen</p><p>　　stemp = "delete * from 儀器設(shè)備基本信息表"</p><p>　　DoCmd.RunSQL stemp</p><p>　　MsgBox "成功清空數(shù)據(jù)庫", vbOKOnly, "清空成功"</p><p>　　Me![儀器設(shè)備基本

129、信息管理 子窗體].Requery</p><p><b>　　Else</b></p><p>　　MsgBox "清空數(shù)據(jù)庫操作取消！", vbOKOnly, "取消操作"</p><p><b>　　Exit Sub</b></p><p><b&

130、gt;　　End If</b></p><p>　　Exit_清空數(shù)據(jù)庫_Click:</p><p><b>　　Exit Sub</b></p><p>　　Err_清空數(shù)據(jù)庫_Click:</p><p>　　MsgBox Err.Description</p><p>　　Re

131、sume Exit_清空數(shù)據(jù)庫_Click</p><p><b>　　End Sub</b></p><p>　　Private Sub 刪除記錄_Click()</p><p>　　On Error GoTo Err_刪除_Click</p><p>　　Dim i As Integer</p><