1、實驗報告書課程名稱：物流信息系統(tǒng)學生姓名：學號：所在班級：_所在系（部）：物流工程系指導教師：實驗學期：201320 學年 第 一 學期山東交通學院交通與物流工程一、實驗名稱物流信息系統(tǒng)認識上機二、時間2013 年9月14日三、地點交通與物流工程實驗中心，機房（6207、6205、6103室）四、指導教師文U建磊五、實驗目的通過一般的物流信息系統(tǒng)軟件的實際操作，認識這類軟件的常見主要功能， 了解物流過程中的庫存管理、運輸管理、配送管理流程，學會這類軟件的基本操 作。六、實驗用儀器設備計算機、相關物流信息系統(tǒng)軟件七、實驗內(nèi)容與實驗步驟1使用物流管理系統(tǒng)軟件，獲知其主要功能有：1部門資料設置：對部

2、門資料進行增加、刪除、修改、查詢等操作，截圖如下：2車輛調度安排：隨時掌握司機以及車輛的動態(tài)，對車輛進行合理的安排，截圖 如下：3車輛資料設置：將車輛以及司機的資料電子化，方便、快捷的對車輛信息進行 及時的更新，來對車輛的信息做到進一步的完善，截圖如下：4密碼修改：對密碼進行簡單的修改工作，截圖如下：5貨物托運管理：進行貨物托運的各項內(nèi)容設置，比如對托運的貨物進行增減， 承運單位的各種信息，以及收貨單位的各種信息，截圖如下：除以上功能外，該物流管理系統(tǒng)軟件還具有貨物驗收管理、客戶資料設置、司 機資料設置等。使用物流物流管理系統(tǒng)軟件，獲知其主要功能有:1物資入庫單填寫：主要記錄物資的編號、數(shù)量、

3、名稱等項目截圖如下:2物資出庫單填寫：主要內(nèi)容和入庫單的大體相同，截圖如下：3用戶管理：通過密碼設置來進行用戶的識別與管理，截圖如下：3使用鋼材行業(yè)物流管理軟件，獲知其主要功能有：1審核報損出庫單：對報損物品進行備注與審核，截圖如下：2查詢存款單，截圖如下：一、實驗名稱物流信息技術上機二、時間2013 年9月18日三、地點交通與物流工程實驗中心，機房(6207、6205、6103室)四、指導教師文U建磊五、實驗目的熟悉VB的系統(tǒng)環(huán)境，了解 VB程序的編寫、保存和編譯的方法過程；掌握基 本語句的使用；掌握表達式的正確書寫方法及函數(shù)、運算符的正確使用；掌握邏 輯表達式及關系表達式的正確書寫形式，掌

4、握IF語句單行和塊書寫格式及其正確使用。六、實驗用儀器設備計算機、VisualBasic 軟件七、實驗內(nèi)容與實驗步驟1編一程序，程序運行的初始界面如圖所示，當用戶在文本框中輸入姓名，例如輸入“張三”，單擊“確定”按鈕，則程序的運行情況如圖1-2所示，如果單擊“結束”按鈕，即結束程序運行。源代碼：Private Sub Comma nd1_Click()=False_ III!End SubPrivate Sub Comma nd2_Click()EndEnd Sub2設計一個猜數(shù)字游戲軟件，點擊出題按鈕，產(chǎn)生一個10到99的隨機數(shù)，然后在文本框中由用戶輸入數(shù)字，如果結果不對，應提示是大了，還是

5、小了，否 則提示正確。運行界面如圖 3-1所示。程序源代碼為:Dim a As Si nglePrivate Sub Comma nd1_Click()a = In t(R nd * 90) + 10End SubPrivate Sub Comma nd2_Click()Dim b As Si ngleDim c As Si nglec = ab =If c bThe n MsgBox (您猜的數(shù)字小了，加油加油)If c = bThen MsgBox (您猜對了，恭喜恭喜)_ III!End SubPrivate Sub Comma nd3_Click()EndEnd Sub3設計一個登陸界

