物流信息管理

1、物 流 信 息 管 理,尹濤 主編東北財(cái)經(jīng)大學(xué)出版社,第8章 物流業(yè)務(wù)系統(tǒng),8.1 概述8.2 系統(tǒng)分析8.3 數(shù)據(jù)存儲(chǔ)設(shè)計(jì)8.4 輸入設(shè)計(jì)——窗體設(shè)計(jì)與輸出設(shè)計(jì) ——報(bào)表設(shè)計(jì)8.5 查詢設(shè)計(jì)、程序模塊設(shè)計(jì)與菜單設(shè)計(jì)8.6 系統(tǒng)的調(diào)試與安裝,8.1 概述,8.1.1 系統(tǒng)目標(biāo)和功能,8.1.2 系統(tǒng)網(wǎng)絡(luò)結(jié)構(gòu),倉儲(chǔ)管理信息系統(tǒng)網(wǎng)絡(luò)結(jié)構(gòu)見圖8-1。,,圖8-1 倉儲(chǔ)管理信息系統(tǒng)網(wǎng)絡(luò)結(jié)

2、構(gòu),我們設(shè)計(jì)采用千兆主干、百兆交換到桌面的大型網(wǎng)絡(luò)解決方案，方案特點(diǎn)： （1）千兆骨干、百兆交換到桌面；樓宇建筑之間千兆光纖，庫房內(nèi)部百兆。 （2）虛擬網(wǎng)絡(luò)方便管理、提高網(wǎng)絡(luò)安全與性能； （3）系統(tǒng)安全，保密性高。,8.1.3 系統(tǒng)設(shè)計(jì)流程,結(jié)合系統(tǒng)本身的特點(diǎn)，我們提出用快速開發(fā)工具開發(fā)一個(gè)倉儲(chǔ)管理信息系統(tǒng)數(shù)據(jù)庫應(yīng)用程序的設(shè)計(jì)流程如下圖8-2所示 。,系統(tǒng)開發(fā)流程,開始：用戶提出需求,初步調(diào)查：了解用戶需求，設(shè)計(jì)基本

3、結(jié)構(gòu),需求分析：建立表及其關(guān)系建立系統(tǒng)功能模塊結(jié)構(gòu)圖,設(shè)計(jì)數(shù)據(jù)輸入界面：窗體、訪問頁等,設(shè)計(jì)輸出界面：報(bào)表、查詢界面,設(shè)計(jì)宏（及VAB程序）,設(shè)計(jì)菜單系統(tǒng),測試、改進(jìn)功能,交付用戶，發(fā)布完成,系統(tǒng)最后測試修改,打包，制做安裝程序、使用說明,,,,,,,,,,,圖8-2 系開發(fā)統(tǒng)設(shè)計(jì)流程,8.2.1 業(yè)務(wù)流程分析,商品檢驗(yàn),進(jìn)貨暫存區(qū)域,流通加工,商品入庫,庫位庫存,貨架保存,分揀,補(bǔ)充流通加工,出貨區(qū)域,出貨檢驗(yàn)

4、集貨,,供應(yīng)商,收貨入庫,上架保存,分揀出貨,商品檢驗(yàn)報(bào)告單,,,,,,,,,,,,,,,,,,,,,圖8-3 倉儲(chǔ)作業(yè)流程,8.2.2 數(shù)據(jù)流程圖,總的業(yè)務(wù)處理的過程如下：客戶來辦理倉儲(chǔ)業(yè)務(wù)，提交申請（申請入庫、出庫），倉儲(chǔ)企業(yè)接受申請，開始辦理業(yè)務(wù)，業(yè)務(wù)處理完后給客戶回執(zhí)，內(nèi)部處理時(shí)與倉儲(chǔ)數(shù)據(jù)存儲(chǔ)交換數(shù)據(jù)。據(jù)此做出第一層數(shù)據(jù)流程圖，見下圖8-4。,,,,,,圖8-4 第一層數(shù)據(jù)流程,對第一層的業(yè)務(wù)在詳細(xì)分析，倉儲(chǔ)業(yè)務(wù)主要包

