【正文】 盡可能的提高工作效率，可以節(jié)省人力物力的浪費(fèi)。用 Visual Basic 創(chuàng)建的 ActiveX 控件可以在 Visual Basic 應(yīng)用程序中使用，以實(shí)現(xiàn)一些附加功能。信息錄入數(shù)據(jù)合法否保存到數(shù)據(jù)庫YN非法字符處修改結(jié)構(gòu)設(shè)計(jì)5．1 系統(tǒng)開發(fā)的思想及原則5．1．?dāng)?shù)據(jù)庫設(shè)計(jì)概述Visual Basic 具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。在數(shù)據(jù)庫中用數(shù)據(jù)模型這個(gè)工具來抽象、表示和處理現(xiàn)實(shí)世界中的數(shù)據(jù)和信息。③技術(shù)可行性分析：技術(shù)可行性分析是根據(jù)新系統(tǒng)的目標(biāo)來衡量是否具備所需要的技術(shù)。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)管理（包括修改密碼及增刪用戶等） 。 儀器設(shè)備管理信息系統(tǒng)主窗體的實(shí)現(xiàn)一個(gè)程序的主窗體主要是由窗體、菜單欄、工具欄、狀態(tài)欄等組成。（5）在 form1 窗體中放置 1 個(gè) statusbar 控件、1 個(gè) timer 控件等。39。 = = 39。End SubPrivate Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer)If ((KeyCode 57 And KeyCode 190) Or (KeyCode 33 And KeyCode 48)) ThenIf Then = Left(, Len() 1)MsgBox (儀器設(shè)備金額輸入錯(cuò)誤,你所輸入的數(shù)據(jù)可能含有非法字符 ,請(qǐng)重新輸入!!!), , 提示 End IfEnd Sub窗體 form5，在屬性欄 caption 里面輸入儀器設(shè)備使用與維修登記，在窗體中放置○ 26 個(gè) label 控件，5 個(gè) text 控件， 2 個(gè) mand 控件 , 1 個(gè) bol ，并分別輸入相應(yīng)的屬性值。 amp。 amp。 amp。 amp。 amp。 amp。 amp。系統(tǒng)評(píng)價(jià)7．1 系統(tǒng)測(cè)試系統(tǒng)的測(cè)試是通過一些真實(shí)數(shù)據(jù)來測(cè)試軟件設(shè)計(jì)和編碼的錯(cuò)誤。（4）對(duì)于不同的數(shù)據(jù)資料都是采用分別獨(dú)立的數(shù)據(jù)庫來保存的。7．3 系統(tǒng)總結(jié)系統(tǒng)實(shí)現(xiàn)了預(yù)期的效果，主要解決數(shù)據(jù)錄入、數(shù)據(jù)任意字段及任意字段模糊查詢、數(shù)據(jù)維護(hù)等功能。比如大型系統(tǒng)需要分模塊測(cè)試，子系統(tǒng)測(cè)試，系統(tǒng)測(cè)試等。%39。%39。%39。%39。%39。%39。 amp。If = Then39。 amp。End IfIf = ThenMsgBox 請(qǐng)輸入儀器設(shè)備金額, , 提示Exit SubEnd If39。Private Sub Form_Resize() = ( ) / 2 = / 2End SubPrivate Sub Timer1_Timer()(1).Text = Format(Date, long date) amp。菜單欄主要通過 VB 中工具菜單項(xiàng)下的菜單編輯器進(jìn)行設(shè)計(jì)。總體上來說，本系統(tǒng)屬于事務(wù)型系統(tǒng)，其系統(tǒng)示意圖如下圖所示：5．2．2．系統(tǒng)數(shù)據(jù)庫結(jié)構(gòu)（ER 表示） 為了使 ER 圖表示得更加清晰，現(xiàn)將 ER 圖分成實(shí)體及其屬性圖和實(shí)體及其聯(lián)系圖。、技術(shù)可行性分析○ 5 技術(shù)可行性分析主要包括四個(gè)方面：目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)；新系統(tǒng)開發(fā)人員的數(shù)量和水平，即人力資源；硬件和軟件資源。 5．1．2 系統(tǒng)的開發(fā)的方法在軟件的編制當(dāng)中，各個(gè)模塊的設(shè)計(jì)以 vb 語言實(shí)現(xiàn)，采用 visual 開發(fā)環(huán)境進(jìn)行編譯，數(shù)據(jù)庫的連接采用 ADO 技術(shù)，而數(shù)據(jù)庫部分則由 Access2022 開發(fā)。 數(shù)據(jù)庫是信息管理系統(tǒng)的后臺(tái)，存儲(chǔ)著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。4．2 系統(tǒng)的組成結(jié)構(gòu)及其流程圖本系統(tǒng)主要有以下模塊：新增儀器設(shè)備、儀器設(shè)備的信息維護(hù)、儀器設(shè)備使用與維修登記和維護(hù)、信息檢索、系統(tǒng)管理。由于本系統(tǒng)是一個(gè)小型的管理系統(tǒng)，因此對(duì)計(jì)算機(jī)硬件的要求不高，比較經(jīng)濟(jì)，只要配備如下表所示的就可以。簡(jiǎn)而言之，信息管理就是對(duì)信息和信息活動(dòng)的管理，這就是我們對(duì)信息管理的全面理解。由于信息是普遍存在的，人類信息管理活動(dòng)的范圍也是十分廣泛的，信息管理不僅是信息工作的一部分，而且已被認(rèn)為是現(xiàn)代管理的重要組成部分。以后檔案基本就沒人維護(hù)，如儀器設(shè)備位置變遷、檢修情況、儀器設(shè)備當(dāng)前運(yùn)行狀態(tài)等信息根本不會(huì)體現(xiàn)在儀器設(shè)備臺(tái)帳上，即儀器設(shè)備跟蹤信息不能及時(shí)體現(xiàn)在儀器設(shè)備檔案上。專業(yè)人員可以用 Visual Basic 實(shí)現(xiàn)其他任何 Windows 編程語言的功能，而初學(xué)者只要掌握 幾個(gè)關(guān)鍵詞就可以建立實(shí)用的應(yīng)用程序。函數(shù)及關(guān)鍵詞，其中很多與 Windows GUI 有直接的關(guān)系。以后檔案基本就沒人維護(hù)，如儀器設(shè)備位置變遷、檢修情況、儀器設(shè)備當(dāng)前運(yùn)行狀態(tài)等信息根本不會(huì)體現(xiàn)在儀器設(shè)備臺(tái)帳上，即儀器設(shè)備跟蹤信息不能及時(shí)體現(xiàn)在儀器設(shè)備檔案上。文中首先對(duì)儀器設(shè)備管理的現(xiàn)狀及其重要性進(jìn)行了分析，提出儀器設(shè)備管理信息系統(tǒng)的必要性與可行性。本系統(tǒng)將會(huì)提高辦公效率和儀器設(shè)備可靠性，減少工作人員的勞動(dòng)強(qiáng)度，減少辦公耗材，提高的現(xiàn)代化管理水平。 Visual Basic 還支持用戶自己開發(fā) ActiveX 控件和制作 ActiveX文檔。5） 為什么要選擇 6） 微軟 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。將管理任務(wù)分成小塊，落實(shí)到個(gè)人并能隨時(shí)查詢儀器設(shè)備當(dāng)前情況和歷史情況，對(duì)儀器設(shè)備的可靠性分析有直接作用，使管理人員從手工計(jì)算、統(tǒng)計(jì)工作中解脫出來。對(duì)信息管理的理解，一種認(rèn)為是，信息管理 就是對(duì)信息的管理。國(guó)內(nèi)外大量事實(shí)已說明：在目前這個(gè)激烈競(jìng)爭(zhēng)的市場(chǎng)經(jīng)濟(jì)中，誰的信息管理現(xiàn)代化水平高，誰重視信息資源的開發(fā)和利用，誰就能抓住機(jī)遇，在競(jìng)爭(zhēng)中取勝。 中文版，它是運(yùn)行于 Windows95 和 Windows NT 平臺(tái)的 32 位數(shù)據(jù)庫系統(tǒng)，充分發(fā)揮了 32 位微處理器強(qiáng)大的 32 位數(shù)據(jù)處理性能。（2）儀器設(shè)備維修和使用：本應(yīng)用模塊的主要功能是實(shí)現(xiàn)對(duì)教學(xué)的還庫管理工作，包括記錄添加、編輯、刪除等操作。同時(shí)，一個(gè)合理的數(shù)據(jù)庫結(jié)構(gòu)有利于程序的實(shí)現(xiàn)。 可行性分析一般可定義為：可行性分析是在建設(shè)的前期對(duì)工程項(xiàng)目的一種考察和鑒定，對(duì)擬議中的項(xiàng)目進(jìn)行全面與綜合的技術(shù)、經(jīng)濟(jì)能力的調(diào)查，判斷它是否可行。（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è)備。系統(tǒng)頂層 IDEF0 圖考慮到篇幅有限，其他 IDEF0 圖不再一一畫出。在該工程中會(huì)自動(dòng)創(chuàng)建一個(gè)窗體，默認(rèn)名為 form1.(2)將 form1 窗體設(shè)為作用中的窗體，然后選取 VB 菜單中工具菜單項(xiàng)下的菜單編輯器，接著會(huì)出現(xiàn)菜單編輯器對(duì)話框?？丶? 屬性 屬性值text1 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ù)庫Command2 name 退出流程圖：添加如下程序代碼：Dim rs As New Dim conn As Private Sub Command1_Click()NY開始增加操作是否繼續(xù)退出If = ThenMsgBox 請(qǐng)輸入儀器設(shè)備名稱, , 提示Exit SubEnd IfIf = ThenMsgBox 請(qǐng)輸入儀器設(shè)備采購人, , 提示Exit SubEnd IfIf = ThenMsgBox 請(qǐng)輸入出產(chǎn)廠家 , , 提示Exit SubEnd If39。39。 User Id=admin。Exit Sub39。 Password=。+39。+39。+39。+39。+39。+39。（2）系統(tǒng)的使用方便，系統(tǒng)任何截面都全中文顯示，友好和可預(yù)見性的界面，及時(shí)的提示，讓用戶能很快的掌握操作方法。感謝同機(jī)房的其他同學(xué)，在設(shè)計(jì)時(shí)給予的無私幫助和真誠(chéng)的關(guān)心！參考文獻(xiàn) 《大學(xué) VB 程序設(shè)計(jì)實(shí)踐教程》 人民郵電出版社 主編：沈建蓉 《應(yīng)用程序設(shè)計(jì)編制 Visual 職業(yè)技能培訓(xùn)教程》 北京希望電子出版社 主編：?jiǎn)钨F