6、面，包含用戶名、密碼及文本框，確定按鈕，退出按鈕, 并編寫代碼實現(xiàn)，用戶名和密碼正確時彈出對話框，提示“歡迎使用該系統(tǒng)” 否則提示“用戶名和密碼錯誤，請重新輸入”截圖如下：寫入實現(xiàn)上述內(nèi)容的一段代碼:Dim a As Si ngleDim b As Si nglePrivate Sub Comma nd1 Click()a = 123b = 456If = a And = b The nMsgBox （歡迎使用該系統(tǒng)）ElseMsgBox （密碼錯誤，請重新輸入）End If_ III!_ III!End SubDim i As In tegerFor i = 100 To 999If (i

7、100) A 3 + (i 10 Mod 10) A 3 + (i Mod 10) A 3 =i The n Pri nt iNextEnd Sub2、 設計一個程序，將用戶輸入的10個數(shù)字進行倒置。截圖如下：程序源代碼為：Private Sub Form_click()Dim s As Stri ngs = InputBox(請輸入要倒置的數(shù)字,測試)If s The ns = StrReverse(s)MsgBox sEnd IfEnd Sub3、 設計一個程序，定義一個5X 5的二維數(shù)組，隨機存放10-60之間的整數(shù)，輸出內(nèi)容如下：按矩陣形式輸出所有數(shù)組元素。在每行結尾輸出各行元素之和。

8、在每列的下面輸出主對角線上的元素。截圖如下:程序源代碼為：Private Sub Form_click()Dim I As In teger, J As In tegerDim IntSumH As IntegerDim In tSj(1 To 5, 1 To 5) As In tegerRan domizeFor I = 1 To 5In tSumH = 0Pri nt T;For J = 1 To 5IntSj(I, J) = Int(Rnd() * 51 + 10)In tSumH = In tSumH + In tSj(I, J)Print In tSj(I, J);Next JPri

9、 nt T;Print IntSumHNext IFor I = 1 To 5Pri nt ;Next IPrintPrint ;For I = 1 To 5Print IntSj(l, I);Next IPrintPri nt ;For I = 1 To 5Pri nt In tSj(6 - I, I);Next IEnd Sub一、實驗名稱數(shù)據(jù)庫操作上機二、時間2013 年10月16日三、地點交通與物流工程實驗中心，機房（6207、6205室）四、指導教師張良智五、實驗目的理解關系數(shù)據(jù)庫的基本概念，掌握Access數(shù)據(jù)管理系統(tǒng)的基本操作。練習建立數(shù)據(jù)表，熟悉各數(shù)據(jù)類型的內(nèi)容。六、實驗用儀器

10、設備計算機、ACCES軟件七、實驗內(nèi)容與實驗步驟1 ACCESS數(shù)據(jù)庫軟件的主要功能有：（1）新建數(shù)據(jù)庫，截圖如下：圖1供應商表設計視圖圖2貨物表設計視圖圖3貨物出庫表設計視圖圖4貨物入庫表設計視圖圖5客戶表設計視圖圖6運貨商設計視圖圖7貨物表數(shù)據(jù)視圖圖8貨物出庫表數(shù)據(jù)視圖圖9貨物入庫表數(shù)據(jù)視圖一、實驗名稱 數(shù)據(jù)庫操作上機二、時間2013 年10月30日三、地點交通與物流工程實驗中心，機房（6207、6205室）四、指導教師張良智五、實驗目的通過在VB和ACCESS勺交互操作，練習高級語言操作數(shù)據(jù)庫的多種方法，重 點掌握使用DATA空件、ADOD控件和DATAGRI控件、數(shù)據(jù)窗體設計器三種方法

