【正文】 （2）系統(tǒng)的使用方便，系統(tǒng)任何截面都全中文顯示，友好和可預(yù)見性的界面，及時的提示，讓用戶能很快的掌握操作方法。+39。+39。+39。Exit Sub39。39。在該工程中會自動創(chuàng)建一個窗體，默認(rèn)名為 form1.(2)將 form1 窗體設(shè)為作用中的窗體，然后選取 VB 菜單中工具菜單項下的菜單編輯器，接著會出現(xiàn)菜單編輯器對話框。（2）硬件資源： 開發(fā)管理信息系統(tǒng)所需的硬件資源包含以下兩個方面： 系統(tǒng)開發(fā)人員在管理信息系統(tǒng)的開發(fā)過程中所需要的計算機儀器設(shè)備及其有關(guān)的外部儀器設(shè)備；管理信息系統(tǒng)開發(fā)成功投入使用后，使用單位所應(yīng)具備的計算機儀器設(shè)備及其有關(guān)的外圍儀器設(shè)備。同時，一個合理的數(shù)據(jù)庫結(jié)構(gòu)有利于程序的實現(xiàn)。 中文版，它是運行于 Windows95 和 Windows NT 平臺的 32 位數(shù)據(jù)庫系統(tǒng)，充分發(fā)揮了 32 位微處理器強大的 32 位數(shù)據(jù)處理性能。對信息管理的理解，一種認(rèn)為是，信息管理 就是對信息的管理。5） 為什么要選擇 6） 微軟 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。本系統(tǒng)將會提高辦公效率和儀器設(shè)備可靠性，減少工作人員的勞動強度，減少辦公耗材，提高的現(xiàn)代化管理水平。以后檔案基本就沒人維護，如儀器設(shè)備位置變遷、檢修情況、儀器設(shè)備當(dāng)前運行狀態(tài)等信息根本不會體現(xiàn)在儀器設(shè)備臺帳上，即儀器設(shè)備跟蹤信息不能及時體現(xiàn)在儀器設(shè)備檔案上。專業(yè)人員可以用 Visual Basic 實現(xiàn)其他任何 Windows 編程語言的功能，而初學(xué)者只要掌握 幾個關(guān)鍵詞就可以建立實用的應(yīng)用程序。由于信息是普遍存在的，人類信息管理活動的范圍也是十分廣泛的，信息管理不僅是信息工作的一部分，而且已被認(rèn)為是現(xiàn)代管理的重要組成部分。由于本系統(tǒng)是一個小型的管理系統(tǒng)，因此對計算機硬件的要求不高，比較經(jīng)濟，只要配備如下表所示的就可以。 數(shù)據(jù)庫是信息管理系統(tǒng)的后臺，存儲著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。、技術(shù)可行性分析○ 5 技術(shù)可行性分析主要包括四個方面：目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)；新系統(tǒng)開發(fā)人員的數(shù)量和水平，即人力資源；硬件和軟件資源。菜單欄主要通過 VB 中工具菜單項下的菜單編輯器進行設(shè)計。End IfIf = ThenMsgBox 請輸入儀器設(shè)備金額, , 提示Exit SubEnd If39。If = Then39。%39。%39。%39。比如大型系統(tǒng)需要分模塊測試，子系統(tǒng)測試，系統(tǒng)測試等。（4）對于不同的數(shù)據(jù)資料都是采用分別獨立的數(shù)據(jù)庫來保存的。 amp。 amp。 amp。 amp。 = = 39。（5）在 form1 窗體中放置 1 個 statusbar 控件、1 個 timer 控件等。5．2 系統(tǒng)軟件的結(jié)構(gòu)設(shè)計 通過對本系統(tǒng)的詳細(xì)分析，軟件模塊結(jié)構(gòu)設(shè)計目標(biāo)如下： 系統(tǒng)主要應(yīng)完成的功能如下：儀器設(shè)備的采購，儀器設(shè)備的領(lǐng)用，儀器設(shè)備數(shù)據(jù)記錄的維護，數(shù)據(jù)資料資料的查詢，系統(tǒng)管理（包括修改密碼及增刪用戶等） 。在數(shù)據(jù)庫中用數(shù)據(jù)模型這個工具來抽象、表示和處理現(xiàn)實世界中的數(shù)據(jù)和信息。用 Visual Basic 創(chuàng)建的 ActiveX 控件可以在 Visual Basic 應(yīng)用程序中使用，以實現(xiàn)一些附加功能。綜合兩種理解，信息管理是指對人類信息活動所產(chǎn)生的社會信息進行管理，信息管理是管理的一種，既要對信息進行管理，也要對信息活動進行管理。系統(tǒng)開發(fā)的目的、意義目前儀器設(shè)備自動化管理水平不是很高。1．2 課題中涉及的相關(guān)技術(shù)及概念1．2．1 相關(guān)技術(shù)系統(tǒng)采用了先進的 access 數(shù)據(jù)庫技術(shù)，面向?qū)ο蟮木幊谭椒▽W(xué)以及軟件工程方法學(xué)1．2．2Visual Basic 概念簡介什么是 Visual Basic　visual Basic 中文版是一種應(yīng)用程序開發(fā)工具，它的功能就是用來編程——Windows 下的應(yīng)用程序。最后，文章對系統(tǒng)的設(shè)計實現(xiàn)過程進行了闡述，同時簡述了實現(xiàn)系統(tǒng)時的過程及注意事項，并提出其可維護性。VB 就是可視化程序設(shè)計語言。這已是無可爭議的事實；信息對社會經(jīng)濟發(fā)展的巨大推動作用，使其與物質(zhì)能源一起并列為現(xiàn)代社會的三大支柱，這已在全社會達到共識。使用本系統(tǒng)之后，將會提高辦公效率和儀器設(shè)備可靠性，減少工作人員的勞動強度，減少辦公耗材，提高的現(xiàn)代化管理水平。 （4）退出系統(tǒng)：退出本系統(tǒng)，恢復(fù)系統(tǒng)的實始狀態(tài)。②社會可行性分析：社會可行性分析主要是指管理信息系統(tǒng)的開發(fā)是否符合國家法律、政策。數(shù)據(jù)庫與程序的連接采用微軟數(shù)據(jù)訪問組件 ADO 來實現(xiàn)。MsgBox 請輸入出廠日期 39。 Password=。倉庫儀器設(shè)備信息維護如下：控件名 屬性 屬性值datagrid endabled .f.adodc namemand1 name 檢索mand2 name 退出mand3 name 刪除當(dāng)前修改mand4 name 保存當(dāng)前修改流程圖：新增代碼如下：Private Sub Command1_Click()If = ThenMsgBox 請輸入儀器設(shè)備編號Exit SubEnd If = select * from cginfo where 儀器設(shè)備編號= + End SubPrivate Sub Command2_Click()Unload MeEnd SubNY開始查找/修改/刪除記錄是否繼續(xù)退出Private Sub Command3_Click()Dim myval As Stringmyval = MsgBox(是否確定刪除該記錄, vbYesNo)If myval = vbYes ThenEnd IfEnd SubPrivate Sub Command4_Click()Dim myval As Stringmyval = MsgBox(是否保存已經(jīng)修改的記錄, vbYesNo)If myval = vbYes ThenEnd IfEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)If ((KeyCode 57) Or (KeyCode 33 And KeyCode 48)) ThenIf Then = Left(, Len() 1)MsgBox (儀器設(shè)備編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入 !!!)End IfEnd Sub④窗體 form8 在屬性欄 caption 里面輸入儀器設(shè)備使用維修信息維護，在窗體中放置 1個 datagrid 控件，1 個 text 控件，4 個 mand 控件 , 1 個 adodc ，并分別輸入相應(yīng)的屬性值儀器設(shè)備使用維修信息維護：控件名 屬性 屬性值datagrid endabled .f.adodc namemand1 name 檢索mand2 name 退出mand3 name 刪除當(dāng)前修改mand4 name 保存當(dāng)前修改流程圖：新增代碼如下：Private Sub Command1_Click()If = ThenMsgBox 請輸入儀器設(shè)備編號, , 提示Exit SubEnd If = select * from wxinfo where 儀器設(shè)備編號= + End SubPrivate Sub Command2_Click()Unload MeNY開始使用維修信息維護是否繼續(xù)退出End SubPrivate Sub Command3_Click()Dim myval As Stringmyval = MsgBox(是否確定刪除該記錄, vbYesNo, 提示)If myval = vbYes ThenEnd IfEnd SubPrivate Sub Command4_Click()Dim myval As Stringmyval = MsgBox(是否保存已經(jīng)修改的記錄, vbYesNo, 提示)If myval = vbYes ThenEnd IfEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)If ((KeyCode 57) Or (KeyCode 33 And KeyCode 48)) ThenIf Then = Left(, Len() 1)MsgBox 儀器設(shè)備編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入!!!, , 提示End IfEnd Sub⑤窗體 form9 在屬性欄 caption 里面輸入儀器設(shè)備信息查詢，在窗體中放置 3 個datagrid 控件，1 個 text 控件，2 個 mand 控件 , 3 個 adodc ，1 個 bo1 并分別輸入相應(yīng)的屬性值儀器設(shè)備信息查詢?nèi)缦拢嚎丶?