【正文】 新增儀器設(shè)備模塊的代碼設(shè)計form3的創(chuàng)建，單擊添加窗體，得到一個窗體 form3，在屬性欄 caption里面輸入新增儀器設(shè)備入庫，在窗體中放置 7個 label控件，7 個 text控件，二個 mand控件，二個 dtpicker，并分別輸入相應(yīng)的屬性值。39。MsgBox 請輸入儀器設(shè)備采購日期39。 amp。 amp。If = Then39。End IfIf = ThenMsgBox 請輸入維修費用,若無費用,則請輸入 0, , 提示Exit SubEnd IfIf = ThenMsgBox 請輸入儀器設(shè)備名稱, , 提示Exit SubEnd If 儀器設(shè)備信息查詢的代碼設(shè)計窗體 form9在屬性欄 caption里面輸入儀器設(shè)備信息查詢，在窗體中放置3個 datagrid控件，1 個 text控件，2 個 mand控件 , 3個 adodc ，1 個bo1并分別輸入相應(yīng)的屬性值新增代碼如下Private Sub Command1_Click()If ( = 儀器設(shè)備編號) Or ( = 儀器設(shè)備名稱30) Or ( = 采購人) Or ( = 出產(chǎn)廠家) Then = select * from cginfo where (cginfo. amp。+39。) = select as 儀器設(shè)備編號, as 儀器設(shè)備名稱 , as 使用情況, as 維修記錄, as 維修日期,用 as 維修費用 from cginfo,wxinfo where (=cginfo.儀器設(shè)備編號) and (cginfo. amp。+39。)Exit SubEnd IfIf = 領(lǐng)取人 Or = 領(lǐng)取單位 Then = select as 儀器設(shè)備編號, as 儀器設(shè)備名稱, as 采購人,產(chǎn)廠家 as 出產(chǎn)廠家, as 出廠日期, as 金額, as 采購日期, as 采購數(shù)量 from cginfo,tzinfo where (=) and (tzinfo. amp。+39。) = select as 儀器設(shè)備編號, as 儀器設(shè)備名稱 , as 使用情況, as 維修記錄, as 維修日期,用 as 維修費用 from tzinfo,wxinfo where (=wxinfo.儀器設(shè)備編號) and (tzinfo. amp。+39。)Exit Sub31End 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。+39。)第五章 系統(tǒng)測試與總結(jié)系統(tǒng)的測試是通過一些真實數(shù)據(jù)來測試軟件設(shè)計和編碼的錯誤。我們以某一個學(xué)校為例：在新增設(shè)備模塊中輸入清華同方電腦、移動電話的相關(guān)信息，按照要求填寫清楚，填寫完畢之后回到儀器設(shè)信息維護模塊中查看設(shè)備信息是否存在以及是否能夠進行修改。（2）系統(tǒng)的使用方便，系統(tǒng)任何截面都全中文顯示，友好和可預(yù)見性的界面，及時的提示，讓用戶能很快的掌握操作方法。（5）可方便地按照各種查詢條件查詢得到相關(guān)數(shù)據(jù)，系統(tǒng)還支持模糊查詢，你只需輸入其中所包含的任意字符即可查詢得到相關(guān)的數(shù)據(jù)信息。此系統(tǒng)初步具備實際使用的能力。頁面需進一步美化。[4] 盧國俊， 《VB6 數(shù)據(jù)庫開發(fā)》 ，電子工業(yè)出版社，2022。[8] 陸麗娜， 《軟件工程》 ，經(jīng)濟科學(xué)出版社，2022[9]《計算機軟件產(chǎn)品開發(fā)文件編制指南》[10]《現(xiàn)代軟件工程》 周之英 編著. 科學(xué)出版社. [11]《工程應(yīng)用軟件開發(fā)技術(shù)》 唐任仲 編著. 化學(xué)工業(yè)出版社. [12]《Visual Basic 中文版 參考詳解》 李懷明 等著. 清華大學(xué)出版社. [13]《Visual Basic 高級編程技巧》 李善茂 等著. 電子工業(yè)出版社. [14]《Visual Basic 中文版 提高與應(yīng)用》 譚浩強 主編. 電子工業(yè)出版社. 36畢業(yè)設(shè)計（論文）原創(chuàng)性聲明和使用授權(quán)說明原創(chuàng)性聲明本人鄭重承諾：所呈交的畢業(yè)設(shè)計（論文），是我個人在指導(dǎo)教師的指導(dǎo)下進行的研究工作及取得的成果。作者簽名：　　 　 　　 日　 期：　　 　 　　 37學(xué)位論文原創(chuàng)性聲明本人鄭重聲明：所呈交的論文是本人在導(dǎo)師的指導(dǎo)下獨立進行研究所取得的研究成果。作者簽名： 日期： 年 月 日學(xué)位論文版權(quán)使用授權(quán)書本學(xué)位論文作者完全了解學(xué)校有關(guān)保留、使用學(xué)位論文的規(guī)定，同意學(xué)校保留并向國家有關(guān)部門或機構(gòu)送交論文的復(fù)印件和電子版，允許論文被查閱和借閱。首先非常感謝學(xué)校開設(shè)這個課題，為本人日后從事計算機方面的工作提供了經(jīng)驗，奠定了基礎(chǔ)。這期間凝聚了很多人的心血，在此我表示由衷的感謝。從他身上，我學(xué)到了許多能受益終生的東西。最后，我要感謝我的父母對我的關(guān)系和理解，如果沒有他們在我的學(xué)習(xí)生涯中的無私奉獻和默默支持，我將無法順利完成今天的學(xué)業(yè)。感謝老師四年來對我孜孜不倦的教誨，對我成長的關(guān)心和愛護。最后，我要特別感謝我的導(dǎo)師劉望蜀老師、和研究生助教吳子儀老師。在論文的撰寫過程中老師們給予我很大的幫助，幫助解決了不少的難點，使得論文能夠及時完成，這里一并表示真誠的感謝。老師們認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。四年的風(fēng)風(fēng)雨雨，我們一同走過，充滿著關(guān)愛，給我留下了值得珍藏的最美好的記憶。從這里走出，對我的人生來說，將是踏上一個新的征程，要把所學(xué)的知識應(yīng)用到實際工作中去。其次，我要感謝大學(xué)四年中所有的任課老師和輔導(dǎo)員在學(xué)習(xí)期間對我的嚴(yán)格要求，感謝他們對我學(xué)習(xí)上和生活上的幫助，使我了解了許多專業(yè)知識和為人的道理，能夠在今后的生活道路上有繼續(xù)奮斗的力量。首先，我要特別感謝我的知道郭謙功老師對我的悉心指導(dǎo)，在我的論文書寫及設(shè)計過程中給了我大量的幫助和指導(dǎo)，為我理清了設(shè)計思路和操作方法，并對我所做的課題提出了有效的改進方案。本次畢業(yè)設(shè)計是對我大學(xué)四年學(xué)習(xí)下來最好的檢驗。涉密論文按學(xué)校規(guī)定處理。對本文的研究做出重要貢獻的個人和集體，均已在文中以明確方式標(biāo)明。對本研究提供過幫助和做出過貢獻的個人或集體，均已在文中作了明確的說明并表示了謝意。[6] 伍俊良， 《 課程設(shè)計案例精編》 ，中國水利水電出版社，2022。數(shù)據(jù)庫方面，設(shè)計方面也存在也一些后期發(fā)現(xiàn)的設(shè)計上的錯誤，34第七章 致 謝正值論文完成之際，謹(jǐn)向所有曾給予我指導(dǎo)、鼓勵、支持、幫助、關(guān)心和理解的老師、同學(xué)以及朋友表示深深的謝意！首先感謝我的畢業(yè)設(shè)計指導(dǎo)老師！在他的精心幫助，細(xì)致的指導(dǎo)和言傳身教下，我的開發(fā)軟件的能力和獨立思考的能力得到系統(tǒng)的鍛煉和很大的提高，使得本文得以順利完成。在調(diào)研階段，搜集的信息不充足，對應(yīng)實際情況了解不足。33第六章 結(jié)束語 儀器設(shè)備管理系統(tǒng)是一個將企業(yè)設(shè)備管理及作為核心，是一個信息服務(wù)系統(tǒng)，它集先進的計算機技術(shù)與軟件開發(fā)理論于一身，適應(yīng)當(dāng)今管理信息系統(tǒng)的開發(fā)需求。數(shù)據(jù)庫的引入，不僅使本系統(tǒng)便于維護，而且，使得系統(tǒng)高效實用，無須了解系統(tǒng)的運行體制和內(nèi)部結(jié)構(gòu)，就能掌握要領(lǐng)，運用自如。打開儀器設(shè)備信息查詢模塊中，輸入 114 進行檢索，查看信息中有清華同方電腦的信息則說明系統(tǒng)可運行。比如大型系統(tǒng)需要分模塊測試，子系統(tǒng)測試，系統(tǒng)測試等。+39。 Like+ 39。+39。 Like+ 39。+39。 Like+ 39。+39。 Like+ 39。+39。 Like+ 39。39。End 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è)備金額輸入錯誤,你所輸入的數(shù)據(jù)可能含有非法字符,請重新輸入!!!), , 提示End IfEnd Sub 儀器設(shè)備使用與維修登記的代碼設(shè)計窗體 form5，在屬性欄 caption里面輸入儀器設(shè)備使用與維修登記，在窗體中放置 6個 label控件，5 個 text控件，2 個 mand控件 , 1個 bol ，并分別輸入相應(yīng)的屬性值。 amp。Exit Sub39。End IfIf = ThenMsgBox 請輸入儀器設(shè)備金額, , 提示Exit SubEnd If39。If = Then39。Private Sub Form_Resize() = ( ) / 2 = / 2End SubPrivate Sub Timer1_Timer()(1).Text = Format(Date, long date) amp。如圖：（3）在菜單編輯器中的標(biāo)題欄內(nèi)輸入菜單項目[儀器設(shè)備采購管理]，在名稱欄內(nèi)輸入 x1，然后依次輸入新增儀器設(shè)備、儀器設(shè)備信息維護、儀器設(shè)備維修與使用管理、信息查詢、退出管理等菜單項，單擊確定按鈕，菜單即可編輯完成。菜單欄主要通過 VB中工具菜單項下的菜單編輯器進行設(shè)計。24圖 4．2 代碼設(shè)計本軟件采用面向?qū)ο蟮?vb語言，同時結(jié)合非過程化語言 SQL編寫而成。圖 配件的查詢22查詢配件的各種信息，可對各種信息進行刪除、修改、保存等操作，保證配件的信息的完整性、正確性。（ER 表示）NY開始設(shè)置查詢信息顯示查詢結(jié)果是否繼續(xù)退出19為了使 ER 圖表示得更加清晰，現(xiàn)將 ER 圖分成實體及其屬性圖和實體及其聯(lián)系圖。（3）信息查詢：本應(yīng)用模塊集