儀器設(shè)備管理系統(tǒng)論文

【摘要】本文以某儀器設(shè)備管理為例，對(duì)儀器設(shè)備管理系統(tǒng)的設(shè)計(jì)與應(yīng)用進(jìn)行研究，旨在通過儀器設(shè)備管理系統(tǒng)提高內(nèi)部?jī)x器設(shè)備的利用率及實(shí)現(xiàn)其最大的經(jīng)濟(jì)效益。文中首先對(duì)儀器設(shè)備管理的現(xiàn)狀及其重要性進(jìn)行了分析，提出儀器設(shè)備管理信息系統(tǒng)的必要性與可行性。其次針對(duì)該日常業(yè)務(wù)流程，分析數(shù)據(jù)來源及數(shù)據(jù)處理流程，并根據(jù)收集到的資料設(shè)計(jì)適合該校的日常儀器設(shè)備管理系統(tǒng)。最后，文章對(duì)系統(tǒng)的設(shè)計(jì)實(shí)現(xiàn)過程進(jìn)行了闡述，同時(shí)簡(jiǎn)述了實(shí)現(xiàn)系統(tǒng)時(shí)的過程及注意事項(xiàng)，并提出其可維護(hù)性?！娟P(guān)鍵詞】?jī)x器設(shè)備管理、系統(tǒng)分析、VisualBasic6.0、access

目錄TOC\o"1-2"\h\z\u1、緒論 41．1系統(tǒng)開發(fā)的背景 41．2課題中涉及的相關(guān)技術(shù)及概念 42、系統(tǒng)開發(fā)的目的、意義 6３、系統(tǒng)開發(fā)的要求 83．1硬件配置及外設(shè)儀器設(shè)備與配置 83．2所用的開發(fā)軟件、應(yīng)用軟件平臺(tái)及語言 84、系統(tǒng)的功能特點(diǎn) 94．1系統(tǒng)的功能 94．2系統(tǒng)的組成結(jié)構(gòu)及其流程圖 95、結(jié)構(gòu)設(shè)計(jì) 115．1系統(tǒng)開發(fā)的思想及原則 115．2系統(tǒng)軟件的結(jié)構(gòu)設(shè)計(jì) 126、詳細(xì)設(shè)計(jì) 166．1界面設(shè)計(jì) 166．2代碼設(shè)計(jì) 187、系統(tǒng)評(píng)價(jià) 377．1系統(tǒng)測(cè)試 377．2系統(tǒng)的特點(diǎn) 377．3系統(tǒng)總結(jié) 378、結(jié)束語 38參考文獻(xiàn) 39

1、緒論1．1系統(tǒng)開發(fā)的背景目前國內(nèi)有些小儀器設(shè)備自動(dòng)化管理水平不是很高。大多數(shù)儀器設(shè)備管理辦法是儀器設(shè)備采購進(jìn)來以后，將儀器設(shè)備的基本情況和相關(guān)信息登記存檔，然后將檔案存檔。以后檔案基本就沒人維護(hù)，如儀器設(shè)備位置變遷、檢修情況、儀器設(shè)備當(dāng)前運(yùn)行狀態(tài)等信息根本不會(huì)體現(xiàn)在儀器設(shè)備臺(tái)帳上，即儀器設(shè)備跟蹤信息不能及時(shí)體現(xiàn)在儀器設(shè)備檔案上。

本信息系統(tǒng)的儀器設(shè)備管理思想并結(jié)有關(guān)儀器設(shè)備管理現(xiàn)狀，可以完全能滿足國內(nèi)有些儀器設(shè)備管理的需要。并通過對(duì)各行業(yè)儀器設(shè)備管理情況的長(zhǎng)期研究探索，以靈活、通用為主要設(shè)計(jì)思想，開發(fā)適合于各行業(yè)儀器設(shè)備管理信息系統(tǒng)。本系統(tǒng)將會(huì)提高辦公效率和儀器設(shè)備可靠性，減少工作人員的勞動(dòng)強(qiáng)度，減少辦公耗材，提高的現(xiàn)代化管理水平。因此，我們考慮著開發(fā)了這套儀器設(shè)備管理信息系統(tǒng)。這就是本論文寫作的背景和立題意義。1．2課題中涉及的相關(guān)技術(shù)及概念1．2．1相關(guān)技術(shù)系統(tǒng)采用了先進(jìn)的access數(shù)據(jù)庫技術(shù)，面向?qū)ο蟮木幊谭椒▽W(xué)以及軟件工程方法學(xué)1．2．2VisualBasic概念簡(jiǎn)介什么是VisualBasicvisualBasic6.0中文版是一種應(yīng)用程序開發(fā)工具，它的功能就是用來編程——Windows下的應(yīng)用程序。VisualBasic6.0是在原有的Basic語言的基礎(chǔ)上的進(jìn)一步發(fā)展，他包含了數(shù)百條語句。函數(shù)及關(guān)鍵詞，其中很多與WindowsGUI有直接的關(guān)系。VisualBasic語言簡(jiǎn)單易學(xué)，只要稍有語言基礎(chǔ)就可以很快的掌握并進(jìn)而精通?？梢暬挠脩艚缑嬖O(shè)計(jì)功能，把程序設(shè)計(jì)人員從繁瑣復(fù)雜的截面設(shè)計(jì)中解脫出來；可視化編程環(huán)境的“所見即所得（WYSIWYG）”功能，是界面設(shè)計(jì)如積木游戲一般，編程變成了一種享受；強(qiáng)大的多媒體功能可輕而易舉地開發(fā)出集聲音，動(dòng)畫，影像和圖片于一體的多媒體應(yīng)用程序；新增的網(wǎng)絡(luò)功能提供了編寫Internet程序的能力。VisualBasic6.0還支持用戶自己開發(fā)ActiveX控件和制作ActiveX文檔?！盫isual”一詞在計(jì)算機(jī)程序設(shè)計(jì)領(lǐng)域中意為:”可視化的”，Microsoft其冠以Visual的產(chǎn)品都含有這個(gè)意思。VB就是可視化程序設(shè)計(jì)語言?？梢暬绦蛟O(shè)計(jì)指的是一種開發(fā)圖形用戶界面的方法，使用這種方法，程序員不須編寫大量代碼去描述界面元素的外觀和位置，只要把預(yù)先建立的界面元素用鼠標(biāo)拖放到屏幕上適當(dāng)?shù)奈恢眉纯?。VisualBasic在原有BASIC語言的基礎(chǔ)上進(jìn)一步發(fā)那，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和WindowsGUIe直接關(guān)系。專業(yè)人員可以用VisualBasic實(shí)現(xiàn)其他任何Windows編程語言的功能，而初學(xué)者只要掌握幾個(gè)關(guān)鍵詞就可以建立實(shí)用的應(yīng)用程序。VisualBasic的基本特點(diǎn)VB的基本特點(diǎn)有兩個(gè)：VB提供可視化的編程工具VB向程序員提供圖形對(duì)象（窗體，控件，菜單等）進(jìn)行應(yīng)用程序的界面設(shè)計(jì)，應(yīng)用程序的界面相當(dāng)于用工具畫出來的，大大簡(jiǎn)化了程序員的編程工作。程序采取“事件驅(qū)動(dòng)”方式VB改變了程序的機(jī)制，沒有傳統(tǒng)意義上的主程序，使程序執(zhí)行的基本方法是有“事件”來驅(qū)動(dòng)子程序（或過程）的運(yùn)行，如用鼠標(biāo)點(diǎn)擊命令按扭，就產(chǎn)生了一個(gè)命令按扭的“單擊事件”，響應(yīng)的執(zhí)行一段程序（事件過程：Command1_Click()）。為什么要選擇VB6.0微軟VisualBasic6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。VisualBasic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。

