(专科）第8章物流业务信息系统教学ppt课件.ppt

《(专科）第8章物流业务信息系统教学ppt课件.ppt》由会员分享，可在线阅读，更多相关《(专科）第8章物流业务信息系统教学ppt课件.ppt（136页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、(专科）第8章 物流业务信息系统教学ppt课件物物 流流 信信 息息 管管 理理尹涛尹涛 主编主编东北财经大学出版社东北财经大学出版社8.1 8.1 概述概述8.2 8.2 系统分析系统分析8.3 8.3 数据存储设计数据存储设计8.4 8.4 输入设计输入设计窗体设计与输出设计窗体设计与输出设计 报表设计报表设计8.5 8.5 查询设计、程序模块设计与菜单设计查询设计、程序模块设计与菜单设计8.6 8.6 系统的调试与安装系统的调试与安装8.1 8.1 概述概述8.1.1 8.1.1 系统目标和功能系统目标和功能 8.1.2 8.1.2 系统网络结构系统网络结构 仓储管理信息系统网络结构见图

2、8-1。 图8-1 仓储管理信息系统网络结构 我们设计采用千兆主干、百兆交换到桌面的大型网络解决方案，方案特点： （1）千兆骨干、百兆交换到桌面；楼宇建筑之间千兆光纤，库房内部百兆。 （2）虚拟网络方便管理、提高网络安全与性能； （3）系统安全，保密性高。 8.1.3 8.1.3 系统设计流程系统设计流程 结合系统本身的特点，我们提出用快速开发工具开发一个仓储管理信息系统数据库应用程序的设计流程如下图8-2所示 。系统开发流程开始：用户提出需求初步调查：了解用户需求，设计基本结构需求分析：建立表及其关系建立系统功能模块结构图设计数据输入界面：窗体、访问页等设计输出界面：报表、查询界面设计宏（及

3、VAB程序）设计菜单系统测试、改进功能交付用户，发布完成系统最后测试修改打包，制做安装程序、使用说明图8-2 系开发统设计流程 8.2 8.2 业务流程分析业务流程分析 8.2.1 8.2.1 业务流程分析业务流程分析 商品检验进货暂存区域流通加工商品入库库位库存货架保存分拣补充流通加工出货区域出货检验集货供应商收货入库上架保存分拣出货商品检验报告单图8-3 仓储作业流程 8.2.2 8.2.2 数据流程图数据流程图 总的业务处理的过程如下：客户来办理仓储业务，提交申请（申请入库、出库），仓储企业接受申请，开始办理业务，业务处理完后给客户回执，内部处理时与仓储数据存储交换数据。据此做出第一层数

4、据流程图，见下图8-4。 仓储数据1仓储业务处理客户图8-4 第一层数据流程 对第一层的业务在详细分析，仓储业务主要包括三项：入库、出库、调储。输入的数据分别存放到入库单、出库单、调储单中。做出第二层数据流程图，见图8-5。 2-1入库2-2入库客户入库单出库单仓储数据出库单2-4登账处理调储单仓储台账2-3调储调储单图8-5 第二层数据流程图 8.2.3 8.2.3 系统功能模块系统功能模块 通过与用户的交流，我们了解了仓储管理系统的主要功能包括：入库、出库、调储、库存、结算费用、报表和基础数据维护。 系统功能用功能结构图表示如下图8-6所示。 仓储管理系统入库管理出库管理库存管理调储管理结

5、算费用系统用户口令基础数据维护报表报表管理统计/查询图8-6 仓储管理系统功能 入库管理功能包括新增入库单、修改入库单、审核、验收入库单、打印入库单等功能，如图8-7所示。 出库管理功能包括新增出库单、修改出库单、审核、验收出库单、打印出库单等功能，如图8-8所示。 调储管理包括新增调储单、修改调储单、调储、打印调储单等功能，如图8-9所示。 基础数据维护包括如客户、用户、库位、产品等基本信息，基础数据维护包括对这些数据的增加、修改、删除、查询、打印等操作。如图8-10所示。 用户管理包括增加用户、修改用户、删除用户、查询用户、打印用户等功能。见下图8-11所示。 入库管理新增入库单修改入库单

6、审核入库单打印入库单验收入库单图8-7 入库管理 出库管理新增出库单修改出库单审核出库单验收出库单打印出库单图8-8 出库管理 调储管理新增调储单修改调储单调储调储单打印调储单图8-9 调储管理 基础数据维护增加修改删除查询打印图8-10 基础数据维护用户管理增加用户修改用户删除用户查询用户打印用户口令管理图8-11 用户管理 8.3 8.3 数据存储设计数据存储设计 从数据流程图中看到，系统主要有三个数据实体，一是入库单，一是出库单,另外一个是库存台账。 8.3.1 8.3.1 设计表设计表 仓储管理的核心是围绕入库单、出库单、库存台帐进行的，入库单示例如图8-12。 图8-12 入库单 仓

7、储管理系统主要包括以下表： 1)系统用户表 存放仓储管理系统用户信息，用户有超级用户、经理人、一般管理者操作员。关键字段是雇员ID，其数据类型为自动增加。字段如图8-13所示。 图8-13 系统用户表 2)客户表 客户表存放客户信息，关键字段是客户ID。表结构如图8-14所示。 图8-14 客户表 3)收货方表 收货方表存放收货方客户信息，关键字段是收货方ID。表结构如图8-15所示。 图8-15 收货方表 4)产品表 存放处入库的全部产品信息码。关键字段：产品ID。表结构如图8-16所示。 图8-16 产品表 5)仓库表 存放仓库全部信息，关键字段：仓库代码。表结构如图8-17所示。 图8-