11、 連接數(shù)據(jù)庫，并了解使用 ADC對象編寫代碼連接數(shù)據(jù)的方法。六、實驗用儀器設備計算機、ACCESS件、VisualBasic 軟件七、實驗內(nèi)容與實驗步驟1、使用DATA空件連接數(shù)據(jù)庫在硬盤的用戶盤上建立一個用戶目錄（如E:WORK，用于保存所有實驗文件。啟動ACCESS找到數(shù)據(jù)庫“倉儲管理信息系統(tǒng)”，確認有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。將“倉儲管理信息系統(tǒng)”數(shù)據(jù)庫打幵，轉化97格式的數(shù)據(jù)庫，取名“倉儲管理信息系統(tǒng)-97”，復制到用戶目錄下。啟動VB,在窗體上加入DATA空件data1，文本框控件text1，保存文件和工 程到用戶目錄下。設置DATA空件的database name屬性為“倉儲管

12、理信息系統(tǒng) 97”，設置DATA控件的 Recordsource屬性為貨物表。設置文本框控件的datasource 屬性為data1,設置文本框控件的datafield 屬性為貨物名稱。運行程序，查看結果。修改上述文本框控件的datafield 屬性，查看結果。添加其他文本框控件，設置屬性，顯示更多的貨物表內(nèi)容。顯示多個貨物表信息的界面截屏如下：圖10貨物出庫查詢2、使用ADOD控件連接數(shù)據(jù)庫在硬盤的用戶盤上建立一個用戶目錄 （如E:WOR）用于保存所有實驗文件。 啟動ACCESS找到數(shù)據(jù)庫“倉儲管理信息系統(tǒng)”，確認有貨物表，并已經(jīng)錄入了 多條數(shù)據(jù)。復制到用戶目錄下。啟動VB,通過菜單工程一部

13、件一控件添加控件 Microsoft ADODATACONTRO 和Microsoft DATAgrid CONTROL 。通過工具箱加兩個控件到窗體上。設置ADODC勺屬性，生成一提供程序一Microsoft JET OLE DB連接一WLG 測試連接成功；記錄源一命令類型： 2表名稱：貨物表。設置 datagrid控件屬 性 datasource 為 ADODC1.運行程序，顯示貨物表全部內(nèi)容的界面如下：圖11物資查詢3、使用數(shù)據(jù)窗體設計器操作數(shù)據(jù)庫在硬盤的用戶盤上建立一個用戶目錄 （如E:WORK,用于保存所有實驗文件。 啟動ACCESS找到數(shù)據(jù)庫“倉儲管理信息系統(tǒng)”，確認有貨物表，并已

14、經(jīng)錄入了 多條數(shù)據(jù)。將“倉儲管理信息系統(tǒng)”數(shù)據(jù)庫打幵，轉化97格式的數(shù)據(jù)庫，取名“倉儲管理信息系統(tǒng)97”，復制到用戶目錄下。啟動VB,通過菜單外接程序一可視化數(shù)據(jù)管理器，在visdata界面上文件- 打幵數(shù)據(jù)庫一Microsoft ACCESS-“倉儲管理信息系統(tǒng) 97” ,實用程序-數(shù)據(jù)窗體設計器一窗體名稱:huowu 記錄源：貨物表一添加使用的多個字段到右側一生 成窗體一關閉。對自動生成的窗體，重新排列位置、設置字體大小，顏色，控件長度等，調整界面美觀大方，不留空白，不顯擁擠。運行程序，得到操作數(shù)據(jù)庫的界面設計如下： 圖12客戶管理表一、實驗名稱物流信息系統(tǒng)幵發(fā)上機二、時間2013 年11