2、系統(tǒng)開發(fā)的目的、意義目前儀器設(shè)備自動(dòng)化管理水平不是很高。大多數(shù)儀器設(shè)備管理辦法是儀器設(shè)備采購進(jìn)來以后，將儀器設(shè)備的基本情況和相關(guān)信息登記存檔，然后將檔案存檔。以后檔案基本就沒人維護(hù)，如儀器設(shè)備位置變遷、檢修情況、儀器設(shè)備當(dāng)前運(yùn)行狀態(tài)等信息根本不會(huì)體現(xiàn)在儀器設(shè)備臺(tái)帳上，即儀器設(shè)備跟蹤信息不能及時(shí)體現(xiàn)在儀器設(shè)備檔案上。某些使用儀器設(shè)備管理系統(tǒng)的單位，對(duì)儀器設(shè)備的跟蹤信息即使能體現(xiàn)在儀器設(shè)備檔案上，但儀器設(shè)備的缺陷處理及儀器設(shè)備缺陷等功能沒有實(shí)施。整個(gè)教學(xué)儀器設(shè)備管理信息化仍處于較低水平。將管理任務(wù)分成小塊，落實(shí)到個(gè)人并能隨時(shí)查詢儀器設(shè)備當(dāng)前情況和歷史情況，對(duì)儀器設(shè)備的可靠性分析有直接作用，使管理人員從手工計(jì)算、統(tǒng)計(jì)工作中解脫出來。現(xiàn)在，科學(xué)技術(shù)的飛速發(fā)展把人類社會(huì)推向了一個(gè)嶄新的時(shí)代——信息時(shí)代。這已是無可爭(zhēng)議的事實(shí)；信息對(duì)社會(huì)經(jīng)濟(jì)發(fā)展的巨大推動(dòng)作用，使其與物質(zhì)能源一起并列為現(xiàn)代社會(huì)的三大支柱，這已在全社會(huì)達(dá)到共識(shí)。隨著對(duì)信息作為一種資源來管理的需求日益加強(qiáng)，信息研究領(lǐng)域出現(xiàn)了一種新的管理思想和模式——信息管理。因此，就誕生了“信息管理”這樣一個(gè)概念。由于信息是普遍存在的，人類信息管理活動(dòng)的范圍也是十分廣泛的，信息管理不僅是信息工作的一部分，而且已被認(rèn)為是現(xiàn)代管理的重要組成部分。信息管理的概念源于西方，也是在世界信息量迅速增長(zhǎng)、信息技術(shù)日新月異、信息產(chǎn)業(yè)強(qiáng)勁發(fā)展的六七十年代出現(xiàn)的。時(shí)至今日，信息管理已不僅僅是一個(gè)概念，而是信息學(xué)和管理學(xué)中的重要內(nèi)容了。對(duì)信息管理的理解，一種認(rèn)為是，信息管理就是對(duì)信息的管理。在此，信息管理是指狹義的信息資源管理，實(shí)際上就是對(duì)信息本身的管理；另一種認(rèn)為，信息管理不僅是對(duì)信息的管理，而是對(duì)涉及信息活動(dòng)的各種要素，如信息、技術(shù)、人員、組織進(jìn)行合理的組織和有效的控制，從而滿足社會(huì)的信息需求。在此，信息管理是指廣義的信息資源管理。綜合兩種理解，信息管理是指對(duì)人類信息活動(dòng)所產(chǎn)生的社會(huì)信息進(jìn)行管理，信息管理是管理的一種，既要對(duì)信息進(jìn)行管理，也要對(duì)信息活動(dòng)進(jìn)行管理。信息和信息活動(dòng)都是信息管理的客體。簡(jiǎn)而言之，信息管理就是對(duì)信息和信息活動(dòng)的管理，這就是我們對(duì)信息管理的全面理解。世界經(jīng)濟(jì)發(fā)展已進(jìn)入一個(gè)激烈競(jìng)爭(zhēng)的年代，可以說，誰先獲得信息，誰就有可能抓住發(fā)展經(jīng)濟(jì)的機(jī)遇。同樣，誰能很好地管理和利用信息，誰就有可能占領(lǐng)市場(chǎng)，獲得效益。國內(nèi)外大量事實(shí)已說明：在目前這個(gè)激烈競(jìng)爭(zhēng)的市場(chǎng)經(jīng)濟(jì)中，誰的信息管理現(xiàn)代化水平高，誰重視信息資源的開發(fā)和利用，誰就能抓住機(jī)遇，在競(jìng)爭(zhēng)中取勝。本信息管理系統(tǒng)合理的某些企業(yè)儀器設(shè)備管理現(xiàn)狀，并通過對(duì)各行業(yè)儀器設(shè)備管理情況的長(zhǎng)期研究，以靈活、通用為主要設(shè)計(jì)思想，開發(fā)適合于儀器設(shè)備管理的信息系統(tǒng)。使用本系統(tǒng)之后，將會(huì)提高辦公效率和儀器設(shè)備可靠性，減少工作人員的勞動(dòng)強(qiáng)度，減少辦公耗材，提高的現(xiàn)代化管理水平。做這個(gè)課題是為了方便儀器設(shè)備進(jìn)行統(tǒng)計(jì)及管理工作，減少每天需要涉及到的相關(guān)工作量，盡可能的提高工作效率，可以節(jié)省人力物力的浪費(fèi)。