5、括三項(xiàng)：入庫、出庫、調(diào)儲(chǔ)。輸入的數(shù)據(jù)分別存放到入庫單、出庫單、調(diào)儲(chǔ)單中。做出第二層數(shù)據(jù)流程圖，見圖8-5。,,客戶,,,入庫單,出庫單,調(diào)儲(chǔ)單,,,,,,,,,,,,,,,,,,,,,,,,,,,,圖8-5 第二層數(shù)據(jù)流程圖,8.2.3 系統(tǒng)功能模塊,通過與用戶的交流，我們了解了倉儲(chǔ)管理系統(tǒng)的主要功能包括：入庫、出庫、調(diào)儲(chǔ)、庫存、結(jié)算費(fèi)用、報(bào)表和基礎(chǔ)數(shù)據(jù)維護(hù)。 系統(tǒng)功能用功能結(jié)構(gòu)圖表示如下圖8-6所示。,,,,,,,,

6、,,,,圖8-6 倉儲(chǔ)管理系統(tǒng)功能,入庫管理功能包括新增入庫單、修改入庫單、審核、驗(yàn)收入庫單、打印入庫單等功能，如圖8-7所示。 出庫管理功能包括新增出庫單、修改出庫單、審核、驗(yàn)收出庫單、打印出庫單等功能，如圖8-8所示。,調(diào)儲(chǔ)管理包括新增調(diào)儲(chǔ)單、修改調(diào)儲(chǔ)單、調(diào)儲(chǔ)、打印調(diào)儲(chǔ)單等功能，如圖8-9所示。 基礎(chǔ)數(shù)據(jù)維護(hù)包括如客戶、用戶、庫位、產(chǎn)品等基本信息，基礎(chǔ)數(shù)據(jù)維護(hù)包括對這些數(shù)據(jù)的增加、修改、刪除、查詢、打印等

7、操作。如圖8-10所示。,用戶管理包括增加用戶、修改用戶、刪除用戶、查詢用戶、打印用戶等功能。見下圖8-11所示。,入庫管理,新增入庫單,修改入庫單,審核入庫單,打印入庫單,驗(yàn)收入庫單,,,,,,,圖8-7 入庫管理,出庫管理,新增出庫單,修改出庫單,審核出庫單,驗(yàn)收出庫單,打印出庫單,,,,,,,圖8-8 出庫管理,調(diào)儲(chǔ)管理,新增調(diào)儲(chǔ)單,修改調(diào)儲(chǔ)單,調(diào)儲(chǔ)調(diào)儲(chǔ)單,打印調(diào)儲(chǔ)單,,,,,,,圖8-9 調(diào)儲(chǔ)管理,基礎(chǔ)數(shù)據(jù)維護(hù),增加,修改

8、,刪除,查詢,打印,,,,,,,圖8-10 基礎(chǔ)數(shù)據(jù)維護(hù),用戶管理,增加用戶,修改用戶,刪除用戶,查詢用戶,打印用戶,口令管理,,,,,,,,,圖8-11 用戶管理,8.3 數(shù)據(jù)存儲(chǔ)設(shè)計(jì),從數(shù)據(jù)流程圖中看到，系統(tǒng)主要有三個(gè)數(shù)據(jù)實(shí)體，一是入庫單，一是出庫單,另外一個(gè)是庫存臺(tái)賬。,8.3.1 設(shè)計(jì)表,倉儲(chǔ)管理的核心是圍繞入庫單、出庫單、庫存臺(tái)帳進(jìn)行的，入庫單示例如圖8-12。,圖8-12 入庫單,,倉儲(chǔ)管理系統(tǒng)主要包括以下表：

9、 1)系統(tǒng)用戶表 存放倉儲(chǔ)管理系統(tǒng)用戶信息，用戶有超級用戶、經(jīng)理人、一般管理者操作員。關(guān)鍵字段是雇員ID，其數(shù)據(jù)類型為自動(dòng)增加。字段如圖8-13所示。,,圖8-13 系統(tǒng)用戶表,2)客戶表 客戶表存放客戶信息，關(guān)鍵字段是客戶ID。表結(jié)構(gòu)如圖8-14所示。,,圖8-14 客戶表,3)收貨方表 收貨方表存放收貨方客戶信息，關(guān)鍵字段是收貨方ID。表結(jié)構(gòu)如圖8-15所示。,,圖8-15 收貨