15、月13日三、地點交通與物流工程實驗中心，機房(6207、6205室)四、指導教師張良智五、實驗目的通過編制系統(tǒng)可行性分析報告了解物流信息系統(tǒng)可行性分析的內(nèi)容，通過系 統(tǒng)業(yè)務流程圖的繪制，熟悉系統(tǒng)業(yè)務過程，學會繪制業(yè)務流程圖；通過界面設計 熟練輸入設計、輸出設計的方法，掌握基本的界面設計方法。六、實驗用儀器設備計算機、ACCESS WORD VB DiagramDesigner 軟件七、實驗內(nèi)容與實驗步驟1系統(tǒng)可行性分析方案的可行性本系統(tǒng)方案是適應現(xiàn)代倉儲業(yè)高效倉儲化作業(yè)而設計的，且系統(tǒng)界面友 好，系統(tǒng)功能比較簡單，任何人都可以很快掌握操作原理并使用，不存在太大 難度。技術的可行性系統(tǒng)的總體架構

16、將采用三層架構模型，數(shù)據(jù)庫采用微軟的Access，其工作穩(wěn)定，功能強大，資源耗費較少，所以能夠充分滿足目前的需要。采用VB語言進行編程。VB是安全的、穩(wěn)定的、簡單的面向對象的編程語言。因此，幵發(fā)本系統(tǒng) 在技術上是可行的。經(jīng)濟的可行性？由于本系統(tǒng)的幵發(fā)以課程設計為依托，參與人員的目的以學習為主，投入成 本比較小。本系統(tǒng)比較簡單且只在本機使用，暫不考慮網(wǎng)絡，因而幵發(fā)費用小。 同時無紙化辦公可以節(jié)省資源，減少后期資源浪費。因此，幵發(fā)本系統(tǒng)在經(jīng)濟上 是可行的。社會的可行性在社會生產(chǎn)飛速發(fā)展的今天，物流己經(jīng)成為國民經(jīng)濟的支柱，尤其是倉儲管 理，信息化是發(fā)展物流、提高效率的關鍵。倉儲管理系統(tǒng)數(shù)據(jù)邏輯設計規(guī)

17、范，系 統(tǒng)功能健全，數(shù)據(jù)標準化，可以滿足企業(yè)物流倉儲業(yè)務的實際需要，提高倉儲工 作的效率。這些需求成為發(fā)展物流的關鍵因素。因此，本系統(tǒng)在社會上具有可行 性。2.業(yè)務流程圖圖13入庫作業(yè)流程圖圖14出庫作業(yè)流程圖圖15盤點作業(yè)流程圖3.界面設計截圖如下：圖16用戶登錄界面圖17倉儲管理系統(tǒng)主界面圖18客戶管理界面圖19供應商查詢界面圖20供應商管理界面一、實驗名稱物流信息系統(tǒng)幵發(fā)上機二、時間2013 年11月28日三、地點交通與物流工程實驗中心，機房（6207、6205室）四、指導教師張良智五、實驗目的通過系統(tǒng)分析（含業(yè)務流程分析和數(shù)據(jù)流程分析）、系統(tǒng)設計（含數(shù)據(jù)庫設計、界面設計）、系統(tǒng)實施等環(huán)

18、節(jié)，讓學生全面掌握物流信息系統(tǒng)幵發(fā)的全部內(nèi) 容，并初步掌握一些關鍵技術，了解系統(tǒng)幵發(fā)的整體流程。六、實驗用儀器設備計算機、ACCESS WORD VB DiagramDesigner 軟件七、實驗內(nèi)容與實驗步驟（一）系統(tǒng)分析采購入庫時由倉儲部門幵出會驗收通知單，交相關檢驗人員進行檢驗（驗收 標準由使用部門即生產(chǎn)科給定，在本系統(tǒng)中不進行管理），幵出驗收單，如果驗收合格，則進行移倉，并記入倉庫臺帳，然后財務根據(jù)具體情況進行付款操作， 當然付款作業(yè)并不包括在本倉儲管理系統(tǒng)內(nèi)，本系統(tǒng)僅僅在此預留與財務系統(tǒng)的 接口而已；如果驗收不合格，則視具體情況進行處理，根據(jù)需要進行退貨作業(yè)， 在此本系統(tǒng)只負責退貨單