３、系統(tǒng)開發(fā)的要求3．1硬件配置及外設(shè)儀器設(shè)備與配置工硬件環(huán)境：硬件平臺(tái)是指開發(fā)與運(yùn)行所需要的硬件環(huán)境，主要包括計(jì)算機(jī)機(jī)型及硬件配置。由于本系統(tǒng)是一個(gè)小型的管理系統(tǒng)，因此對(duì)計(jì)算機(jī)硬件的要求不高，比較經(jīng)濟(jì)，只要配備如下表所示的就可以。內(nèi)容最低配置建議配置主機(jī)P/200PII/266以上內(nèi)存64MB128MB以上硬盤10GB20GB以上顯示器VGA以上3．2所用的開發(fā)軟件、應(yīng)用軟件平臺(tái)及語言

軟件平臺(tái)是指系統(tǒng)開發(fā)與運(yùn)行的軟件環(huán)境。本系統(tǒng)在開發(fā)時(shí)選用了穩(wěn)定性較強(qiáng)的WindowsXP中文專業(yè)版和VisualBasic6.0作為開發(fā)語言，由于這些軟件產(chǎn)品都是Microsoft產(chǎn)品，因此彼此之間的兼容性較好，開發(fā)出的應(yīng)用系統(tǒng)穩(wěn)定性較高。VB6.0中文版，它是運(yùn)行于Windows95和WindowsNT平臺(tái)的32位數(shù)據(jù)庫系統(tǒng)，充分發(fā)揮了32位微處理器強(qiáng)大的32位數(shù)據(jù)處理性能。它功能強(qiáng)大，直觀易用，支持客戶/服務(wù)器結(jié)構(gòu)和面向?qū)ο缶幊?，提供多種可視化編程工具，支持最新Internet技術(shù)，WWW數(shù)據(jù)庫的設(shè)計(jì)，最新流行的ActiveX等。應(yīng)用程序開發(fā)：Visualbasic6.0與其它access工具可以很好的配合，例如，運(yùn)用VisualInterDev創(chuàng)建Web應(yīng)用程序的開發(fā)人員可以很容易地使用VisualBasic來創(chuàng)建組件。用VisualBasic創(chuàng)建的ActiveX控件可以在VisualBasic應(yīng)用程序中使用，以實(shí)現(xiàn)一些附加功能。

4、系統(tǒng)的功能特點(diǎn)4．1系統(tǒng)的功能本系統(tǒng)主要完成新增儀器設(shè)備的入庫記錄、新增儀器設(shè)備的維護(hù)、儀器設(shè)備領(lǐng)用登記和維護(hù)、儀器設(shè)備使用與維修登記和維護(hù)、信息檢索、系統(tǒng)管理功能。4．2系統(tǒng)的組成結(jié)構(gòu)及其流程圖本系統(tǒng)主要有以下模塊：新增儀器設(shè)備、儀器設(shè)備的信息維護(hù)、儀器設(shè)備使用與維修登記和維護(hù)、信息檢索、系統(tǒng)管理。為了美化系統(tǒng)界面，本系統(tǒng)加上一個(gè)圖片在主界面上。系統(tǒng)的整體結(jié)構(gòu)如下：儀器設(shè)備管理系統(tǒng)儀器設(shè)備管理系統(tǒng)儀器設(shè)備采購管理維修與使用管理儀器設(shè)備配件管理退出系統(tǒng)信息錄入流程圖：信息錄入信息錄入數(shù)據(jù)合法否保存到數(shù)據(jù)庫YN非法字符處修改下面分別論述本系統(tǒng)的各個(gè)功能模塊的作用：（1）儀器設(shè)備采購管理：本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對(duì)儀器設(shè)備的入庫管理工作，包括記錄添加、編輯、刪除等操作。（2）儀器設(shè)備維修和使用：本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對(duì)教學(xué)的還庫管理工作，包括記錄添加、編輯、刪除等操作。（3）信息查詢：本應(yīng)用模塊集成了本系統(tǒng)的所有數(shù)據(jù)庫文件，可以跟據(jù)儀器設(shè)備的編號(hào)，名稱等進(jìn)行查詢。（4）退出系統(tǒng)：退出本系統(tǒng)，恢復(fù)系統(tǒng)的實(shí)始狀態(tài)。

