【正文】 結(jié)束語正值論文完成之際，謹向所有曾給予我指導、鼓勵、支持、幫助、關(guān)心和理解的老師、同學以及朋友表示深深的謝意！首先感謝我的畢業(yè)設(shè)計指導老師！在他的精心幫助，細致的指導和言傳身教下，我的開發(fā)軟件的能力和獨立思考的能力得到系統(tǒng)的鍛煉和很大的提高，使得本文得以順利完成。數(shù)據(jù)庫的引入，不僅使本系統(tǒng)便于維護，而且，使得系統(tǒng)高效實用，無須了解系統(tǒng)的運行體制和內(nèi)部結(jié)構(gòu)，就能掌握要領(lǐng)，運用自如。在這一軟件的測試中，我們直接采用系統(tǒng)測試來完成。)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è)備信息維護） 。+39。) = select * from wxinfo where (wxinfo. amp。+39。)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。+39。) = select as 儀器設(shè)備編號,名稱 as 儀器設(shè)備名稱 , as 使用情況 , as 維修記錄, as 維修日期, as 維修費用 from tzinfo,wxinfo where (=wxinfo. 儀器設(shè)備編號) and (tzinfo. amp。+39。)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。+39。) = select as 儀器設(shè)備編號,名稱 as 儀器設(shè)備名稱 , as 使用情況 , as 維修記錄, as 維修日期 , as 維修費用 from cginfo,wxinfo where NY開始設(shè)置查詢信息顯示查詢結(jié)果是否繼續(xù)退出(=) and (cginfo. amp。+39。倉庫儀器設(shè)備信息維護如下：控件名 屬性 屬性值datagrid endabled .f.adodc namemand1 name 檢索mand2 name 退出mand3 name 刪除當前修改mand4 name 保存當前修改流程圖：新增代碼如下：Private Sub Command1_Click()If = ThenMsgBox 請輸入儀器設(shè)備編號Exit SubEnd If = select * from cginfo where 儀器設(shè)備編號= + End SubPrivate Sub Command2_Click()Unload MeEnd SubNY開始查找/修改/刪除記錄是否繼續(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è)備編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入 !!!)End IfEnd Sub④窗體 form8 在屬性欄 caption 里面輸入儀器設(shè)備使用維修信息維護，在窗體中放置 1個 datagrid 控件，1 個 text 控件，4 個 mand 控件 , 1 個 adodc ，并分別輸入相應(yīng)的屬性值儀器設(shè)備使用維修信息維護：控件名 屬性 屬性值datagrid endabled .f.adodc namemand1 name 檢索mand2 name 退出mand3 name 刪除當前修改mand4 name 保存當前修改流程圖：新增代碼如下：Private Sub Command1_Click()If = ThenMsgBox 請輸入儀器設(shè)備編號, , 提示Exit SubEnd If = select * from wxinfo where 儀器設(shè)備編號= + End SubPrivate Sub Command2_Click()Unload MeNY開始使用維修信息維護是否繼續(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è)備編號輸入錯誤,該編號僅為數(shù)字編號,請重新輸入!!!, , 提示End IfEnd Sub⑤窗體 form9 在屬性欄 caption 里面輸入儀器設(shè)備信息查詢，在窗體中放置 3 個datagrid 控件，1 個 text 控件，2 個 mand 控件 , 3 個 adodc ，1 個 bo1 并分別輸入相應(yīng)的屬性值儀器設(shè)備信息查詢?nèi)缦拢嚎丶? 屬性 屬性值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。 User Id=admin。 = = = MsgBox 數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫!, , 提示End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() = DateSet conn = New Set rs = New Provider=。MsgBox 請輸入維修日期 ,若無維修,請輸入無39。 Password=。 Data Source=。End IfIf = ThenMsgBox 請輸入采購數(shù)量 , , 提示Exit SubEnd IfIf = ThenMsgBox 請輸入儀器設(shè)備編號, , 提示Ex