【正文】 ，充分發(fā)揮了 32 位微處理器強大的 32 位數(shù)據(jù)處理性能。 應(yīng)用程序開發(fā)：Visual basic 與其它 access 工具可以很好的配合，例如，運用Visual InterDev 創(chuàng)建 Web 應(yīng)用程序的開發(fā)人員可以很容易地使用 Visual Basic 來創(chuàng)建組件。系統(tǒng)的功能特點4．1 系統(tǒng)的功能本系統(tǒng)主要完成新增儀器設(shè)備的入庫記錄、新增儀器設(shè)備的維護、儀器設(shè)備領(lǐng)用登記和維護、儀器設(shè)備使用與維修登記和維護、信息檢索、系統(tǒng)管理功能。為了美化系統(tǒng)界面，本系統(tǒng)加上一個圖片在主界面上。（2）儀器設(shè)備維修和使用：本應(yīng)用模塊的主要功能是實現(xiàn)對教學(xué)的還庫管理工作，包括記錄添加、編輯、刪除等操作。 （4）退出系統(tǒng)：退出本系統(tǒng)，恢復(fù)系統(tǒng)的實始狀態(tài)。同時，Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如 DBASE，F(xiàn)oxPro，Paradox 等，這些數(shù)據(jù)庫格式都可以用 Visual Basic 編輯和處理。數(shù)據(jù)庫設(shè)計的好與壞，直接影響到這個系統(tǒng)的運行效率。同時，一個合理的數(shù)據(jù)庫結(jié)構(gòu)有利于程序的實現(xiàn)。 數(shù)據(jù)庫是某個企業(yè)、組織或部門所設(shè)計的數(shù)據(jù)的一個綜合，它不僅要反映數(shù)據(jù)本身的內(nèi)容，而且要反映數(shù)據(jù)之間的聯(lián)系。簡單地說，數(shù)據(jù)模型是現(xiàn)實世界的模擬。輔助軟件配置：Wiondows202Office202visual 。 可行性分析一般可定義為：可行性分析是在建設(shè)的前期對工程項目的一種考察和鑒定，對擬議中的項目進行全面與綜合的技術(shù)、經(jīng)濟能力的調(diào)查，判斷它是否可行。②社會可行性分析：社會可行性分析主要是指管理信息系統(tǒng)的開發(fā)是否符合國家法律、政策。④管理可行性分析：管理可行性分析主要是分析現(xiàn)行的管理體制和領(lǐng)導(dǎo)是否具有現(xiàn)代化的管理意識和管理水平。（1）技術(shù)支持： 首先根據(jù)新系統(tǒng)的目標，考慮目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)。（2）硬件資源： 開發(fā)管理信息系統(tǒng)所需的硬件資源包含以下兩個方面： 系統(tǒng)開發(fā)人員在管理信息系統(tǒng)的開發(fā)過程中所需要的計算機儀器設(shè)備及其有關(guān)的外部儀器設(shè)備；管理信息系統(tǒng)開發(fā)成功投入使用后，使用單位所應(yīng)具備的計算機儀器設(shè)備及其有關(guān)的外圍儀器設(shè)備。（3）軟件資源 軟件資源的可行性分析主要考慮以下幾點是否滿足用戶的要求：①操作系統(tǒng)的選擇；②編譯系統(tǒng)的選擇；③數(shù)據(jù)庫管理系統(tǒng)的選擇；④高級編程語言的選擇；⑤漢字處理系統(tǒng)的選擇； 本系統(tǒng)在開發(fā)前，與相關(guān)的部門的領(lǐng)導(dǎo)和具體的操作人員密切溝通，認真聽取他們的意見，并吸收他們的積極觀點，使本系統(tǒng)的開發(fā)在相當大的程度上具有一定的先進性和合理性。5．2．結(jié)構(gòu)設(shè)計： 本系統(tǒng)在運行時，可以根據(jù)不同的使用需要，選擇不同的功能模塊進入相當?shù)南到y(tǒng)使用；同時，為了方便對系統(tǒng)的快速操作，本系統(tǒng)設(shè)計了幾個功能集成模塊，可以對一些數(shù)據(jù)進行統(tǒng)一的快速操作；并為了系統(tǒng)的安全考慮，本系統(tǒng)設(shè)立了密碼修改等功能。分別如下幾個圖所示： 儀器設(shè)備入庫：使用與維護：接受數(shù)據(jù)采購管理維修管理 信息查詢 退出系統(tǒng)儀器設(shè)備采購儀器設(shè)備名稱設(shè)備編號采購人采購日期生產(chǎn)廠家生產(chǎn)日期購入數(shù)量金額使用與維護設(shè)備名稱設(shè)備編號 維修次數(shù)使用情況（良/差）維修費用維修記錄儀器設(shè)備配件：本儀器設(shè)備管理系統(tǒng)功能需求可以用二層的 IDEF0 圖來表示。系統(tǒng)頂層 IDEF0 圖考慮到篇幅有限，其他 IDEF0 圖不再一一畫出。數(shù)據(jù)庫與程序的連接采用微軟數(shù)據(jù)訪問組件 ADO 來實現(xiàn)。設(shè)計時一般先設(shè)計窗體背景和窗體標題。狀態(tài)欄通過設(shè)計 statusbar 控件實現(xiàn)。在該工程中會自動創(chuàng)建一個窗體，默認名為 form1.(2)將 form1 窗體設(shè)為作用中的窗體，然后選取 VB 菜單中工具菜單項下的菜單編輯器，接著會出現(xiàn)菜單編輯器對話框。（4）單擊工程菜單下的部件選項，在彈出的列表中選中[Microsoft windows mon control ]選項，然后單擊確定按鈕，imagelist 控件、toolbar 控件、statusbar 控件將被添加到工具箱中。（6）添加如下程序代碼。 amp。控件名 屬性 屬性值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。MsgBox 請輸入出廠日期 39。Exit Sub39。If = Then39。39。End IfIf = ThenMsgBox 請輸入采購數(shù)量 , , 提示Exit SubEnd IfIf = ThenMsgBox 請輸入儀器設(shè)備編號, , 提示Exit SubEnd If select * from cginfo, conn, adOpenKeyset, adLockOptimisticrs(儀器設(shè)備的名稱) = rs(采購人 ) = rs(出產(chǎn)廠家 ) = rs(出廠日期 ) = rs(金額 ) = rs(采購日期 ) = rs(采購數(shù)量 ) = rs(儀器設(shè)備編號) = rs(儀器設(shè)備規(guī)格) = = = = 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=。 Data Source=。 User Id=admin。 Password=。儀器設(shè)備使用與維修登記如下：控件名 屬性 屬性值text1 name 儀器設(shè)備編號text2 name 使用情況text3 name 維修記錄text4 name 維修日期text5 name 維修費用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。MsgBox 請輸入維修日期 ,若無維修,請輸入無39。Exit Sub39。 = = = MsgBox 數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫!, , 提示End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() = DateSet conn = New Set rs = New Provider=。 Data Source=。 User Id=admin。 Password=。倉庫儀器設(shè)備信息維護如下：控件名