【摘要】本文以某儀器設備管理為例，對儀器設備管理系統的設計與應用進行研究，旨在通過儀器設備管理系統提高內部儀器設備的利用率及實現其最大的經濟效益。文中首先對儀器設備管理的現狀及其重要性進行了分析，提出儀器設備管理信息系統的必要性與可行性。其次針對該日常業務流程，分析數據來源及數據處理流程，并根據收集到的資料設計適合該校的日常儀器設備管理系統。最后，文章對系統的設計實現過程進行了闡述，同時簡述了實現系統時的過程及注意事項，并提出其可維護性。【關鍵詞】儀器設備管理、系統分析、VisualBasic6.0、access

目錄TOC\o"1-2"\h\z\u1、緒論 41．1系統開發的背景 41．2課題中涉及的相關技術及概念 42、系統開發的目的、意義 6３、系統開發的要求 83．1硬件配置及外設儀器設備與配置 83．2所用的開發軟件、應用軟件平臺及語言 84、系統的功能特點 94．1系統的功能 94．2系統的組成結構及其流程圖 95、結構設計 115．1系統開發的思想及原則 115．2系統軟件的結構設計 126、詳細設計 166．1界面設計 166．2代碼設計 187、系統評價 377．1系統測試 377．2系統的特點 377．3系統總結 378、結束語 38參考文獻 39

1、緒論1．1系統開發的背景目前國內有些小儀器設備自動化管理水平不是很高。大多數儀器設備管理辦法是儀器設備采購進來以后，將儀器設備的基本情況和相關信息登記存檔，然后將檔案存檔。以后檔案基本就沒人維護，如儀器設備位置變遷、檢修情況、儀器設備當前運行狀態等信息根本不會體現在儀器設備臺帳上，即儀器設備跟蹤信息不能及時體現在儀器設備檔案上。

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

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

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

軟件平臺是指系統開發與運行的軟件環境。本系統在開發時選用了穩定性較強的WindowsXP中文專業版和VisualBasic6.0作為開發語言，由于這些軟件產品都是Microsoft產品，因此彼此之間的兼容性較好，開發出的應用系統穩定性較高。VB6.0中文版，它是運行于Windows95和WindowsNT平臺的32位數據庫系統，充分發揮了32位微處理器強大的32位數據處理性能。它功能強大，直觀易用，支持客戶/服務器結構和面向對象編程，提供多種可視化編程工具，支持最新Internet技術，WWW數據庫的設計，最新流行的ActiveX等。應用程序開發：Visualbasic6.0與其它access工具可以很好的配合，例如，運用VisualInterDev創建Web應用程序的開發人員可以很容易地使用VisualBasic來創建組件。用VisualBasic創建的ActiveX控件可以在VisualBasic應用程序中使用，以實現一些附加功能。

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

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

可靠性分析是在用戶的要求和系統調研的基礎上進行的，對新系統的開發從社會、技術、經濟、管理等方面進行分析，并得出新系統的開發工作可行、不可行，最后完成可行性分析。

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

技術可行性分析主要包括四個方面：目前有關的技術能否支持所開發的新系統；新系統開發人員的數量和水平，即人力資源；硬件和軟件資源。（1）技術支持：

首先根據新系統的目標，考慮目前有關的技術能否支持所開發的新系統。這里討論的技術必須是已經普遍使用的，而不是待研究的或正在研究的。（2）硬件資源：

開發管理信息系統所需的硬件資源包含以下兩個方面：

系統開發人員在管理信息系統的開發過程中所需要的計算機儀器設備及其有關的外部儀器設備；管理信息系統開發成功投入使用后，使用單位所應具備的計算機儀器設備及其有關的外圍儀器設備。對硬件資源進行可行性分析時主要考慮計算機的主機內存、類型、功能、聯網能力、安全保護措施以及輸入/輸出儀器設備，外存儲器和聯網數據通信儀器設備的配置、功能、效率等指標是否符合系統方案設計要求，同時還要考慮計算機的性能/價格比。

（3）軟件資源

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