8、17 仓库表 6)入库单表 用入库单与入库单明细两个表来存储入库单数据，这两个表的关系是一对多的关系，联结关键字是入库单编号。这两个表的设计是整个系统设计的关键，如果用一个表存放入库单的数据，将造成大量的数据冗余。关键字段：入库单编号。结构见图8-18。 图8-18 入库单表 7)入库单明细表 入库单明细表存放入库仓单中的多方信息，关键字段：入库单编号+产品编号。表结构如图8-19所示。 图8-19 入库单明细表 8)出库单表 类似于入库单，用出库单与出库单明细两个表来存储入库单数据，这两个表的关系是一对多的关系，联结关键字是出库单编号。如果用一个表存放出库单的数据，将造成大量的数据冗余。关键

9、字段：出库单编号。结构见图8-20所示。图8-20 出库单表 9)出库单明细表 出库单明细表存放出库仓单中的多方信息，关键字段：出库单编号+产品编号。结构见图8-21所示。 图8-21 出库单明细表 10)调储单表 调储单表存放商品的库位调整信息，用调储单与调储单明细两个表来存储调储单数据，这两个表的关系是一对多的关系，联结关键字是调储单编号。关键字段：调储单。结构见图8-22所示。 图8-22 调储单表 11)调储单明细表 调储单明细表存放调储单中的多方信息，关键字段：调储单+产品编号。结构见图8-23所示。 图8-23 调储单明细表 12)库存台帐表 库存台帐表存放在库的所有商品信息，关键

10、字段是流水号。表结构如图8-24所示。 图8-24 库存台帐表 8.3.2 8.3.2 表间关系表间关系 系统主要的表间主要关系如下图8-25所示，关系都是一对多的关系。 图8-25表间主要关系 8.3.3 8.3.3 参照完整性设计参照完整性设计 出库单参照完整性见图8-26。 图8-26 出库单参照完整性 8.3.4 8.3.4 视图设计视图设计 1)入库单查询单视图 SELECT 入库单.入库单编号, 客户.公司名称, 入库单.验收日期, 入库单.提交申请日期, 入库单.申请入库日期 FROM 客户 INNER JOIN 入库单 ON 客户.客户ID = 入库单.客户; 2)各类产品视图

11、 SELECT 类别.类别名称, 产品.产品名称, 产品.包装单位, 产品.中止 FROM 类别 INNER JOIN 产品 ON 类别.类别ID = 产品.类别ID WHERE (产品.中止)=No) ORDER BY 类别.类别名称, 产品.产品名称;各类产品视图运行的结果如下图8-27所示。 图8-27 各类产品视图运行的结果8.4 8.4 输入设计输入设计窗体设计窗体设计 1)客户窗体 客户窗体用于输入客户信息，其设计视图如下图8-28所示。 图8-28 客户窗体 2）入库单窗体 入库单窗体运行视图如图8-29，设计视图如图8-30所示。 图8-29 入库单窗体运行视图 图8-30入库

