【正文】 （5）可方便地按照各種查詢條件查詢得到相關(guān)數(shù)據(jù)，系統(tǒng)還支持模糊查詢，你只需輸入其中所包含的任意字符即可查詢得到相關(guān)的數(shù)據(jù)信息。由于軟件比較小，所以沒必要像大型系統(tǒng)一樣來測試。 Like+ 39。 Like+ 39。 Like+ 39。 Like+ 39。 Like+ 39。 Like+ 39。 Data Source=。儀器設(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 數(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=。Exit Sub39。（6）添加如下程序代碼。設(shè)計時一般先設(shè)計窗體背景和窗體標題。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è)立了密碼修改等功能。④管理可行性分析：管理可行性分析主要是分析現(xiàn)行的管理體制和領(lǐng)導(dǎo)是否具有現(xiàn)代化的管理意識和管理水平。簡單地說，數(shù)據(jù)模型是現(xiàn)實世界的模擬。同時，Visual Basic 還能直接編輯和訪問其他外部數(shù)據(jù)庫，如 DBASE，F(xiàn)oxPro，Paradox 等，這些數(shù)據(jù)庫格式都可以用 Visual Basic 編輯和處理。系統(tǒng)的功能特點4．1 系統(tǒng)的功能本系統(tǒng)主要完成新增儀器設(shè)備的入庫記錄、新增儀器設(shè)備的維護、儀器設(shè)備領(lǐng)用登記和維護、儀器設(shè)備使用與維修登記和維護、信息檢索、系統(tǒng)管理功能。３、系統(tǒng)開發(fā)的要求3．1 硬件配置及外設(shè)儀器設(shè)備與配置工硬件環(huán)境：硬件平臺是指開發(fā)與運行所需要的硬件環(huán)境，主要包括計算機機型及硬件配置。信息和信息活動都是信息管理的客體。因此，就誕生了“信息管理”這樣一個概念。大多數(shù)儀器設(shè)備管理辦法是儀器設(shè)備采購進來以后，將儀器設(shè)備的基本情況和相關(guān)信息登記存檔，然后將檔案存檔。Visual Basic 在原有 BASIC 語言的基礎(chǔ)上進一步發(fā)那，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUIe 直接關(guān)系。Visual Basic 是在原有的 Basic 語言的基礎(chǔ)上的進一步發(fā)展，他包含了數(shù)百條語句。大多數(shù)儀器設(shè)備管理辦法是儀器設(shè)備采購進來以后，將儀器設(shè)備的基本情況和相關(guān)信息登記存檔，然后將檔案存檔。其次針對該日常業(yè)務(wù)流程，分析數(shù)據(jù)來源及數(shù)據(jù)處理流程，并根據(jù)收集到的資料設(shè)計適合該校的日常儀器設(shè)備管理系統(tǒng)。因此，我們考慮著開發(fā)了這套儀器設(shè)備管理信息系統(tǒng)?！　盫isual”一詞在計算機程序設(shè)計領(lǐng)域中意為:”可視化的”，Microsoft 其冠以 Visual 的產(chǎn)品都含有這個意思。Visual Basic 提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性?，F(xiàn)在，科學技術(shù)的飛速發(fā)展把人類社會推向了一個嶄新的時代——信息時代。在此，信息管理是指狹義的信息資源管理，實際上就是對信息本身的管理；另一種認為，信息管理不僅是對信息的管理，而是對涉及信息活動的各種要素，如信息、技術(shù)、人員、組織進行合理的組織和有效的控制，從而滿足社會的信息需求。本信息管理系統(tǒng)合理的某些企業(yè)儀器設(shè)備管理現(xiàn)狀，并通過對各行業(yè)儀器設(shè)備管理情況的長期研究，以靈活、通用為主要設(shè)計思想，開發(fā)適合于儀器設(shè)備管理的信息系統(tǒng)。它功能強大，直觀易用，支持客戶/服務(wù)器結(jié)構(gòu)和面向?qū)ο缶幊?，提供多種可視化編程工具，支持最新 Inter 技術(shù)， WWW數(shù)據(jù)庫的設(shè)計，最新流行的 ActiveX 等。（3）信息查詢：本應(yīng)用模塊集成了本系統(tǒng)的所有數(shù)據(jù)庫文件，可以跟據(jù)儀器設(shè)備的編號，名稱等進行查詢。這里選用 Access 2022 作為后臺數(shù)據(jù)庫。(1)可行性分析階段的主要工作包括以下幾個方面：①新系統(tǒng)目標可行性分析：分析新系統(tǒng)的目標是否符合某此小發(fā)展的需要。對硬件資源進行可行性分析時主要考慮計算機的主機內(nèi)存、類型、功能、聯(lián)網(wǎng)能力、安全保護措施以及輸入/輸出儀器設(shè)備，外存儲器和聯(lián)網(wǎng)數(shù)據(jù)通信儀器設(shè)備的配置、功能、效率等指標是否符合系統(tǒng)方案設(shè)計要求，同時還要考慮計算機的性能/價格比。5．2．3．整個管理系統(tǒng)的流程圖設(shè)備配件配件號配件名稱 配件品牌配件所屬設(shè)備產(chǎn)品說明生產(chǎn)廠家儀器設(shè)備維修財務(wù)設(shè)備基礎(chǔ)信息管理儀器設(shè)備配件儀器儀器設(shè)備信息配件信息臺帳信息折舊信息財務(wù)設(shè)備科設(shè)備運行時間設(shè)備運行時間生產(chǎn)工單設(shè)備科維修科潤滑報告 報表維修報告報表打印生產(chǎn)工單否是生產(chǎn)管理部門錄入設(shè)備運行狀態(tài)信息是否有設(shè)備需維修設(shè)備科制定儀器設(shè)備管理各項標準查看故障樹，進行故障維修填寫故障維修報告生成周期性預(yù)防維修計劃是否發(fā)生故障生成儀器設(shè)備配件計劃是否有設(shè)備需配件進行周期性預(yù)防維修儀器設(shè)備配件供應(yīng)填寫預(yù)防維修報告儀器設(shè)備配件報告是是否否結(jié)束詳細設(shè)計6．1 界面設(shè)計6．1．系統(tǒng)的主界面：新增儀器設(shè)備界面：儀器設(shè)備信息維護配件登記配件的查詢儀器設(shè)備的使用與維護儀器設(shè)備的使用與維修信息維護：儀器設(shè)備信息的查詢6．2 代碼設(shè)計本軟件采用面向?qū)ο蟮?vb 語言，同時結(jié)合非過程化語言 SQL 編寫而成。如圖：（3）在菜單編輯器中的標題欄內(nèi)輸入菜單項目[儀器設(shè)備采購管理] ，在名稱欄內(nèi)輸入x1，然后依次輸入新增儀器設(shè)備、儀器設(shè)備信息維護、儀器設(shè)備維修與使用管理、信息查詢、退出管理等菜單項，單擊確定按鈕，菜單即可編輯完成。If = Then39。Exit Sub39。 amp。End IfIf = ThenMsgBox 請輸入維修費用 ,若無費用,則請輸入 0, , 提示 Exit SubEnd IfIf = ThenMsgBox 請輸入儀器設(shè)備名稱, , 提示Exit SubEnd If select * from wxinfo, conn, adOpenKeyset, adLockOptimisticrs(儀器設(shè)備編號) = rs(使用情況 ) = rs(維修記錄 ) = rs(維修日期 ) = rs(維修費用 ) = rs(儀器設(shè)備名稱) = = = = 39。 (良) (差)End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then select * from cginfo where 儀器設(shè)備編號= + Trim(), conn, adOpenKeyset, adLockOptimisticIf Then MsgBox 沒有此儀器設(shè)備！, , 提示Else = rs(儀器設(shè)備的名稱 )End IfEnd IfEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)If ((KeyCode 57) Or (KeyCode 33 And KeyCode 48)) Then