【正文】 ，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。專業(yè)人員可以用 Visual Basic 實(shí)現(xiàn)其他任何 Windows 編程語言的功能，而初學(xué)者只要掌握 幾個關(guān)鍵詞就可以建立實(shí)用的應(yīng)用程序。　”Visual”一詞在計(jì)算機(jī)程序設(shè)計(jì)領(lǐng)域中意為:”可視化的”，Microsoft 其冠以 Visual 的產(chǎn)品都含有這個意思。函數(shù)及關(guān)鍵詞，其中很多與 Windows GUI 有直接的關(guān)系。因此，我們考慮著開發(fā)了這套儀器設(shè)備管理信息系統(tǒng)。以后檔案基本就沒人維護(hù)，如儀器設(shè)備位置變遷、檢修情況、儀器設(shè)備當(dāng)前運(yùn)行狀態(tài)等信息根本不會體現(xiàn)在儀器設(shè)備臺帳上，即儀器設(shè)備跟蹤信息不能及時體現(xiàn)在儀器設(shè)備檔案上。其次針對該日常業(yè)務(wù)流程，分析數(shù)據(jù)來源及數(shù)據(jù)處理流程，并根據(jù)收集到的資料設(shè)計(jì)適合該校的日常儀器設(shè)備管理系統(tǒng)。文中首先對儀器設(shè)備管理的現(xiàn)狀及其重要性進(jìn)行了分析，提出儀器設(shè)備管理信息系統(tǒng)的必要性與可行性。大多數(shù)儀器設(shè)備管理辦法是儀器設(shè)備采購進(jìn)來以后，將儀器設(shè)備的基本情況和相關(guān)信息登記存檔，然后將檔案存檔。本系統(tǒng)將會提高辦公效率和儀器設(shè)備可靠性，減少工作人員的勞動強(qiáng)度，減少辦公耗材，提高的現(xiàn)代化管理水平。Visual Basic 是在原有的 Basic 語言的基礎(chǔ)上的進(jìn)一步發(fā)展，他包含了數(shù)百條語句。 Visual Basic 還支持用戶自己開發(fā) ActiveX 控件和制作 ActiveX文檔。Visual Basic 在原有 BASIC 語言的基礎(chǔ)上進(jìn)一步發(fā)那，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUIe 直接關(guān)系。5） 為什么要選擇 6） 微軟 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。大多數(shù)儀器設(shè)備管理辦法是儀器設(shè)備采購進(jìn)來以后，將儀器設(shè)備的基本情況和相關(guān)信息登記存檔，然后將檔案存檔。將管理任務(wù)分成小塊，落實(shí)到個人并能隨時查詢儀器設(shè)備當(dāng)前情況和歷史情況，對儀器設(shè)備的可靠性分析有直接作用，使管理人員從手工計(jì)算、統(tǒng)計(jì)工作中解脫出來。因此，就誕生了“信息管理”這樣一個概念。對信息管理的理解，一種認(rèn)為是，信息管理 就是對信息的管理。信息和信息活動都是信息管理的客體。國內(nèi)外大量事實(shí)已說明：在目前這個激烈競爭的市場經(jīng)濟(jì)中，誰的信息管理現(xiàn)代化水平高，誰重視信息資源的開發(fā)和利用，誰就能抓住機(jī)遇，在競爭中取勝。３、系統(tǒng)開發(fā)的要求3．1 硬件配置及外設(shè)儀器設(shè)備與配置工硬件環(huán)境：硬件平臺是指開發(fā)與運(yùn)行所需要的硬件環(huán)境，主要包括計(jì)算機(jī)機(jī)型及硬件配置。 中文版，它是運(yùn)行于 Windows95 和 Windows NT 平臺的 32 位數(shù)據(jù)庫系統(tǒng)，充分發(fā)揮了 32 位微處理器強(qiáng)大的 32 位數(shù)據(jù)處理性能。系統(tǒng)的功能特點(diǎn)4．1 系統(tǒng)的功能本系統(tǒng)主要完成新增儀器設(shè)備的入庫記錄、新增儀器設(shè)備的維護(hù)、儀器設(shè)備領(lǐng)用登記和維護(hù)、儀器設(shè)備使用與維修登記和維護(hù)、信息檢索、系統(tǒng)管理功能。（2）儀器設(shè)備維修和使用：本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對教學(xué)的還庫管理工作，包括記錄添加、編輯、刪除等操作。同時，Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如 DBASE，F(xiàn)oxPro，Paradox 等，這些數(shù)據(jù)庫格式都可以用 Visual Basic 編輯和處理。同時，一個合理的數(shù)據(jù)庫結(jié)構(gòu)有利于程序的實(shí)現(xiàn)。簡單地說，數(shù)據(jù)模型是現(xiàn)實(shí)世界的模擬。 可行性分析一般可定義為：可行性分析是在建設(shè)的前期對工程項(xiàng)目的一種考察和鑒定，對擬議中的項(xiàng)目進(jìn)行全面與綜合的技術(shù)、經(jīng)濟(jì)能力的調(diào)查，判斷它是否可行。④管理可行性分析：管理可行性分析主要是分析現(xiàn)行的管理體制和領(lǐng)導(dǎo)是否具有現(xiàn)代化的管理意識和管理水平。（2）硬件資源： 開發(fā)管理信息系統(tǒng)所需的硬件資源包含以下兩個方面： 系統(tǒng)開發(fā)人員在管理信息系統(tǒng)的開發(fā)過程中所需要的計(jì)算機(jī)儀器設(shè)備及其有關(guān)的外部儀器設(shè)備；管理信息系統(tǒng)開發(fā)成功投入使用后，使用單位所應(yīng)具備的計(jì)算機(jī)儀器設(shè)備及其有關(guān)的外圍儀器設(shè)備。5．2．結(jié)構(gòu)設(shè)計(jì)： 本系統(tǒng)在運(yùn)行時，可以根據(jù)不同的使用需要，選擇不同的功能模塊進(jìn)入相當(dāng)?shù)南到y(tǒng)使用；同時，為了方便對系統(tǒng)的快速操作，本系統(tǒng)設(shè)計(jì)了幾個功能集成模塊，可以對一些數(shù)據(jù)進(jìn)行統(tǒng)一的快速操作；并為了系統(tǒng)的安全考慮，本系統(tǒng)設(shè)立了密碼修改等功能。系統(tǒng)頂層 IDEF0 圖考慮到篇幅有限，其他 IDEF0 圖不再一一畫出。設(shè)計(jì)時一般先設(shè)計(jì)窗體背景和窗體標(biāo)題。在該工程中會自動創(chuàng)建一個窗體，默認(rèn)名為 form1.(2)將 form1 窗體設(shè)為作用中的窗體，然后選取 VB 菜單中工具菜單項(xiàng)下的菜單編輯器，接著會出現(xiàn)菜單編輯器對話框。（6）添加如下程序代碼?？丶? 屬性 屬性值text1 name 儀器設(shè)備名稱text2 name 采購人text3 name 出產(chǎn)廠家text4 name 出廠日期text5 name 金額text6 name 采購日期text7 name 采購數(shù)量text8 name 儀器設(shè)備編號Command1 name 保存到數(shù)據(jù)庫Command2 name 退出流程圖：添加如下程序代碼：Dim rs As New Dim conn As Private Sub Command1_Click()NY開始增加操作是否繼續(xù)退出If = ThenMsgBox 請輸入儀器設(shè)備名稱, , 提示Exit SubEnd IfIf = ThenMsgBox 請輸入儀器設(shè)備采購人, , 提示Exit SubEnd IfIf = ThenMsgBox 請輸入出產(chǎn)廠家 , , 提示Exit SubEnd If39。Exit Sub39。39。 = = = = MsgBox 數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫!, , 提示End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() = Date = DateSet conn = New Set rs = New Provider=。 User Id=admin。儀器設(shè)備使用與維修登記如下：控件名 屬性 屬性值text1 name 儀器設(shè)備編號text2 name 使用情況text3 name 維修記錄text4 name 維修日期text5 name 維修費(fèi)用text6 name 儀器設(shè)備編號bol rowsource 良/差Command1 name 保存到數(shù)據(jù)庫Command2 name 退出流程圖：添加如下程序代碼：Dim rs As New Dim conn As Private Sub Command1_Click()NY開始設(shè)備的使用與維修登記是否繼續(xù)退出If = ThenMsgBox 請輸入儀器設(shè)備編號, , 提示Exit SubEnd IfIf = ThenMsgBox 請選擇使用情況 , , 提示Exit SubEnd IfIf = ThenMsgBox 請輸入維修記錄 ,若無記錄請輸入無, , 提示Exit SubEnd If39。Exit Sub39。 Data Source=。 Password=。 Like+ 39。+39。 Like+ 39。+39。 Like+ 39。+39。 Like+ 39。+39。 Like+ 39。+39。 Like+ 39。+39。由于軟件比較小，所以沒必要像大型系統(tǒng)一樣來測試。（2）系統(tǒng)的使用方便，系統(tǒng)任何截面都全中文顯示，友好和可預(yù)見性的界面，及時的提示，讓用戶能很快的掌握操作方法。（5）可方便地按照各種查詢條件查詢得到相關(guān)數(shù)據(jù)，系統(tǒng)還支持模糊查詢，你只需輸入其中所包含的任意字符即可查詢得到相關(guān)的數(shù)據(jù)信息。感謝同機(jī)房的其他同學(xué)，在設(shè)計(jì)時給予的無私幫助和真誠的關(guān)心！參考文獻(xiàn) 《大學(xué) VB 程序設(shè)計(jì)實(shí)踐教程》 人民郵電出版社 主編：沈建蓉 《應(yīng)用程序設(shè)計(jì)編制 Visual 職業(yè)技能培訓(xùn)教程》 北京希望電子出版社 主編：單貴