張莉企業進銷存物資管理系統論文-資料下載頁

　　

【正文】 活動狀態，首先應激活它。但需要注意的是，并非所有激活的錯誤處理程序都是活動的，例如，在Resume 語句之后，錯誤處理程序不處于活動狀態，但仍然是激活的。在有多個嵌套的過程中，如果在一個過程中出現錯誤，而該過程并沒有以及獲得錯誤處理程序，那么就要檢查調用帶有錯誤過程的那個過程，以便找出已經激活但并不是活動的錯誤處理程序。這個檢查將在調用棧中連續向上進行，直到找到一個激活但并不是活動的錯誤處理程序，或者到達調用棧的頂部，該錯誤即被視為未捕獲的錯誤。如果遇到一個已被激活但不是活動的錯誤處理程序，便執行該錯誤處理過程,然后在包含該處理程序的過程中繼續執行。如果錯誤處理程序的錯誤范圍不包括實際產生的錯誤，則在具有激活的錯誤處理程序的過程中會產生意想不道的錯誤。此時，過程可能會無休止的執行下去，特別當錯誤處理程序還執行Resume語句的話，情況更是如此。為防止這種情況發生，可以在程序內的Case Else語句或者Else語句中使用Err Raise方法。這實際上在錯誤處理程序內生成一個運行期錯誤，從而迫使Visual Basic 通用調用列表繼續搜索能夠處理錯誤的處理程序。結束語　結束語經過了兩年的學習和努力，我完成了《企業進銷存物資管理系統》的設計及論文。從開始選定論文題目到系統的開發、軟件實現，再到論文文章的完成，每走一步對我來說都是新的嘗試與挑戰。該系統功能上基本符合企業需求，把企業物資進銷存工作從物資采購計劃、工廠進貨、物資到貨、庫存管理、物資出庫（銷售）及資金核算等一系列工作進行計算機系統管理，完成以上各種信息的錄入、修改、檢索、匯總以及各類相關報表的打印。企業進銷存物資管理系統從系統的嚴謹性、安全性、靈活性等方面考慮，生成一條物資鏈和資金鏈。在可視化的管理系統中，數據采用集中管理，分段處理辦法，在各個階段都可以明確數據處理情況，并給出一個通用的數據輸入技術，它在很大程度上提高了數據輸入的效率，并成功地解決了主關鍵字的輸入一致性問題。通過這次開發使我對Visual 和Microsoft Access 2003數據庫有了更深的了解，對數據庫管理系統的實施方案和客戶、服務器(C/S)網絡設置進行了實踐，理解了數據庫管理系統在實施過程的基本步驟、數據庫管理基本常識，對我提高數據庫開發能力有很大的幫助。由于時間在短時間內要進行數據搜集，查看資料，調研分析，系統開發，編寫論文，所以我的畢業設計和論文不是很成熟，還有很多不足之處，在以后的運用中還需要在數據庫存儲效率、安全管理和資金結算方面進行進一步的開發，全面的提高數據庫的系統需求分析、系統設計、深入開發能力。附 錄致 謝本論文從選題到系統設計，論文編寫，都是在王老師的親切關懷和悉心指導下完成的。王老師多次詢問設計進程，并為我指點迷津，幫助我開拓研究思路，精心點撥、熱忱鼓勵。王老師嚴肅的科學態度，嚴謹的治學精神，精益求精的工作作風，深深地感染和激勵著我，對王老師的幫助和指導，我在此表示真摯的感謝。我在系統設計的整個過程中還得到了我的同事柴老師、魏老師以及許多朋友的大力指導和幫助，非常感謝他們，沒有他們的幫助，我的設計和論文無從著手，內容也將會非常空洞無力。最后我還要感謝我的各位代課老師，是他們傳授了我知識，教育了我，以及我的班主任老師和各位指導老師，在此衷心的謝謝你們！參考文獻［1］張樹兵，戴紅，陳哲.《Visual Basic 》.［2］劉恩濤，趙耀峰.《Visual Basic 》.［3］張更路.《Visual Basic 》.［4］鄭人杰，殷人昆，陶永雷.《實用軟件工程》..［5］易福華.《Visual Basic典型系統實戰與解析》. ［6］明日科技.《Visual Basic管理信息系統完整項目實例剖析》..［7］張二峰，齊暉等.《Visual Basic管理信息系統開發畢業設計指導及實例》..［8］李禹生，向云柱等.《數據庫應用技術—Access及其應用系統開發》..附錄：源代碼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 = 當前用戶是： amp。 user_name End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim strmsg As String strmsg = 確認是否退出？ If MsgBox(strmsg, vbQuestion + vbOKCancel + vbDefaultButton1, 進銷存物資管理系統) = 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 = 系統管理員 Then 39。驗證用戶。 Else MsgBox 對不起，你無權進入！, vbInformation, 進銷存物資管理系統 End If Case 用戶管理 If user_limit = 系統管理員 Then 39。驗證用戶。 vbModal Else MsgBox 對不起，你無權進入！, vbInformation, 進銷存物資管理系統 End If Case 退出 Unload Me End SelectEnd SubPrivate Sub 出庫登記_Click() End SubPrivate Sub 入庫信息_Click() End SubPrivate Sub 數據備份_Click()Dim i As String On Error Resume Next With cdlog1 .DialogTitle = 數據備份 .InitDir = .filename = .Filter = (數據庫)*.bak|*.mdb .CancelError = True .ShowSave i = .filename End With MsgBox 數據備份成功！, vbInformation Set conn = Nothing End If Exit Subsjbf_error: If Err = 70 Then MsgBox 數據庫正在使用，請關閉所有數據窗口，從新開始備份, vbExclamation Else MsgBox , vbExclamation End IfEnd SubPrivate Sub 用戶管理_Click() If user_limit = 系統管理員 Then 39。驗證用戶。 vbModal Else MsgBox 對不起，你無權進入！, vbInformation, 進銷存物資管理系統 End IfEnd Sub