【正文】 ield代表表中的一個字段，對應(yīng)著表中的一列數(shù)據(jù)，這些數(shù)據(jù)具有相同的數(shù)據(jù)類型和相同的一套屬性。OLE DB不僅包括微軟資助的標(biāo)準(zhǔn)數(shù)據(jù)接口開放數(shù)據(jù)庫連通性（ODBC）的結(jié)構(gòu)化查詢語言（SQL）能力，還具有面向其他非SQL數(shù)據(jù)類型的通路。OLD DB中的對象主要包括數(shù)據(jù)源對象、階段對象、命令對象和行組對象。OLE不僅是桌面應(yīng)用程序集成，而且還定義和實(shí)現(xiàn)了一種允許應(yīng)用程序作為軟件“對象”(數(shù)據(jù)集合和操作數(shù)據(jù)的函數(shù))彼此進(jìn)行“連接”的機(jī)制，這種連接機(jī)制和協(xié)議稱為部件對象模型?！　B（英文全稱data base，數(shù)據(jù)庫）是依照某種數(shù)據(jù)模型組織起來并存放二級存儲器中的數(shù)據(jù)集合。這種組件模型中的各個部分被冠以不同的名稱：　　數(shù)據(jù)提供者（Data Provider）。有的文檔把這些軟件組件的開發(fā)商也稱為數(shù)據(jù)提供者。位于數(shù)據(jù)提供者之上、從過去的數(shù)據(jù)庫管理系統(tǒng)中分離出來、獨(dú)立運(yùn)行的功能組件，例如查詢處理器和游標(biāo)引擎（Cursor Engine），這些組件使得數(shù)據(jù)提供者提供的數(shù)據(jù)以表狀數(shù)據(jù)（Tabular Data）的形式向外表示（不管真實(shí)的物理數(shù)據(jù)是如何組織和存儲的），并實(shí)現(xiàn)數(shù)據(jù)的查詢和修改功能?！　I(yè)務(wù)組件（Business Component）。分布式數(shù)據(jù)庫應(yīng)用系統(tǒng)中的中間層（MiddleTier）就是這種組件的典型例子。任何需要訪問數(shù)據(jù)的系統(tǒng)程序或應(yīng)用程序，除了典型的數(shù)據(jù)庫應(yīng)用程序之外，還包括需要訪問各種數(shù)據(jù)源的開發(fā)工具或語言。例如：用戶1只負(fù)責(zé)物資的入庫工作，對其它工作則不能執(zhí)行；用戶2只負(fù)責(zé)物資的銷售、統(tǒng)計(jì)工作；用戶3只負(fù)責(zé)對物資存儲、查詢等工作的管理；再設(shè)置一個超級用戶，可負(fù)責(zé)全面工作。圖41 登陸頁面主界面中設(shè)置菜單項(xiàng)，這樣可使工作更加簡單化、明了化，方便用戶的管理和操作。 物資入庫功能圖43 入庫登記入庫登記代替手工開寫發(fā)票，其本身不保留任何信息，僅把當(dāng)日當(dāng)此購進(jìn)物資入庫，列表顯示可以核對所填項(xiàng)目與所購項(xiàng)目是否一致，如果需要打印一份以備查詢用，帶星號的文本框則為必填項(xiàng)目。管理員可以很方便的來調(diào)控物資采購的數(shù)量及預(yù)支金額數(shù)量，方便更改入庫時出錯的信息，做到查詢打印一體化。庫管員能夠一目了然的掌握庫存情況，并作出及時調(diào)整的策略。 圖46 庫存查詢 物資出庫功能物資出庫（銷售）是企業(yè)中最頻繁的一項(xiàng)操作，稍有不慎便有可能出錯，在此設(shè)計(jì)中已經(jīng)很好的做到防止出錯的可能性，極大限度的杜絕了錯誤的發(fā)生。物資出庫登記中不保留數(shù)據(jù)，而把數(shù)據(jù)轉(zhuǎn)存入庫存信息表中，在每次打開時都是從頭開始輸入數(shù)據(jù)，如同開發(fā)票一樣，一個單位的物資出完后即可打印票據(jù)。另外，出庫信息是重要的信息，如同出庫后開具的發(fā)票保留下來做月報(bào)、年報(bào)。在每個模塊都正常運(yùn)行地條件下，即可對你設(shè)計(jì)的整個程序進(jìn)行調(diào)試。程序調(diào)試是指從程序中找到問題，然后逐一解決。程序設(shè)計(jì)中常見的錯誤可分為三種：編譯錯誤，運(yùn)行時錯誤和邏輯錯誤。 本程序在形成的過程中就遇到了一些編譯錯誤，如參數(shù)未定義等，所以難免有錯。 程序調(diào)試是在應(yīng)用程序中查找并修改的過程。（2）逐語句：執(zhí)行應(yīng)用程序代碼的下一行，并跟蹤到過程中。 當(dāng)出現(xiàn)錯誤時，調(diào)試過程： 打開代碼窗口，在sql處設(shè)置斷點(diǎn)，以便在檢查參數(shù)之前中斷運(yùn)行，這樣一來，就可以查看程序狀態(tài)和中間結(jié)果。則斷點(diǎn)被加入；第3步：運(yùn)行； 第4步：打開[調(diào)試]菜單，單擊[逐語句]。在其中輸入“?x”,即可觀察接收到的參數(shù)值。第六步：關(guān)閉正在運(yùn)行的程序，打開[調(diào)試]菜單，單擊[清除所有斷點(diǎn)]菜單項(xiàng)，最后按F5運(yùn)行程序。如果應(yīng)用程序不能處理這些錯誤，那么程序的運(yùn)行將會被頻繁地中斷，程序顯得十分脆弱，甚至可以導(dǎo)致整個應(yīng)用程序癱瘓。但出現(xiàn)錯誤時，一般采用On Error GoTo 轉(zhuǎn)移到錯誤處理代碼段開始的標(biāo)號處執(zhí)行。在錯誤處理代碼段中使用Resume 語句或 Resume Next 語句退出處理過程。錯誤處理程序有兩個狀態(tài)——激活狀態(tài)和活動狀態(tài)。當(dāng)包含錯誤捕獲的過程是活動的時候，錯誤捕獲始終是激活的，也就是說，直到該過程執(zhí)行到Exit Sub、Exit Function、Exit Property、Exit Sub、End Function或End Property語句時，錯誤捕獲才停止。借助于On Error語句的特例：On Error GoTo（）也能停用某一錯誤捕獲。但需要注意的是，并非所有激活的錯誤處理程序都是活動的，例如，在Resume 語句之后，錯誤處理程序不處于活動狀態(tài)，但仍然是激活的。這個檢查將在調(diào)用棧中連續(xù)向上進(jìn)行，直到找到一個激活但并不是活動的錯誤處理程序，或者到達(dá)調(diào)用棧的頂部，該錯誤即被視為未捕獲的錯誤。如果錯誤處理程序的錯誤范圍不包括實(shí)際產(chǎn)生的錯誤，則在具有激活的錯誤處理程序的過程中會產(chǎn)生意想不道的錯誤。為防止這種情況發(fā)生，可以在程序內(nèi)的Case Else語句或者Else語句中使用Err Raise方法。結(jié)束語　結(jié)束語經(jīng)過了兩年的學(xué)習(xí)和努力，我完成了《企業(yè)進(jìn)銷存物資管理系統(tǒng)》的設(shè)計(jì)及論文。該系統(tǒng)功能上基本符合企業(yè)需求，把企業(yè)物資進(jìn)銷存工作從物資采購計(jì)劃、工廠進(jìn)貨、物資到貨、庫存管理、物資出庫（銷售）及資金核算等一系列工作進(jìn)行計(jì)算機(jī)系統(tǒng)管理，完成以上各種信息的錄入、修改、檢索、匯總以及各類相關(guān)報(bào)表的打印。在可視化的管理系統(tǒng)中，數(shù)據(jù)采用集中管理，分段處理辦法，在各個階段都可以明確數(shù)據(jù)處理情況，并給出一個通用的數(shù)據(jù)輸入技術(shù)，它在很大程度上提高了數(shù)據(jù)輸入的效率，并成功地解決了主關(guān)鍵字的輸入一致性問題。由于時間在短時間內(nèi)要進(jìn)行數(shù)據(jù)搜集，查看資料，調(diào)研分析，系統(tǒng)開發(fā)，編寫論文，所以我的畢業(yè)設(shè)計(jì)和論文不是很成熟，還有很多不足之處，在以后的運(yùn)用中還需要在數(shù)據(jù)庫存儲效率、安全管理和資金結(jié)算方面進(jìn)行進(jìn)一步的開發(fā)，全面的提高數(shù)據(jù)庫的系統(tǒng)需求分析、系統(tǒng)設(shè)計(jì)、深入開發(fā)能力。王老師多次詢問設(shè)計(jì)進(jìn)程，并為我指點(diǎn)迷津，幫助我開拓研究思路，精心點(diǎn)撥、熱忱鼓勵。我在系統(tǒng)設(shè)計(jì)的整個過程中還得到了我的同事柴老師、魏老師以及許多朋友的大力指導(dǎo)和幫助，非常感謝他們，沒有他們的幫助，我的設(shè)計(jì)和論文無從著手，內(nèi)容也將會非?？斩礋o力。參考文獻(xiàn)［1］張樹兵，戴紅，陳哲.《Visual Basic 》.［2］劉恩濤，趙耀峰.《Visual Basic 》.［3］張更路.《Visual Basic 》.［4］鄭人杰，殷人昆，陶永雷.《實(shí)用軟件工程》..［5］易福華.《Visual Basic典型系統(tǒng)實(shí)戰(zhàn)與解析》. ［6］明日科技.《Visual Basic管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析》..［7］張二峰，齊暉等.《Visual Basic管理信息系統(tǒng)開發(fā)畢業(yè)設(shè)計(jì)指導(dǎo)及實(shí)例》..［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=。Data Source= amp。驗(yàn)證密碼的有效性，為三次。Persist Security Info=False。 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。 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