12、单窗体设计视图 3)出库单窗体 出库单窗体用于输入出库单，也用于修改出库单和出库单查询。出库单窗体运行视图见图8-31所示。 图8-31 出库单窗体运行视图 4)调储单窗体 调储单窗体用于输入调储单。调储单窗体运行视图见图8-32。 图8-32 调储单窗体运行视图 5）仓库窗体 仓库窗体用于输入仓库信息，也用于显示查询仓库的信息。仓库窗体运行视图见图8-33。图8-33 仓库窗体窗体运行视图 6）产品窗体 产品窗体用于输入产品信息，也用于显示查询产品的信息。产品窗体窗体运行视图见图8-34。 图8-34 产品窗体运行视图 7）系统用户窗体 系统用户窗体用于输入本企业的雇员，也用于显示查询雇员的

13、信息。系统用户窗体运行视图见图8-35。 图8-35 系统用户窗体运行视图系统用户窗体中的程序如下：Option Compare DatabaseOption ExplicitDim path As StringSub getFileName() 显示一个 Office 打开文件对话框，为当前的雇员记录 选择一个文件名如果用户选择了一个文件， 则将它显示到图片控件中 Dim fileName As String Dim result As Integer With Application.FileDialog(msoFileDialogFilePicker) .Title = 选择雇员照片 .

14、Filters.Add 所有文件, *.* .Filters.Add JPEGs, *.jpg .Filters.Add 位图文件, *.bmp .FilterIndex = 3 .AllowMultiSelect = False .InitialFileName = CurrentProject.path result = .Show If (result 0) Then fileName = Trim(.SelectedItems.Item(1) Me!照片路径.Visible = True Me!照片路径.SetFocus Me!照片路径.Text = fileName Me!姓氏.Se

15、tFocus Me!照片路径.Visible = False 错误信息.Visible = False End If End WithEnd SubSub showErrorMessage() 如果找不到照片文件， 显示错误信息标签 If Not IsNull(Me!照片) Then 错误信息.Visible = False Else 错误信息.Visible = True End IfEnd Sub Function IsRelative(fName As String) As Boolean 如果文件名中包含驱动器名称或 UNC 路径，返回 False IsRelative = (InSt

16、r(1, fName, :) = 0) And (InStr(1, fName, ) = 0)End Function Sub hideImageFrame() 隐藏图像控件 Me!照片图像.Visible = FalseEnd Sub Sub showImageFrame() 显示图像控件 Me!照片图像.Visible = TrueEnd Sub Private Sub Form_AfterUpdate() 一条记录改变之后，再次查询“上级”组合框。 如果该雇员记录的文件名不存在，则显示一条错误信息 如果文件名存在，则显示雇员照片 Me!上级.Requery On Error Resume

17、 Next showErrorMessage showImageFrame If (IsRelative(Me!照片路径) = True) Then Me!照片图像.Picture = path & Me!照片路径 Else Me!照片图像.Picture = Me!照片路径 End If End Sub Private Sub Form_Current() 如果照片存在，显示当前记录雇员的照片 如果照片文件不存在,或文件名为空，在错误信息 标签上显示适当的信息 Dim res As Boolean Dim fName As String path = CurrentProject.path

18、On Error Resume Next 错误信息.Visible = False If Not IsNull(Me!照片) Then res = IsRelative(Me!照片) fName = Me!照片路径 If (res = True) Then fName = path & & fName End If Me!照片图像.Picture = fName showImageFrame Me.PaintPalette = Me!照片图像.ObjectPalette If (Me!照片图像.Picture fName) Then hideImageFrame 错误信息.Caption =

19、照片未找到。 错误信息.Visible = True End If Else hideImageFrame 错误信息.Caption = 单击“添加/删除”按钮，添加照片。 错误信息.Visible = True End IfEnd Sub Private Sub Form_RecordExit(Cancel As Integer) 在不同的记录间切换时，隐藏错误信息标签，以减少闪烁 错误信息.Visible = FalseEnd Sub Private Sub 删除照片_Click() 清雇员记录的照片文件名，并显示错误信息标签 Me!照片路径 = hideImageFrame Me!照片图

20、像.Picture = 错误信息.Visible = TrueEnd Sub Private Sub 添加照片_Click() 使用 Office 文件打开对话框，获取一个雇员照片的文件名 getFileNameEnd SubPrivate Sub 照片路径_AfterUpdate() 在选择了一个雇员照片后，显示照片 On Error Resume Next showErrorMessage showImageFrameIf (IsRelative(Me!照片路径) = True) Then Me!照片图像.Picture = path & Me!照片路径 Else Me!照片图像.Pict

21、ure = Me!照片路径 End IfEnd Sub 8）产品类别窗体 产品类别窗体用于输入产品类别信息 9)库存台账更新窗体 库存台账保存的是仓库中货物当前的数据，输入入库单和出库单后，需要根据输入的入库单和出库单对仓库中对应的货物数据进行更新，为了防止同一张单据重复更新，要对更新过的单据做标记，通过入库单和出库单的结转字段来完成。更新过的入库单和出库单也不能进行修改。8.5 8.5 输出设计输出设计报表设计报表设计 1)客户标签 客户标签用于打印信件，把客户标签打印到不干胶纸上，然后贴到信封上。客户标签报表见图8-36。 图8-35客户标签报表 2)库存台账报表 库存台账报表见图8-37

