【正文】 活動狀態(tài)，首先應(yīng)激活它。但需要注意的是，并非所有激活的錯誤處理程序都是活動的，例如，在Resume 語句之后，錯誤處理程序不處于活動狀態(tài)，但仍然是激活的。在有多個嵌套的過程中，如果在一個過程中出現(xiàn)錯誤，而該過程并沒有以及獲得錯誤處理程序，那么就要檢查調(diào)用帶有錯誤過程的那個過程，以便找出已經(jīng)激活但并不是活動的錯誤處理程序。這個檢查將在調(diào)用棧中連續(xù)向上進(jìn)行，直到找到一個激活但并不是活動的錯誤處理程序，或者到達(dá)調(diào)用棧的頂部，該錯誤即被視為未捕獲的錯誤。如果遇到一個已被激活但不是活動的錯誤處理程序，便執(zhí)行該錯誤處理過程,然后在包含該處理程序的過程中繼續(xù)執(zhí)行。如果錯誤處理程序的錯誤范圍不包括實際產(chǎn)生的錯誤，則在具有激活的錯誤處理程序的過程中會產(chǎn)生意想不道的錯誤。此時，過程可能會無休止的執(zhí)行下去，特別當(dāng)錯誤處理程序還執(zhí)行Resume語句的話，情況更是如此。為防止這種情況發(fā)生，可以在程序內(nèi)的Case Else語句或者Else語句中使用Err Raise方法。這實際上在錯誤處理程序內(nèi)生成一個運行期錯誤，從而迫使Visual Basic 通用調(diào)用列表繼續(xù)搜索能夠處理錯誤的處理程序。結(jié)束語　結(jié)束語經(jīng)過了兩年的學(xué)習(xí)和努力，我完成了《企業(yè)進(jìn)銷存物資管理系統(tǒng)》的設(shè)計及論文。從開始選定論文題目到系統(tǒng)的開發(fā)、軟件實現(xiàn)，再到論文文章的完成，每走一步對我來說都是新的嘗試與挑戰(zhàn)。該系統(tǒng)功能上基本符合企業(yè)需求，把企業(yè)物資進(jìn)銷存工作從物資采購計劃、工廠進(jìn)貨、物資到貨、庫存管理、物資出庫（銷售）及資金核算等一系列工作進(jìn)行計算機(jī)系統(tǒng)管理，完成以上各種信息的錄入、修改、檢索、匯總以及各類相關(guān)報表的打印。企業(yè)進(jìn)銷存物資管理系統(tǒng)從系統(tǒng)的嚴(yán)謹(jǐn)性、安全性、靈活性等方面考慮，生成一條物資鏈和資金鏈。在可視化的管理系統(tǒng)中，數(shù)據(jù)采用集中管理，分段處理辦法，在各個階段都可以明確數(shù)據(jù)處理情況，并給出一個通用的數(shù)據(jù)輸入技術(shù)，它在很大程度上提高了數(shù)據(jù)輸入的效率，并成功地解決了主關(guān)鍵字的輸入一致性問題。通過這次開發(fā)使我對Visual 和Microsoft Access 2003數(shù)據(jù)庫有了更深的了解，對數(shù)據(jù)庫管理系統(tǒng)的實施方案和客戶、服務(wù)器(C/S)網(wǎng)絡(luò)設(shè)置進(jìn)行了實踐，理解了數(shù)據(jù)庫管理系統(tǒng)在實施過程的基本步驟、數(shù)據(jù)庫管理基本常識，對我提高數(shù)據(jù)庫開發(fā)能力有很大的幫助。由于時間在短時間內(nèi)要進(jìn)行數(shù)據(jù)搜集，查看資料，調(diào)研分析，系統(tǒng)開發(fā)，編寫論文，所以我的畢業(yè)設(shè)計和論文不是很成熟，還有很多不足之處，在以后的運用中還需要在數(shù)據(jù)庫存儲效率、安全管理和資金結(jié)算方面進(jìn)行進(jìn)一步的開發(fā)，全面的提高數(shù)據(jù)庫的系統(tǒng)需求分析、系統(tǒng)設(shè)計、深入開發(fā)能力。附 錄致 謝本論文從選題到系統(tǒng)設(shè)計，論文編寫，都是在王老師的親切關(guān)懷和悉心指導(dǎo)下完成的。王老師多次詢問設(shè)計進(jìn)程，并為我指點迷津，幫助我開拓研究思路，精心點撥、熱忱鼓勵。王老師嚴(yán)肅的科學(xué)態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神，精益求精的工作作風(fēng)，深深地感染和激勵著我，對王老師的幫助和指導(dǎo)，我在此表示真摯的感謝。我在系統(tǒng)設(shè)計的整個過程中還得到了我的同事柴老師、魏老師以及許多朋友的大力指導(dǎo)和幫助，非常感謝他們，沒有他們的幫助，我的設(shè)計和論文無從著手，內(nèi)容也將會非?？斩礋o力。最后我還要感謝我的各位代課老師，是他們傳授了我知識，教育了我，以及我的班主任老師和各位指導(dǎo)老師，在此衷心的謝謝你們！參考文獻(xiàn)［1］張樹兵，戴紅，陳哲.《Visual Basic 》.［2］劉恩濤，趙耀峰.《Visual Basic 》.［3］張更路.《Visual Basic 》.［4］鄭人杰，殷人昆，陶永雷.《實用軟件工程》..［5］易福華.《Visual Basic典型系統(tǒng)實戰(zhàn)與解析》. ［6］明日科技.《Visual Basic管理信息系統(tǒng)完整項目實例剖析》..［7］張二峰，齊暉等.《Visual Basic管理信息系統(tǒng)開發(fā)畢業(yè)設(shè)計指導(dǎo)及實例》..［8］李禹生，向云柱等.《數(shù)據(jù)庫應(yīng)用技術(shù)—Access及其應(yīng)用系統(tǒng)開發(fā)》..附錄：源代碼Option ExplicitDim l As Integer Dim adoPrimaryRS As RecordsetDim u, pDim db1 As ConnectionDim mysql As StringPrivate Sub cmd_qr_Click() server_address = Set db1 = New Connection = adUseClient mysql = Provider=。Persist Security Info=False。Data Source= amp。 MyPath mysql Set adoPrimaryRS = New Recordset select * from user_set, db1, adOpenStatic, adLockOptimistic While Not u = adoPrimaryRS(user_xm) p = adoPrimaryRS(user_pw) If = u And = p Then user_name = user_limit = adoPrimaryRS(user_qx) Set adoPrimaryRS = Nothing Unload Me Exit Sub End If Wend l = l + 1 39。驗證密碼的有效性，為三次。 If l = 3 Then Unload Me Else MsgBox 您的密碼有誤，請重新輸入!, vbExclamation End If End SubPrivate Sub cmd_qx_Click() Unload MeEnd SubPrivate Sub Command3_Click()Call cmd_qr_ClickEnd SubPrivate Sub Form_Load() MakeWindow Me l = 0 MyPath = fullpath() Set db1 = New Connection = adUseClient mysql = Provider=。Persist Security Info=False。Data Source= amp。 MyPath mysql Set adoPrimaryRS = New Recordset select * from user_set, db1, adOpenStatic, adLockOptimistic While Not u = adoPrimaryRS(user_xm) u Wend = 0 Exit Suberr_1: MsgBox , vbCritical = + 1End SubPrivate Sub Form_Unload(Cancel As Integer)39。 End SubOption ExplicitPrivate Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function BringWindowToTop Lib user32 (ByVal hwnd As Long) As LongDim spath, ssource, sdest, s, sql1Private Sub MDIForm_Load() (3).Text = 當(dāng)前用戶是： amp。 user_name End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim strmsg As String strmsg = 確認(rèn)是否退出？ If MsgBox(strmsg, vbQuestion + vbOKCancel + vbDefaultButton1, 進(jìn)銷存物資管理系統(tǒng)) = vbOK Then Cancel = False End Else Cancel = True End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 入庫登記 Case 入庫信息 Case 庫存信息 Case 出庫登記 Case 出庫信息 If user_limit = 系統(tǒng)管理員 Then 39。驗證用戶。 Else MsgBox 對不起，你無權(quán)進(jìn)入！, vbInformation, 進(jìn)銷存物資管理系統(tǒng) End If Case 用戶管理 If user_limit = 系統(tǒng)管理員 Then 39。驗證用戶。 vbModal Else MsgBox 對不起，你無權(quán)進(jìn)入！, vbInformation, 進(jìn)銷存物資管理系統(tǒng) End If Case 退出 Unload Me End SelectEnd SubPrivate Sub 出庫登記_Click() End SubPrivate Sub 入庫信息_Click() End SubPrivate Sub 數(shù)據(jù)備份_Click()Dim i As String On Error Resume Next With cdlog1 .DialogTitle = 數(shù)據(jù)備份 .InitDir = .filename = .Filter = (數(shù)據(jù)庫)*.bak|*.mdb .CancelError = True .ShowSave i = .filename End With MsgBox 數(shù)據(jù)備份成功！, vbInformation Set conn = Nothing End If Exit Subsjbf_error: If Err = 70 Then MsgBox 數(shù)據(jù)庫正在使用，請關(guān)閉所有數(shù)據(jù)窗口，從新開始備份, vbExclamation Else MsgBox , vbExclamation End IfEnd SubPrivate Sub 用戶管理_Click() If user_limit = 系統(tǒng)管理員 Then 39。驗證用戶。 vbModal Else MsgBox 對不起，你無權(quán)進(jìn)入！, vbInformation, 進(jìn)銷存物資管理系統(tǒng) End IfEnd Sub