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

《青海大學電工電子實驗中心實驗室設(shè)備管理系統(tǒng)》設(shè)計專業(yè)實習設(shè)計說明書題目:青海大學電工電子實驗中心實驗室設(shè)備治理系統(tǒng)設(shè)計指導教師:郜蕊專業(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課題中涉及的相關(guān)技術(shù)與概念 21.3.1相關(guān)技術(shù) 21.3.2visualbasic相關(guān)簡介 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技術(shù)可行性 62.2.2經(jīng)濟可行性 62.2.3操作可行性 62.2.4社會因素可行性………….72.2.5可行性研究結(jié)果…………72.3數(shù)據(jù)描述 72.3.1數(shù)據(jù)流程圖 72.3.2數(shù)據(jù)字典 93系統(tǒng)設(shè)計 113.1系統(tǒng)功能結(jié)構(gòu)設(shè)計 113.2系統(tǒng)流程設(shè)計 113.3數(shù)據(jù)庫設(shè)計 123.3.1數(shù)據(jù)庫概念設(shè)計 123.3.2數(shù)據(jù)庫邏輯設(shè)計 153.3.3數(shù)據(jù)庫表設(shè)計 154系統(tǒng)實施 174.1功能模塊的實現(xiàn) 174.1.1登錄界面 174.1.2儀器設(shè)備治理信息系統(tǒng)主窗體的實現(xiàn) 175系統(tǒng)調(diào)試與測試 315.1系統(tǒng)測試的目的及策略 315.1.1系統(tǒng)測試的目的 315.1.2系統(tǒng)測試的策略 315.2系統(tǒng)測試內(nèi)容及結(jié)果分析 32

第一章系統(tǒng)概述1.1系統(tǒng)開發(fā)背景一個現(xiàn)代化的實驗室設(shè)備系統(tǒng)在正常運行中總是面對大量的使用者，儀器以及兩者相互作用產(chǎn)生的借用儀器。人工治理既白費人力物力財力，又容易導致各種錯誤的發(fā)生。為了方便實驗室治理，得開發(fā)一個更好更高效的軟件來治理。實驗室治理系統(tǒng)，是為了實現(xiàn)實驗室治理而設(shè)計的，它也是現(xiàn)在各個部門的一個重要環(huán)節(jié)。實驗室是所有高校、研究機構(gòu)必不可少的差不多構(gòu)成單位。專門是高校，實驗室的設(shè)備治理需要一套穩(wěn)固、高效的治理方法。據(jù)調(diào)查，當前青海大學電工電子實驗室治理的現(xiàn)狀與存在問題要緊有：〔1〕實驗室對信息化治理重視不夠。電工電子實驗室至今仍無治理系統(tǒng)軟件，信息化水平完全滿足不了高校實驗教學的需求，教學工作及治理工作還處在人工手動時期。實驗室治理缺乏制度性、高效性、科學性?！?〕實驗教學過程傳統(tǒng)單一。實驗室按課程設(shè)置依附于課堂教學，缺乏創(chuàng)新性。學生被束縛在教師制定的框架中，只能按照設(shè)計好的模式步驟去實驗，缺少一個自主預約實驗課程，自主選擇感愛好的研究性實驗的信息化平臺?！?〕實驗室信息化治理的經(jīng)費投入較少。實驗室的投入要緊是構(gòu)建實驗室的場所、儀器、設(shè)備，集中對與電工電子實驗相關(guān)的儀器設(shè)備的購置，對實驗室信息化治理投入相當少。實驗室擁有的運算機設(shè)備較少，而且沒有建立起完備的運算網(wǎng)絡(luò)，缺乏運算機硬件資源、軟件資源及數(shù)據(jù)資源等?！?〕儀器愛護低效率。由于實驗室治理缺乏制度化、信息化、科學化和經(jīng)費困難等緣故，實驗室治理人員人手有限，治理方法機械而落后低效。同時，隨著學生數(shù)量的增多，使得實驗室的儀器、設(shè)備、材料往往因此而不能得到及時的愛護，損耗快，造成了一定的資源白費。因此，為了解決以上問題，改善目前電工電子實驗室設(shè)備治理紛亂、效率低下的現(xiàn)狀，研究開發(fā)一個電工電子實驗室治理系統(tǒng)就顯得尤為迫切和重要。1.2系統(tǒng)開發(fā)的目標與意義1.2.1系統(tǒng)開發(fā)目標系統(tǒng)將現(xiàn)代化的運算機技術(shù)和傳統(tǒng)的實驗教學、教務(wù)工作相結(jié)合，按照實驗室治理的工作流程設(shè)計完成的。為了使系統(tǒng)在實驗室的治理中發(fā)揮更大的作用，實現(xiàn)工作過程的自動化，提高工作效率和工作質(zhì)量，現(xiàn)提出如下的系統(tǒng)開發(fā)目標：〔1〕系統(tǒng)應具有易操作性、可靠性和可治理性，同時注意到先進性?！?〕對數(shù)據(jù)庫進行動態(tài)治理，防止紛亂?！?〕能夠按照用戶選擇的不同的條件進行簡單查詢和復合查詢。〔4〕注意數(shù)據(jù)的安全性，對數(shù)據(jù)可進行手工備份?！?〕簡易的用戶界面，使用戶熟悉操作時刻短。1.2.2系統(tǒng)開發(fā)意義隨著青海大學辦學規(guī)模的擴大，對實驗室教學治理工作提出新的挑戰(zhàn)。當前，青海大學電工電子實驗中心尚缺乏完善的設(shè)備治理系統(tǒng)軟件，實驗室的教學工作仍處于傳統(tǒng)模式，教學成果不顯著，效率低，時刻、經(jīng)費耗費大，利用實驗室設(shè)備治理系統(tǒng)能夠有效解決工作時效性差、實驗信息不完善的問題，方便寬敞師生進行開放性實驗，對學生的創(chuàng)新能力和自主學習的能力提供良好的條件。目前，青海大學電工電子實驗中心仍需要治理員親自到實驗室進行設(shè)備、實驗課程治理、人員信息治理等手動式工作，治理效率低下，準確性低，利用實驗室設(shè)備治理系統(tǒng)不僅能夠降低治理人員的工作強度，提高實驗室設(shè)備治理工作的效率，而且能夠有效的提高設(shè)備治理工作的準確度和精確性。另外，開發(fā)完備的設(shè)備治理信息系統(tǒng)軟件，能夠有效的提高設(shè)備的利用率，對實驗室設(shè)備治理情形進行準確分析。1.3課題中涉及的相關(guān)技術(shù)及概念1.3.1相關(guān)技術(shù)系統(tǒng)采納了先進的access數(shù)據(jù)庫技術(shù)，面向?qū)ο蟮木幊谭椒▽W以及軟件工程方法學。1.3.2VisualBasic概念簡介什么是VisualBasicVisualBasic6.0中文版是一種應用程序開發(fā)工具，它的功能確實是用來編程——Windows下的應用程序。VisualBasic6.0是在原有的Basic語言的基礎(chǔ)上的進一步進展，他包含了數(shù)百條語句。函數(shù)及關(guān)鍵詞，其中專門多與WindowsGUI有直截了當?shù)年P(guān)系。VisualBasic語言簡單易學，只要稍有語言基礎(chǔ)就能夠?qū)ｉT快的把握并進而熟知?？梢暬挠脩艚缑嬖O(shè)計功能，把程序設(shè)計人員從繁瑣復雜的截面設(shè)計中解脫出來；可視化編程環(huán)境的〝所見即所得〔WYSIWYG〕〞功能，是界面設(shè)計如積木游戲一樣，編程變成了一種享受；強大的多媒體功能可輕而易舉地開發(fā)出集聲音，動畫，影像和圖片于一體的多媒體應用程序；新增的網(wǎng)絡(luò)功能提供了編寫Internet程序的能力。VisualBasic6.0還支持用戶自己開發(fā)ActiveX控件和制作ActiveX文檔。〝Visual〞一詞在運算機程序設(shè)計領(lǐng)域中意為:〞可視化的〞，Microsoft其冠以Visual的產(chǎn)品都含有那個意思。VB確實是可視化程序設(shè)計語言?？梢暬绦蛟O(shè)計指的是一種開發(fā)圖形用戶界面的方法，使用這種方法，程序員不須編寫大量代碼去描述界面元素的外觀和位置，只要把預先建立的界面元素用鼠標拖放到屏幕上適當?shù)奈恢眉纯?。VisualBasic在原有BASIC語言的基礎(chǔ)上進一步發(fā)那，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中專門多和WindowsGUIe直截了當關(guān)系。專業(yè)人員能夠用VisualBasic實現(xiàn)其他任何Windows編程語言的功能，而初學者只要把握幾個關(guān)鍵詞就能夠建立有用的應用程序。VisualBasic的差不多特點VB的差不多特點有兩個：VB提供可視化的編程工具VB向程序員提供圖形對象〔窗體，控件，菜單等〕進行應用程序的界面設(shè)計，應用程序的界面相當于用工具畫出來的，大大簡化了程序員的編程工作。程序采取〝事件驅(qū)動〞方式VB改變了程序的機制，沒有傳統(tǒng)意義上的主程序，使程序執(zhí)行的差不多方法是有〝事件〞來驅(qū)動子程序〔或過程〕的運行，如用鼠標點擊命令按扭，就產(chǎn)生了一個命令按扭的〝單擊事件〞，響應的執(zhí)行一段程序〔事件過程：Command1_Click()〕。什么緣故要選擇VB6.0微軟VisualBasic6.0是Windows應用程序開發(fā)工具，使目前最為廣泛的、易學易用的面向?qū)ο蟮拈_發(fā)工具。VisualBasic提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。第二章系統(tǒng)需求分析2.1需求分析2.1.1系統(tǒng)目的21世紀以來，人類經(jīng)濟高速進展，人們發(fā)生了日新月異的變化，專門是運算機的應用及普及到經(jīng)濟和社會生活的各個領(lǐng)域。使原本舊的治理方法越來越不適應現(xiàn)在社會的進展。許多人還停留在往常的手工操作。這大大的阻礙了人類經(jīng)濟進展。為了適應現(xiàn)代社會人們高度強烈的時刻觀念，學校實驗室設(shè)備信息治理系統(tǒng)軟件為學校實驗室?guī)順O大的方便。學校的規(guī)模不斷擴大，實驗室設(shè)備數(shù)量急劇增加，有關(guān)實驗室設(shè)備的各個信息也成倍增加。面對龐大的信息量，需要有專門的實驗室設(shè)備治理系統(tǒng)來提高工作的效率。本系統(tǒng)為實驗室設(shè)備治理信息系統(tǒng)，通過如此的系統(tǒng)，能夠做到信息的規(guī)范治理，快速查詢實驗室設(shè)備的就業(yè)信息。其開發(fā)要緊包括數(shù)據(jù)庫的建立和愛護以及前端應用程序的開發(fā)兩個方面。2.1.2系統(tǒng)的功能需求依照對青海大學電工電子實驗中心實驗室教學治理流程的了解與調(diào)查，目前實驗室尚缺乏實驗室教學治理系統(tǒng)如此的治理軟件，所有工作還處于人工治理時期。因此，開發(fā)本系統(tǒng)是專門有必要的，在系統(tǒng)架構(gòu)前，就應針對用戶對本系統(tǒng)的具體需求做出系統(tǒng)需求分析，即系統(tǒng)需要做些什么。通過實際調(diào)研與具體分析，用戶的需求如下：〔1〕儀器設(shè)備采購治理：實現(xiàn)對儀器設(shè)備的入庫治理工作，包括記錄添加、編輯、刪除等操作?！?〕儀器設(shè)備修理和使用：實現(xiàn)對教學的還庫治理工作，包括記錄添加、編輯、刪除等操作?！?〕儀器設(shè)備配件治理：實現(xiàn)儀器設(shè)備的配件治理工作，包括添加、編輯、刪除等操作?！?〕信息查詢：集成了本系統(tǒng)的所有數(shù)據(jù)庫文件，跟據(jù)儀器設(shè)備的編號，名稱等進行查詢?！?〕退出系統(tǒng)：退出本系統(tǒng)，復原系統(tǒng)的實始狀態(tài)。儀器設(shè)備治理儀器設(shè)備治理系統(tǒng)儀器設(shè)備采購治理修理與使用治理儀器設(shè)備配件治理退出系統(tǒng)圖2-12.1所謂性能需求，是指軟件產(chǎn)品為滿足用戶業(yè)務(wù)需求而必須具有且除功能需求以外的特性。軟件產(chǎn)品性能需求不僅決定產(chǎn)品的質(zhì)量，而且還會阻礙到軟件產(chǎn)品的功能需求的實現(xiàn)。作為一個教學應用系統(tǒng)，應具有以下的幾個方面：〔1〕系統(tǒng)的及時性系統(tǒng)的及時性是軟件質(zhì)量優(yōu)劣的一個重要指標。軟件系統(tǒng)性能是指軟件系統(tǒng)或構(gòu)件關(guān)于其及時性要求的符合程度。及時性用響應時刻或吞吐量來衡量。系統(tǒng)處理的準確性和及時性是系統(tǒng)的必要性能。在系統(tǒng)設(shè)計和開發(fā)過程中，要充分考慮系統(tǒng)當前和今后可能承擔的工作量，使系統(tǒng)的處理能力和響應時刻能夠滿足用戶對信息的處理?！?〕系統(tǒng)的可擴展性系統(tǒng)的可擴展性指系統(tǒng)對技術(shù)和業(yè)務(wù)需求變化的支持能力，能保證可連續(xù)增長以滿足用戶需求和業(yè)務(wù)復雜性要求。關(guān)于教學系統(tǒng)來說，可擴展性是專門重要的。這種擴展性確實是，設(shè)計的教學系統(tǒng)，應該能夠通過適當?shù)恼{(diào)整而適應不同課程的教學需要，同時為以后的系統(tǒng)升級留有空間。以便于在以后教學進展需要的時候，能夠比較方便地進行再次開發(fā)、擴充升級以改善或增加系統(tǒng)的功能?！?〕系統(tǒng)的可靠性和安全性系統(tǒng)可靠性是軟件質(zhì)量的關(guān)鍵因素之一，直截了當關(guān)系到教學的正常進行，因此從設(shè)計之初就要考慮到這一點。系統(tǒng)在教學使用過程中，要求運行穩(wěn)固，并具有一定的容錯功能，局部功能顯現(xiàn)故障時候，可不能阻礙其他功能，對用戶的操作，不管是成功或失敗，都要有適當?shù)奶崾尽０踩允侵赶到y(tǒng)能夠通過信息的隱秘性，完整性和可靠性提供充分的愛護來預防風險，保證系統(tǒng)安全，是系統(tǒng)成功的差不多要素。因此，系統(tǒng)應提供身份認證、重要數(shù)據(jù)(如用戶的密碼)加密愛護、存取操縱等有效的安全機制?！?〕系統(tǒng)易用性和系統(tǒng)響應速度系統(tǒng)是直截了當面對使用人員的，而有些使用人員往往對運算機并不是專門熟悉。這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機交互界面。要實現(xiàn)這一點，就要求系統(tǒng)應該盡量使用用戶熟悉的術(shù)語和中文信息的界面；針對用戶可能顯現(xiàn)的使用問題，要提供足夠的在線關(guān)心，縮短用戶對系統(tǒng)熟悉的過程。系統(tǒng)設(shè)計中摒棄大量數(shù)據(jù)冗余，提出了優(yōu)化數(shù)據(jù)庫的解決方案，大量使用儲備過程，大大提高系統(tǒng)響應時刻和速度。系統(tǒng)在日常處理中的響應速度為秒級，達到實時要求，以及時反饋信息。嚴格保證操作人員可不能因為速度問題而阻礙工作效率。2.2可行性分析2.2.1技術(shù)可行性一個完備的實驗室設(shè)備治理信息系統(tǒng)具有以下優(yōu)越性：方便校領(lǐng)導查詢實驗室設(shè)備的使用情形，節(jié)約時刻，能夠提高系統(tǒng)的工作效率和準確率。為了適應新形勢的進展，我進行了這一系統(tǒng)的初步設(shè)計工作，也能夠說是做一個初步的探究，期望它能夠在查詢實驗室設(shè)備信息時發(fā)揮高效、便利的作用，把系統(tǒng)治理員從繁重的工作中解脫出來！該實驗室設(shè)備治理信息系統(tǒng)是以ACCESS數(shù)據(jù)庫為后臺核心應用、以服務(wù)為目的信息平臺，對資源進行科學的加工整序和治理愛護，為實驗室設(shè)備信息提供治理。2.2.2經(jīng)濟可行性經(jīng)濟可行性要緊依據(jù)是成本/效益分析，該系統(tǒng)的目標是以最低的成本，在最短的期限內(nèi)開發(fā)出實驗室設(shè)備治理信息系統(tǒng)。系統(tǒng)能減少專門多不必要的資源，不用象往常那樣用冗余的紙張式的治理。大大節(jié)約了學校能源。同時還提高了實驗室設(shè)備信息治理的精確度。方便快速的操作，可減少實驗室設(shè)備信息治理的漏洞，又減少因工作的冗余顯現(xiàn)的錯誤，同時操作專門簡單，可減少許多不專門必要的人員，這不管從物質(zhì)上海是工作人員的工資上都為學校節(jié)約了開支。為學校增加了財寶。目標系統(tǒng)開發(fā)需求比較低，加上具有成熟的軟硬件環(huán)境，因此在軟硬件的支出上比較低，在為使用者帶來便利的同時，也問哦系統(tǒng)的進一步推廣制造了條件。這帶來的經(jīng)濟回報將遠超過支出，同時最重要的是該軟件的開發(fā)能夠使我們對系統(tǒng)的開發(fā)有全面的認識。從經(jīng)濟角度考慮，此實驗室設(shè)備治理信息系統(tǒng)開發(fā)可行。2.2.3操作可行性用戶僅需具有差不多的電腦操作能力即可。2.2.4社會因素可行性從法律因素和安全用正版和免費角度考慮，所有技術(shù)參考資料都經(jīng)授權(quán)，所有軟件都選。2.2.5可行性研究結(jié)論依據(jù)以上因素，本實驗室設(shè)備治理信息系統(tǒng)開發(fā)項目不僅方便快捷、高效，而且社會效益比較好從而使本系統(tǒng)開發(fā)者相信該系統(tǒng)開發(fā)出來之后將取得成功。綜上所述，此項目在技術(shù)、經(jīng)濟、操作和社會效益上是完全可行的。2.3數(shù)據(jù)描述2.3.1數(shù)據(jù)流程圖用戶登錄實驗室治理系統(tǒng)，進行功能操作，產(chǎn)生相應的操作記錄，形成信息表〔設(shè)備儀器采購表、使用與愛護設(shè)備表、設(shè)備配件表〕，依照以上分析繪制的數(shù)據(jù)流程圖如以下圖2-2、圖2-3所示圖2-2實驗室設(shè)備治理系統(tǒng)頂層DFD圖2-3實驗室設(shè)備治理系統(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ù)項名稱：編號別名：無簡述：設(shè)備編號類型：字符型長度：20字節(jié)數(shù)據(jù)流數(shù)據(jù)流名稱：數(shù)據(jù)流名稱：設(shè)備使用與愛護信息編號：無簡述：設(shè)備信息數(shù)據(jù)流來源：用戶數(shù)據(jù)流去向：設(shè)備儀器配件治理模塊數(shù)據(jù)流組成：設(shè)備編號+設(shè)備名稱+設(shè)備使用信息+設(shè)備愛護信息流通量：10份/天高峰流通量：30份/天數(shù)據(jù)儲備數(shù)據(jù)數(shù)據(jù)儲備的名稱：設(shè)備儀器報表數(shù)據(jù)儲備編號：無簡述：記錄實驗室設(shè)備儀器的編號、名稱、單位、單價、數(shù)量、入庫日期等信息，作為設(shè)備儀器治理的依據(jù)數(shù)據(jù)儲備組成：設(shè)備編號+設(shè)備名稱+采購數(shù)量+金額+采購人關(guān)鍵字：設(shè)備編號處理邏輯處理名：處理名：儀器設(shè)備采購治理編號：無輸入：設(shè)備入庫單輸出：儀器設(shè)備采購表描述：當用戶提交采購單后，教師批錄實驗報告后輸出成績單。外部實體外部實體的編號：無外部實體的編號：無外部實體的名稱：用戶簡述：進行操作的用戶輸入的數(shù)據(jù)流：新增設(shè)備儀器和愛護信息輸出的數(shù)據(jù)流：設(shè)備儀器采購表系統(tǒng)設(shè)計3.1系統(tǒng)功能結(jié)構(gòu)設(shè)計該系統(tǒng)的要緊功能結(jié)構(gòu)包括以下五個部分：用戶治理模塊、儀器設(shè)備采購治理模塊、儀器設(shè)備愛護與使用治理模塊、儀器設(shè)備配件治理模塊和信息查詢模塊。系統(tǒng)整體結(jié)構(gòu)如圖3-1所示：(1)用戶治理模塊：實現(xiàn)用戶登錄。(2)儀器設(shè)備采購治理模塊：實現(xiàn)對儀器設(shè)備的入庫治理工作，包括記錄添加、編輯、刪除等操作。(3)儀器設(shè)備愛護與使用治理模塊：實現(xiàn)對教學的還庫治理工作，包括記錄添加、編輯、刪除等操作。(4)儀器設(shè)備配件治理模塊：實現(xiàn)儀器設(shè)備的配件治理工作，包括添加、編輯、刪除等操作。(5)信息查詢模塊：集成了本系統(tǒng)的所有數(shù)據(jù)庫文件，跟據(jù)儀器設(shè)備的編號，名稱等進行查詢。系統(tǒng)整體結(jié)構(gòu)圖如圖3-1所示：圖3-1系統(tǒng)整體功能結(jié)構(gòu)圖從以上結(jié)構(gòu)圖能夠看出，系統(tǒng)相互聯(lián)系，構(gòu)成實驗室設(shè)備治理系統(tǒng)整體。3.2系統(tǒng)流程設(shè)計登錄該系統(tǒng)時需要輸入正確的用戶名和密碼后方可進入該系統(tǒng)進行操作，之后退出系統(tǒng)或注銷切換用戶。其系統(tǒng)流程圖如圖3-2所示：圖3-2系統(tǒng)流程圖3.3數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫是數(shù)據(jù)庫應用程序的核心。數(shù)據(jù)庫設(shè)計是建立一個應用程序最重要的步驟之一。數(shù)據(jù)庫設(shè)計一樣要在需求分析和數(shù)據(jù)分析的基礎(chǔ)上進行概念設(shè)計、邏輯設(shè)計、物理設(shè)計等3.3.1數(shù)據(jù)庫概念設(shè)計依照前面分析，設(shè)計出滿足用戶需求的各種實體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流淌。在E-R圖中用矩形框代表實體，用連接相關(guān)實體的菱形框表示關(guān)系，用橢圓表示實體的屬性，并用直線把實體與其屬性連接起來。儀器設(shè)備入庫：儀器設(shè)備采購儀器設(shè)備采購儀器設(shè)備名稱設(shè)備編號采購人采購日期生產(chǎn)廠家生產(chǎn)日期購入數(shù)量金額 儀器設(shè)備使用與愛護使用與使用與愛護設(shè)備名稱設(shè)備編號修理次數(shù)使用情形〔良/差〕修理記錄修理記錄儀器設(shè)備配件：設(shè)備配件設(shè)備配件配件號配件名稱配件品牌配件所屬設(shè)備產(chǎn)品說明生產(chǎn)廠家 3.3將系統(tǒng)總體E-R圖轉(zhuǎn)換成規(guī)范的關(guān)系模式如下：〔1〕儀器設(shè)備采購〔設(shè)備編號，儀器設(shè)備名稱，采購日期，生產(chǎn)廠家，生產(chǎn)日期，購入數(shù)量，金額，采購人〕〔2〕使用與愛護〔設(shè)備編號，設(shè)備名稱，使用情形，修理次數(shù)，修理記錄，修理費〕〔3〕設(shè)備配件〔配件號，配件名稱，配件所屬設(shè)備，配件品牌，生產(chǎn)廠家，產(chǎn)品說明〕3.3.3數(shù)據(jù)庫表設(shè)計現(xiàn)將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化access數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也確實是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。本系統(tǒng)有治理員信息表〔admininfo〕、新增儀器設(shè)備表〔cginfo〕、配件表〔pjinfo〕、配件庫存表〔pjstoinfo〕、設(shè)備修理表〔wxinf第四章系統(tǒng)實施4.1功能模塊的實現(xiàn)4.1.1登陸界面打開用戶登陸主界面，用戶在登陸界面，輸入用戶名及密碼，點擊登錄按鈕。假設(shè)用戶名和密碼正確，那么可正常跳轉(zhuǎn)至系統(tǒng)首頁，否那么提示錯誤。登錄后即可操作實驗室治理系統(tǒng)。4.1.2儀器設(shè)備治理信息系統(tǒng)主窗體的實現(xiàn)一個程序的主窗體要緊是由窗體、菜單欄、工具欄、狀態(tài)欄等組成。設(shè)計時一樣先設(shè)計窗體背景和窗體標題。菜單欄要緊通過VB中工具菜單項下的菜單編輯器進行設(shè)計。狀態(tài)欄通過設(shè)計statusbar控件實現(xiàn)。1〕新增儀器設(shè)備界面：form3的創(chuàng)建，單擊添加窗體，得到一個窗體form3，在屬性欄caption里面輸入新增儀器設(shè)備入庫，在窗體中放置7個label控件，7個text控件，二個command控件，二個dtpicker，并分別輸入相應的屬性值。下面是要緊部分代碼：IfText1.Text=""ThenMsgBox"請輸入儀器設(shè)備名稱",,"--提示"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"請輸入儀器設(shè)備采購人",,"--提示"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請輸入出產(chǎn)廠家",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"請輸入出廠日期"'Text4.SetFocus'ExitSub'EndIf。。。。。。。。。。。。。。。。。。。。IfText1.Text=""ThenMsgBox"請輸入儀器設(shè)備名稱",,"--提示"Text1.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"請輸入儀器設(shè)備采購人",,"--提示"Text2.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請輸入出產(chǎn)廠家",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"請輸入出廠日期"'Text4.SetFocus'ExitSub'EndIf2〕儀器設(shè)備信息愛護：窗體form6，在屬性欄caption里面輸入儀器設(shè)備信息查詢愛護，在窗體中放置1個datagrid控件，1個text控件，4個command控件,1個adodc，并分別輸入相應的屬性值。要緊部分代碼：PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請輸入儀器設(shè)備編號"Text1.SetFocusExitSubEndIfAdodc1.RecordSource="select*fromcginfowhere儀器設(shè)備編號="+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è)備編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入!!!")EndIfEndSub3〕配件登記：form4為儀器設(shè)備配件登錄的窗體，實現(xiàn)方法同form3〔儀器設(shè)備信息登記〕4〕配件的庫存量：form7的要緊作用是配件信息愛護，實現(xiàn)方法同form6〔儀器設(shè)備信息愛護〕。6〕儀器設(shè)備的使用與愛護：窗體form5，在屬性欄caption里面輸入儀器設(shè)備使用與修理登記，在窗體中放置6個label控件，5個text控件，2個command控件,1個combol，并分別輸入相應的屬性值。要緊部分代碼：IfText1.Text=""ThenMsgBox"請輸入儀器設(shè)備編號",,"--提示"Text1.SetFocusExitSubEndIfIfCombo1.Text=""ThenMsgBox"請選擇使用情形",,"--提示"Combo1.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"請輸入修理記錄,假設(shè)無記錄請輸入無",,"--提示"Text3.SetFocusExitSubEndIf'IfText4.Text=""Then'MsgBox"請輸入修理日期,假設(shè)無修理,請輸入無"'Text4.SetFocus'ExitSub'EndIfIfText5.Text=""ThenMsgBox"請輸入修理費用,假設(shè)無費用,那么請輸入0",,"--提示"Text5.SetFocusExitSubEndIfIfText2.Text=""ThenMsgBox"請輸入儀器設(shè)備名稱",,"--提示"Text2.SetFocusExitSubEndIfrs.Open"select*fromwxinfo",conn,adOpenKeyset,adLockOptimisticrs.AddNewrs("儀器設(shè)備編號")=Text1.Textrs("使用情形")=Combo1.Textrs("修理記錄")=Text3.Textrs("修理日期")=DTPicker1.Valuers("修理費用")=Text5.Textrs("儀器設(shè)備名稱")=Text2.Textrs.UpdateText1.Text=""Text1.SetFocusCombo1.Text=""Text3.Text=""'Text4.Text=""Text5.Text=""Text2.Text=""MsgBox"數(shù)據(jù)差不多成功儲存到數(shù)據(jù)庫!",,"--提示"7〕儀器設(shè)備的使用與修理信息愛護：窗體form8在屬性欄caption里面輸入儀器設(shè)備使用修理信息愛護，在窗體中放置1個datagrid控件，1個text控件，4個command控件,1個adodc，并分別輸入相應的屬性值要緊部分代碼：EndSubPrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"請輸入儀器設(shè)備編號",,"--提示"Text1.SetFocusExitSubEndIfAdodc1.RecordSource="select*fromwxinfowhere儀器設(shè)備編號="+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è)備編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入!!!",,"--提示"EndIfEndSub8〕儀器設(shè)備信息的查詢窗體form9在屬性欄caption里面輸入儀器設(shè)備信息查詢，在窗體中放置3個datagrid控件，1個text控件，2個command控件,3個adodc，1個combo1并分別輸入相應的屬性值。要緊部分代碼：PrivateSubCommand1_Click()If(Combo1.Text="儀器設(shè)備編號")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è)備編號as儀器設(shè)備編號,wxinfo.儀器設(shè)備名稱as儀器設(shè)備名稱,wxinfo.使用情形as使用情形,wxinfo.修理記錄as修理記錄,wxinfo.修理日期as修理日期,wxinfo.修理費用as修理費用fromcginfo,wxinfowhere(wxinfo.儀器設(shè)備編號=cginfo.儀器設(shè)備編號)and(cginfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc3.RefreshExitSubEndIfIfCombo1.Text="領(lǐng)取人"OrCombo1.Text="領(lǐng)取單位"ThenAdodc1.RecordSource="selectcginfo.儀器設(shè)備編號as儀器設(shè)備編號,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è)備編號=tzinfo.儀器設(shè)備編號)and(tzinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc1.RefreshAdodc3.RecordSource="selectwxinfo.儀器設(shè)備編號as儀器設(shè)備編號,wxinfo.儀器設(shè)備名稱as儀器設(shè)備名稱,wxinfo.使用情形as使用情形,wxinfo.修理記錄as修理記錄,wxinfo.修理日期as修理日期,wxinfo.修理費用as修理費用fromtzinfo,wxinfowhere(tzinfo.儀器設(shè)備編號=wxinfo.儀器設(shè)備編號)and(tzinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc3.RefreshExitSubEndIfIfCombo1.Text="使用情形"OrCombo1.Text="修理記錄"ThenAdodc1.RecordSource="selectcginfo.儀器設(shè)備編號as儀器設(shè)備編號,cginfo.儀器設(shè)備名稱as儀器設(shè)備名稱,cginfo.采購人as采購人,cginfo.出產(chǎn)廠家as出產(chǎn)廠家,cginfo.出廠日期as出廠日期,cginfo.金額as金額,cginfo.采購日期as采購日期,cginfo.采購數(shù)量as采購數(shù)量fromcginfo,wxinfowhere(cginfo.儀器設(shè)備編號=wxinfo.儀器設(shè)備編號)and(wxinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc1.RefreshAdodc3.RecordSource="select*fromwxinfowhere(wxinfo."&Combo1.Text&"Like+'%'+'"+Text1.Text+"'+'%')"Adodc3.RefreshExitSubEndIfEndSubPrivateSubC