本系統在開發前，與相關的部門的領導和具體的操作人員密切溝通，認真聽取他們的意見，并吸收他們的積極觀點，使本系統的開發在相當大的程度上具有一定的先進性和合理性。5．2系統軟件的結構設計

通過對本系統的詳細分析，軟件模塊結構設計目標如下：

系統主要應完成的功能如下：儀器設備的采購，儀器設備的領用，儀器設備數據記錄的維護，數據資料資料的查詢，系統管理（包括修改密碼及增刪用戶等）。5．2．1、結構設計：

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

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

6、詳細設計6．1界面設計6．1．1、系統的主界面：新增儀器設備界面：儀器設備信息維護配件登記配件的查詢儀器設備的使用與維護儀器設備的使用與維修信息維護：儀器設備信息的查詢6．2代碼設計本軟件采用面向對象的vb語言，同時結合非過程化語言SQL編寫而成。數據庫與程序的連接采用微軟數據訪問組件ADO來實現。儀器設備管理信息系統主窗體的實現一個程序的主窗體主要是由窗體、菜單欄、工具欄、狀態欄等組成。設計時一般先設計窗體背景和窗體標題。菜單欄主要通過VB中工具菜單項下的菜單編輯器進行設計。狀態欄通過設計statusbar控件實現。下面是儀器設備管理信息系統主窗體的具體步驟：（1）新建一個標準工程，默認名為工程1。在該工程中會自動創建一個窗體，默認名為form1.(2)將form1窗體設為作用中的窗體，然后選取VB菜單中工具菜單項下的菜單編輯器，接著會出現菜單編輯器對話框。如圖：（3）在菜單編輯器中的標題欄內輸入菜單項目[儀器設備采購管理]，在名稱欄內輸入x1，然后依次輸入新增儀器設備、儀器設備信息維護、儀器設備維修與使用管理、信息查詢、退出管理等菜單項，單擊確定按鈕，菜單即可編輯完成。（4）單擊工程菜單下的部件選項，在彈出的列表中選中[Microsoftwindowscommoncontrol6.0]選項，然后單擊確定按鈕，imagelist控件、toolbar控件、statusbar控件將被添加到工具箱中。（5）在form1窗體中放置1個statusbar控件、1個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="歡迎使用儀器設備管理系統"EndSubPrivateSubu2_Click()EndEndSubPrivateSubxx1_Click()Form3.ShowEndSubPrivateSubxx2_Click()Form6.ShowEndSubPrivateSubyy1_Click()Form5.ShowEndSubPrivateSubyy2_Click()Form8.ShowEndSubPrivateSubyy3_Click()Form9.ShowEndSub下面介紹儀器設備管理系統的其他模塊的制作步驟：eq\o\ac(○,1)form3的創建，單擊添加窗體，得到一個窗體form3，在屬性欄caption里面輸入新增儀器設備入庫，在窗體中放置7個label控件，7個text控件，二個command控件，二個dtpicker，并分別輸入相應的屬性值。控件名屬性屬性值text1 name 儀器設備名稱text2 name 采購人text3 name 出產廠家text4 name 出廠日期text5 name 金額text6 name 采購日期text7 name 采購數量text8 name 儀器設備編號Command1 name 保存到數據庫Command2name退出流程圖：NNY開始增加操作是否繼續退出添加如下程序代碼：DimrsAsNewADODB.RecordsetDimconnAsADODB.ConnectionPrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請輸入儀器設備名稱",,"--提示"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"請輸入儀器設備采購人",,"--提示"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請輸入出產廠家",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"請輸入出廠日期"'Text4.SetFocus'ExitSub'EndIfIfText5.Text=""ThenMsgBox"請輸入儀器設備金額",,"--提示"Text5.SetFocusExitSubEndIf'IfText6.Text=""Then'MsgBox"請輸入儀器設備采購日期"'Text6.SetFocus'ExitSub'EndIfIfText7.Text=""ThenMsgBox"請輸入采購數量",,"--提示"Text7.SetFocusExitSubEndIfIfText8.Text=""ThenMsgBox"請輸入儀器設備編號",,"--提示"Text8.SetFocusExitSubEndIfrs.Open"select*fromcginfo",conn,adOpenKeyset,adLockOptimisticrs.AddNewrs("儀器設備的名稱")=Text1.Textrs("采購人")=Text2.Textrs("出產廠家")=Text3.Textrs("出廠日期")=DTPicker1.Valuers("金額")=Text5.Textrs("采購日期")=DTPicker2.Valuers("采購數量")=Text7.Textrs("儀器設備編號")=Text8.Textrs("儀器設備規格")=Text9.Textrs.UpdateText1.Text=""Text1.SetFocusText2.Text=""Text3.Text=""'Text4.Text=""Text5.Text=""'Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text=""MsgBox"數據已經成功保存到數據庫!",,"--提示"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("儀器設備金額輸入錯誤,你所輸入的數據可能含有非法字符,請重新輸入!!!"),,"--提示"EndIfEndSubeq\o\ac(○,2)窗體form5，在屬性欄caption里面輸入儀器設備使用與維修登記，在窗體中放置6個label控件，5個text控件，2個command控件,1個combol，并分別輸入相應的屬性值。儀器設備使用與維修登記如下：控件名屬性屬性值text1name儀器設備編號text2 name使用情況text3name維修記錄text4name維修日期text5name維修費用text6name儀器設備編號combol rowsource 良/差Command1 name 保存到數據庫Command2 name 退出NYNY開始設備的使用與維修登記是否繼續退出添加如下程序代碼：DimrsAsNewADODB.RecordsetDimconnAsADODB.ConnectionPrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請輸入儀器設備編號",,"--提示"Text1.SetFocusExitSubEndIfIfCombo1.Text=""ThenMsgBox"請選擇使用情況",,"--提示"Combo1.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請輸入維修記錄,若無記錄請輸入無",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"請輸入維修日期,若無維修,請輸入無"'Text4.SetFocus'ExitSub'EndIfIfText5.Text=""ThenMsgBox"請輸入維修費用,若無費用,則請輸入0",,"--提示"Text5.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"請輸入儀器設備名稱",,"--提示"Text2.SetFocusExitSubEndIfrs.Open"select*fromwxinfo",conn,adOpenKeyset,adLockOptimisticrs.AddNewrs("儀器設備編號")=Text1.Textrs("使用情況")=Combo1.Textrs("維修記錄")=Text3.Textrs("維修日期")=DTPicker1.Valuers("維修費用")=Text5.Textrs("儀器設備名稱")=Text2.Textrs.UpdateText1.Text=""Text1.SetFocusCombo1.Text=""Text3.Text=""'Text4.Text=""Text5.Text=""Text2.Text=""MsgBox"數據已經成功保存到數據庫!",,"--提示"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儀器設備編號="+Trim(Text1.Text),conn,adOpenKeyset,adLockOptimisticIfrs.EOFThenMsgBox"沒有此儀器設備！",,"--提示"ElseText2.Text=rs("儀器設備的名稱")EndIfrs.CloseEndIfEndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)If((KeyCode>57)Or(KeyCode>33AndKeyCode<48))ThenIfText1.Text<>""ThenText1.Text=Left(Text1.Text,Len(Text1.Text)-1)MsgBox"儀器設備編號輸入錯誤,該編號僅為數字編號,請重新輸入!!!",,"--提示"EndIfEndSubPrivateSubText2_GotFocus()rs.Open"select*fromcginfowhere儀器設備編號="+Trim(Text1.Text),conn,adOpenKeyset,adLockOptimisticIfrs.EOFThenMsgBox"沒有此儀器設備！",,"--提示"ElseText2.Text=rs("儀器設備的名稱")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"維修費用輸入錯誤,你所輸入的數據可能含有非法字符,請重新輸入!!!",,"--提示"EndIfEndSub③窗體form6，在屬性欄caption里面輸入儀器設備信息查詢維護，在窗體中放置1個datagrid控件，1個text控件，4個command控件,1個adodc，并分別輸入相應的屬性值。倉庫儀器設備信息維護如下：控件名屬性屬性值datagrid endabled .f.adodc namecommand1 name 檢索command2 name 退出command3 name 刪除當前修改command4 name 保存當前修改流程圖：NNY開始查找/修改/刪除記錄是否繼續退出新增代碼如下：PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請輸入儀器設備編號"Text1.SetFocusExitSubEndIfAdodc1.RecordSource="select*fromcginfowhere儀器設備編號="+Text1.TextAdodc1.RefreshEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()DimmyvalAsStringmyval=MsgBox("是否確定刪除該記錄",vbYesNo)Ifmyval=vbYesThenAdodc1.Recordset.DeleteEndIfEndSubPrivateSubCommand4_Click()DimmyvalAsStringmyval=MsgBox("是否保存已經修改的記錄",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("儀器設備編號輸入錯誤,該編號僅為數字編號,請重新輸入!!!")EndIfEndSub④窗體form8在屬性欄caption里面輸入儀器設備使用維修信息維護，在窗體中放置1個datagrid控件，1個text控件，4個command控件,1個adodc，并分別輸入相應的屬性值儀器設備使用維修信息維護：控件名屬性屬性值datagrid endabled .f.adodc namecommand1 name 檢索command2 name 退出command3 name 刪除當前修改command4 name 保存當前修改流程圖：NNY開始使用維修信息維護是否繼續退出新增代碼如下：PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請輸入儀器設備編號",,"--提示"Text1.SetFocusExitSubEndIfAdodc1.RecordSource="select*fromwxinfowhere儀器設備編號="+Text1.TextAdodc1.RefreshEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubCommand3_Click()DimmyvalAsStringmyval=MsgBox("是否確定刪除該記錄",vbYesNo,"--提示")Ifmyval=vbYesThenAdodc1.Recordset.DeleteEndIfEndSubPrivateSubCommand4_Click()DimmyvalAsStringmyval=MsgBox("是否保存已經修改的記錄",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"儀器設備編號輸入錯誤,該編號僅為數字編號,請重新輸入!!!",,"--提示"EndIfEndSub⑤窗體form9在屬性欄caption里面輸入儀器設備信息查詢，在窗體中放置3個datagrid控件，1個text控件，2個command控件,3個adodc，1個combo1并分別輸入相應的屬性值儀器設備信息查詢如下：控件名屬性屬性值datagrid1 endabled .f.datagrid2 endabled .f.datagrid3 endabled .bo1 rowsource 儀器設備編號，儀器設備名稱，采購人，出產廠家，領取人，領取單位，使用情況，維修記錄adodc1adodc2adodc3 command1 name 檢索command2 name 退出NYNY開始設置查詢信息顯示查詢結果是否繼續退出新增代碼如下PrivateSubCommand1_Click()If(Combo1.Text="儀器設備編號")Or(Combo1.Text="儀器設備名稱")Or(Combo1.Text="采購人")Or(Combo1.Text="出產廠家")ThenAdodc1.RecordSource="select*fromcginfowhere(cginfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc1.RefreshAdodc3.RecordSource="selectcginfo.儀器設備編號as儀器設備編號,wxinfo.儀器設備名稱as儀器設備名稱,wxinfo.使用情況as使用情況,wxinfo.維修記錄as維修記錄,wxinfo.維修日期as維修日期,wxinfo.維修費用as維修費用fromcginfo,wxinfowhere(wxinfo.儀器設備編號=cginfo.儀器設備編號)and(cginfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc3.RefreshExitSubEndIfIfCombo1.Text="領取人"OrCombo1.Text="領取單位"ThenAdodc1.RecordSource="selectcginfo.儀器設備編號as儀器設備編號,cginfo.儀器設備名稱as儀器設備名稱,cginfo.采購人as采購人,cginfo.出產廠家as出產廠家,cginfo.出廠日期as出廠日期,cginfo.金額as金額,cginfo.采購日期as采購日期,cginfo.采購數量as采購數量fromcginfo,tzinfowhere(cginfo.儀器設備編號=tzinfo.儀器設備編號)and(tzinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc1.RefreshAdodc3.RecordSource="selectwxinfo.儀器設備編號as儀器設備編號,wxinfo.儀器設備名稱as儀器設備名稱,wxinfo.使