仓库管理系统(3)样本.doc

第一章 选题背景及系统目标
1.1 选题背景
俗话说，兵马未出,粮草先行.古代行兵打仗,最先要考虑就是物资准备和管理,不然要取得胜利是很困难一件事。商场如战场,商家不仅要掌握大量物资,同时这些物资还要尽可能满足用户需要,这么才能在猛烈市场竞争中获取胜利。然而管理物资却是最烦琐事情,不管数量还是种类,全部是数以万计,用人手工来做,是很困难，而且很轻易犯错误，不过伴随科学技术发展，社会进步，计算机快速发展,仓库管理方法也日新月异,以前全是由人管理方法现存在很多缺点：管理效率低，劳动强度大，信息处理速度低而且正确率也不够令人满意。为了提升仓库管理效率，减轻劳动强度提升，信息处理速度和正确性；为仓库管理员提供更方便、科学服务项目。为仓库管理员提供一个更优异、科学服务系统。于是我们便选择了由计算机来设计一个仓库管理系统方案。让计算机对仓库进行自动管理，仓库管理员能够直接在计算机上实现仓库信息管理，并能在一定程度上实现自动化。在计算机普及今天,用电脑管理物资是肯定趋势.现已某中小型企业仓库管理为例，开发一个借助电脑,把全部数据输入数据库,然后用系统对这些数据进 行管理,经过统计和分析得到多种有用信息数据管理系统，以方便对仓库统一管理。
1.2系统目标
仓库管理关键是企业多种商品管理。进货时经检验协议确定为有效托收后，进行验收入库，填写入库单，进行入库登记。企业各个部门依据需要提出产品请求，计划员依据整个企业需求开出产品出库单，仓库管理人员依据出库单查对发放产品。依据需要根据月进行统计分析，产生对应报表。
仓库管理特点是信息处理量比较大，所管理产品种类繁多，而且因为入库单、出库单、盘点单等单据发生量尤其大，关联信息多，查询和统计方法各不相同。所以在管理上实现起来有一定困难。在管理过程中常常会出现信息反复传输；单据、报表种类繁多，各个部门管理规格不统一等问题。
在本系统设计过程中，为了克服这些困难，满足计算机管理工作需要，我们采取了下面部分标准：（1）统一多种原始单据格式，统一报表格式。（2）删除无须要管理冗余，实现管理规范化、科学化。（3）程序代码标准化，软件统一化，确保软件可维护性和实用性。（4）界面尽可能简单化，做到实用、方便，尽可能满足企业中不一样层次职员需要。（5）建立操作日志，系统自动统计所进行和多种操作。
第二章 需求分析
2.1 组织机构分析
该仓库企业组织结构图所表示。企业关键决议和管理机构总经理，总经理分管财务和实施两大致系模块；财务在仓库管理经营中所饰演角色是是一个相当关键角色过程，相对来说，此部门是相对独立；日常事务实施部分，分为采购部、库存管理部、销售部和人事部四个关键部门。
库存管理部关键任务是依据销售部提供信息和采购立即联络，使库房货源充足；责任货物接收，并安排好货物存放事宜；对天天进出库房货物进行具体统计，使基础数据完备。

销售部关键责任日常销售工作，包含物品摆放、货架整理、收银台等货物销售区日常事务；立即正确地将销售信息反馈给其它部门，以确保商品立即供给更新；同时处理消费者提出多种疑问和信息，为企业整体运作提供实际销售基础数据。
财务部负责一切和财务相关各项事宜，全方面统计企业全部收支资金流动，包含多种收入、支出、税务、财务结算等。对进出贷款实施控制，定时分析资金走向，为企业发展计划做好准备。
2.2 系统功效分析
系统功效分析是在系统开发总体任务基础上完成。本仓库管理系统需要完成功效关键有：（1）仓库管理多种信息输入，包含货物、供给商、用户、仓库信息输入等。（2）仓库管理多种信息查询、统计、修改和维护，包含货物、单据查询，货物出入、职员操作统计，多种信息修改和维护等。（3）打印报表生成。（4）在货物管理中加入最高贮备和最低贮备字段，对仓库中产品实现监控和报警。（5）操作日志管理。（6）仓库管理系统使用帮助。其系统功效图图所表示：
仓库管理系统
基础信息
单据中心
查询统计
报表打印
维护设置
系统帮助
新增单据
单据管理
查询模块
统计模块