22、。图8-37 库存台账报表设计视图 8.6 8.6 查询设计查询设计 对于使用频率高的固定方式查询，如按客户查询库存数据见图8-38，为了节省用户的时间，可以设计单独的查询程序。 图8-38 按客户查询库存窗体 查询代码Private Sub Combo0_AfterUpdate()Me.RefreshEnd SubPrivate Sub Command1_Click()On Error GoTo Err_Command1_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = 按客户查询库存台账 DoCmd

23、.OpenForm stDocName, , , stLinkCriteria Exit_Command1_Click: Exit SubErr_命Command1_Click: MsgBox Err.Description Resume Exit_Command1_ClickEnd Sub 8.7 8.7 程序模块设计程序模块设计 把具有通用功能的程序设计成单独的公共模块，公共模块不依附于窗体和报表。1)Changetochinese功能：把09数值转化为中文Option Compare DatabaseOption ExplicitFunction CHANGE(n) As String把

24、单个数字转化为汉字Select Case n Case 0 CHANGE = 零 Case 1 CHANGE = 壹 Case 2 CHANGE = 贰 Case 3 CHANGE = 叁 Case 4 CHANGE = 肆 Case 5 CHANGE = 伍 Case 6 CHANGE = 陆 Case 7 CHANGE = 柒 Case 8 CHANGE = 捌 Case 9 CHANGE = 玖End SelectEnd Function 2）IsLoaded 判别给定的窗体是否打开Function IsLoaded(ByVal strFormName As String) As Boo

25、lean 如果指定窗体在窗体视图或数据表视图中打开，返回 True。 Dim oAccessObject As AccessObject S e t o A c c e s s O b j e c t = CurrentProject.AllForms(strFormName) If oAccessObject.IsLoaded Then If oAccessObject.CurrentView acCurViewDesign Then IsLoaded = True End If End IfEnd Function 3)GetComputerName得到当前计算机的名字，用于系统的安全，只

26、有允许的计算机才可以使用本仓储系统。声明GetComputerName函数，它是API函数Declare Function GetComputerName Lib kernel32 Alias GetComputerNameA (ByVal lpBuffer As String, nSize As Long) As Long声明SetComputerNameDeclare Function SetComputerName Lib kernel32 Alias SetComputerNameA (ByVal lpComputerName As String) As Long 定义一个获取计算机名

27、字的函数 Public Function GetCName(CName) As Boolean Dim sComputerName As String 计算机的名字 Dim lComputerNameLen As Long 计算机名字的长度 Dim lResult As Long GetComputerName的返回值 Dim RV As Boolean GetCName返回值，若为TRUE则表示操作成功 lComputerNameLen = 256 sComputerName = Space(lComputerNameLen) lResult = GetComputerName(sCompu

28、terName, lComputerNameLen) If lResult 0 Then C N a m e = L e f t $ ( s C o m p u t e r N a m e , lComputerNameLen) RV = True Else RV = False End If GetCName = RVEnd Function 定义一个修改计算机名字的函数 Public Function SetCName(CName As String) As Boolean Dim lResult As Long Dim RV As Boolean lResult = SetCompute

29、rName(CName) If lResult 0 Then RV = True 修改成功 Else RV = False End If SetCName = RVEnd Function 8.8 8.8 菜单设计菜单设计 设计系统的菜单前先设计宏，设计调用各功能的宏，我们把全部宏设计为一组，以宏名“菜单”保存，见图8-39。 仓储管理系统系统启动后显示菜单如下图8-40所示。 图8-39 宏 图8-40 仓储管理系统系统启动菜单 8.9 8.9 升级到升级到SQL SERSERVERSQL SERSERVER 打开Access升迁向导完成升迁工作，如图8-41所示。 图8-41 升迁向导 8.10 8.10 调试运行调试运行 8.11 8.11 打包、制作安装程序、使用说打包、制作安装程序、使用说明明