19、的維護。領料出庫有多種形式，生產(chǎn)領料和其他領料如設備維修領料等的領料作業(yè)流 程和領料單都相同。領料出庫時，由相關檢驗人員查可用庫存量，如果領料量小 于可用庫存量則進行發(fā)料，從而入倉庫臺賬；如果領料單不小于庫存量則重新填 寫領料單并且填寫請購單。（二）系統(tǒng)設計物理配置方案設計隨著信息技術的飛速發(fā)展，各種計算機軟、硬件產(chǎn)品競相投向市場。多種多 樣的計算機技術產(chǎn)品為信息系統(tǒng)的建設提供了極大的靈活性，其性價比也是五年 前甚至是半年前所無法比擬的，使我們可以根據(jù)應用的需要靈活選用不同生產(chǎn)者的性能各異的軟、硬件產(chǎn)品該系統(tǒng)采用Client/Server 、Browser/Server結構，采用了最先進的三層

20、結 構設計，使應用層和數(shù)據(jù)庫邏輯分離，進而使核心數(shù)據(jù)庫更安全，升級和擴展可 不受原系統(tǒng)的局限。服務器采用Windows2000 Server操作系統(tǒng)，數(shù)據(jù)庫是 SQLServer2000，中間層服務器和客戶端幵發(fā)語言為。系統(tǒng)設計原則系統(tǒng)設計遵循的原則：（1）系統(tǒng)的標準化和規(guī)范化，系統(tǒng)的標準化和規(guī)范化 是信息系統(tǒng)建設基本而又關鍵的一步，要實現(xiàn)信息通訊與共享，必須規(guī)范信息技 術標準。（2）系統(tǒng)的實用性、穩(wěn)定和可靠性，系統(tǒng)建設要以滿足工作的業(yè)務需求 為首要目標，建設方案以實際可接受能力為尺度，避免盲目追求新技術。系統(tǒng)中 的軟硬件及信息資源要滿足可靠性設計要求，系統(tǒng)必須可靠地長期安全運行，即 系統(tǒng)的設

21、計必須在成本可以接受的條件下，從系統(tǒng)結構、設計方案、設備選型、 廠商的技術服務與維護響應能力、備件供應能力等方面考慮，使得系統(tǒng)故障發(fā)生 的可能性盡可能少，對各種可能出現(xiàn)的緊急情況有應急的工作方案和對策。（3）系統(tǒng)的安全性。遵循有關信息安全標準，系統(tǒng)具有很強的安全防衛(wèi)機制，應提供 多方式、多層次、多渠道的安全保密措施，防止各種形式與途徑的非法侵入和機 密信息泄露；同時要有備份機制，保證客戶信息的安全。（4）系統(tǒng)的靈活性和可擴充性。計算機技術發(fā)展迅速，日新月異，系統(tǒng)的設計要保證軟件兼容的情況下， 利用最小代價，使網(wǎng)絡系統(tǒng)結構平滑過渡到新的網(wǎng)絡結構體系，可以靈活擴充。 系統(tǒng)能有較強的應變能力，實現(xiàn)程

22、序與處理數(shù)據(jù)分離，處理數(shù)據(jù)的變化不需要修 改應用程序軟件，如表格、數(shù)據(jù)結構的定義，既滿足上級的要求，又滿足用戶自 己的特殊需要，用戶可以靈活定義和變化。網(wǎng)絡結構網(wǎng)絡主要由企業(yè)內(nèi)部網(wǎng)和信息發(fā)布系統(tǒng)兩部分組成。根據(jù)企業(yè)客戶信息管理 系統(tǒng)的需求，在網(wǎng)絡系統(tǒng)的設計中，采用目前先進成熟的快速以太網(wǎng)技術，以最 優(yōu)的性能價格比實現(xiàn)整個網(wǎng)絡系統(tǒng)的高性能和高可靠性。這樣，客戶隨時隨地都 可通過公眾網(wǎng)訪問本信息系統(tǒng)。網(wǎng)絡設計的目標是：（1）系統(tǒng)采用星型網(wǎng)絡結構，因此單機損壞對整個系統(tǒng)無影響；（2）采用高容錯技術，系統(tǒng)可以不間斷的運；（3）星型布線使站點不受限制，在站點增加、減少的情況下，系統(tǒng)不停機；（4）采用實用

