【正文】 d p_BaleID Then aa = MsgBox(相同貨品編號已經(jīng)存在，請重新輸入！ , vbOKOnly, ) Else = True = True = False = False = SELECT * FROM Bale UnActiveTextBox End If End If End Sub Private Sub CmdUpdate_Click() //點擊更新 = False = False = True = True p_BaleID = ActiveTextBox End Sub D. 主 MDI窗體： ? 窗體控件： 控件名稱 說明 MDIFrmMain MDI主窗體 ? 該窗體在系統(tǒng)啟動時作為主要的外邊界，基于 MDI設(shè)計，設(shè)置各種菜單于其之上，不同的用戶登陸會顯示不同的菜單形式。 amp。檢查是否有重復(fù)的貨品 ID = SELECT * FROM Bale WHERE BaleID=39。具體代碼如下： Private Sub Cmddel_Click() = False = False = True = True = False End Sub Private Sub CmdCancel_Click() = True = True = False = False = True End Sub Private Sub CmdConfirm_Click() = SELECT * FROM Bale = True = True = False = False = True End Sub C. 貨品盤點窗體： 控件名稱 說明 FrmBaleUpdate 貨品信息更新窗體 FraMain 主框架 TxtBaleID 貨品 ID信息文本框 TxtBaleName 貨品名稱信息文本框 TxtBlaeFrom 貨品產(chǎn)地信息文本框 TxtBaleSpec 貨品規(guī)格信息文本框 TxtBalePrice 貨品價格信息文本框 TxtBaleMemeo 貨品備注信息文本框 CmdUpdate 修改資料按鈕 CmdConfirm 確定操作按鈕 CmdCancel 撤消操作按鈕 CmdRefresh 刷新按鈕 CmdExit 退出按鈕 AdoMain 主 ADO控件 AdoTest 測試 ADO控件 ? 在該窗體中當用戶點擊了更新按鈕會會激活資料修改功能，若用戶輸入完成后點擊確認后，會自動檢測是否在數(shù)據(jù)庫中有沒有重復(fù)編號的數(shù)據(jù)。 39。 amp。若有，拒絕添加，代碼如下： Private Sub CmdAddNew_Click() //點擊添加 = False = False = True = True ActiveTextBox End Sub Private Sub CmdConfirm_Click() //確認添加 If = Or = Then aa = MsgBox(請?zhí)顚懾浧肪幪柡兔Q , vbOKOnly, ) Else 39。 Update 方法：更新數(shù)據(jù)庫記錄。 Addnew 方法：添加新的記錄到數(shù)據(jù)庫中。 Command 對象： ADO 命令對象，用于保存 SQL 執(zhí)行命令，負責(zé)具體對數(shù)據(jù)庫的操作。例如，用于啟動異步 操作的應(yīng)用程序?qū)⒃诓僮鹘Y(jié)束時得到執(zhí)行完成事件的通知。 操作完成后調(diào)用的事件處理程序在異步操作完成后進行通知。 對象模型無法顯式體現(xiàn)事件，只能在調(diào)用事件處理程 序例程時表現(xiàn)出來。 事件 “事件”是對將要發(fā)生或已經(jīng)發(fā)生的某些操作的通知。然而，有必要將某些屬性看成是數(shù)據(jù)類型“ COLLECTION OBJECT”的返回值。它包含所有屬于各個包含對象的 Property 對象。 Recordset 對象具有 Fields 集合，包含所有定義 Recordset 對象列的 Field 對象。 ADO 提供四種類型的集合： Connection 對象具有 Errors 集合，包含為響應(yīng)與數(shù)據(jù)源有關(guān)的單一錯誤而創(chuàng)建的所有 Error 對象。 集合 ADO 提供“集合”，這是一種可方便地包含其他特殊類型對象的對象類型。動態(tài)屬性則由特別的數(shù)據(jù)提供者添加到 ADO 對象的屬性集合中，僅在提供者被使用時才能存在。 屬性有兩種類型：內(nèi)置和動態(tài)。 任意給定的錯誤都會產(chǎn)生一個或多個 Error 對象，隨后產(chǎn)生的錯誤將會放棄先前的 Error 對象組。 錯誤 錯誤隨時可在應(yīng)用程序中發(fā)生，通常是由于無法建立連接、執(zhí)行命令或?qū)δ承顟B(tài)（例如，試圖使用沒有初始化的記錄集）的對象進行操作。 要修改數(shù)據(jù)源中的數(shù)據(jù)，可在記錄集行中修改 Field 對象的值，對記錄集的更改最終被傳送給數(shù)據(jù)源。每一字段（列）都分別包含有名稱、數(shù)據(jù)類型和值的屬性，正是在該值中包含了來自數(shù)據(jù)源的真實數(shù)據(jù)。 字段 一個記錄集行包含一個或多個“字段”。 5. 通過更改行更新數(shù)據(jù)源。 3. 指定移動行的順序。 Recordset 對象用于： 1. 指定可以檢查的行。但是，不存在僅代表單獨一個 Recordset 行的對象。 記錄集 如果命令是在表中按信息行返回數(shù)據(jù)的查詢（行返回查詢），則這些行將會存儲在本地?？蓪⒁^戶的款額設(shè)置為參數(shù)。 參數(shù)對執(zhí)行其行為類似函數(shù)的命令非常有用，這樣就可知道命令是做什么的，但不必知道它如何工作。 參數(shù) 通常，命令需要的變量部分即“參數(shù)”可以在命令發(fā)布之前進行更改。 對象模型用 Command 對象來體現(xiàn)命令概念。 命令 通過已建立的連接發(fā)出的“命令”可以某種方式來操作數(shù)據(jù)源。 如果取消事務(wù)或它的一個操作失敗，則最終的結(jié)果將仿佛是事務(wù)中的操作均未發(fā)生，數(shù)據(jù)源將會保持事務(wù)開始以前的狀態(tài)。 “事務(wù)”用于界定在連接過程中發(fā)生的一系列數(shù)據(jù)訪問操作的開始和結(jié)束。 Inter Information Server 作為媒介，應(yīng)用程序可直接（有時稱為雙層系統(tǒng)）或 間接（有時稱為三層系統(tǒng)）訪問數(shù)據(jù)源。 D) ADO 編程模型： 連接 通過“連接”可從應(yīng)用程序訪問數(shù)據(jù)源，連接是交換數(shù)據(jù)所必需的環(huán)境。但是，由于 ADO 有很強的靈活性，所以最后只需執(zhí)行部分模塊就能做一些有用的工作。 6. 提供常規(guī)方法檢測錯誤（通常由建立連接或執(zhí)行命令造成）。 4. 如果這個命令使數(shù)據(jù)按表中的行的形式返回，則將這些行存儲在易于檢查、操作或更改的緩存中。 2. 指定訪問數(shù)據(jù)源的命令，同時可帶變量參數(shù)，或優(yōu)化執(zhí)行。 C) ADO 提供執(zhí)行以下操作的方式： 1. 連接到數(shù)據(jù)源。對象擁有“方法”，方法執(zhí)行對數(shù)據(jù)進行的操作；對象擁有“屬性”，屬性指示數(shù)據(jù)的某些特性或控制某些對象方法的行為。編程模型概括了 ADO 的全部功能。它不僅能執(zhí)行查詢并返回數(shù)據(jù)庫查詢結(jié)果，而且可以把服務(wù)器端的數(shù)據(jù) “ 搬到 “ 用戶端修改，并調(diào)用一個數(shù)據(jù)庫更新命令，將用戶端修改的數(shù)據(jù)寫回數(shù)據(jù)庫，象使用本地數(shù)據(jù)庫一樣 。 ADO 雖然能夠提供非常強大的數(shù)據(jù)庫訪問功能，但是它不支持數(shù)據(jù)遠程操作（ Data Remoting）。 RDS（ Remote Data Service）方式。這三者是 ADO 的最核心的對象。 ADO 建立了基于 Web 方式訪問數(shù)據(jù)庫的腳本編寫模型，不僅支持任何大型數(shù)據(jù)庫的核心功能，而且支持許多數(shù)據(jù)庫所專有的特性。 它把絕大部分的數(shù)據(jù)庫操作封裝在七個對象中，在編程調(diào)用這些對象執(zhí)行相應(yīng)的數(shù)據(jù)庫操作。使用 IDC 訪問數(shù)據(jù)庫最大的特點是簡單，幾乎不需要編程就能實現(xiàn)對數(shù)據(jù)庫的訪問。屬性也用于為對象提供數(shù)據(jù)和從對象取回信息。 屬性 對象的特征，如尺寸、位置、顏色或文本。 過程 為完成任務(wù)而編寫的代碼段。 對象 程序的基本元素，它含有定義其特征的屬性，定義其任務(wù)和識別它可以響應(yīng)的事件的方法。 方法 嵌入在對象定義中的程序代碼，它定義對象怎樣處理信息并響應(yīng)某事件。 事件 由用戶或操作系統(tǒng)引發(fā) 的動作?？丶峁┏绦蚩梢娊缑娴目芍赜脤ο?。這種技術(shù)可以創(chuàng)建可重用組建，它是程序的組成模塊。也就是說，一旦程序啟動，它就一條指令一條指令的向前執(zhí)行，直到程序結(jié)束或出現(xiàn)致命錯誤。要了解事件驅(qū)動程序是怎樣工作的，先要了解過去的程序怎樣運行及在 Windows環(huán)境中有何不同。 事件驅(qū)動編程： Visual Basic允許創(chuàng)建反映用戶動作和系統(tǒng)事件的程序。但是，以這種方法編程十分困難，因此 Visual Basic 和其他編程語言使程序員可以用與自然語言有點相近的方式編寫指令。雖然我們用自然語言讀這些指令，但 計算機指令必須是二進制代碼，即一系列在計算機內(nèi)存和處理器中的開或關(guān)的狀態(tài)。幸運的是，許多這樣的指令包含在處理器芯片中或內(nèi)置于操作系統(tǒng)中，因此用戶不必擔心它們。 計算機也是一樣，只是它們需要為執(zhí)行的每一個任務(wù)提供指令。讀者也許對許多種指令熟悉，如按菜譜烹調(diào)特殊的食物或按指定的方向到達不熟悉的目的地。用戶認為可用Visual Basic快速創(chuàng)建 Windows程序，在現(xiàn)在還可以編寫企業(yè)水平的客戶／服務(wù)器程序及強大的數(shù)據(jù)庫應(yīng)用程序， Visual Basic新版中還有更多可用功能。而且， VB 還引入了“控件：的概念，使得大量已經(jīng)編好的 VB程序可以被我們直接拿來使用，如今， VB已經(jīng)有了 。從 VB4開始， VB也引入了面向?qū)ο蟮某绦蛟O(shè)計思想。微軟也不失時機地在四年內(nèi)接連推出 VB20， VB30， VB40三個版本。但在當時，它是第一個“可視”的編程軟件。許多專家把 VB 的出現(xiàn)當作是軟件開發(fā)史上的一個具有劃時代意義的事件。 第四階段：（ 1991年以來） Visual BASIC 1991年，微軟推出了 Visual 。 BASIC語言的問世及發(fā)展 BASIC語言自其問世經(jīng)歷了以下四個階段： 第一階段：（ 1964年～ 70 年代初） 1964年 BASIC語言問世。s Allpurpose Symbolic Instruction Code（初學(xué)者通用符號指令代碼）的縮寫，是國際上廣泛使用的一種計算機高級語言。 可移植可擴充性。 實現(xiàn)報表瀏覽打印等功能。 實現(xiàn)倉庫資料的管理，添加、刪除、修改等操作。并且根據(jù)不同用戶提供不同的權(quán)限。 在此次要物流管理系統(tǒng)中，我的工作包括： 制訂可行性分析報告，進行項目需求分析，完成 ER模型設(shè)計； 功 能及模塊的初步設(shè)計； 數(shù)據(jù)庫設(shè)計與實現(xiàn)； 四、項目可行性分析 ? 具體要求： 本次開發(fā)任務(wù)所要完成的是物流管理系統(tǒng)，以實現(xiàn)物流智能化管理，按照具體環(huán)境設(shè)定對其提出如下具體要求： 分級的數(shù)據(jù)庫和用戶管理。從這個意義上講，只有最合適企業(yè)的系統(tǒng)才可能取得成功。 所以，只要充分利用資源，我國的物流信息化實現(xiàn)三步并作 一步走，是完全有可能的。盡管供應(yīng)鏈管理在我國現(xiàn)在還沒有太多成功案例，但是并不代表沒有這方面的發(fā)展條件?，F(xiàn)有的物流管理軟件大多僅僅是反映信息，只有少數(shù)很成熟的軟件對流程和操作的優(yōu)化具備很強的功能。這種情況是建立在企業(yè)經(jīng)營鏈基礎(chǔ)之上的一種新的業(yè)務(wù)模式，而供應(yīng)鏈管理的軟件 ，正是用來解決這些問題的有效工具。一旦建立這種要求，企業(yè)之間就需要用一套信息系統(tǒng)把這一要求固定下來，來執(zhí)行業(yè)務(wù)上的協(xié)同操作。供應(yīng)鏈 是用來調(diào)節(jié)企業(yè)和企業(yè)之間的協(xié)作關(guān)系、在市場經(jīng)濟成熟到一定程度之后出現(xiàn)的一種概念。 供應(yīng)鏈管理打造共贏模式 第三層次，也是最高層次的需求，就是供應(yīng)鏈管理的工具。換句話說，要有一個實現(xiàn)優(yōu)化的模型和算法，而在實際操作中，這樣的模型是很難概括的，如果不對業(yè)務(wù)進行深入地了解，絕對不能形成這樣的優(yōu)化模型，同時還要保證實時、高效，才有可能滿足業(yè)務(wù)的需要。所以，這就比僅僅依賴于獲得信息，還是人工決策，要上一個層次，等于是機器用數(shù)據(jù)來進行優(yōu)化的決策。 做好優(yōu)化的工作，將能夠大大提高物流管理的效率。 優(yōu)化主要是在兩個層面上，一個是流程的優(yōu)化，會涉及到整個的流程再造，這就需要用數(shù)據(jù)來分析，所以一定要有第一階段的基礎(chǔ)。 優(yōu)化帶來管理效益的提高 在基礎(chǔ)信息化實現(xiàn)以后，就會有第二層的需求。因此，信息用于決策的部分還不多。只有這樣，才能夠真正解決好信息的采集問題。因此，信息化最大的作用就是使企業(yè)順利實現(xiàn)信息的采集、傳輸、加工和共享，最后在決策過 程中有效地利