图2-2 系统功效图
2.3 业务步骤调查和分析
1）进货员填写入库单并经仓管查询库存台帐检验查对，不合格单据送回，合格后直接入库并修改库存台帐，同时统计在商品购入流水帐中。假如是新产品，则还要在库存台帐中建立新帐页然后入库。
2）商品出库管理过程是管理人员依据销售人员提供商品出库单，经核查后合格付货，有误送回，同时登记商品销售流水帐。假如仓库库存不满足，通知采购部进行采购。
3）财务员盘点库存数量，计算库存成本。
其业务步骤图图2-3所表示：

图2-3业务步骤图
2.4 数据步骤调查和分析
负责进货人员首先填写入库单，然后仓库管理人员对商品质量及数量进行核查
不合格返回入库单让进货员重填，合格入库并返回确定单。然后更新库存台账。商品出库管理过程是管理人员依据销售人员提供商品出库单，不合格出库单返回重填，合格后，查询库存台帐，若商品充足，仓库管理系统填写发货单，向用户付货并修改库存台帐，不然，通知生产部门生产。顶层：

图2-4 顶层数据流图
负责进货人员首先填写入库单，然后仓库管理人员对商品质量及数量进行核查不合格返回入库单让进货员重填，合格入库并返回确定单，如商品有统计则录入更新库存台账并记入商品购入流水账，如商品无统计则建立新帐页然后录入，更新库存台账并记入商品购入流水账。商品出库管理过程是管理人员依据销售人员提供商品出库单，不合格出库单返回重填，合格后，查询库存台帐，若商品充足，仓库管理系统填写发货单，向用户付货并修改库存台帐熟练并记入商品流出流水账，不然，通知生产部门生产。财务人员盘点库存，计算库存成本。累计汇总出多种商品当日累计购入入库量、累计销售出库量和库存结余量等数据，并将这些数据填入库存台帐。
第一层

图2-4 第一层数据步骤图

进货员
不合格入库单
入库单
确定单
检验
P1.1
D1
库存台帐
无统计货物入库单
有统计货物入库单
新账建立
P1.2
入库单
录入
P1.3
D2
商品购入流水帐
入库
信息

第二层

图2-5 第二层数据步骤图

图2-6 管理员数据流图
对于管理员来说，要对仓库信息进行查对注册用户，管理货物更改信息、入库、出库、查对信息等，其数据流图图所表示：
图2-6 管理员数据步骤图
管理员入库操作步骤图图2-7所表示：

图2-7 入库操作步骤图
管理员出库操作步骤图图2-8所表示：

图2-8 出库操作步骤图

对于用户来说，要操作数据库信息，首先要注册账号，设置密码，登陆上去以后，才能对信息进行查询、更改操作，其数据流图图所表示：
图2-9 用户数据步骤图

用户查询操作图2-10所表示：

图2-10查询数据步骤图
用户更改密码步骤图图2-11所表示：