23、的客戶機/服務器和瀏覽器/服務器結構；（5）服務器采用易于管理的 Windows NT系統(tǒng)；（6）客戶端采用方便實用的 Windows 98、2000和XP。系統(tǒng)軟件操作系統(tǒng) Windows NTServer。該系統(tǒng)為各種組織的計算環(huán)境提供了一個完整的方案。從文件/打印操作，至U Intranet和In ter net服務，關鍵任務的 應用程序支持，所有的服務被嵌入操作系統(tǒng)。從基本點著手，Win dowsNTServer設計成為最具有集成性，完整性和便捷性的服務器操作系統(tǒng)，并提供了對關鍵任 務應用程序所必備的評測性，可靠性和管理性。數(shù)據(jù)庫系統(tǒng) SQLServer 2000。SQL Server

24、 2000 是一個綜合的分布式管理框架結構，允許你集中地管理組織機構中所有數(shù)據(jù)庫服務器。通過增強的基 于Windows的管理工具和強大的基于服務器的作業(yè)日程安排，你可以直觀地控制 多個服務器，并且實現(xiàn)分布式環(huán)境命令構成的遠程操作的自動執(zhí)行。考慮到與 In ternet 的集成，SQL Server還提供了高性能的 Web頁面信息訪問機制。它的 新組件Web Assistant能使你通過多種方式利用 SQL數(shù)據(jù)推廣你的Web服務，允 許在一個私有Intranet網(wǎng)或在世界范圍網(wǎng)(In ter net )的Web上分發(fā)公司數(shù)據(jù)。 客戶端系統(tǒng)軟件?？蛻舳瞬僮飨到y(tǒng)可采用 WindowsNTWorkst

