【正文】 屬性 屬性值datagrid endabled .f.adodc namemand1 name 檢索mand2 name 退出mand3 name 刪除當(dāng)前修改mand4 name 保存當(dāng)前修改流程圖：新增代碼如下：Private Sub Command1_Click()If = ThenMsgBox 請(qǐng)輸入儀器設(shè)備編號(hào)Exit SubEnd If = select * from cginfo where 儀器設(shè)備編號(hào)= + End SubPrivate Sub Command2_Click()Unload MeEnd SubNY開(kāi)始查找/修改/刪除記錄是否繼續(xù)退出Private Sub Command3_Click()Dim myval As Stringmyval = MsgBox(是否確定刪除該記錄, vbYesNo)If myval = vbYes ThenEnd IfEnd SubPrivate Sub Command4_Click()Dim myval As Stringmyval = MsgBox(是否保存已經(jīng)修改的記錄, vbYesNo)If myval = vbYes ThenEnd 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 Sub④窗體 form8 在屬性欄 caption 里面輸入儀器設(shè)備使用維修信息維護(hù)，在窗體中放置 1個(gè) datagrid 控件，1 個(gè) text 控件，4 個(gè) mand 控件 , 1 個(gè) adodc ，并分別輸入相應(yīng)的屬性值儀器設(shè)備使用維修信息維護(hù)：控件名 屬性 屬性值datagrid endabled .f.adodc namemand1 name 檢索mand2 name 退出mand3 name 刪除當(dāng)前修改mand4 name 保存當(dāng)前修改流程圖：新增代碼如下：Private Sub Command1_Click()If = ThenMsgBox 請(qǐng)輸入儀器設(shè)備編號(hào), , 提示Exit SubEnd If = select * from wxinfo where 儀器設(shè)備編號(hào)= + End SubPrivate Sub Command2_Click()Unload MeNY開(kāi)始使用維修信息維護(hù)是否繼續(xù)退出End SubPrivate Sub Command3_Click()Dim myval As Stringmyval = MsgBox(是否確定刪除該記錄, vbYesNo, 提示)If myval = vbYes ThenEnd IfEnd SubPrivate Sub Command4_Click()Dim myval As Stringmyval = MsgBox(是否保存已經(jīng)修改的記錄, vbYesNo, 提示)If myval = vbYes ThenEnd 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 Sub⑤窗體 form9 在屬性欄 caption 里面輸入儀器設(shè)備信息查詢(xún)，在窗體中放置 3 個(gè)datagrid 控件，1 個(gè) text 控件，2 個(gè) mand 控件 , 3 個(gè) adodc ，1 個(gè) bo1 并分別輸入相應(yīng)的屬性值儀器設(shè)備信息查詢(xún)?nèi)缦拢嚎丶? 屬性 屬性值datagrid1 endabled .f. datagrid2 endabled .f.datagrid3 endabled .f.bo1 rowsource 儀器設(shè)備編號(hào)，儀器設(shè)備名稱(chēng)，采購(gòu)人，出產(chǎn)廠家，領(lǐng)取人，領(lǐng)取單位，使用情況，維修記錄 adodc1adodc2adodc3 mand1 name 檢索mand2 name 退出流程圖：新增代碼如下Private Sub Command1_Click()If ( = 儀器設(shè)備編號(hào)) Or ( = 儀器設(shè)備名稱(chēng)) Or ( = 采購(gòu)人) Or ( = 出產(chǎn)廠家) Then = select * from cginfo where (cginfo. amp。 Like+ 39。+39。+39。) = select as 儀器設(shè)備編號(hào),名稱(chēng) as 儀器設(shè)備名稱(chēng) , as 使用情況 , as 維修記錄, as 維修日期 , as 維修費(fèi)用 from cginfo,wxinfo where NY開(kāi)始設(shè)置查詢(xún)信息顯示查詢(xún)結(jié)果是否繼續(xù)退出(=) and (cginfo. amp。 Like+ 39。+39。+39。)Exit SubEnd IfIf = 領(lǐng)取人 Or = 領(lǐng)取單位 Then = select as 儀器設(shè)備編號(hào),名稱(chēng) as 儀器設(shè)備名稱(chēng), 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。 Like+ 39。+39。+39。) = select as 儀器設(shè)備編號(hào),名稱(chēng) as 儀器設(shè)備名稱(chēng) , as 使用情況 , as 維修記錄, as 維修日期, as 維修費(fèi)用 from tzinfo,wxinfo where (=wxinfo. 儀器設(shè)備編號(hào)) and (tzinfo. amp。 Like+ 39。+39。+39。)Exit SubEnd IfIf = 使用情況 Or = 維修記錄 Then = select as 儀器設(shè)備編號(hào),名稱(chēng) as 儀器設(shè)備名稱(chēng), 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。 Like+ 39。+39。+39。) = select * from wxinfo where (wxinfo. amp。 Like+ 39。+39。+39。)Exit SubEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() (儀器設(shè)備編號(hào)) (儀器設(shè)備的名稱(chēng)) (采購(gòu)人) (出產(chǎn)廠家) (使用情況) (維修記錄)End Sub另 form4 為儀器設(shè)備配件登錄的窗體，實(shí)現(xiàn)方法同 form3（儀器設(shè)備信息登記） ，form7 的主要作用是配件信息維護(hù)，實(shí)現(xiàn)方法同 form6（儀器設(shè)備信息維護(hù)） 。由于軟件比較小，所以沒(méi)必要像大型系統(tǒng)一樣來(lái)測(cè)試。在這一軟件的測(cè)試中，我們直接采用系統(tǒng)測(cè)試來(lái)完成。（2）系統(tǒng)的使用方便，系統(tǒng)任何截面都全中文顯示，友好和可預(yù)見(jiàn)性的界面，及時(shí)的提示，讓用戶(hù)能很快的掌握操作方法。數(shù)據(jù)庫(kù)的引入，不僅使本系統(tǒng)便于維護(hù)，而且，使得系統(tǒng)高效實(shí)用，無(wú)須了解系統(tǒng)的運(yùn)行體制和內(nèi)部結(jié)構(gòu)，就能掌握要領(lǐng)，運(yùn)用自如。（5）可方便地按照各種查詢(xún)條件查詢(xún)得到相關(guān)數(shù)據(jù)，系統(tǒng)還支持模糊查詢(xún)，你只需輸入其中所包含的任意字符即可查詢(xún)得到相關(guān)的數(shù)據(jù)信息。結(jié)束語(yǔ)正值論文完成之際，謹(jǐn)向所有曾給予我指導(dǎo)、鼓勵(lì)、支持、幫助、關(guān)心和理解的老師、同學(xué)以及朋友表示深深的謝意！首先感謝我的畢業(yè)設(shè)計(jì)指導(dǎo)老師！在他的精心幫助，細(xì)致的指導(dǎo)和言傳身教下，我的開(kāi)發(fā)軟件的能力和獨(dú)立思考的能力得到系統(tǒng)的鍛煉和很大的提高，使得本文得以順利完成。感謝同機(jī)房的其他同學(xué)，在設(shè)計(jì)時(shí)給予的無(wú)私幫助和真誠(chéng)的關(guān)心！參考文獻(xiàn) 《大學(xué) VB 程序設(shè)計(jì)實(shí)踐教程》 人民郵電出版社 主編：沈建蓉 《應(yīng)用程序設(shè)計(jì)編制 Visual 職業(yè)技能培訓(xùn)教程》 北京希望電子出版社 主編：?jiǎn)钨F