图2-11 修改密码数据步骤图
2.5 经典数据字典分析
经过对企业仓库管理内容和数据步骤分析，设计数据项和数据结构以下：
（1）货物信息，包含数据项有编号、货物名称、货物类别、货物规格、计量单位、最高限量、最低限量、备注等。（2）仓库信息，包含数据项有编号、仓库名称、仓库地点、保管员编号、备注等。（3）库存情况信息，包含数据项有编号、货物编号、库存数量、仓库编号等。（4）入库单信息，包含数据项有编号、货物编号、经办人编号、入库时间、入库单价、入库数量、供给商编号、仓库编号、定单情况、其它金额、备注等。（5）出库单信息，包含数据项有编号、货物编号、经办人编号、出库时间、出库单价、出库数量、用户编号、仓库编号、定单情况、其它金额、备注等。（6）进行月盘点信息，包含数据项有编号、仓库编号、盘点时间、经办人编号、盘点数据等。（7）系统日志信息，包含数据项有用户名、操作时间、操作内容等。（8）用户管理信息，包含数据项有用户名、用户密码、用户权限等。另外，还有借入单、借出单、报损单、调拨单信息等。它们和入库单、出库单信息基础类似。
第三章 系统数据库设计
3.1数据库概念结构分析
依据上面设计计划出实体有：现有库存信息实体、入库信息实体、出库信息实体、借入信息实体、借出信息实体、调拨信息实体图和报损信息实体图。各个实体具体描述E-R图以下：

图3-1 现有库存信息实体E-R图

图3-2 入库单信息实体E-R图

用户编号
出库信息实体
编号
经办人编号
入库时间、单价、数量

图3-3 出库信息实体E-R图
借入信息实体
编号
经办人编号
借入时间、单价、数量

货物编号
图3-4 借入信息实体E-R图
借出信息实体
编号
经办人编号
借出时间、数量

货物编号

图3-5 借出信息实体E-R图
调拨信息实体
编号
经办人编号
目标仓库编号
原仓库编号

图3-6 调拨信息实体E-R图
报损信息实体
编号
经办人编号
报损时间、单价、数量

仓库编号

图3-7 报损信息实体E-R图
实体和实体之间关系E-R图图所表示：

图3-8 实体之间关系E-R图

图3-9 全局E_R图
3.2数据库逻辑结构设计
将在上面数据库概念结构转化为数据库系统所支持实际数据模型，也就是数据库逻辑结构。仓库管理信息系统数据库中各个表格设计结果以下面表格所表示。每个表格所表示在数据库中一个表。
表3-1 货物基础信息表
字段名称
数据类型
字段大小
可否为空
货物编号
数字
长整型
不可
货物名称
文本
16
不可
货物类别
文本
16
可
货物规格
文本
16
可
计量单位
文本
16
可
最高限量
数字
长整型
不可
最低限量
数字
长整型
不可
备注
文本
16
可
表3-2 仓库信息表

字段名称
数据类型
字段大小
可否为空
仓库编号
数字
长整型
不可
仓库名称
文本
16
不可
仓库地点
文本
255
可
管理员编号
数字
长整型
可
备注
文本
16
可
表3-3 库存情况信息表
字段名称
数据类型
字段大小
可否为空
库存情况编号
数字
长整型
不可
货物编号
数字
长整型
不可
库存数量
数字
长整型
不可
仓库编号
数字
长整型
不可
表3-4 入库单信息表
字段名称
数据类型
字段大小
可否为空
入库单编号
数字
长整型
不可
货物编号
数字
长整型
不可
经办人编号
数字
长整型
不可
入库时间
日期/时间

不可
入库单价
货币

不可
入库数量
数字
长整型
不可
供给商编号
数字
长整型
可
仓库编号
数字
长整型
不可
订单情况
文本
16
不可
其它金额
货币

可
备注
备注

可
表3-5 出库单信息表
字段名称
数据类型
字段大小
可否为空
出库单编号
数字
长整型
不可
货物编号
数字
长整型
不可
经办人编号
数字
长整型
不可
出库时间
日期/时间

不可
出库单价
货币

不可
出库数量
数字
长整型
不可
用户编号
数字
长整型
可
仓库编号
数字
长整型
不可
订单情况
文本
16
不可
其它金额
货币

可
备注
文本
16
可
表3-6 借入单信息表
字段名称
数据类型
字段大小
可否为空
借入单编号
数字
长整型
不可
货物编号
数字
长整型
不可
经办人编号
数字
长整型
不可
借入时间
日期/时间

