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