5、結(jié)構(gòu)設(shè)計(jì)5．1系統(tǒng)開發(fā)的思想及原則5．1．1、數(shù)據(jù)庫設(shè)計(jì)概述VisualBasic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理MicrosoftAccess格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，VisualBasic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如DBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用VisualBasic編輯和處理。數(shù)據(jù)庫是信息管理系統(tǒng)的后臺(tái)，存儲(chǔ)著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。數(shù)據(jù)庫設(shè)計(jì)的好與壞，直接影響到這個(gè)系統(tǒng)的運(yùn)行效率。良好的數(shù)據(jù)庫設(shè)計(jì)，可以提高數(shù)據(jù)信息的存儲(chǔ)效率，保證數(shù)據(jù)信息的完整性和一直性。同時(shí)，一個(gè)合理的數(shù)據(jù)庫結(jié)構(gòu)有利于程序的實(shí)現(xiàn)。這里選用Access2000作為后臺(tái)數(shù)據(jù)庫。數(shù)據(jù)庫是某個(gè)企業(yè)、組織或部門所設(shè)計(jì)的數(shù)據(jù)的一個(gè)綜合，它不僅要反映數(shù)據(jù)本身的內(nèi)容，而且要反映數(shù)據(jù)之間的聯(lián)系。在數(shù)據(jù)庫中用數(shù)據(jù)模型這個(gè)工具來抽象、表示和處理現(xiàn)實(shí)世界中的數(shù)據(jù)和信息。簡(jiǎn)單地說，數(shù)據(jù)模型是現(xiàn)實(shí)世界的模擬。5．1．2系統(tǒng)的開發(fā)的方法在軟件的編制當(dāng)中，各個(gè)模塊的設(shè)計(jì)以vb語言實(shí)現(xiàn)，采用visualbasic6.0開發(fā)環(huán)境進(jìn)行編譯，數(shù)據(jù)庫的連接采用ADO技術(shù)，而數(shù)據(jù)庫部分則由Access2000開發(fā)。輔助軟件配置：Wiondows2000、Office2000、visualbasic6.0。5．1．3、系統(tǒng)、可行性分析可靠性分析概述

可靠性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進(jìn)行的，對(duì)新系統(tǒng)的開發(fā)從社會(huì)、技術(shù)、經(jīng)濟(jì)、管理等方面進(jìn)行分析，并得出新系統(tǒng)的開發(fā)工作可行、不可行，最后完成可行性分析。

可行性分析一般可定義為：可行性分析是在建設(shè)的前期對(duì)工程項(xiàng)目的一種考察和鑒定，對(duì)擬議中的項(xiàng)目進(jìn)行全面與綜合的技術(shù)、經(jīng)濟(jì)能力的調(diào)查，判斷它是否可行。(1)可行性分析階段的主要工作包括以下幾個(gè)方面：①新系統(tǒng)目標(biāo)可行性分析：分析新系統(tǒng)的目標(biāo)是否符合某此小發(fā)展的需要。②社會(huì)可行性分析：社會(huì)可行性分析主要是指管理信息系統(tǒng)的開發(fā)是否符合國家法律、政策。③技術(shù)可行性分析：技術(shù)可行性分析是根據(jù)新系統(tǒng)的目標(biāo)來衡量是否具備所需要的技術(shù)。④管理可行性分析：管理可行性分析主要是分析現(xiàn)行的管理體制和領(lǐng)導(dǎo)是否具有現(xiàn)代化的管理意識(shí)和管理水平。eq\o\ac(○,5)、技術(shù)可行性分析

技術(shù)可行性分析主要包括四個(gè)方面：目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)；新系統(tǒng)開發(fā)人員的數(shù)量和水平，即人力資源；硬件和軟件資源。（1）技術(shù)支持：

首先根據(jù)新系統(tǒng)的目標(biāo)，考慮目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)。這里討論的技術(shù)必須是已經(jīng)普遍使用的，而不是待研究的或正在研究的。（2）硬件資源：

開發(fā)管理信息系統(tǒng)所需的硬件資源包含以下兩個(gè)方面：

系統(tǒng)開發(fā)人員在管理信息系統(tǒng)的開發(fā)過程中所需要的計(jì)算機(jī)儀器設(shè)備及其有關(guān)的外部?jī)x器設(shè)備；管理信息系統(tǒng)開發(fā)成功投入使用后，使用單位所應(yīng)具備的計(jì)算機(jī)儀器設(shè)備及其有關(guān)的外圍儀器設(shè)備。對(duì)硬件資源進(jìn)行可行性分析時(shí)主要考慮計(jì)算機(jī)的主機(jī)內(nèi)存、類型、功能、聯(lián)網(wǎng)能力、安全保護(hù)措施以及輸入/輸出儀器設(shè)備，外存儲(chǔ)器和聯(lián)網(wǎng)數(shù)據(jù)通信儀器設(shè)備的配置、功能、效率等指標(biāo)是否符合系統(tǒng)方案設(shè)計(jì)要求，同時(shí)還要考慮計(jì)算機(jī)的性能/價(jià)格比。

