《青海大學電工電子實驗中心實驗室設備管理系統(tǒng)》設計

《青海大學電工電子實驗中心實驗室設備管理系統(tǒng)》設計專業(yè)實習設計說明書題目:青海大學電工電子實驗中心實驗室設備治理系統(tǒng)設計指導教師:郜蕊專業(yè)年級：信息治理與信息系統(tǒng)專業(yè)2020級所在學院和系：財經(jīng)學院治理科學與工程系起止日期：2013年6月24日至2013年7月26日名目1系統(tǒng)概述 11.1系統(tǒng)開發(fā)背景 11.2系統(tǒng)開發(fā)的目標與意義 11.2.1系統(tǒng)開發(fā)目標 11.2.2系統(tǒng)開發(fā)意義 11.3課題中涉及的相關技術與概念 21.3.1相關技術 21.3.2visualbasic相關簡介 22系統(tǒng)需求分析 42.1需求分析 42.1.1系統(tǒng)目的 42.1.2系統(tǒng)功能需求 42.1.3系統(tǒng)性能需求………………52.2可行性分析 62.2.1技術可行性 62.2.2經(jīng)濟可行性 62.2.3操作可行性 62.2.4社會因素可行性………….72.2.5可行性研究結果…………72.3數(shù)據(jù)描述 72.3.1數(shù)據(jù)流程圖 72.3.2數(shù)據(jù)字典 93系統(tǒng)設計 113.1系統(tǒng)功能結構設計 113.2系統(tǒng)流程設計 113.3數(shù)據(jù)庫設計 123.3.1數(shù)據(jù)庫概念設計 123.3.2數(shù)據(jù)庫邏輯設計 153.3.3數(shù)據(jù)庫表設計 154系統(tǒng)實施 174.1功能模塊的實現(xiàn) 174.1.1登錄界面 174.1.2儀器設備治理信息系統(tǒng)主窗體的實現(xiàn) 175系統(tǒng)調試與測試 315.1系統(tǒng)測試的目的及策略 315.1.1系統(tǒng)測試的目的 315.1.2系統(tǒng)測試的策略 315.2系統(tǒng)測試內容及結果分析 32