不可
借入数量
数字
长整型
不可
供给商编号
数字
长整型
可
仓库编号
数字
长整型
不可
订单情况
文本
16
不可
其它金额
货币

可
备注
文本
16
可
表3-7 借出单信息表
字段名称
数据类型
字段大小
可否为空
借出单编号
数字
长整型
不可
货物编号
数字
长整型
不可
经办人编号
数字
长整型
不可
借出时间
日期/时间

不可
借出数量
数字
长整型
不可
供给商编号
数字
长整型
可
仓库编号
数字
长整型
不可
订单情况
文本
16
不可
其它金额
货币

可
备注
文本
16
可
表3-8 调拨单信息表
字段名称
数据类型
字段大小
可否为空
调拨单编号
数字
长整型
不可
货物编号
数字
长整型
不可
经办人编号
数字
长整型
不可
调拨时间
日期/时间

不可
调拨数量
数字
长整型
不可
原仓库编号
数字
长整型
不可
目标仓库编号
数字
长整型
不可
其它金额
货币

可
备注
文本
16
可
表3-9 报损单信息表
字段名称
数据类型
字段大小
可否为空
报损单编号
数字
长整型
不可
货物编号
数字
长整型
不可
经办人编号
数字
长整型
不可
报损时间
日期/时间

不可
报损单价
货币

不可
报损数量
数字
长整型
不可
仓库编号
数字
长整型
不可
其它金额
货币

可
备注
文本
16
可
表3-10 盘点单信息表
字段名称
数据类型
字段大小
可否为空
盘点单编号
数字
长整型
不可
仓库编号
数字
长整型
不可
盘点时间
日期/时间

不可
经办人编号
数字
长整型
不可
盘点数据
数字
长整型
不可
表3-11 系统日志信息表
字段名称
数据类型
字段大小
可否为空
用户名
Char
16
不可
操作时间
日期/时间

不可
操作内容
文本
16
不可
表3-12 用户管理信息表
字段名称
数据类型
字段大小
可否为空
用户名
Char
16
不可
用户密码
Char
16
不可
用户权限
数字
长整型
不可

3.3数据库物理结构设计
物理结构设计任务就是依据具体计算机系统特点，为给定数据库系统确定合理存放结构和存放方法。所谓“合理”关键有两个含义：一个是要使设计出物理数据库占有较少存放空间。另一个是要对数据库操作含有尽可能高速度。
1） 建立索引
（1）对“货物基础信息”表，在属性列“货物编号”上建立唯一性索引。
（2）对“仓库信息”表，在属性列“仓库编号”上建立唯一性索引。
（3）对“库存情况信息”表，在属性列“库存情况编号”上建立唯一性索引。
（4）对“入库单信息”表，在属性列“入库单编号”上建立唯一性索引。
（5）对“出库单信息”表，在属性列“出库单编号”上建立唯一性索引。
（6）对“借入单信息”表，在属性列“借入单编号”上建立唯一性索引。
（7）对“借出单信息”表，在属性列“借出单编号”上建立唯一性索引。
（8）对“调拨单信息”表，在属性列“调拨单编号”上建立唯一性索引。
（9）对“报损单信息”表，在属性列“报损单编号”上建立唯一性索引。
（10）对“盘点单信息”表，在属性列“盘点单编号”上建立唯一性索引。
（11）对“系统日志信息”表，在属性列“用户名”“操作时间”上建立唯一性索引。
（12）对“用户管理信息表”表，在属性列“用户名”“用户密码”上建立唯一性索引。
2）建立个唯一性索引对应代码以下：
（1）creat unique index 货物信息-编号on 货物基础信息表（货物编号）；
（2）creat unique index 仓库信息-编号on 仓库基础信息表（仓库编号）；
（3）creat unique index 库存情况信息-编号on库存情况信息表（库存情况编号）；
（4）creat unique index 入库单信息-编号on 入库单信息表（入库单编号）；
（5）creat unique index 出库单信息-编号on 出库单信息表（出库单编号）；
（6）creat unique index 借入单信息-编号on 借入单信息表（借入单编号）；
（7）creat unique index 借出单信息-编号on 借出单信息表（借出单编号）；
（8）creat unique index 调拨单信息-编号on 调拨单信息表（调拨单编号）；
（9）creat unique index 报损单信息-编号on 报损单信息表（报损单编号）；
（10）creat unique index 盘点单信息-编号on 盘点单信息表（盘点单编号）；
（11）creat unique index 系统日志信息-编号on 系统日志信息表（用户名，操作时间）；
（12）creat unique index 用户管理信息-编号on 用户管理信息表（用户名，用户密码）；
3）存放结构
确定数据库存放结构关键指确定数据存放位置和存放结构，包含确定关系、索引、日志、备份等存放安排及存放结构，和确定系统存放参数配置。
将日志文件和数据库对象（表、索引等）分别放在不一样存盘，能够改善系统性能，提升系统安全性。所以，系统应将日志文件和数据文件放在不一样磁盘上。
3.4数据库关系设计
表3-13 货物基础信息表

