《（物流业务系统）》由会员分享，可在线阅读，更多相关《（物流业务系统）（136页珍藏版）》请在金锄头文库上搜索。
1、物流业务系统,8.1 概述 8.2 系统分析 8.3 数据存储设计 8.4 输入设计窗体设计与输出设计报表设计 8.5 查询设计、程序模块设计与菜单设计 8.6 系统的调试与安装,8.1 概述,8.1.1 系统目标和功能,8.1.2 系统网络结构,仓储管理信息系统网络结构见图8-1。,图8-1 仓储管理信息系统网络结构,我们设计采用千兆主干、百兆交换到桌面的大型网络解决方案，方案特点：（1）千兆骨干、百兆交换到桌面；楼宇建筑之间千兆光纤，库房内部百兆。（2）虚拟网络方便管理、提高网络安全与性能；（3）系统安全，保密性高。,8.1.3 系统设计流程,结合系统本身的特点，我们提出用快速开发工具开发
2、一个仓储管理信息系统数据库应用程序的设计流程如下图8-2所示 。,系统开发流程,开始：用户提出需求,初步调查：了解用户需求，设计基本结构,需求分析：建立表及其关系 建立系统功能模块结构图,设计数据输入界面：窗体、访问页等,设计输出界面：报表、查询界面,设计宏（及VAB程序）,设计菜单系统,测试、改进功能,交付用户，发布完成,系统最后测试修改,打包，制做安装程序、使用说明,图8-2 系开发统设计流程,8.2.1 业务流程分析,商品 检验,进货 暂存区域,流通 加工,商品 入库,库位 库存,货架 保存,分拣,补充流 通加工,出货 区域,出货检 验集货,供应商,收货入库,上架保存,分拣出货,商品检验
3、 报告单,图8-3 仓储作业流程,8.2.2 数据流程图,总的业务处理的过程如下：客户来办理仓储业务，提交申请（申请入库、出库），仓储企业接受申请，开始办理业务，业务处理完后给客户回执，内部处理时与仓储数据存储交换数据。据此做出第一层数据流程图，见下图8-4。,图8-4 第一层数据流程,对第一层的业务在详细分析，仓储业务主要包括三项：入库、出库、调储。输入的数据分别存放到入库单、出库单、调储单中。做出第二层数据流程图，见图8-5。,客户,入库单,出库单,调储单,图8-5 第二层数据流程图,8.2.3 系统功能模块,通过与用户的交流，我们了解了仓储管理系统的主要功能包括：入库、出库、调储、库存、
4、结算费用、报表和基础数据维护。系统功能用功能结构图表示如下图8-6所示。,图8-6 仓储管理系统功能,入库管理功能包括新增入库单、修改入库单、审核、验收入库单、打印入库单等功能，如图8-7所示。 出库管理功能包括新增出库单、修改出库单、审核、验收出库单、打印出库单等功能，如图8-8所示。,调储管理包括新增调储单、修改调储单、调储、打印调储单等功能，如图8-9所示。基础数据维护包括如客户、用户、库位、产品等基本信息，基础数据维护包括对这些数据的增加、修改、删除、查询、打印等操作。如图8-10所示。,用户管理包括增加用户、修改用户、删除用户、查询用户、打印用户等功能。见下图8-11所示。,入库管理
5、,新增入库单,修改入库单,审核入库单,打印入库单,验收入库单,图8-7 入库管理,出库管理,新增出库单,修改出库单,审核出库单,验收出库单,打印出库单,图8-8 出库管理,调储管理,新增调储单,修改调储单,调储调储单,打印调储单,图8-9 调储管理,基础数据维护,增加,修改,删除,查询,打印,图8-10 基础数据维护,用户管理,增加用户,修改用户,删除用户,查询用户,打印用户,口令管理,图8-11 用户管理,8.3 数据存储设计,从数据流程图中看到，系统主要有三个数据实体，一是入库单，一是出库单,另外一个是库存台账。,8.3.1 设计表,仓储管理的核心是围绕入库单、出库单、库存台帐进行的，入库
6、单示例如图8-12。,图8-12 入库单,仓储管理系统主要包括以下表：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)仓库表存放仓库全部信息，关键字段：仓库代码。
7、表结构如图8-17所示。,图8-17 仓库表,6)入库单用入库单与入库单明细两个表来存储入库单数据，这两个表的关系是一对多的关系，联结关键字是入库单编号。这两个表的设计是整个系统设计的关键，如果用一个表存放入库单的数据，将造成大量的数据冗余。关键字段：入库单编号。结构见图8-18。,图8-18 入库单表,7)入库单明细表入库单明细表存放入库仓单中的多方信息，关键字段：入库单编号+产品编号。表结构如图8-19所示。,图8-19 入库单明细表,8)出库单类似于入库单，用出库单与出库单明细两个表来存储入库单数据，这两个表的关系是一对多的关系，联结关键字是出库单编号。如果用一个表存放出库单的数据，将造
8、成大量的数据冗余。关键字段：出库单编号。结构见图8-20所示。,图8-20 出库单表,9)出库单明细表出库单明细表存放出库仓单中的多方信息，关键字段：出库单编号+产品编号。结构见图8-21所示。,图8-21 出库单明细表,10)调储单表调储单表存放商品的库位调整信息，用调储单与调储单明细两个表来存储调储单数据，这两个表的关系是一对多的关系，联结关键字是调储单编号。关键字段：调储单。结构见图8-22所示。,图8-22 调储单表,11)调储单明细表调储单明细表存放调储单中的多方信息，关键字段：调储单+产品编号。结构见图8-23所示。,图8-23 调储单明细表,12)库存台帐表库存台帐表存放在库的所
9、有商品信息，关键字段是流水号。表结构如图8-24所示。,图8-24 库存台帐表,8.3.2 表间关系,系统主要的表间主要关系如下图8-25所示，关系都是一对多的关系。,图8-25表间主要关系,8.3.3 参照完整性设计,出库单参照完整性见图8-26。,图8-26 出库单参照完整性,8.3.4 视图设计,1)入库单查询单视图SELECT 入库单.入库单编号, 客户.公司名称, 入库单.验收日期, 入库单.提交申请日期, 入库单.申请入库日期FROM 客户 INNER JOIN 入库单 ON 客户.客户ID = 入库单.客户;,2)各类产品视图SELECT 类别.类别名称, 产品.产品名称, 产品
10、.包装单位, 产品.中止FROM 类别 INNER JOIN 产品 ON 类别.类别ID = 产品.类别IDWHERE (产品.中止)=No)ORDER BY 类别.类别名称, 产品.产品名称; 各类产品视图运行的结果如下图8-27所示。,图8-27 各类产品视图运行的结果,8.4 输入设计窗体设计与输出设计报表设计,8.4.1 输入设计窗体设计,1)客户窗体客户窗体用于输入客户信息，其设计视图如下图8-28所示。,图8-28 客户窗体,2）入库单窗体入库单窗体运行视图如图8-29，设计视图如图8-30所示。,图8-29 入库单窗体运行视图,图8-30入库单窗体设计视图,3)出库单窗体出库单窗
11、体用于输入出库单，也用于修改出库单和出库单查询。出库单窗体运行视图见图8-31所示。,图8-31 出库单窗体运行视图,4)调储单窗体调储单窗体用于输入调储单。调储单窗体运行视图见图8-32。,图8-32 调储单窗体运行视图,5）仓库窗体仓库窗体用于输入仓库信息，也用于显示查询仓库的信息。仓库窗体运行视图见图8-33。,图8-33 仓库窗体窗体运行视图,6）产品窗体产品窗体用于输入产品信息，也用于显示查询产品的信息。产品窗体窗体运行视图见图8-34。,图8-34 产品窗体运行视图,7）系统用户窗体系统用户窗体用于输入本企业的雇员，也用于显示查询雇员的信息。系统用户窗体运行视图见图8-35。,图8
12、-35 系统用户窗体运行视图,系统用户窗体中的程序如下： Option Compare Database Option Explicit Dim path As String Sub getFileName(), 显示一个 Office 打开文件对话框，为当前的雇员记录 选择一个文件名如果用户选择了一个文件， 则将它显示到图片控件中Dim fileName As StringDim result As IntegerWith Application.FileDialog(msoFileDialogFilePicker),.Title = “选择雇员照片“.Filters.Add “所有文件“,
13、 “*.*“.Filters.Add “JPEGs“, “*.jpg“.Filters.Add “位图文件“, “*.bmp“.FilterIndex = 3.AllowMultiSelect = False,.InitialFileName = CurrentProject.pathresult = .ShowIf (result 0) ThenfileName = Trim(.SelectedItems.Item(1)Me!照片路径.Visible = TrueMe!照片路径.SetFocusMe!照片路径.Text = fileNameMe!姓氏.SetFocusMe!照片路径.Visi
14、ble = False,错误信息.Visible = FalseEnd IfEnd With End Sub Sub showErrorMessage(), 如果找不到照片文件， 显示错误信息标签If Not IsNull(Me!照片) Then错误信息.Visible = FalseElse错误信息.Visible = TrueEnd If End Sub,Function IsRelative(fName As String) As Boolean 如果文件名中包含驱动器名称或 UNC 路径，返回 FalseIsRelative = (InStr(1, fName, “:“) = 0) A
15、nd (InStr(1, fName, “) = 0) End Function,Sub hideImageFrame() 隐藏图像控件Me!照片图像.Visible = False End Sub Sub showImageFrame() 显示图像控件Me!照片图像.Visible = True End Sub,Private Sub Form_AfterUpdate() 一条记录改变之后，再次查询“上级”组合框。 如果该雇员记录的文件名不存在，则显示一条错误信息 如果文件名存在，则显示雇员照片Me!上级.Requery,On Error Resume NextshowErrorMessageshowImageFrameIf (IsRelative(Me!照片路径) = True) ThenMe!照片图像.Picture = path & Me!照片路径ElseMe!照片图像.Picture = Me!照片路径End IfEnd Sub,Private Sub Form_Current() 如果照片存在，显示当前记录雇员的照片 如果照片文件不存在,或文件名为空，在错误信息 标签上显示适当的信息Dim res As BooleanDim fName As String,