10、方表,4)產(chǎn)品表 存放處入庫的全部產(chǎn)品信息碼。關(guān)鍵字段：產(chǎn)品ID。表結(jié)構(gòu)如圖8-16所示。,,圖8-16 產(chǎn)品表,5)倉庫表 存放倉庫全部信息，關(guān)鍵字段：倉庫代碼。表結(jié)構(gòu)如圖8-17所示。,,圖8-17 倉庫表,6)入庫單 用入庫單與入庫單明細(xì)兩個(gè)表來存儲(chǔ)入庫單數(shù)據(jù)，這兩個(gè)表的關(guān)系是一對多的關(guān)系，聯(lián)結(jié)關(guān)鍵字是入庫單編號。這兩個(gè)表的設(shè)計(jì)是整個(gè)系統(tǒng)設(shè)計(jì)的關(guān)鍵，如果用一個(gè)表存放入庫單的數(shù)據(jù)，將造成大量的

11、數(shù)據(jù)冗余。關(guān)鍵字段：入庫單編號。結(jié)構(gòu)見圖8-18。,,圖8-18 入庫單表,7)入庫單明細(xì)表 入庫單明細(xì)表存放入庫倉單中的多方信息，關(guān)鍵字段：入庫單編號+產(chǎn)品編號。表結(jié)構(gòu)如圖8-19所示。,,圖8-19 入庫單明細(xì)表,8)出庫單 類似于入庫單，用出庫單與出庫單明細(xì)兩個(gè)表來存儲(chǔ)入庫單數(shù)據(jù)，這兩個(gè)表的關(guān)系是一對多的關(guān)系，聯(lián)結(jié)關(guān)鍵字是出庫單編號。如果用一個(gè)表存放出庫單的數(shù)據(jù)，將造成大量的數(shù)據(jù)冗余。關(guān)鍵字段：出庫單編

12、號。結(jié)構(gòu)見圖8-20所示。,,圖8-20 出庫單表,9)出庫單明細(xì)表 出庫單明細(xì)表存放出庫倉單中的多方信息，關(guān)鍵字段：出庫單編號+產(chǎn)品編號。結(jié)構(gòu)見圖8-21所示。,,圖8-21 出庫單明細(xì)表,10)調(diào)儲(chǔ)單表 調(diào)儲(chǔ)單表存放商品的庫位調(diào)整信息，用調(diào)儲(chǔ)單與調(diào)儲(chǔ)單明細(xì)兩個(gè)表來存儲(chǔ)調(diào)儲(chǔ)單數(shù)據(jù)，這兩個(gè)表的關(guān)系是一對多的關(guān)系，聯(lián)結(jié)關(guān)鍵字是調(diào)儲(chǔ)單編號。關(guān)鍵字段：調(diào)儲(chǔ)單。結(jié)構(gòu)見圖8-22所示。,,圖8-22 調(diào)儲(chǔ)單表,11

13、)調(diào)儲(chǔ)單明細(xì)表 調(diào)儲(chǔ)單明細(xì)表存放調(diào)儲(chǔ)單中的多方信息，關(guān)鍵字段：調(diào)儲(chǔ)單+產(chǎn)品編號。結(jié)構(gòu)見圖8-23所示。,,圖8-23 調(diào)儲(chǔ)單明細(xì)表,12)庫存臺(tái)帳表 庫存臺(tái)帳表存放在庫的所有商品信息，關(guān)鍵字段是流水號。表結(jié)構(gòu)如圖8-24所示。,,圖8-24 庫存臺(tái)帳表,8.3.2 表間關(guān)系,系統(tǒng)主要的表間主要關(guān)系如下圖8-25所示，關(guān)系都是一對多的關(guān)系。,,圖8-25表間主要關(guān)系,8.3.3 參照完整性設(shè)計(jì),出庫單參