表3-14 仓库信息表

表3-15 库存情况信息表

表3-16 入库信息表

表3-17 出库单信息表

表 3-18 借入单信息表

表3-19 借出单信息表

表3-20 调拨单信息表

表3-21 报损单信息表

表3-22 盘点单信息表

表3-23 系统日志信息表

表3-24 用户管理信息表

表3-25 各表关系图
第四章 系统关键功效模块设计和实现
4.1系统登录界面
设计思绪和关键点：用户运行程序后，输入用户名和密码，程序依据用户名到后台数据库查询用户名和密码是否正确，假如正确，则依据用户名给出用户所属等级，并依据等级给出对应权限。如没有经过验证，则给出没有经过验证原因。
系统登录界面图4-1所表示：

图4-1 系统登录界面

单击登陆时，其对应代码以下：
Private Sub cmdOK_Click()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

con.Open "dsn=xue", "sa", ""
rs.Open "select * from 用户 where 用户名='" + Trim(txtUserName.Text) + "'", con, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
If Trim(txtPassword.Text) = Trim(rs.Fields("密码")) Then
Form1.Show
LoginSucceeded = True
Me.Hide
Else
MsgBox "密码错误，请重新输入!", , "确定"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
Else
MsgBox "密码错误，请重新输入", "确定"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

图4-2 仓库管理系统密码错误界面
单击退出时，对应代码以下：
Private Sub cmdCancel_Click()
End Sub
Private Sub cmdOK_Click()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Open "dsn=xue", "sa", ""
rs.Open "select * from 用户 where 用户名='" + Trim(txtUserName.Text) + "'", con, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
If Trim(txtPassword.Text) = Trim(rs.Fields("密码")) Then
Form1.Show
LoginSucceeded = True
Me.Hide
Else
MsgBox "无效密码，请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
Else
MsgBox "无效用户名，请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
假如用户名或密码错误，系统会分别提醒，预防非法用户进入系统操作。
4.2 系统主界面
设计思绪和关键点：用户登录经过后，进入系统主界面。主界面菜单假如是灰色显示，则表明此用户没有权限操作此功效。在主界面状态栏会显示目前用户名和用户权限。
界面图4-3所表示：

图4-3 仓库管理系统主界面
其对应代码以下：
Private Sub2
4.3 系统管理模块
系统管理模块主是功效是进行本系统部分常见管理工作，共有四个子模块：重新登录，修改密码，用户管理，退出。
4.3.1 重新登录功效
进入系统后，可选择重新登录在不现用户之间进行切换。界面图4-4所表示：

