【正文】 屬性 屬性值datagrid1 endabled .f. datagrid2 endabled .f.datagrid3 endabled .f.bo1 rowsource 儀器設(shè)備編號，儀器設(shè)備名稱，采購人，出產(chǎn)廠家，領(lǐng)取人，領(lǐng)取單位，使用情況，維修記錄 adodc1adodc2adodc3 mand1 name 檢索mand2 name 退出流程圖：新增代碼如下Private Sub Command1_Click()If ( = 儀器設(shè)備編號) Or ( = 儀器設(shè)備名稱) Or ( = 采購人) Or ( = 出產(chǎn)廠家) Then = select * from cginfo where (cginfo. amp。)Exit SubEnd IfIf = 領(lǐng)取人 Or = 領(lǐng)取單位 Then = select as 儀器設(shè)備編號,名稱 as 儀器設(shè)備名稱, as 采購人,cginfo. 出產(chǎn)廠家 as 出產(chǎn)廠家,日期 as 出廠日期 , as 金額, as 采購日期, as 采購數(shù)量 from cginfo,tzinfo where (=) and (tzinfo. amp。)Exit SubEnd IfIf = 使用情況 Or = 維修記錄 Then = select as 儀器設(shè)備編號,名稱 as 儀器設(shè)備名稱, as 采購人,cginfo. 出產(chǎn)廠家 as 出產(chǎn)廠家,日期 as 出廠日期 , as 金額, as 采購日期, as 采購數(shù)量 from cginfo,wxinfo where (=) and (wxinfo. amp。)Exit SubEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() (儀器設(shè)備編號) (儀器設(shè)備的名稱) (采購人) (出產(chǎn)廠家) (使用情況) (維修記錄)End Sub另 form4 為儀器設(shè)備配件登錄的窗體，實現(xiàn)方法同 form3（儀器設(shè)備信息登記） ，form7 的主要作用是配件信息維護，實現(xiàn)方法同 form6（儀器設(shè)備信息維護） 。結(jié)束語正值論文完成之際，謹(jǐn)向所有曾給予我指導(dǎo)、鼓勵、支持、幫助、關(guān)心和理解的老師、同學(xué)以及朋友表示深深的謝意！首先感謝我的畢業(yè)設(shè)計指導(dǎo)老師！在他的精心幫助，細(xì)致的指導(dǎo)和言傳身教下，我的開發(fā)軟件的能力和獨立思考的能力得到系統(tǒng)的鍛煉和很大的提高，使得本文得以順利完成。+39。+39。+39。 User Id=admin。 Data Source=。 amp。分別如下幾個圖所示： 儀器設(shè)備入庫：使用與維護：接受數(shù)據(jù)采購管理維修管理 信息查詢 退出系統(tǒng)儀器設(shè)備采購儀器設(shè)備名稱設(shè)備編號采購人采購日期生產(chǎn)廠家生產(chǎn)日期購入數(shù)量金額使用與維護設(shè)備名稱設(shè)備編號 維修次數(shù)使用情況（良/差）維修費用維修記錄儀器設(shè)備配件：本儀器設(shè)備管理系統(tǒng)功能需求可以用二層的 IDEF0 圖來表示。輔助軟件配置：Wiondows202Office202visual 。為了美化系統(tǒng)界面，本系統(tǒng)加上一個圖片在主界面上。世界經(jīng)濟發(fā)展已進入一個激烈競爭的年代，可以說，誰先獲得信息，誰就有可能抓住發(fā)展經(jīng)濟的機遇。某些使用儀器設(shè)備管理系統(tǒng)的單位，對儀器設(shè)備的跟蹤信息即使能體現(xiàn)在儀器設(shè)備檔案上，但儀器設(shè)備的缺陷處理及儀器設(shè)備缺陷等功能沒有實施。 Visual Basic 語言簡單易學(xué)，只要稍有語言基礎(chǔ)就可以很快的掌握并進而精通。畢業(yè)論文儀器設(shè)備管理系統(tǒng)的設(shè)計與開發(fā)【摘要】本文以某儀器設(shè)備管理為例，對儀器設(shè)備管理系統(tǒng)的設(shè)計與應(yīng)用進行研究，旨在通過儀器設(shè)備管理系統(tǒng)提高內(nèi)部儀器設(shè)備的利用率及實現(xiàn)其最大的經(jīng)濟效益。可視化的用戶界面設(shè)計功能，把程序設(shè)計人員從繁瑣復(fù)雜的截面設(shè)計中解脫出來；可視化編程環(huán)境的“所見即所得（WYSIWYG） ”功能，是界面設(shè)計如積木游戲一般，編程變成了一種享受；強大的多媒體功能可輕而易舉地開發(fā)出集聲音，動畫，影像和圖片于一體的多媒體應(yīng)用程序；新增的網(wǎng)絡(luò)功能提供了編寫 Inter 程序的能力。整個教學(xué)儀器設(shè)備管理信息化仍處于較低水平。同樣，誰能很好地管理和利用信息，誰就有可能占領(lǐng)市場，獲得效益。系統(tǒng)的整體結(jié)構(gòu)如下：信息錄入流程圖：儀器設(shè)備管理系統(tǒng)儀器設(shè)備采購管理維修與使用管理儀器設(shè)備配件管理退出系統(tǒng)下面分別論述本系統(tǒng)的各個功能模塊的作用：（1）儀器設(shè)備采購管理：本應(yīng)用模塊的主要功能是實現(xiàn)對儀器設(shè)備的入庫管理工作，包括記錄添加、編輯、刪除等操作。5．1．系統(tǒng)、可行性分析 可靠性分析概述 可靠性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進行的，對新系統(tǒng)的開發(fā)從社會、技術(shù)、經(jīng)濟、管理等方面進行分析，并得出新系統(tǒng)的開發(fā)工作可行、不可行，最后完成可行性分析。圖下圖是第一層 IDEF0 圖，它表示該系統(tǒng)所需要完成的四大功能：儀器設(shè)備基礎(chǔ)信息管理、儀器設(shè)備配件管理、儀器設(shè)備維修管理功能。 TimeEnd SubPrivate Sub Form_Load()(2).Text = 歡迎使用儀器設(shè)備管理系統(tǒng)End SubPrivate Sub u2_Click()EndEnd SubPrivate Sub xx1_Click()End SubPrivate Sub xx2_Click()End SubPrivate Sub yy1_Click()End SubPrivate Sub yy2_Click()End SubPrivate Sub yy3_Click()End Sub下面介紹儀器設(shè)備管理系統(tǒng)的其他模塊的制作步驟：form3 的創(chuàng)建，單擊添加窗體，得到一個窗體 form3，在屬性欄 caption 里面輸○ 1入新增儀器設(shè)備入庫，在窗體中放置 7 個 label 控件，7 個 text 控件，二個mand 控件，二個 dtpicker，并分別輸入相應(yīng)的屬性值。 amp。 amp。 + + 39。 + + 39。 + + 39。感謝和我系機房的管理人員及教師，為我們畢業(yè)設(shè)計安排了理想的環(huán)境及儀器設(shè)備，為我們的畢業(yè)設(shè)計的實際完成提供了可能。%39。%39。%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)) ThenIf Then = Left(, Len() 1)MsgBox 儀器設(shè)備編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入!!!, , 提示End IfEnd SubPrivate Sub Text2_GotFocus() select * from cginfo where 儀器設(shè)備編號= + Trim(), conn, adOpenKeyset, adLockOptimisticIf Then MsgBox 沒有此儀器設(shè)備！, , 提示Else = rs(儀器設(shè)備的名稱 )End IfEnd 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ù)據(jù)可能含有非法字符 ,請重新輸入!!!, , 提示End IfEnd Sub③窗體 form6，在屬性欄 caption 里面輸入儀器設(shè)備信息查詢維護，在窗體中放置 1 個datagrid 控件，1 個 text 控件，4 個 mand 控件 , 1 個 adodc ，并分別輸入相應(yīng)的屬性值。 amp。If = Then39。5．2．3．整個管理系統(tǒng)的流程圖設(shè)備配件