14、照完整性見圖8-26。,,圖8-26 出庫單參照完整性,8.3.4 視圖設(shè)計(jì),1)入庫單查詢單視圖 SELECT 入庫單.入庫單編號, 客戶.公司名稱, 入庫單.驗(yàn)收日期, 入庫單.提交申請日期, 入庫單.申請入庫日期 FROM 客戶 INNER JOIN 入庫單 ON 客戶.客戶ID = 入庫單.客戶;,2)各類產(chǎn)品視圖 SELECT 類別.類別名稱, 產(chǎn)品.產(chǎn)品名稱, 產(chǎn)品.包裝單位,

15、 產(chǎn)品.中止 FROM 類別 INNER JOIN 產(chǎn)品 ON 類別.類別ID = 產(chǎn)品.類別ID WHERE (((產(chǎn)品.中止)=No)) ORDER BY 類別.類別名稱, 產(chǎn)品.產(chǎn)品名稱;各類產(chǎn)品視圖運(yùn)行的結(jié)果如下圖8-27所示。,,圖8-27 各類產(chǎn)品視圖運(yùn)行的結(jié)果,8.4 輸入設(shè)計(jì)——窗體設(shè)計(jì)與輸出設(shè)計(jì) ——報(bào)表設(shè)計(jì),8.4.1 輸入設(shè)計(jì)——窗體設(shè)計(jì),1)客戶窗體

16、 客戶窗體用于輸入客戶信息，其設(shè)計(jì)視圖如下圖8-28所示。,,圖8-28 客戶窗體,2）入庫單窗體 入庫單窗體運(yùn)行視圖如圖8-29，設(shè)計(jì)視圖如圖8-30所示。,,圖8-29 入庫單窗體運(yùn)行視圖,,圖8-30入庫單窗體設(shè)計(jì)視圖,3)出庫單窗體 出庫單窗體用于輸入出庫單，也用于修改出庫單和出庫單查詢。出庫單窗體運(yùn)行視圖見圖8-31所示。,,圖8-31 出庫單窗體運(yùn)行視圖,4)調(diào)儲(chǔ)單窗體 調(diào)儲(chǔ)單

17、窗體用于輸入調(diào)儲(chǔ)單。調(diào)儲(chǔ)單窗體運(yùn)行視圖見圖8-32。,,圖8-32 調(diào)儲(chǔ)單窗體運(yùn)行視圖,5）倉庫窗體 倉庫窗體用于輸入倉庫信息，也用于顯示查詢倉庫的信息。倉庫窗體運(yùn)行視圖見圖8-33。,,圖8-33 倉庫窗體窗體運(yùn)行視圖,,6）產(chǎn)品窗體 產(chǎn)品窗體用于輸入產(chǎn)品信息，也用于顯示查詢產(chǎn)品的信息。產(chǎn)品窗體窗體運(yùn)行視圖見圖8-34。,,圖8-34 產(chǎn)品窗體運(yùn)行視圖,,7）系統(tǒng)用戶窗體 系統(tǒng)用戶窗體用于輸

18、入本企業(yè)的雇員，也用于顯示查詢雇員的信息。系統(tǒng)用戶窗體運(yùn)行視圖見圖8-35。,圖8-35 系統(tǒng)用戶窗體運(yùn)行視圖,系統(tǒng)用戶窗體中的程序如下：Option Compare DatabaseOption ExplicitDim path As StringSub getFileName(),' 顯示一個(gè) Office 打開文件對話框，為當(dāng)前的雇員記錄 ' 選擇一個(gè)文件名．如果用戶選擇了一個(gè)文件， &

19、#39; 則將它顯示到圖片控件中 Dim fileName As String Dim result As Integer With Application.FileDialog(msoFileDialogFilePicker),.Title = "選擇雇員照片" .Filters.Add "所有文件", "*.*" .F

20、ilters.Add "JPEGs", "*.jpg" .Filters.Add "位圖文件", "*.bmp" .FilterIndex = 3 .AllowMultiSelect = False,.InitialFileName = CurrentProject.path result =

21、.Show If (result 0) Then fileName = Trim(.SelectedItems.Item(1)) Me![照片路徑].Visible = True Me![照片路徑].SetFocus Me![照片路徑].Text = fileName Me![姓氏].SetFocus