图4-4 系统重登陆界面
其对应代码以下：
Private Sub cmdRelude -Click()
Relude Me ‘重新登录仓库管理系统
End Sub
4.3.2 修改密码功效
设计思绪和关键点：用户如需修改自己登录密码，需输入旧密码和新密码，程序在数据库中修改用户密码。
界面图4-5所表示：

图4-5 修改密码界面
其对应代码以下：
Private Sub From-Loud()
TxtOldPWD=CurrentUserPassword ‘显示用户密码
Eed Sub
实现密码输入验证：
Private Sub txtNewPWD-KeyPress(Index As Integer,KeyAscii As Integer)
If KeyAscii=vbKeyRurn Then
SecondKeys“{Tab}”
ElseIf Not (KeyAsscii>=vbKey0 And KeyAsscii<= vbKey9-
Or KeyAsscii>=Asc(‘a’)And KeyAscii<=Asc(‘z’)-
Or KeyAsscii>=Asc(‘A’)And KeyAscii<=Asc(‘Z’)-
Or KeyAsscii=vbKeyBack )Then
KeyAsscii=0
Eed If
End Sub
单击确定，保留新密码，
Private Sub cmdSave-Click()
If txtNewPWD(1)<> txtNewPWD(9)Then
MsgBox“两次输入密码必需相等！”，vbExclamation,“修改密码”
txtNewPWD(0).SetFocus
txtNewPWD(0).SetStart=0
txtNewPWD(0).SetLength=Len(txtNewPWD(0))
Else ‘修改原来密码
With Drug-Stor.rsSysUsers
.Open
.Find “编号=”“&CurrentUserNumner&”
.Fields(“密码”)=Trim(txtNewPWD(0))
.Update
End With
MsgBox “密码已修改
End Sub
单击取消，关闭仓库管理窗体
Private Sub cmdExit-Click()
Unload Me ‘关闭密码修改窗体
End Sub
4.3.3 用户管理功效
设计思绪和关键点：用户管理是对使用此系统全部用户进行管理。分为增加，删除和修改用户信息。此功效只有管理员和超级用户才能使用。一般用户不能实施此操作。
界面图4-6所表示：