（3）軟件資源

軟件資源的可行性分析主要考慮以下幾點(diǎn)是否滿足用戶的要求：①操作系統(tǒng)的選擇；②編譯系統(tǒng)的選擇；③數(shù)據(jù)庫管理系統(tǒng)的選擇；④高級(jí)編程語言的選擇；⑤漢字處理系統(tǒng)的選擇；

本系統(tǒng)在開發(fā)前，與相關(guān)的部門的領(lǐng)導(dǎo)和具體的操作人員密切溝通，認(rèn)真聽取他們的意見，并吸收他們的積極觀點(diǎn)，使本系統(tǒng)的開發(fā)在相當(dāng)大的程度上具有一定的先進(jìn)性和合理性。5．2系統(tǒng)軟件的結(jié)構(gòu)設(shè)計(jì)

通過對(duì)本系統(tǒng)的詳細(xì)分析，軟件模塊結(jié)構(gòu)設(shè)計(jì)目標(biāo)如下：

系統(tǒng)主要應(yīng)完成的功能如下：儀器設(shè)備的采購，儀器設(shè)備的領(lǐng)用，儀器設(shè)備數(shù)據(jù)記錄的維護(hù)，數(shù)據(jù)資料資料的查詢，系統(tǒng)管理（包括修改密碼及增刪用戶等）。5．2．1、結(jié)構(gòu)設(shè)計(jì)：

本系統(tǒng)在運(yùn)行時(shí)，可以根據(jù)不同的使用需要，選擇不同的功能模塊進(jìn)入相當(dāng)?shù)南到y(tǒng)使用；同時(shí)，為了方便對(duì)系統(tǒng)的快速操作，本系統(tǒng)設(shè)計(jì)了幾個(gè)功能集成模塊，可以對(duì)一些數(shù)據(jù)進(jìn)行統(tǒng)一的快速操作；并為了系統(tǒng)的安全考慮，本系統(tǒng)設(shè)立了密碼修改等功能。總體上來說，本系統(tǒng)屬于事務(wù)型系統(tǒng)，其系統(tǒng)示意圖如下圖所示：接受數(shù)據(jù)接受數(shù)據(jù)采購管理維修管理信息查詢退出系統(tǒng)5．2．2．系統(tǒng)數(shù)據(jù)庫結(jié)構(gòu)（E-R表示）

為了使E-R圖表示得更加清晰，現(xiàn)將E-R圖分成實(shí)體及其屬性圖和實(shí)體及其聯(lián)系圖。分別如下幾個(gè)圖所示：儀器設(shè)備采購儀器設(shè)備名稱設(shè)備編號(hào)儀器設(shè)備采購儀器設(shè)備名稱設(shè)備編號(hào)采購人采購日期生產(chǎn)廠家生產(chǎn)日期購入數(shù)量金額 使用與維護(hù)：使用與維護(hù)使用與維護(hù)設(shè)備名稱設(shè)備編號(hào)維修次數(shù)使用情況（良/差）維修費(fèi)用維修記錄儀器設(shè)備配件：設(shè)備配件設(shè)備配件配件號(hào)配件名稱配件品牌配件所屬設(shè)備產(chǎn)品說明生產(chǎn)廠家本儀器設(shè)備管理系統(tǒng)功能需求可以用二層的IDEF0圖來表示。圖下圖是第一層IDEF0圖，它表示該系統(tǒng)所需要完成的四大功能：儀器設(shè)備基礎(chǔ)信息管理、儀器設(shè)備配件管理、儀器設(shè)備維修管理功能。生產(chǎn)工單生產(chǎn)工單設(shè)備運(yùn)行時(shí)間設(shè)備運(yùn)行時(shí)間財(cái)務(wù)儀器設(shè)備配件儀器財(cái)務(wù)儀器設(shè)備配件儀器維修科配件信息臺(tái)帳信息折舊信息維修科配件信息臺(tái)帳信息折舊信息儀器設(shè)備信息設(shè)備基礎(chǔ)信息管理設(shè)備基礎(chǔ)信息管理生產(chǎn)工單設(shè)備科生產(chǎn)工單設(shè)備科報(bào)表打印報(bào)表潤(rùn)滑報(bào)告儀器設(shè)備維修報(bào)表打印報(bào)表潤(rùn)滑報(bào)告儀器設(shè)備維修維修報(bào)告設(shè)備運(yùn)行時(shí)間維修報(bào)告設(shè)備運(yùn)行時(shí)間設(shè)備科設(shè)備科財(cái)務(wù)財(cái)務(wù)系統(tǒng)頂層IDEF0圖考慮到篇幅有限，其他IDEF0圖不再一一畫出。5．2．3．整個(gè)管理系統(tǒng)的流程圖否否是生產(chǎn)管理部門錄入設(shè)備運(yùn)行狀態(tài)信息是否有設(shè)備需維修設(shè)備科制定儀器設(shè)備管理各項(xiàng)標(biāo)準(zhǔn)查看故障樹，進(jìn)行故障維修填寫故障維修報(bào)告生成周期性預(yù)防維修計(jì)劃是否發(fā)生故障生成儀器設(shè)備配件計(jì)劃是否有設(shè)備需配件進(jìn)行周期性預(yù)防維修儀器設(shè)備配件供應(yīng)填寫預(yù)防維修報(bào)告儀器設(shè)備配件報(bào)告是是否否結(jié)束

