物流信息管理

1、物 流 信 息 管 理,尹濤 主編東北財經(jīng)大學(xué)出版社,第8章 物流業(yè)務(wù)系統(tǒng),8.1 概述8.2 系統(tǒng)分析8.3 數(shù)據(jù)存儲設(shè)計8.4 輸入設(shè)計——窗體設(shè)計與輸出設(shè)計 ——報表設(shè)計8.5 查詢設(shè)計、程序模塊設(shè)計與菜單設(shè)計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),倉儲管理信息系統(tǒng)網(wǎng)絡(luò)結(jié)構(gòu)見圖8-1。,,圖8-1 倉儲管理信息系統(tǒng)網(wǎng)絡(luò)結(jié)

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

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

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

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

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

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

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

9、 1)系統(tǒng)用戶表 存放倉儲管理系統(tǒng)用戶信息，用戶有超級用戶、經(jīng)理人、一般管理者操作員。關(guān)鍵字段是雇員ID，其數(shù)據(jù)類型為自動增加。字段如圖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ì)兩個表來存儲入庫單數(shù)據(jù)，這兩個表的關(guān)系是一對多的關(guān)系，聯(lián)結(jié)關(guān)鍵字是入庫單編號。這兩個表的設(shè)計是整個系統(tǒng)設(shè)計的關(guān)鍵，如果用一個表存放入庫單的數(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ì)兩個表來存儲入庫單數(shù)據(jù)，這兩個表的關(guān)系是一對多的關(guān)系，聯(lián)結(jié)關(guān)鍵字是出庫單編號。如果用一個表存放出庫單的數(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)儲單表 調(diào)儲單表存放商品的庫位調(diào)整信息，用調(diào)儲單與調(diào)儲單明細(xì)兩個表來存儲調(diào)儲單數(shù)據(jù)，這兩個表的關(guān)系是一對多的關(guān)系，聯(lián)結(jié)關(guān)鍵字是調(diào)儲單編號。關(guān)鍵字段：調(diào)儲單。結(jié)構(gòu)見圖8-22所示。,,圖8-22 調(diào)儲單表,11

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

14、照完整性見圖8-26。,,圖8-26 出庫單參照完整性,8.3.4 視圖設(shè)計,1)入庫單查詢單視圖 SELECT 入庫單.入庫單編號, 客戶.公司名稱, 入庫單.驗收日期, 入庫單.提交申請日期, 入庫單.申請入庫日期 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)品視圖運行的結(jié)果如下圖8-27所示。,,圖8-27 各類產(chǎn)品視圖運行的結(jié)果,8.4 輸入設(shè)計——窗體設(shè)計與輸出設(shè)計 ——報表設(shè)計,8.4.1 輸入設(shè)計——窗體設(shè)計,1)客戶窗體

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

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

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

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,錯誤信息.Visible = False End If End WithEnd SubSub showErrorMessage(),' 如果找不到照片文件， 顯示錯誤信息標(biāo)簽 If Not IsNull(Me!照片) Then 錯誤信息.Visible = False Else 錯誤信息.V

23、isible = True End IfEnd Sub,Function IsRelative(fName As String) As Boolean ' 如果文件名中包含驅(qū)動器名稱或 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、”組合框。 ' 如果該雇員記錄的文件名不存在，則顯示一條錯誤信息． ' 如果文件名存在，則顯示雇員照片． 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)前記錄雇員的照片． ' 如果照片文件不存在,或文件名為空，在錯誤信息 ' 標(biāo)簽上顯

27、示適當(dāng)?shù)男畔ⅲ?Dim res As Boolean Dim fName As String,path = CurrentProject.path On Error Resume Next 錯誤信息.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 錯誤信息.Caption = "照片未找到。" 錯誤信息.Visible = True,End If Else hideImag

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

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

32、' 使用 Office 文件打開對話框，獲取一個雇員照片的文件名 getFileNameEnd Sub,Private Sub 照片路徑_AfterUpdate() ' 在選擇了一個雇員照片后，顯示照片． 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è)計——報表設(shè)計,1)客戶標(biāo)簽 客戶標(biāo)簽用于打印信件，把客戶標(biāo)簽打印到不干膠紙上，然后貼到信封上?？蛻魳?biāo)簽報表見圖8-36。,,圖

34、8-35客戶標(biāo)簽報表,2)庫存臺賬報表 庫存臺賬報表見圖8-37。,,圖8-37 庫存臺賬報表設(shè)計視圖,8.5 查詢設(shè)計、程序模塊設(shè)計與菜單設(shè)計,8.5.1 查詢設(shè)計,對于使用頻率高的固定方式查詢，如按客戶查詢庫存數(shù)據(jù)見圖8-38，為了節(jié)省用戶的時間，可以設(shè)計單獨的查詢程序。,,圖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 = "按客戶查詢庫存臺賬" 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è)計,把具有通用功能的程序設(shè)計成單獨的公共模塊，公共模塊不依附于窗體和報表。1)Changetochinese功能：把0~9數(shù)值轉(zhuǎn)化為中文Option Compare DatabaseO

37、ption ExplicitFunction CHANGE(n) As String‘把單個數(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ī)的名字，用于系統(tǒng)的安全，只有允許的計算機(jī)才可以使用本倉

41、儲系統(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,'定義一個獲取計算機(jī)名字的函數(shù) Public Function GetCName(CName) As Boolean Dim sComputerName As String 

43、9; 計算機(jī)的名字 Dim lComputerNameLen As Long '計算機(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,'定義一個修改計算機(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è)計,設(shè)計系統(tǒng)的菜單前先設(shè)計宏，設(shè)計調(diào)用各功能的宏，我們把全部宏設(shè)計為一組，以宏名“菜單”保存，見圖8-39。 倉儲管理系統(tǒng)系統(tǒng)啟動后顯示菜單如下圖8-40所示。,,圖8-39 宏,,圖8-40 倉儲管理系統(tǒng)系統(tǒng)啟動菜單,8.6 系統(tǒng)的調(diào)試與安裝,8.6.1 升遷到SQL SERSERVE