图4-6 用户管理界面
其对应代码以下：
定义窗体级变量，用于表示目前是否处于添加统计状态
Dim isAdding As Boolean
实现统计导航
Private Sub cmdMove-Click(Index As Integer)
With Drug-Store.rsSysUsers
Case 0 ‘使第一个统计成为目前统计
If .RecordCont>0 And Not .BOF Then .MoveFirst
Case 1 ‘使上一个统计成为目前统计
If .RecordCont>0 And Not .BOF Then .MovePrevious
If.BOF Then .MoveFirst
End If
Case 2 ‘使下一个统计成为目前统计
If .RecordCont>0 And Not .BOF Then .MoveNext
If . BOF Then .MoveLast
End If
Case 3 ‘使最终一个统计成为目前统计
If .RecordCont>0 And Not .BOF Then .MoveLast
End Select
If And . BOF Then
txtNews=“统计：无”
Else
txtNews=“统计：”&..AbsolutePossition&”/”&.RecordCount
End If
End With
End Sub
验证用户信息输入，在输入用户名、密码和权限代码时，实施验证操作，
Private Sub txtUser-KeyPress(KeyAscii As Integer)
If Not(KeyAscii>=vbKey0 And KeyAscii<= vbKey9-
Or KeyAsscii>=Asc(‘a’)And KeyAscii<=Asc(‘z’)-
Or KeyAsscii>=Asc(‘A’)And KeyAscii<=Asc(‘Z’)-
Or KeyAsscii=vbKeyBack )Then
KeyAsscii=0
Eed If
End Sub
Private Sub txtPWD-KeyPress（KeyAscii As Intege）
If Not(KeyAscii>=vbKey0 And KeyAscii<= vbKey9-
Or KeyAsscii>=Asc(‘a’)And KeyAscii<=Asc(‘z’)-
Or KeyAsscii>=Asc(‘A’)And KeyAscii<=Asc(‘Z’)-
Or KeyAsscii=vbKeyBack )Then
KeyAsscii=0
Eed If
picNavingation .Enabled=False
End Sub ‘验证权限代码输入
Private Sub cmdStatus-KeyPress(KeyAscii As Integer)
If Not(KeyAscii=vbKey0 Or KeyAscii= vbKey1 Or KeyAssci vbKey 2-i
Or KeyAsscii= vbKey 3 Or KeyAscii= vbKey 4-
Or KeyAsscii=vbKeyBack )Then
KeyAsscii=0
Eed If
picNavingation .Enabled=False
End Sub
实现添加操作
nbPrivate Sub cmdAdd-Click()
Drug-Store.rsSysUsers.AddNew
cmbStatus.ListIndex=1
txtNews=“统计：”& Drug-Store.rsSysUsers.AbsolutePosition-
& “/”& Drug-Store.rsSysUsers.RecordCount
isAdding=True
cmdAdd.Enabled= False
cmdDelete. Enabled= False：picNavingation. Enabled= False
End Sub
实现删除操作，单击删除时，
Private Sub cmdDelete-Click()
With Drug-Store.rsSysUsers
If Not.EOF Then
If MsgBox(“将删除用户名为”&Trim(txtUser)&-
“用户数据，是否继续？”，-
vbCritical+vbYesNo,“系统用户管理”)=vbYes Then
. Delete：.MoveNext
If.EOF And.RecordCount>0 Then. MoveLast
Eed If
Eed If
Eed If
Eed With
End Sub
单击关闭时，实现关闭窗体操作
Private Sub cmdExit-Click()
Unload Me ‘关闭系统用户管理窗体
End Sub
4.3.3.1 退出功效
退出即退出本系统。选择系统管理下退出即可。图4-7所表示：

图4-7 退出系统界面
其对应代码以下：
Private Sub cmdExit-Click()
Unload Me ‘关闭仓库管理窗体
End Sub
4.4仓库管理模块
仓库管理模块是本系统关键模块。依据仓库日常操作共分有六个子模块，分别是：入库操作，出库操作，退料操作，增料操作，仓位管理和盘点损益。已基础包含了仓库管理关键功效。
4.4.1入库操作
设计思绪和关键点：入库操作即仓库收料，系统要求收料只能依据订单来进行。没有订单就不能完成收料。每个订单全部对应一个入库操作。这么能够大大降低因人为原因产生错误。规范化仓库收料操作。选择订单号码后，相关订单信息已会显示出来。订单号码是由订单管理模块产生。仓库人员没有权限产生订单。
界面图4-8所表示：

图4-8 入库操作界面
其对应代码以下：
单击入库时，
Private Sub cmdAdd-Click()
If cmdAdd.Caption=“入库” Then
cmdAdd.Caption=“查询”
StockData.Visible= False
StockIn.Visible=True
isStorking= True
cmdDelet.Enabled= False
cmbName.ListIndex=0 ‘设置入库数据默认产品名称和编号
cmbNum.ListIndex=0
Else
cmdRefresh.Value= True
cmdAdd.Caption=“入库”
StockData.Visible= True
StockIn.Visible= False
isStorking= False
cmdDelet.Enabled= True
Eed If
End Sub
点击关闭时，退出入库窗体
Private Sub cmdExit-Click()
Unload Me ‘关闭入库窗体
End Sub
4.4.2 出库操作
设计思想和关键点：出库操作即仓库发料，本系统要求仓库发料需依据生产计划来进行。没有生产计划则不能发料。生产计划产生由专门模块实现。生产计划用工单来区分。每个工单发料可有两种方法 ，一个是按工单发料，即一次性将一个工单全部所需物料全部发至生产线。另一个是按物料，即依据生产情况，一个一个将物料发至生产线。选择选择发料类型，