第一章系統(tǒng)概述1.1系統(tǒng)開發(fā)背景一個現(xiàn)代化的實驗室設備系統(tǒng)在正常運行中總是面對大量的使用者，儀器以及兩者相互作用產(chǎn)生的借用儀器。人工治理既白費人力物力財力，又容易導致各種錯誤的發(fā)生。為了方便實驗室治理，得開發(fā)一個更好更高效的軟件來治理。實驗室治理系統(tǒng)，是為了實現(xiàn)實驗室治理而設計的，它也是現(xiàn)在各個部門的一個重要環(huán)節(jié)。實驗室是所有高校、研究機構必不可少的差不多構成單位。專門是高校，實驗室的設備治理需要一套穩(wěn)固、高效的治理方法。據(jù)調查，當前青海大學電工電子實驗室治理的現(xiàn)狀與存在問題要緊有：〔1〕實驗室對信息化治理重視不夠。電工電子實驗室至今仍無治理系統(tǒng)軟件，信息化水平完全滿足不了高校實驗教學的需求，教學工作及治理工作還處在人工手動時期。實驗室治理缺乏制度性、高效性、科學性?！?〕實驗教學過程傳統(tǒng)單一。實驗室按課程設置依附于課堂教學，缺乏創(chuàng)新性。學生被束縛在教師制定的框架中，只能按照設計好的模式步驟去實驗，缺少一個自主預約實驗課程，自主選擇感愛好的研究性實驗的信息化平臺?！?〕實驗室信息化治理的經(jīng)費投入較少。實驗室的投入要緊是構建實驗室的場所、儀器、設備，集中對與電工電子實驗相關的儀器設備的購置，對實驗室信息化治理投入相當少。實驗室擁有的運算機設備較少，而且沒有建立起完備的運算網(wǎng)絡，缺乏運算機硬件資源、軟件資源及數(shù)據(jù)資源等?！?〕儀器愛護低效率。由于實驗室治理缺乏制度化、信息化、科學化和經(jīng)費困難等緣故，實驗室治理人員人手有限，治理方法機械而落后低效。同時，隨著學生數(shù)量的增多，使得實驗室的儀器、設備、材料往往因此而不能得到及時的愛護，損耗快，造成了一定的資源白費。因此，為了解決以上問題，改善目前電工電子實驗室設備治理紛亂、效率低下的現(xiàn)狀，研究開發(fā)一個電工電子實驗室治理系統(tǒng)就顯得尤為迫切和重要。1.2系統(tǒng)開發(fā)的目標與意義1.2.1系統(tǒng)開發(fā)目標系統(tǒng)將現(xiàn)代化的運算機技術和傳統(tǒng)的實驗教學、教務工作相結合，按照實驗室治理的工作流程設計完成的。為了使系統(tǒng)在實驗室的治理中發(fā)揮更大的作用，實現(xiàn)工作過程的自動化，提高工作效率和工作質量，現(xiàn)提出如下的系統(tǒng)開發(fā)目標：〔1〕系統(tǒng)應具有易操作性、可靠性和可治理性，同時注意到先進性?！?〕對數(shù)據(jù)庫進行動態(tài)治理，防止紛亂?！?〕能夠按照用戶選擇的不同的條件進行簡單查詢和復合查詢?！?〕注意數(shù)據(jù)的安全性，對數(shù)據(jù)可進行手工備份?！?〕簡易的用戶界面，使用戶熟悉操作時刻短。1.2.2系統(tǒng)開發(fā)意義隨著青海大學辦學規(guī)模的擴大，對實驗室教學治理工作提出新的挑戰(zhàn)。當前，青海大學電工電子實驗中心尚缺乏完善的設備治理系統(tǒng)軟件，實驗室的教學工作仍處于傳統(tǒng)模式，教學成果不顯著，效率低，時刻、經(jīng)費耗費大，利用實驗室設備治理系統(tǒng)能夠有效解決工作時效性差、實驗信息不完善的問題，方便寬敞師生進行開放性實驗，對學生的創(chuàng)新能力和自主學習的能力提供良好的條件。目前，青海大學電工電子實驗中心仍需要治理員親自到實驗室進行設備、實驗課程治理、人員信息治理等手動式工作，治理效率低下，準確性低，利用實驗室設備治理系統(tǒng)不僅能夠降低治理人員的工作強度，提高實驗室設備治理工作的效率，而且能夠有效的提高設備治理工作的準確度和精確性。另外，開發(fā)完備的設備治理信息系統(tǒng)軟件，能夠有效的提高設備的利用率，對實驗室設備治理情形進行準確分析。1.3課題中涉及的相關技術及概念1.3.1相關技術系統(tǒng)采納了先進的access數(shù)據(jù)庫技術，面向對象的編程方法學以及軟件工程方法學。1.3.2VisualBasic概念簡介什么是VisualBasicVisualBasic6.0中文版是一種應用程序開發(fā)工具，它的功能確實是用來編程——Windows下的應用程序。VisualBasic6.0是在原有的Basic語言的基礎上的進一步進展，他包含了數(shù)百條語句。函數(shù)及關鍵詞，其中專門多與WindowsGUI有直截了當?shù)年P系。VisualBasic語言簡單易學，只要稍有語言基礎就能夠專門快的把握并進而熟知?？梢暬挠脩艚缑嬖O計功能，把程序設計人員從繁瑣復雜的截面設計中解脫出來；可視化編程環(huán)境的〝所見即所得〔WYSIWYG〕〞功能，是界面設計如積木游戲一樣，編程變成了一種享受；強大的多媒體功能可輕而易舉地開發(fā)出集聲音，動畫，影像和圖片于一體的多媒體應用程序；新增的網(wǎng)絡功能提供了編寫Internet程序的能力。VisualBasic6.0還支持用戶自己開發(fā)ActiveX控件和制作ActiveX文檔。〝Visual〞一詞在運算機程序設計領域中意為:〞可視化的〞，Microsoft其冠以Visual的產(chǎn)品都含有那個意思。VB確實是可視化程序設計語言?？梢暬绦蛟O計指的是一種開發(fā)圖形用戶界面的方法，使用這種方法，程序員不須編寫大量代碼去描述界面元素的外觀和位置，只要把預先建立的界面元素用鼠標拖放到屏幕上適當?shù)奈恢眉纯?。VisualBasic在原有BASIC語言的基礎上進一步發(fā)那，至今包含了數(shù)百條語句、函數(shù)及關鍵詞，其中專門多和WindowsGUIe直截了當關系。專業(yè)人員能夠用VisualBasic實現(xiàn)其他任何Windows編程語言的功能，而初學者只要把握幾個關鍵詞就能夠建立有用的應用程序。VisualBasic的差不多特點VB的差不多特點有兩個：VB提供可視化的編程工具VB向程序員提供圖形對象〔窗體，控件，菜單等〕進行應用程序的界面設計，應用程序的界面相當于用工具畫出來的，大大簡化了程序員的編程工作。程序采取〝事件驅動〞方式VB改變了程序的機制，沒有傳統(tǒng)意義上的主程序，使程序執(zhí)行的差不多方法是有〝事件〞來驅動子程序〔或過程〕的運行，如用鼠標點擊命令按扭，就產(chǎn)生了一個命令按扭的〝單擊事件〞，響應的執(zhí)行一段程序〔事件過程：Command1_Click()〕。什么緣故要選擇VB6.0微軟VisualBasic6.0是Windows應用程序開發(fā)工具，使目前最為廣泛的、易學易用的面向對象的開發(fā)工具。VisualBasic提供了大量的控件，這些控件可用于設計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。第二章系統(tǒng)需求分析2.1需求分析2.1.1系統(tǒng)目的21世紀以來，人類經(jīng)濟高速進展，人們發(fā)生了日新月異的變化，專門是運算機的應用及普及到經(jīng)濟和社會生活的各個領域。使原本舊的治理方法越來越不適應現(xiàn)在社會的進展。許多人還停留在往常的手工操作。這大大的阻礙了人類經(jīng)濟進展。為了適應現(xiàn)代社會人們高度強烈的時刻觀念，學校實驗室設備信息治理系統(tǒng)軟件為學校實驗室?guī)順O大的方便。學校的規(guī)模不斷擴大，實驗室設備數(shù)量急劇增加，有關實驗室設備的各個信息也成倍增加。面對龐大的信息量，需要有專門的實驗室設備治理系統(tǒng)來提高工作的效率。本系統(tǒng)為實驗室設備治理信息系統(tǒng)，通過如此的系統(tǒng)，能夠做到信息的規(guī)范治理，快速查詢實驗室設備的就業(yè)信息。其開發(fā)要緊包括數(shù)據(jù)庫的建立和愛護以及前端應用程序的開發(fā)兩個方面。2.1.2系統(tǒng)的功能需求依照對青海大學電工電子實驗中心實驗室教學治理流程的了解與調查，目前實驗室尚缺乏實驗室教學治理系統(tǒng)如此的治理軟件，所有工作還處于人工治理時期。因此，開發(fā)本系統(tǒng)是專門有必要的，在系統(tǒng)架構前，就應針對用戶對本系統(tǒng)的具體需求做出系統(tǒng)需求分析，即系統(tǒng)需要做些什么。通過實際調研與具體分析，用戶的需求如下：〔1〕儀器設備采購治理：實現(xiàn)對儀器設備的入庫治理工作，包括記錄添加、編輯、刪除等操作?！?〕儀器設備修理和使用：實現(xiàn)對教學的還庫治理工作，包括記錄添加、編輯、刪除等操作?！?〕儀器設備配件治理：實現(xiàn)儀器設備的配件治理工作，包括添加、編輯、刪除等操作?！?〕信息查詢：集成了本系統(tǒng)的所有數(shù)據(jù)庫文件，跟據(jù)儀器設備的編號，名稱等進行查詢?！?〕退出系統(tǒng)：退出本系統(tǒng)，復原系統(tǒng)的實始狀態(tài)。儀器設備治理儀器設備治理系統(tǒng)儀器設備采購治理修理與使用治理儀器設備配件治理退出系統(tǒng)圖2-12.1所謂性能需求，是指軟件產(chǎn)品為滿足用戶業(yè)務需求而必須具有且除功能需求以外的特性。軟件產(chǎn)品性能需求不僅決定產(chǎn)品的質量，而且還會阻礙到軟件產(chǎn)品的功能需求的實現(xiàn)。作為一個教學應用系統(tǒng)，應具有以下的幾個方面：〔1〕系統(tǒng)的及時性系統(tǒng)的及時性是軟件質量優(yōu)劣的一個重要指標。軟件系統(tǒng)性能是指軟件系統(tǒng)或構件關于其及時性要求的符合程度。及時性用響應時刻或吞吐量來衡量。系統(tǒng)處理的準確性和及時性是系統(tǒng)的必要性能。在系統(tǒng)設計和開發(fā)過程中，要充分考慮系統(tǒng)當前和今后可能承擔的工作量，使系統(tǒng)的處理能力和響應時刻能夠滿足用戶對信息的處理。〔2〕系統(tǒng)的可擴展性系統(tǒng)的可擴展性指系統(tǒng)對技術和業(yè)務需求變化的支持能力，能保證可連續(xù)增長以滿足用戶需求和業(yè)務復雜性要求。關于教學系統(tǒng)來說，可擴展性是專門重要的。這種擴展性確實是，設計的教學系統(tǒng)，應該能夠通過適當?shù)恼{整而適應不同課程的教學需要，同時為以后的系統(tǒng)升級留有空間。以便于在以后教學進展需要的時候，能夠比較方便地進行再次開發(fā)、擴充升級以改善或增加系統(tǒng)的功能。〔3〕系統(tǒng)的可靠性和安全性系統(tǒng)可靠性是軟件質量的關鍵因素之一，直截了當關系到教學的正常進行，因此從設計之初就要考慮到這一點。系統(tǒng)在教學使用過程中，要求運行穩(wěn)固，并具有一定的容錯功能，局部功能顯現(xiàn)故障時候，可不能阻礙其他功能，對用戶的操作，不管是成功或失敗，都要有適當?shù)奶崾?。安全性是指系統(tǒng)能夠通過信息的隱秘性，完整性和可靠性提供充分的愛護來預防風險，保證系統(tǒng)安全，是系統(tǒng)成功的差不多要素。因此，系統(tǒng)應提供身份認證、重要數(shù)據(jù)(如用戶的密碼)加密愛護、存取操縱等有效的安全機制?！?〕系統(tǒng)易用性和系統(tǒng)響應速度系統(tǒng)是直截了當面對使用人員的，而有些使用人員往往對運算機并不是專門熟悉。這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機交互界面。要實現(xiàn)這一點，就要求系統(tǒng)應該盡量使用用戶熟悉的術語和中文信息的界面；針對用戶可能顯現(xiàn)的使用問題，要提供足夠的在線關心，縮短用戶對系統(tǒng)熟悉的過程。系統(tǒng)設計中摒棄大量數(shù)據(jù)冗余，提出了優(yōu)化數(shù)據(jù)庫的解決方案，大量使用儲備過程，大大提高系統(tǒng)響應時刻和速度。系統(tǒng)在日常處理中的響應速度為秒級，達到實時要求，以及時反饋信息。嚴格保證操作人員可不能因為速度問題而阻礙工作效率。2.2可行性分析2.2.1技術可行性一個完備的實驗室設備治理信息系統(tǒng)具有以下優(yōu)越性：方便校領導查詢實驗室設備的使用情形，節(jié)約時刻，能夠提高系統(tǒng)的工作效率和準確率。為了適應新形勢的進展，我進行了這一系統(tǒng)的初步設計工作，也能夠說是做一個初步的探究，期望它能夠在查詢實驗室設備信息時發(fā)揮高效、便利的作用，把系統(tǒng)治理員從繁重的工作中解脫出來！該實驗室設備治理信息系統(tǒng)是以ACCESS數(shù)據(jù)庫為后臺核心應用、以服務為目的信息平臺，對資源進行科學的加工整序和治理愛護，為實驗室設備信息提供治理。2.2.2經(jīng)濟可行性經(jīng)濟可行性要緊依據(jù)是成本/效益分析，該系統(tǒng)的目標是以最低的成本，在最短的期限內開發(fā)出實驗室設備治理信息系統(tǒng)。系統(tǒng)能減少專門多不必要的資源，不用象往常那樣用冗余的紙張式的治理。大大節(jié)約了學校能源。同時還提高了實驗室設備信息治理的精確度。方便快速的操作，可減少實驗室設備信息治理的漏洞，又減少因工作的冗余顯現(xiàn)的錯誤，同時操作專門簡單，可減少許多不專門必要的人員，這不管從物質上海是工作人員的工資上都為學校節(jié)約了開支。為學校增加了財寶。目標系統(tǒng)開發(fā)需求比較低，加上具有成熟的軟硬件環(huán)境，因此在軟硬件的支出上比較低，在為使用者帶來便利的同時，也問哦系統(tǒng)的進一步推廣制造了條件。這帶來的經(jīng)濟回報將遠超過支出，同時最重要的是該軟件的開發(fā)能夠使我們對系統(tǒng)的開發(fā)有全面的認識。從經(jīng)濟角度考慮，此實驗室設備治理信息系統(tǒng)開發(fā)可行。2.2.3操作可行性用戶僅需具有差不多的電腦操作能力即可。2.2.4社會因素可行性從法律因素和安全用正版和免費角度考慮，所有技術參考資料都經(jīng)授權，所有軟件都選。2.2.5可行性研究結論依據(jù)以上因素，本實驗室設備治理信息系統(tǒng)開發(fā)項目不僅方便快捷、高效，而且社會效益比較好從而使本系統(tǒng)開發(fā)者相信該系統(tǒng)開發(fā)出來之后將取得成功。綜上所述，此項目在技術、經(jīng)濟、操作和社會效益上是完全可行的。2.3數(shù)據(jù)描述2.3.1數(shù)據(jù)流程圖用戶登錄實驗室治理系統(tǒng)，進行功能操作，產(chǎn)生相應的操作記錄，形成信息表〔設備儀器采購表、使用與愛護設備表、設備配件表〕，依照以上分析繪制的數(shù)據(jù)流程圖如以下圖2-2、圖2-3所示圖2-2實驗室設備治理系統(tǒng)頂層DFD圖2-3實驗室設備治理系統(tǒng)第二層DFD