22、 Me![照片路徑].Visible = False,錯(cuò)誤信息.Visible = False End If End WithEnd SubSub showErrorMessage(),' 如果找不到照片文件， 顯示錯(cuò)誤信息標(biāo)簽 If Not IsNull(Me!照片) Then 錯(cuò)誤信息.Visible = False Else 錯(cuò)誤信息.V

23、isible = True End IfEnd Sub,Function IsRelative(fName As String) As Boolean ' 如果文件名中包含驅(qū)動(dòng)器名稱或 UNC 路徑，返回 False IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "\\") = 0)En

24、d Function,Sub hideImageFrame() ' 隱藏圖像控件 Me![照片圖像].Visible = FalseEnd Sub Sub showImageFrame() ' 顯示圖像控件 Me![照片圖像].Visible = TrueEnd Sub,Private Sub Form_AfterUpdate() ' 一條記錄改變之后，再次查詢“上級

25、”組合框。 ' 如果該雇員記錄的文件名不存在，則顯示一條錯(cuò)誤信息． ' 如果文件名存在，則顯示雇員照片． Me!上級.Requery,On Error Resume Next showErrorMessage showImageFrame If (IsRelative(Me!照片路徑) = True) Then Me![照片圖

26、像].Picture = path & Me![照片路徑] Else Me![照片圖像].Picture = Me![照片路徑] End If End Sub,Private Sub Form_Current() ' 如果照片存在，顯示當(dāng)前記錄雇員的照片． ' 如果照片文件不存在,或文件名為空，在錯(cuò)誤信息 ' 標(biāo)簽上顯

27、示適當(dāng)?shù)男畔ⅲ?Dim res As Boolean Dim fName As String,path = CurrentProject.path On Error Resume Next 錯(cuò)誤信息.Visible = False If Not IsNull(Me!照片) Then res = IsRelative(Me!照片) fN

28、ame = Me![照片路徑] If (res = True) Then fName = path & "\" & fName End If,Me![照片圖像].Picture = fName showImageFrame Me.PaintPalette = Me![照片圖像

29、].ObjectPalette If (Me![照片圖像].Picture fName) Then hideImageFrame 錯(cuò)誤信息.Caption = "照片未找到。" 錯(cuò)誤信息.Visible = True,End If Else hideImag

30、eFrame 錯(cuò)誤信息.Caption = "單擊“添加/刪除”按鈕，添加照片。" 錯(cuò)誤信息.Visible = True End IfEnd Sub,Private Sub Form_RecordExit(Cancel As Integer) ' 在不同的記錄間切換時(shí)，隱藏錯(cuò)誤信息標(biāo)簽，以減少閃爍． 錯(cuò)誤信息.Visible

31、= FalseEnd Sub,Private Sub 刪除照片_Click() ' 清雇員記錄的照片文件名，并顯示錯(cuò)誤信息標(biāo)簽． Me![照片路徑] = "" hideImageFrame Me![照片圖像].Picture = "" 錯(cuò)誤信息.Visible = TrueEnd Sub,Private Sub 添加照片_Click()

32、' 使用 Office 文件打開對話框，獲取一個(gè)雇員照片的文件名 getFileNameEnd Sub,Private Sub 照片路徑_AfterUpdate() ' 在選擇了一個(gè)雇員照片后，顯示照片． On Error Resume Next showErrorMessage showImageFrame,If (IsRelative(Me!照片路徑) = T

33、rue) Then Me![照片圖像].Picture = path & Me![照片路徑] Else Me![照片圖像].Picture = Me![照片路徑] End IfEnd Sub,8.4.2 輸出設(shè)計(jì)——報(bào)表設(shè)計(jì),1)客戶標(biāo)簽 客戶標(biāo)簽用于打印信件，把客戶標(biāo)簽打印到不干膠紙上，然后貼到信封上?？蛻魳?biāo)簽報(bào)表見圖8-36。,,圖

34、8-35客戶標(biāo)簽報(bào)表,2)庫存臺(tái)賬報(bào)表 庫存臺(tái)賬報(bào)表見圖8-37。,,圖8-37 庫存臺(tái)賬報(bào)表設(shè)計(jì)視圖,8.5 查詢設(shè)計(jì)、程序模塊設(shè)計(jì)與菜單設(shè)計(jì),8.5.1 查詢設(shè)計(jì),對于使用頻率高的固定方式查詢，如按客戶查詢庫存數(shù)據(jù)見圖8-38，為了節(jié)省用戶的時(shí)間，可以設(shè)計(jì)單獨(dú)的查詢程序。,,圖8-38 按客戶查詢庫存窗體,‘查詢代碼Private Sub Combo0_AfterUpdate()Me.RefreshEnd Sub

