【正文】 MsgBox 已經(jīng)全部刪除！ 錯誤： amp。 Err amp。 ， amp。 , 0, 提示 Unload Me End IfEnd SelectEnd Sub③產(chǎn)品入庫窗體如下：圖63 產(chǎn)品入庫窗體產(chǎn)品入庫代碼設(shè)計：Private Sub Command1_Click()If Val() = 0 Then MsgBox 請輸入入庫數(shù)量！ Exit SubEnd IfIf = Then MsgBox 請選擇入庫材料名稱！ Exit SubEnd IfIf = Then MsgBox 請選擇經(jīng)手人！ Exit SubEnd IfDim a As Integer a = MsgBox(********你確定此操作嗎？********** amp。 vbCrLf _ amp。 材料名稱： amp。 amp。 vbCrLf _ amp。 原庫存量： amp。 amp。 amp。 vbCrLf _ amp。 本次入庫： amp。 amp。 amp。 單價： amp。 amp。 元 amp。 vbCrLf _ amp。 供應(yīng)商： amp。 amp。 vbCrLf _ amp。 經(jīng)手人： amp。 amp。 vbCrLf _ , vbExclamation + vbOKCancel + vbApplicationModal, 提示)If a = 1 Then (名稱) = (供應(yīng)商) = (數(shù)量) = (單價) = (經(jīng)手) = (日期) = Date (時間) = Time = 39。************************ (數(shù)量) = Val() + Val() MsgBox 入庫成功！ 39。 = TrueEnd IfIf a = 2 Then Exit SubEnd Sub④查詢打印窗體如下：圖64 查詢打印窗體查詢打印代碼設(shè)計：查詢部分：Private Sub asPopup1_Click(Cancel As Boolean)If adStateClosed Then End If (Command2).Parameters(0) = CStr() (Command2).Parameters(1) = CStr() = Command2 Set = DataEnvironment1End Sub打印部分：Private Sub asPopup11_Click(Cancel As Boolean)If adStateClosed Then End If (Command2).Parameters(0) = CStr() (Command2).Parameters(1) = CStr() = Command2 Set = DataEnvironment1(2).Controls(Label13).Caption = 開始時間: amp。 CStr()(2).Controls(Label14).Caption = 結(jié)束時間: amp。 CStr()End Sub第七章 程序安裝與調(diào)試7．1 調(diào)試系統(tǒng)調(diào)試的目的是發(fā)現(xiàn)程序和系統(tǒng)中的錯誤并及時予以糾正。在一個系統(tǒng)中調(diào)試應(yīng)該包括程序調(diào)試、功能調(diào)試（分調(diào)）、總調(diào)，在庫存管理系統(tǒng)中用的調(diào)試方法也包括這些：1． 程序調(diào)試包括語法調(diào)試和邏輯檢查，測試數(shù)據(jù)除采用正常數(shù)據(jù)外，還應(yīng)用一些異常資料，用來考驗程序的正確性。① 用正常資料調(diào)試。② 用異常資料調(diào)試。③ 用錯誤資料調(diào)試。2．分調(diào)即將一個功能內(nèi)所有程序按次序串聯(lián)起來調(diào)試。 3．總調(diào)將主控制調(diào)度程序和功能模塊聯(lián)結(jié)起來調(diào)試。7．2測試測試是系統(tǒng)開發(fā)周期中一個十分重要的階段，其重要性體現(xiàn)在它是保證系統(tǒng)質(zhì)量與可靠性的最后關(guān)口，是對整個系統(tǒng)開發(fā)過程的最終審查，如果錯誤不能在測試階段被發(fā)現(xiàn)并糾正，就會造成不堪設(shè)想的后果。在庫存管理系統(tǒng)中測試的對象不僅僅是源程序，而是整個軟件。系統(tǒng)測試是以找錯誤為目的，不是要證明程序無錯，而是要精心選取那些易于發(fā)生錯誤的測試數(shù)據(jù)，以十分挑剔的態(tài)度，證明程序有錯。在開發(fā)庫存管理系統(tǒng)中，所用到的測試方法有人工測試和機器測試。在人工測試中用的是個人復(fù)查，即當(dāng)源程序編完以后，由自己進行檢查，但這種測試方法存在不足之處：由于心理上對自己程序的偏愛，因此有些習(xí)慣性的錯誤不易發(fā)現(xiàn)，如果對功能理解有誤，自己也不易糾正，所以在個人復(fù)查的基礎(chǔ)上又用了機器測試中的白盒測試和黑盒測試。(1) 白盒測試：也稱結(jié)構(gòu)測試，將軟件看作一個透明的白盒子，按照程序的內(nèi)部結(jié)構(gòu)和處理邏輯來選定測試用例，對軟件的邏輯路徑及過程進行測試，檢查它與設(shè)計是否符。在進行白盒測試時，開發(fā)者對其軟件進行測試，在完全了解系統(tǒng)功能、內(nèi)部結(jié)構(gòu)的前提下對系統(tǒng)進行測試，看實現(xiàn)的功能與想要實現(xiàn)的設(shè)計有什么沖突不符，并及時改正。(2) 黑盒測試：也稱功能測試，將軟件看作黑盒子，在完全不考慮程序的內(nèi)部結(jié)構(gòu)和特性的情況下，測試軟件的外部特性，根據(jù)軟件的需求規(guī)格說明書設(shè)計測試用例，從程序的輸入和輸出特性上測試是否滿足設(shè)定的功能。在進行黑盒測試時，開發(fā)者以使用者的身份對其軟件進行測試，多次輸入符合條件的數(shù)據(jù)，看結(jié)果是否與預(yù)期相符，如果相符則說明程序?qū)斎氲臈l件反映正確，如果不符則說明程序有錯，所以這種黑盒測試只能證明程序有錯而不能證明程序無錯。結(jié)束語通過這次畢業(yè)設(shè)計，我掌握了Accesss數(shù)據(jù)庫的編程方法，掌握了Visual Basic企業(yè)版視化面向?qū)ο蟮木幊陶Z言的使用方法。對目前流行的軟件開發(fā)方法和手段，有了一定的認識，豐富了軟件開發(fā)的經(jīng)驗，提高了編制程序的水平，加深理解了許多課程中、書本上學(xué)到的知識和理論。同時通過編寫畢業(yè)設(shè)計論文，我還掌握了軟件文檔的書寫方法和書寫格式。因為初次開發(fā)一個系統(tǒng)，所以此系統(tǒng)還有許多不完善的地方。由于時間有限，和本人的編程水平和經(jīng)驗不足，有些功能并沒有完全實現(xiàn)，有些功能實現(xiàn)的并不理想。在已經(jīng)完成的程序中，也存在許多不盡人意的算法和數(shù)據(jù)結(jié)構(gòu)。而這也讓我充分認識到了軟件編制的困難程度。對軟件的編制速度，復(fù)雜程度有了充分的認識。在這次畢業(yè)設(shè)計中，我要特別感謝XXXXX大學(xué)教師，在他們的大力幫助下不僅僅是完成了此系統(tǒng)的開發(fā)而且學(xué)會了一門編程語言，使我的能力得到了提高。參考文獻1．王福成. Visual Basic . 北京:清華大學(xué)出版社, 2000 2．,．Visual 數(shù)據(jù)庫開發(fā) 清華大學(xué)出版社 ，1999 David Sceppa．ADO 編程技術(shù)．清華大學(xué)出版社，2001．信息系統(tǒng)開發(fā)．經(jīng)濟科學(xué)出版社，2000．管理信息系統(tǒng)．經(jīng)濟科學(xué)出版社，2000．Visual Basic ．人民郵電出版社，2001 Brierley,AnthonyPrince,David Rinaldi．Visual Basic 6 開發(fā)人員指南．機械工業(yè)出版社，1999．中文版Visual Basic 控件高級編程．人民郵電出版社，2002．Visual Basic ．清華大學(xué)出版社，2001 ,Jeff Kent．Visual Basic 程序調(diào)試實用手冊．電子工業(yè)出版社，200211．馬仁洪．長途客運微機售票綜合管理系統(tǒng)的開發(fā)和應(yīng)用．交通部計算機應(yīng)用信息網(wǎng)十周年網(wǎng)慶征文 P40~P4612．吳業(yè)福．一個輪船微機售票系統(tǒng)的開發(fā)．交通與計算機，1996年12月刊第6期第14卷