25、ation或 Windows 98 中文版。數(shù)據(jù)庫設計使用DATA空件連接數(shù)據(jù)庫在硬盤的用戶盤上建立一個用戶目錄 (如E:WORK,用于保存所有實驗文件。 啟動ACCESS找到數(shù)據(jù)庫“倉儲管理信息系統(tǒng)”，確認有貨物表，并已經(jīng)錄入了 多條數(shù)據(jù)。將“倉儲管理信息系統(tǒng)”數(shù)據(jù)庫打幵，轉化97格式的數(shù)據(jù)庫，取名“倉儲管理信息系統(tǒng)-97”，復制到用戶目錄下。啟動VB在窗體上加入DATA空件data1，文本框控件text1，保存文件和工 程到用戶目錄下。設置DATA空件的database name屬性為“倉儲管理信息系統(tǒng) 97”，設置DATA 控件的 Recordsource屬性為貨物表。設置文本框控件的d

26、atasource 屬性為data1,設置文本框控件的datafield 屬性為貨物名稱。運行程序，查看結果。修改上述文本框控件的datafield 屬性，查看結果。添加其他文本框控件，設置屬性，顯示更多的貨物表內(nèi)容。使用ADOD(控件連接數(shù)據(jù)庫在硬盤的用戶盤上建立一個用戶目錄(如E:WORK，用于保存所有實驗文件。啟動ACCESS找到數(shù)據(jù)庫“倉儲管理信息系統(tǒng)”，確認有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。復制到用戶目錄下。啟動VB,通過菜單工程一部件一控件添加控件Microsoft ADODATACONTRO和Microsoft DATAgrid CONTROL 。通過工具箱加兩個控件到窗體上。設置

27、ADOD的屬性，生成一提供程序一Microsoft JET OLE DB連接一WLG 測試連接成功；記錄源一命令類型： 2表名稱：貨物表。設置 datagrid控件屬 性 datasource 為 ADODC1.使用數(shù)據(jù)窗體設計器操作數(shù)據(jù)庫在硬盤的用戶盤上建立一個用戶目錄 (如E:WORK，用于保存所有實驗文件。 啟動ACCESS找到數(shù)據(jù)庫“倉儲管理信息系統(tǒng)”，確認有貨物表，并已經(jīng)錄入了 多條數(shù)據(jù)。將“倉儲管理信息系統(tǒng)”數(shù)據(jù)庫打幵，轉化97格式的數(shù)據(jù)庫，取名“倉儲管理信息系統(tǒng)97”，復制到用戶目錄下。啟動VB,通過菜單 外接程序一可視化數(shù)據(jù)管理器，在visdata界面上文件-打幵數(shù)據(jù)庫一Mic

28、rosoft ACCESS-“倉儲管理信息系統(tǒng) 97” ,實用程序-數(shù)據(jù)窗體設計器一窗體名稱:huowu 記錄源：貨物表一添加使用的多個字段到右側一生 成窗體一關閉。對自動生成的窗體，重新排列位置、設置字體大小，顏色，控件長度等，調 整界面美觀大方，不留空白，不顯擁擠。系統(tǒng)實現(xiàn)(1)實現(xiàn)對供應商管理的代碼Private Sub cmdAdd_Click()SubPrivate Sub cmdDelete_Click()如果刪除記錄集的最后一條記錄 記錄或記錄集中唯一的記錄SubPrivate Sub cmdRefresh_Click()這僅對多用戶應用程序才是需要的End SubPrivate

29、 Sub cmdUpdate_Click()=SubPrivate Sub cmdClose_Click()Un load MeEnd SubPrivate Sub Data1_Error(DataErr As In teger, Resp onse As In teger)這就是放置錯誤處理代碼的地方如果想忽略錯誤，注釋掉下一行代碼如果想捕捉錯誤，在這里添加錯誤處理代碼MsgBox 數(shù)據(jù)錯誤事件命中錯誤：& Error$(DataErr)Resp onse = 0 忽略錯誤End SubPrivate Sub Data1_Repositio n()=vbDefaultOn Error Res

30、ume Next這將顯示當前記錄位置為動態(tài)集和快照=記錄：& + 1)對于Table對象，當記錄集創(chuàng)建后并使用下面的行時，必須設置Index屬性= 記錄：& * * ) + 1End SubPrivate Sub Data1_Validate(Action As In teger, Save As In teger)這是放置驗證代碼的地方當下面的動作發(fā)生時，調用這個事件Select Case Acti onCase vbDataActio nM oveFirstCase vbDataActio nM ovePreviousCase vbDataActio nM oveNextCase vbDa

31、taActio nM oveLastCase vbDataActionAddNewCase vbDataActio nUpdateCase vbDataAction DeleteCase vbDataActi onFindCase vbDataActio nBookmarkCase vbDataActio nCloseEnd Select=vbHourglassEnd Sub實現(xiàn)用戶注冊的單擊事件Private Sub Comma nd1_Click()If And And And = The n倉儲管理信息系統(tǒng) .mdb & ;& Persist Security In fo二False=3

32、0=adUseClie ntstrSQL = select * from user strSQL, pubC onn, adOpe nDyn amic, adLockOptimisticrs! 用戶名二rs! 密碼二MsgBox 注冊成功！ , vbExclamation + vbOK On ly,警告”Elsem = MsgBox( 錯誤，請重新登錄, vbExclamation)_ III!_ III!_ III!End IfEnd Sub實現(xiàn)貨物出庫管理的代碼Private Sub cmdAdd_Click()SubPrivate Sub cmdDelete_Click()如果刪除記錄集的最后一條記錄 記錄或記錄集中唯一的記錄SubPrivate Sub cmdRefresh_Click()這僅對多用戶應用程序才是需要的End SubPrivate Sub cmdUpdate_Click()=SubPrivate Sub cmdClose_Click()