35、Private Sub Command1_Click()On Error GoTo Err_Command1_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "按客戶查詢庫存臺(tái)賬" DoCmd.OpenForm stDocName, , , stLinkCriteria,Exit_Comm

36、and1_Click: Exit SubErr_命Command1_Click: MsgBox Err.Description Resume Exit_Command1_ClickEnd Sub,8.5.2 程序模塊設(shè)計(jì),把具有通用功能的程序設(shè)計(jì)成單獨(dú)的公共模塊，公共模塊不依附于窗體和報(bào)表。1)Changetochinese功能：把0~9數(shù)值轉(zhuǎn)化為中文Option Compare DatabaseO

37、ption ExplicitFunction CHANGE(n) As String‘把單個(gè)數(shù)字轉(zhuǎn)化為漢字Select Case n Case 0 CHANGE = "零",Case 1 CHANGE = "壹" Case 2 CHANGE = "貳" Case 3 CHANGE = "叁" Case 4

38、 CHANGE = "肆" Case 5 CHANGE = "伍",Case 6 CHANGE = "陸" Case 7 CHANGE = "柒" Case 8 CHANGE = "捌" Case 9 CHANGE = "玖"End SelectEnd

39、 Function,2）IsLoaded ‘判別給定的窗體是否打開Function IsLoaded(ByVal strFormName As String) As Boolean ' 如果指定窗體在窗體視圖或數(shù)據(jù)表視圖中打開，返回 True。 Dim oAccessObject As AccessObject,Set oAccessObject = CurrentProject.AllForms(strFormN

40、ame) If oAccessObject.IsLoaded Then If oAccessObject.CurrentView acCurViewDesign Then IsLoaded = True End If End IfEnd Function,3)GetComputerName‘得到當(dāng)前計(jì)算機(jī)的名字，用于系統(tǒng)的安全，只有允許的計(jì)算機(jī)才可以使用本倉

41、儲(chǔ)系統(tǒng)。'聲明GetComputerName函數(shù)，它是API函數(shù)Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long'聲明SetComputerNameDeclare Function

42、 SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long,'定義一個(gè)獲取計(jì)算機(jī)名字的函數(shù) Public Function GetCName(CName) As Boolean Dim sComputerName As String 

43、9; 計(jì)算機(jī)的名字 Dim lComputerNameLen As Long '計(jì)算機(jī)名字的長度 Dim lResult As Long 'GetComputerName的返回值 Dim RV As Boolean 'GetCName返回值，若為TRUE則表示操作成功 lComputerNameLen = 256 sComputerName = Space(lCompute

44、rNameLen) lResult = GetComputerName(sComputerName, lComputerNameLen),If lResult 0 Then CName = Left$(sComputerName, lComputerNameLen) RV = True Else RV = False End If GetCName = RVEnd Fun

45、ction,'定義一個(gè)修改計(jì)算機(jī)名字的函數(shù) Public Function SetCName(CName As String) As Boolean Dim lResult As Long Dim RV As Boolean lResult = SetComputerName(CName) If lResult 0 Then,RV = True '修改成功 Else

46、 RV = False End If SetCName = RVEnd Function,8.5.3 菜單設(shè)計(jì),設(shè)計(jì)系統(tǒng)的菜單前先設(shè)計(jì)宏，設(shè)計(jì)調(diào)用各功能的宏，我們把全部宏設(shè)計(jì)為一組，以宏名“菜單”保存，見圖8-39。 倉儲(chǔ)管理系統(tǒng)系統(tǒng)啟動(dòng)后顯示菜單如下圖8-40所示。,,圖8-39 宏,,圖8-40 倉儲(chǔ)管理系統(tǒng)系統(tǒng)啟動(dòng)菜單,8.6 系統(tǒng)的調(diào)試與安裝,8.6.1 升遷到SQL SERSERVE