6、詳細(xì)設(shè)計(jì)6．1界面設(shè)計(jì)6．1．1、系統(tǒng)的主界面：新增儀器設(shè)備界面：儀器設(shè)備信息維護(hù)配件登記配件的查詢儀器設(shè)備的使用與維護(hù)儀器設(shè)備的使用與維修信息維護(hù)：儀器設(shè)備信息的查詢6．2代碼設(shè)計(jì)本軟件采用面向?qū)ο蟮膙b語言，同時(shí)結(jié)合非過程化語言SQL編寫而成。數(shù)據(jù)庫與程序的連接采用微軟數(shù)據(jù)訪問組件ADO來實(shí)現(xiàn)。儀器設(shè)備管理信息系統(tǒng)主窗體的實(shí)現(xiàn)一個(gè)程序的主窗體主要是由窗體、菜單欄、工具欄、狀態(tài)欄等組成。設(shè)計(jì)時(shí)一般先設(shè)計(jì)窗體背景和窗體標(biāo)題。菜單欄主要通過VB中工具菜單項(xiàng)下的菜單編輯器進(jìn)行設(shè)計(jì)。狀態(tài)欄通過設(shè)計(jì)statusbar控件實(shí)現(xiàn)。下面是儀器設(shè)備管理信息系統(tǒng)主窗體的具體步驟：（1）新建一個(gè)標(biāo)準(zhǔn)工程，默認(rèn)名為工程1。在該工程中會(huì)自動(dòng)創(chuàng)建一個(gè)窗體，默認(rèn)名為form1.(2)將form1窗體設(shè)為作用中的窗體，然后選取VB菜單中工具菜單項(xiàng)下的菜單編輯器，接著會(huì)出現(xiàn)菜單編輯器對(duì)話框。如圖：（3）在菜單編輯器中的標(biāo)題欄內(nèi)輸入菜單項(xiàng)目[儀器設(shè)備采購管理]，在名稱欄內(nèi)輸入x1，然后依次輸入新增儀器設(shè)備、儀器設(shè)備信息維護(hù)、儀器設(shè)備維修與使用管理、信息查詢、退出管理等菜單項(xiàng)，單擊確定按鈕，菜單即可編輯完成。（4）單擊工程菜單下的部件選項(xiàng)，在彈出的列表中選中[Microsoftwindowscommoncontrol6.0]選項(xiàng)，然后單擊確定按鈕，imagelist控件、toolbar控件、statusbar控件將被添加到工具箱中。（5）在form1窗體中放置1個(gè)statusbar控件、1個(gè)timer控件等。（6）添加如下程序代碼。PrivateSubForm_Resize()Label1.Left=(Form1.Width-Label1.Width)/2Label1.Top=Form1.Height/2EndSubPrivateSubTimer1_Timer()ST.Panels(1).Text=Format(Date,"longdate")&""&TimeEndSubPrivateSubForm_Load()ST.Panels(2).Text="歡迎使用儀器設(shè)備管理系統(tǒng)"EndSubPrivateSubu2_Click()EndEndSubPrivateSubxx1_Click()Form3.ShowEndSubPrivateSubxx2_Click()Form6.ShowEndSubPrivateSubyy1_Click()Form5.ShowEndSubPrivateSubyy2_Click()Form8.ShowEndSubPrivateSubyy3_Click()Form9.ShowEndSub下面介紹儀器設(shè)備管理系統(tǒng)的其他模塊的制作步驟：eq\o\ac(○,1)form3的創(chuàng)建，單擊添加窗體，得到一個(gè)窗體form3，在屬性欄caption里面輸入新增儀器設(shè)備入庫，在窗體中放置7個(gè)label控件，7個(gè)text控件，二個(gè)command控件，二個(gè)dtpicker，并分別輸入相應(yīng)的屬性值?？丶麑傩詫傩灾祎ext1 name 儀器設(shè)備名稱text2 name 采購人text3 name 出產(chǎn)廠家text4 name 出廠日期text5 name 金額text6 name 采購日期text7 name 采購數(shù)量text8 name 儀器設(shè)備編號(hào)Command1 name 保存到數(shù)據(jù)庫Command2name退出流程圖：NNY開始增加操作是否繼續(xù)退出添加如下程序代碼：DimrsAsNewADODB.RecordsetDimconnAsADODB.ConnectionPrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請(qǐng)輸入儀器設(shè)備名稱",,"--提示"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"請(qǐng)輸入儀器設(shè)備采購人",,"--提示"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請(qǐng)輸入出產(chǎn)廠家",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"請(qǐng)輸入出廠日期"'Text4.SetFocus'ExitSub'EndIfIfText5.Text=""ThenMsgBox"請(qǐng)輸入儀器設(shè)備金額",,"--提示"Text5.SetFocusExitSubEndIf'IfText6.Text=""Then'MsgBox"請(qǐng)輸入儀器設(shè)備采購日期"'Text6.SetFocus'ExitSub'EndIfIfText7.Text=""ThenMsgBox"請(qǐng)輸入采購數(shù)量",,"--提示"Text7.SetFocusExitSubEndIfIfText8.Text=""ThenMsgBox"請(qǐng)輸入儀器設(shè)備編號(hào)",,"--提示"Text8.SetFocusExitSubEndIfrs.Open"select*fromcginfo",conn,adOpenKeyset,adLockOptimisticrs.AddNewrs("儀器設(shè)備的名稱")=Text1.Textrs("采購人")=Text2.Textrs("出產(chǎn)廠家")=Text3.Textrs("出廠日期")=DTPicker1.Valuers("金額")=Text5.Textrs("采購日期")=DTPicker2.Valuers("采購數(shù)量")=Text7.Textrs("儀器設(shè)備編號(hào)")=Text8.Textrs("儀器設(shè)備規(guī)格")=Text9.Textrs.UpdateText1.Text=""Text1.SetFocusText2.Text=""Text3.Text=""'Text4.Text=""Text5.Text=""'Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text=""MsgBox"數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫!",,"--提示"rs.CloseEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DTPicker1.Value=DateDTPicker2.Value=DateSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource=sbinfo.mdb;"&"UserId=admin;"&"Password=;"EndSubPrivateSubText5_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57AndKeyCode<>190)Or(KeyCode>33AndKeyCode<48))ThenIfText5.Text<>""ThenText5.Text=Left(Text5.Text,Len(Text5.Text)-1)MsgBox("儀器設(shè)備金額輸入錯(cuò)誤,你所輸入的數(shù)據(jù)可能含有非法字符,請(qǐng)重新輸入!!!"),,"--提示"EndIfEndSubeq\o\ac(○,2)窗體form5，在屬性欄caption里面輸入儀器設(shè)備使用與維修登記，在窗體中放置6個(gè)label控件，5個(gè)text控件，2個(gè)command控件,1個(gè)combol，并分別輸入相應(yīng)的屬性值。儀器設(shè)備使用與維修登記如下：控件名屬性屬性值text1name儀器設(shè)備編號(hào)text2 name使用情況text3name維修記錄text4name維修日期text5name維修費(fèi)用text6name儀器設(shè)備編號(hào)combol rowsource 良/差Command1 name 保存到數(shù)據(jù)庫Command2 name 退出NYNY開始設(shè)備的使用與維修登記是否繼續(xù)退出添加如下程序代碼：DimrsAsNewADODB.RecordsetDimconnAsADODB.ConnectionPrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請(qǐng)輸入儀器設(shè)備編號(hào)",,"--提示"Text1.SetFocusExitSubEndIfIfCombo1.Text=""ThenMsgBox"請(qǐng)選擇使用情況",,"--提示"Combo1.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請(qǐng)輸入維修記錄,若無記錄請(qǐng)輸入無",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"請(qǐng)輸入維修日期,若無維修,請(qǐng)輸入無"'Text4.SetFocus'ExitSub'EndIfIfText5.Text=""ThenMsgBox"請(qǐng)輸入維修費(fèi)用,若無費(fèi)用,則請(qǐng)輸入0",,"--提示"Text5.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"請(qǐng)輸入儀器設(shè)備名稱",,"--提示"Text2.SetFocusExitSubEndIfrs.Open"select*fromwxinfo",conn,adOpenKeyset,adLockOptimisticrs.AddNewrs("儀器設(shè)備編號(hào)")=Text1.Textrs("使用情況")=Combo1.Textrs("維修記錄")=Text3.Textrs("維修日期")=DTPicker1.Valuers("維修費(fèi)用")=Text5.Textrs("儀器設(shè)備名稱")=Text2.Textrs.UpdateText1.Text=""Text1.SetFocusCombo1.Text=""Text3.Text=""'Text4.Text=""Text5.Text=""Text2.Text=""MsgBox"數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫!",,"--提示"rs.CloseEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DTPicker1.Value=DateSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource=sbinfo.mdb;"&"UserId=admin;"&"Password=;"Combo1.AddItem("良")Combo1.AddItem("差")EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenText3.SetFocusrs.Open"select*fromcginfowhere儀器設(shè)備編號(hào)="+Trim(Text1.Text),conn,adOpenKeyset,adLockOptimisticIfrs.EOFThenMsgBox"沒有此儀器設(shè)備！",,"--提示"ElseText2.Text=rs("儀器設(shè)備的名稱")EndIfrs.CloseEndIfEndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57)Or(KeyCode>33AndKeyCode<48))ThenIfText1.Text<>""ThenText1.Text=Left(Text1.Text,Len(Text1.Text)-1)MsgBox"儀器設(shè)備編號(hào)輸入錯(cuò)誤,該編號(hào)僅為數(shù)字編號(hào),請(qǐng)重新輸入!!!",,"--提示"EndIfEndSubPrivateSubText2_GotFocus()rs.Open"select*fromcginfowhere儀器設(shè)備編號(hào)="+Trim(Text1.Text),conn,adOpenKeyset,adLockOptimisticIfrs.EOFThenMsgBox"沒有此儀器設(shè)備！",,"--提示"ElseText2.Text=rs("儀器設(shè)備的名稱")EndIfrs.CloseEndSubPrivateSubText5_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57AndKeyCode<>190)Or(KeyCode>33AndKeyCode<48))ThenIfText5.Text<>""ThenText5.Text=Left(Text5.Text,Len(Text5.Text)-1)MsgBox"維修費(fèi)用輸入錯(cuò)誤,你所輸入的數(shù)據(jù)可能含有非法字符,請(qǐng)重新輸入!!!",,"--提示"EndIfEndSub③窗體form6，在屬性欄caption里面輸入儀器設(shè)備信息查詢維護(hù)，在窗體中放置1個(gè)datagrid控件，1個(gè)text控件，4個(gè)command控件,1個(gè)adodc，并分別輸入相應(yīng)的屬性值。倉庫儀器設(shè)備信息維護(hù)如下：控件名屬性屬性值datagrid endabled .f.adodc namecommand1 name 檢索command2 name 退出command3 name 刪除當(dāng)前修改command4 name 保存當(dāng)前修改流程圖：NNY開始查找/修改/刪除記錄是否繼續(xù)退出新增代碼如下：PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請(qǐng)輸入儀器設(shè)備編號(hào)"Text1.SetFocusExitSubEndIfAdodc1.RecordSource="select*fromcginfowhere儀器設(shè)備編號(hào)="+Text1.TextAdodc1.RefreshEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()DimmyvalAsStringmyval=MsgBox("是否確定刪除該記錄",vbYesNo)Ifmyval=vbYesThenAdodc1.Recordset.DeleteEndIfEndSubPrivateSubCommand4_Click()DimmyvalAsStringmyval=MsgBox("是否保存已經(jīng)修改的記錄",vbYesNo)Ifmyval=vbYesThenAdodc1.Recordset.UpdateEndIfEndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57)Or(KeyCode>33AndKeyCode<48))ThenIfText1.Text<>""ThenText1.Text=Left(Text1.Text,Len(Text1.Text)-1)MsgBox("儀器設(shè)備編號(hào)輸入錯(cuò)誤,該編號(hào)僅為數(shù)字編號(hào),請(qǐng)重新輸入!!!")EndIfEndSub④窗體form8在屬性欄caption里面輸入儀器設(shè)備使用維修信息維護(hù)，在窗體中放置1個(gè)datagrid控件，1個(gè)text控件，4個(gè)command控件,1個(gè)adodc，并分別輸入相應(yīng)的屬性值儀器設(shè)備使用維修信息維護(hù)：控件名屬性屬性值datagrid endabled .f.adodc namecommand1 name 檢索command2 name 退出command3 name 刪除當(dāng)前修改command4 name 保存當(dāng)前修改流程圖：NNY開始使用維修信息維護(hù)是否繼續(xù)退出新增代碼如下：PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請(qǐng)輸入儀器設(shè)備編號(hào)",,"--提示"Text1.SetFocusExitSubEndIfAdodc1.RecordSource="select*fromwxinfowhere儀器設(shè)備編號(hào)="+Text1.TextAdodc1.RefreshEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()DimmyvalAsStringmyval=MsgBox("是否確定刪除該記錄",vbYesNo,"--提示")Ifmyval=vbYesThenAdodc1.Recordset.DeleteEndIfEndSubPrivateSubCommand4_Click()DimmyvalAsStringmyval=MsgBox("是否保存已經(jīng)修改的記錄",vbYesNo,"--提示")Ifmyval=vbYesThenAdodc1.Recordset.UpdateEndIfEndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57)Or(KeyCode>33AndKeyCode<48))ThenIfText1.Text<>""ThenText1.Text=Left(Text1.Text,Len(Text1.Text)-1)MsgBox"儀器設(shè)備編號(hào)輸入錯(cuò)誤,該編號(hào)僅為數(shù)字編號(hào),請(qǐng)重新輸入!!!",,"--提示"EndIfEndSub⑤窗體form9在屬性欄caption里面輸入儀器設(shè)備信息查詢，在窗體中放置3個(gè)datagrid控件，1個(gè)text控件，2個(gè)command控件,3個(gè)adodc，1個(gè)combo1并分別輸入相應(yīng)的屬性值儀器設(shè)備信息查詢?nèi)缦拢嚎丶麑傩詫傩灾礵atagrid1 endabled .f.datagrid2 endabled .f.datagrid3 endabled .bo1 rowsource 儀器設(shè)備編號(hào)，儀器設(shè)備名稱，采購人，出產(chǎn)廠家，領(lǐng)取人，領(lǐng)取單位，使用情況，維修記錄adodc1adodc2adodc3 command1 name 檢索command2 name 退出NYNY開始設(shè)置查詢信息顯示查詢結(jié)果是否繼續(xù)退出新增代碼如下PrivateSubCommand1_Click()If(Combo1.Text="儀器設(shè)備編號(hào)")Or(Combo1.Text="儀器設(shè)備名稱")Or(Combo1.Text="采購人")Or(Combo1.Text="出產(chǎn)廠家")ThenAdodc1.RecordSource="select*fromcginfowhere(cginfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc1.RefreshAdodc3.RecordSource="selectcginfo.儀器設(shè)備編號(hào)as儀器設(shè)備編號(hào),wxinfo.儀器設(shè)備名稱as儀器設(shè)備名稱,wxinfo.使用情況as使用情況,wxinfo.維修記錄as維修記錄,wxinfo.維修日期as維修日期,wxinfo.維修費(fèi)用as維修費(fèi)用fromcginfo,wxinfowhere(wxinfo.儀器設(shè)備編號(hào)=cginfo.儀器設(shè)備編號(hào))and(cginfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc3.RefreshExitSubEndIfIfCombo1.Text="領(lǐng)取人"OrCombo1.Text="領(lǐng)取單位"ThenAdodc1.RecordSource="selectcginfo.儀器設(shè)備編號(hào)as儀器設(shè)備編號(hào),cginfo.儀器設(shè)備名稱as儀器設(shè)備名稱,cginfo.采購人as采購人,cginfo.出產(chǎn)廠家as出產(chǎn)廠家,cginfo.出廠日期as出廠日期,cginfo.金額as金額,cginfo.采購日期as采購日期,cginfo.采購數(shù)量as采購數(shù)量fromcginfo,tzinfowhere(cginfo.儀器設(shè)備編號(hào)=tzinfo.儀器設(shè)備編號(hào))and(tzinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc1.RefreshAdodc3.RecordSource="selectwxinfo.儀器設(shè)備編號(hào)as儀器設(shè)備編號(hào),wxinfo.儀器設(shè)備名稱as儀器設(shè)備名稱,wxinfo.使