2.3.2數(shù)據(jù)字典數(shù)據(jù)字典是對描述數(shù)據(jù)流程圖中的數(shù)據(jù)項、數(shù)據(jù)流、數(shù)據(jù)儲備、加工處理邏輯等組成部分的嚴格定義，下面是本系統(tǒng)的數(shù)據(jù)字典〔由于篇幅緣故，在此僅給出部分〕。以下是數(shù)據(jù)流圖中要緊元素的數(shù)據(jù)字典：數(shù)據(jù)項 數(shù)據(jù)項編號：數(shù)據(jù)項編號：無數(shù)據(jù)項名稱：編號別名：無簡述：設備編號類型：字符型長度：20字節(jié)數(shù)據(jù)流數(shù)據(jù)流名稱：數(shù)據(jù)流名稱：設備使用與愛護信息編號：無簡述：設備信息數(shù)據(jù)流來源：用戶數(shù)據(jù)流去向：設備儀器配件治理模塊數(shù)據(jù)流組成：設備編號+設備名稱+設備使用信息+設備愛護信息流通量：10份/天高峰流通量：30份/天數(shù)據(jù)儲備數(shù)據(jù)數(shù)據(jù)儲備的名稱：設備儀器報表數(shù)據(jù)儲備編號：無簡述：記錄實驗室設備儀器的編號、名稱、單位、單價、數(shù)量、入庫日期等信息，作為設備儀器治理的依據(jù)數(shù)據(jù)儲備組成：設備編號+設備名稱+采購數(shù)量+金額+采購人關鍵字：設備編號處理邏輯處理名：處理名：儀器設備采購治理編號：無輸入：設備入庫單輸出：儀器設備采購表描述：當用戶提交采購單后，教師批錄實驗報告后輸出成績單。外部實體外部實體的編號：無外部實體的編號：無外部實體的名稱：用戶簡述：進行操作的用戶輸入的數(shù)據(jù)流：新增設備儀器和愛護信息輸出的數(shù)據(jù)流：設備儀器采購表系統(tǒng)設計3.1系統(tǒng)功能結構設計該系統(tǒng)的要緊功能結構包括以下五個部分：用戶治理模塊、儀器設備采購治理模塊、儀器設備愛護與使用治理模塊、儀器設備配件治理模塊和信息查詢模塊。系統(tǒng)整體結構如圖3-1所示：(1)用戶治理模塊：實現(xiàn)用戶登錄。(2)儀器設備采購治理模塊：實現(xiàn)對儀器設備的入庫治理工作，包括記錄添加、編輯、刪除等操作。(3)儀器設備愛護與使用治理模塊：實現(xiàn)對教學的還庫治理工作，包括記錄添加、編輯、刪除等操作。(4)儀器設備配件治理模塊：實現(xiàn)儀器設備的配件治理工作，包括添加、編輯、刪除等操作。(5)信息查詢模塊：集成了本系統(tǒng)的所有數(shù)據(jù)庫文件，跟據(jù)儀器設備的編號，名稱等進行查詢。系統(tǒng)整體結構圖如圖3-1所示：圖3-1系統(tǒng)整體功能結構圖從以上結構圖能夠看出，系統(tǒng)相互聯(lián)系，構成實驗室設備治理系統(tǒng)整體。3.2系統(tǒng)流程設計登錄該系統(tǒng)時需要輸入正確的用戶名和密碼后方可進入該系統(tǒng)進行操作，之后退出系統(tǒng)或注銷切換用戶。其系統(tǒng)流程圖如圖3-2所示：圖3-2系統(tǒng)流程圖3.3數(shù)據(jù)庫設計數(shù)據(jù)庫是數(shù)據(jù)庫應用程序的核心。數(shù)據(jù)庫設計是建立一個應用程序最重要的步驟之一。數(shù)據(jù)庫設計一樣要在需求分析和數(shù)據(jù)分析的基礎上進行概念設計、邏輯設計、物理設計等3.3.1數(shù)據(jù)庫概念設計依照前面分析，設計出滿足用戶需求的各種實體，以及它們之間的關系，為后面的邏輯結構設計打下基礎。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流淌。在E-R圖中用矩形框代表實體，用連接相關實體的菱形框表示關系，用橢圓表示實體的屬性，并用直線把實體與其屬性連接起來。儀器設備入庫：儀器設備采購儀器設備采購儀器設備名稱設備編號采購人采購日期生產(chǎn)廠家生產(chǎn)日期購入數(shù)量金額 儀器設備使用與愛護使用與使用與愛護設備名稱設備編號修理次數(shù)使用情形〔良/差〕修理記錄修理記錄儀器設備配件：設備配件設備配件配件號配件名稱配件品牌配件所屬設備產(chǎn)品說明生產(chǎn)廠家 3.3將系統(tǒng)總體E-R圖轉換成規(guī)范的關系模式如下：〔1〕儀器設備采購〔設備編號，儀器設備名稱，采購日期，生產(chǎn)廠家，生產(chǎn)日期，購入數(shù)量，金額，采購人〕〔2〕使用與愛護〔設備編號，設備名稱，使用情形，修理次數(shù)，修理記錄，修理費〕〔3〕設備配件〔配件號，配件名稱，配件所屬設備，配件品牌，生產(chǎn)廠家，產(chǎn)品說明〕3.3.3數(shù)據(jù)庫表設計現(xiàn)將上面的數(shù)據(jù)庫概念結構轉化access數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也確實是數(shù)據(jù)庫的邏輯結構。本系統(tǒng)有治理員信息表〔admininfo〕、新增儀器設備表〔cginfo〕、配件表〔pjinfo〕、配件庫存表〔pjstoinfo〕、設備修理表〔wxinf第四章系統(tǒng)實施4.1功能模塊的實現(xiàn)4.1.1登陸界面打開用戶登陸主界面，用戶在登陸界面，輸入用戶名及密碼，點擊登錄按鈕。假設用戶名和密碼正確，那么可正常跳轉至系統(tǒng)首頁，否那么提示錯誤。登錄后即可操作實驗室治理系統(tǒng)。4.1.2儀器設備治理信息系統(tǒng)主窗體的實現(xiàn)一個程序的主窗體要緊是由窗體、菜單欄、工具欄、狀態(tài)欄等組成。設計時一樣先設計窗體背景和窗體標題。菜單欄要緊通過VB中工具菜單項下的菜單編輯器進行設計。狀態(tài)欄通過設計statusbar控件實現(xiàn)。1〕新增儀器設備界面：form3的創(chuàng)建，單擊添加窗體，得到一個窗體form3，在屬性欄caption里面輸入新增儀器設備入庫，在窗體中放置7個label控件，7個text控件，二個command控件，二個dtpicker，并分別輸入相應的屬性值。下面是要緊部分代碼：IfText1.Text=""ThenMsgBox"請輸入儀器設備名稱",,"--提示"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"請輸入儀器設備采購人",,"--提示"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請輸入出產(chǎn)廠家",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"請輸入出廠日期"'Text4.SetFocus'ExitSub'EndIf。。。。。。。。。。。。。。。。。。。。IfText1.Text=""ThenMsgBox"請輸入儀器設備名稱",,"--提示"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"請輸入儀器設備采購人",,"--提示"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請輸入出產(chǎn)廠家",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"請輸入出廠日期"'Text4.SetFocus'ExitSub'EndIf2〕儀器設備信息愛護：窗體form6，在屬性欄caption里面輸入儀器設備信息查詢愛護，在窗體中放置1個datagrid控件，1個text控件，4個command控件,1個adodc，并分別輸入相應的屬性值。要緊部分代碼：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("儀器設備編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入!!!")EndIfEndSub3〕配件登記：form4為儀器設備配件登錄的窗體，實現(xiàn)方法同form3〔儀器設備信息登記〕4〕配件的庫存量：form7的要緊作用是配件信息愛護，實現(xiàn)方法同form6〔儀器設備信息愛護〕。6〕儀器設備的使用與愛護：窗體form5，在屬性欄caption里面輸入儀器設備使用與修理登記，在窗體中放置6個label控件，5個text控件，2個command控件,1個combol，并分別輸入相應的屬性值。要緊部分代碼：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"數(shù)據(jù)差不多成功儲存到數(shù)據(jù)庫!",,"--提示"7〕儀器設備的使用與修理信息愛護：窗體form8在屬性欄caption里面輸入儀器設備使用修理信息愛護，在窗體中放置1個datagrid控件，1個text控件，4個command控件,1個adodc，并分別輸入相應的屬性值要緊部分代碼：EndSubPrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請輸入儀器設備編號",,"--提示"Text1.SetFocusExitSubEndIfAdodc1.RecordSource="select*fromwxinfowhere儀器設備編號="+Text1.TextAdodc1.RefreshPrivateSubCommand2_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"儀器設備編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入!!!",,"--提示"EndIfEndSub8〕儀器設備信息的查詢窗體form9在屬性欄caption里面輸入儀器設備信息查詢，在窗體中放置3個datagrid控件，1個text控件，2個command控件,3個adodc，1個combo1并分別輸入相應的屬性值。要緊部分代碼：PrivateSubCommand1_Click()If(Combo1.Text="儀器設備編號")Or(Combo1.Text="儀器設備名稱")Or(Combo1.Text="采購人")Or(Combo1.Text="出產(chǎn)廠家")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.出產(chǎn)廠家as出產(chǎn)廠家,cginfo.出廠日期as出廠日期,cginfo.金額as金額,cginfo.采購日期as采購日期,cginfo.采購數(shù)量as采購數(shù)量fromcginfo,tzinfowhere(cginfo.儀器設備編號=tzinfo.儀器設備編號)and(tzinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc1.RefreshAdodc3.RecordSource="selectwxinfo.儀器設備編號as儀器設備編號,wxinfo.儀器設備名稱as儀器設備名稱,wxinfo.使用情形as使用情形,wxinfo.修理記錄as修理記錄,wxinfo.修理日期as修理日期,wxinfo.修理費用as修理費用fromtzinfo,wxinfowhere(tzinfo.儀器設備編號=wxinfo.儀器設備編號)and(tzinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc3.RefreshExitSubEndIfIfCombo1.Text="使用情形"OrCombo1.Text="修理記錄"ThenAdodc1.RecordSource="selectcginfo.儀器設備編號as儀器設備編號,cginfo.儀器設備名稱as儀器設備名稱,cginfo.采購人as采購人,cginfo.出產(chǎn)廠家as出產(chǎn)廠家,cginfo.出廠日期as出廠日期,cginfo.金額as金額,cginfo.采購日期as采購日期,cginfo.采購數(shù)量as采購數(shù)量fromcginfo,wxinfowhere(cginfo.儀器設備編號=wxinfo.儀器設備編號)and(wxinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc1.RefreshAdodc3.RecordSource="select*fromwxinfowhere(wxinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc3.RefreshExitSubEndIfEndSubPrivateSubC