仓库管理系统设计方案

《仓库管理系统设计方案》由会员分享，可在线阅读，更多相关《仓库管理系统设计方案（49页珍藏版）》请在装配图网上搜索。

1、第一章 选题背景与系统目标1.1 选题背景 俗话说，兵马未出,粮草先行.古代行兵打仗,最先要考虑的就是物资的 准备和管理,否则要取得胜利是非常困难的一件事。商场如战场 ,商家 不仅要掌握大量的物资,同时这些物资还要尽可能满足顾客的需要 ,这 样才能在激烈的市场竞争中获取胜利。然而管理物资却是最烦琐的事 情,无论数量还是种类,都是数以万计,用人手工来做,是非常困难的， 而且很容易出错误，但是随着科学技术的发展，社会进步，计算机迅 速的发展,仓库管理的方法也日新月异,以前全是由人管理的方法现存 在很多的缺点：管理效率低，劳动强度大，信息处理速度低而且准确 率也不够令人满意。为了提高仓库管理效率，减

2、轻劳动强度提高，信 息处理速度和准确性；为仓库管理员提供更方便、科学的服务项目。 为仓库管理员提供的一种更先进、科学的服务系统。于是我们便选择 了由计算机来设计一个仓库管理系统的方案。让计算机对仓库进行自 动管理，仓库管理员可以直接在计算机上实现仓库的信息管理，并能 在一定程度上实现自动化。在计算机普与的今天,用电脑管理物资是必 然的趋势.现已某中小型公司的仓库管理为例，开发一个借助电脑 ,把 所有数据输入数据库 ,然后用系统对这些数据进 行管理,通过统计和 分析得到各种有用的信息的数据管理系统，以方便对仓库的统一管理 1.2 系统目标仓库管理主要是企业各种商品的管理。进货时经检查合同确认为

3、有效托收后，进行验收入库，填写入库单，进行入库登记。企业各个 部门根据需要提出产品请求，计划员根据整个企业的需求开出产品出 库单，仓库管理人员根据出库单核对发放产品。根据需要按照月进行 统计分析，产生相应报表。仓库管理的特点是信息处理量比较大，所管理的产品种类繁多， 而且由于入库单、出库单、盘点单等单据发生量特别大，关联信息多 查询和统计的方式各不相同。因此在管理上实现起来有一定的困难。 在管理的过程中经常会出现信息的重复传递；单据、报表种类繁多， 各个部门管理规格不统一等问题。在本系统的设计过程中，为了克服这些困难，满足计算机管理工 作的需要，我们采取了下面的一些原则：（1）统一各种原始单据

4、的格 式，统一报表的格式。（2）删除不必要的管理冗余，实现管理规化、 科学化。（3）程序代码标准化，软件统一化，确保软件的可维护性和 实用性。（4）界面尽量简单化，做到实用、方便，尽量满足企业中不 同层次员工的需要。（5）建立操作日志，系统自动记录所进行和各种 操作。第二章 需求分析2.1 组织机构分析该仓库企业的组织结构如下图。企业的主要决策和管理机构总经 理，总经理分管财务和执行两大体系模块；财务在仓库管理的经营中 所扮演的角色是是一个相当重要的角色过程，相对来说，此部门是相 对独立的；日常事务的执行的部分，分为采购部、库存管理部、销售 部和人事部四个主要部门。库存管理部的主要任务是根据销

5、售部提供的信息和采购与时联 系，使库房货源充足；责任货物的接收，并安排好货物的存放事宜； 对每天进出库房的货物进行详细记录，使基础数据完备。财芻总监财务管理想经理执行总监采购管理仓库管理销售管理后勤管理S 2-1组织结构圈销售部主要责任日常销售工作，包括物品摆放、货架整理、收银 台等货物销售区的日常事务；与时准确地将销售信息反馈给其他部门, 以保证商品的与时供应更新；同时处理消费者提出的各种疑问和信息, 为公司的整体运作提供实际销售的基础数据。财务部负责一切与财务有关的各项事宜，全面记录公司的所有收 支资金流动，包括各种收入、支出、税务、财务结算等。对进出贷款 实行控制，定期分析资金走向，为公

6、司的发展计划做好准备。2.2系统功能分析系统功能分析是在系统开发的总体任务的基础上完成。本仓库管 理系统需要完成功能主要有：（1）仓库管理各种信息的输入，包括货 物、供应商、客户、仓库信息的输入等。（2）仓库管理各种信息的查 询、统计、修改和维护，包括货物、单据查询，货物出入、职员操作 统计，各种信息的修改和维护等。（3）打印报表的生成。（4）在货物 管理中加入最高储备和最低储备字段，对仓库中的产品实现监控和报 警。（5）操作日志的管理。（6）仓库管理系统的使用帮助。其系统功 能图如下图：仓库管理系统图 2-2 系统功能图2.3 业务流程调查与分析1）进货员填写入库单并经仓管查询库存台帐检查核

7、对，不合格单据送 回，合格后直接入库并修改库存台帐，同时记录在商品购入流水帐中 如果是新产品，则还要在库存台帐中建立新帐页然后入库。2）商品出库管理过程是管理人员根据销售人员提供的商品出库单，经 核查后合格付货，有误送回，同时登记商品的销售流水帐。如果仓库 库存不满足，通知采购部进行采购。3）财务员盘点库存数量，计算库存成本。其业务流程图如图 2-3 所示：不合格 出库单不合格 入库单图 2-3 业务流程图f(检查库存台帐出库出库单J1ff/7!商品出库流/合格出/水账-库单丿2.4 数据流程调查与分析负责进货的人员首先填写入库单，然后仓库管理人员对商品的质 量与数量进行核查不合格的返回入库单

8、让进货员重填，合格的入库并返回确认单。然后更新库存台账。商品出库管理过程是管理人员根据销售人员提供 的商品出库单，不合格出库单返回重填，合格后，查询库存台帐，若 商品充足，仓库管理系统填写发货单，向客户付货并修改库存台帐， 否则，通知生产部门生产。顶层：图 2-4 顶层数据流图负责进货的人员首先填写入库单，然后仓库管理人员对商品的质 量与数量进行核查不合格的返回入库单让进货员重填，合格的入库并 返回确认单，如商品有记录则录入更新库存台账并记入商品购入流水 账，如商品无记录则建立新帐页然后录入，更新库存台账并记入商品 购入流水账。商品出库管理过程是管理人员根据销售人员提供的商品 出库单，不合格出

9、库单返回重填，合格后，查询库存台帐，若商品充 足，仓库管理系统填写发货单，向客户付货并修改库存台帐熟练并记 入商品流出流水账，否则，通知生产部门生产。财务人员盘点库存， 计算库存成本。累计汇总出各种商品当日的累计购入入库量、累计销 售出库量和库存结余量等数据，并将这些数据填入库存台帐。第一层2-2苣命孔二朮水垃!：奇巳乳丄和于尢图2-4第一层数据流程图图2-5 第二层数据流程图对于管理员来说，要对仓库的信息进行核对注册用户，管理货物的更改信息入库、出库、核对信息等，其数据流图如下图：数据库信息更改正确出库密码查询更改处理 模块入库处理 、模块查询处理 模块错误信息一型作类管理员出库处理 模块/

10、入库图 2-6 管理员数据流程图管理员的入库操作流程图如图 2-7 所示：点击入库按钮入库成功I选择其他仓库图 2-7 入库操作流程图管理员的出库操作流程图如图2-8 所示图2-8出库操作流程图对于用户来说，要操作数据库的信息，首先要注册账号，设置密码，登陆上去以后，才能对信息进行查询、更改的操作，其数据流图如下图：注册模块-*数据库信息用户查询处理 查询 模块 账号马核对密码正确选择桑作类错误信息更改J更改处理模块图2-9用户数据流程图用户的查询操作如图 2-10 所示：图 2-10 查询数据流程图用户更改密码的流程图如图 2-11 所示：图 2-11 修改密码数据流程图2.5 典型数据字典

11、分析通过对企业仓库管理的容和数据流程分析，设计数据项和数据结 构如下：（1）货物信息，包括的数据项有编号、货物名称、货物类别、货 物规格、计量单位、最高限量、最低限量、备注等。（2）仓库信息， 包括的数据项有编号、仓库名称、仓库地点、保管员编号、备注等。（3） 库存状况信息，包括的数据项有编号、货物编号、库存数量、仓库编 号等。（4）入库单信息，包括的数据项有编号、货物编号、经办人编 号、入库时间、入库单价、入库数量、供应商编号、仓库编号、定单 状况、其它金额、备注等。（5）出库单信息，包括的数据项有编号、 货物编号、经办人编号、出库时间、出库单价、出库数量、客户编号 仓库编号、定单状况、其它

12、金额、备注等。（6）进行月盘点信息，包 括的数据项有编号、仓库编号、盘点时间、经办人编号、盘点数据等（7）系统日志信息，包括的数据项有用户名、操作时间、操作容等。（8）用户管理信息，包括的数据项有用户名、用户密码、用户权限等。 另外，还有借入单、借出单、报损单、调拨单信息等。它们与入库单、出库单信息基本类似。第三章系统数据库设计31数据库概念结构分析根据上面的设计规划出的实体有：现有库存信息实体、入库信息实体、出库信息实体、借入信息实体、借出信息实体、调拨信息实体图3-1现有库存信息实体E-R图调拨信息实体图3-6 调拨信息实体E-R图报损信息实体图3-7报损信息实体E-R图实体和实体之间的关

13、系E-R图如下图:诟1援次W库与苗 2fS.Ii扌断图3-9 全局E_R图3.2数据库逻辑结构设计将在上面的数据库概念结构转化为数据库系统所支持的实际数据 模型，也就是数据库的逻辑结构。仓库管理信息系统数据库中各个表 格的设计结果如下面表格所示。每个表格所示在数据库中的一个表。表3-1货物基本信息表字段名称数据类型字段大小可否为空货物编号数字长整型不可货物名称文本16不可货物类别文本16可货物规格文本16可计量单位文本16可最高限量数字长整型不可最低限量数字长整型不可备注文本16可表3-2 仓库信息表字段名称数据类型字段大小可否为空仓库编号数字长整型不可仓库名称文本16不可仓库地点文本255可

14、管理员编号数字长整型可备注文本16可表 3-3 库存状况信息表字段名称数据类型字段大小可否为空库存状况编号数字长整型不可货物编号数字长整型不可库存数量数字长整型不可仓库编号数字长整型不可表 3-4 入库单信息表字段名称数据类型字段大小可否为空入库单编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可入库时间日期/时间不可入库单价货币不可入库数量数字长整型不可供应商编号数字长整型可仓库编号数字长整型不可订单状况文本16不可其它金额货币可备注备注可字段名称数据类型字段大小可否为空出库单编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可出库时间日期/时间不可出库单价货币不可

15、出库数量数字长整型不可客户编号数字长整型可仓库编号数字长整型不可订单状况文本16不可其它金额货币可备注文本16可表 3-6 借入单信息表字段名称数据类型字段大小可否为空借入单编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可借入时间日期/时间不可借入数量数字长整型不可供应商编号数字长整型可仓库编号数字长整型不可订单状况文本16不可其它金额货币可备注文本16可字段名称数据类型字段大小可否为空借出单编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可借出时间日期/时间不可借出数量数字长整型不可供应商编号数字长整型可仓库编号数字长整型不可订单状况文本16不可其它金额货币可备

16、注文本16可表3-8调拨单信息表字段名称数据类型字段大小可否为空调拨单编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可调拨时间日期/时间不可调拨数量数字长整型不可原仓库编号数字长整型不可目标仓库编号数字长整型不可其它金额货币可备注文本16可表3-9 报损单信息表字段名称数据类型字段大小可否为空报损单编号数字长整型不可货物编号数字长整型不可经办人编号数字长整型不可报损时间日期/时间不可报损单价货币不可报损数量数字长整型不可仓库编号数字长整型不可其它金额货币可备注文本16可表 3-10 盘点单信息表字段名称数据类型字段大小可否为空盘点单编号数字长整型不可仓库编号数字长整型不可盘点时

17、间日期/时间不可经办人编号数字长整型不可盘点数据数字长整型不可表 3-11 系统日志信息表字段名称数据类型字段大小可否为空用户名Char16不可操作时间日期/时间不可操作容文本16不可表 3-12 用户管理信息表字段名称数据类型字段大小可否为空用户名Char16不可用户密码Char16不可用户权限数字长整型不可3.3 数据库物理结构设计物理结构设计的任务就是根据具体计算机系统的特点，为给定的数据 库系统确定合理的存储结构和存储方法。所谓的“合理”主要有两个 含义：一个是要使设计出的物理数据库占有较少的存储空间。另一个 是要对数据库的操作具有尽可能高的速度。1）建立索引（1）对“货物基本信息”表

18、，在属性列“货物编号”上建立唯一性索 引。（2）对“仓库信息”表，在属性列“仓库编号”上建立唯一性索引。（3）对“库存状况信息”表，在属性列“库存状况编号”上建立唯一 性索引。（4）对“入库单信息”表，在属性列“入库单编号”上建立唯一性索 引。（5）对“出库单信息”表，在属性列“出库单编号”上建立唯一性索 引。（6）对“借入单信息”表，在属性列“借入单编号”上建立唯一性索 引。（7）对“借出单信息”表，在属性列“借出单编号”上建立唯一性索 引。（8）对“调拨单信息”表，在属性列“调拨单编号”上建立唯一性索 引。（9）对“报损单信息”表，在属性列“报损单编号”上建立唯一性索 引。（10）对“盘点

19、单信息”表，在属性列“盘点单编号”上建立唯一性 索引。（11）对“系统日志信息”表，在属性列“用户名”“操作时间”上建 立唯一性索引。（12）对“用户管理信息表”表，在属性列“用户名”“用户密码”上 建立唯一性索引。2）建立个唯一性索引对应的代码如下：（1）creat unique index货物信息-编号on货物基本信息表（货物 编号）；（2）creat unique index仓库信息-编号on仓库基本信息表（仓库 编号）；（3）creat unique index库存状况信息-编号on库存状况信息表（库 存状况编号）；（4）creat unique index入库单信息-编号on入库单信

20、息表（入库 单编号）；（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 uniq

21、ue index系统日志信息-编号on系统日志信息表（用 户名，操作时间）；（12）creatunique index用户管理信息-编号on用户管理信息表（用 户名，用户密码）；3）存储结构确定数据库的存储结构主要指确定数据的存放位置和存储结构，包括 确定关系、索引、日志、备份等的存储安排与存储结构，以与确定系 统存储参数的配置。将日志文件和数据库对象（表、索引等）分别放在不同的存盘，可以 改进系统的性能，提高系统的安全性。所以，系统应将日志文件和数 据文件放在不同的磁盘上。3.4数据库关系设计1设计表诡旳基本信息計，危置呈“仓库管理”馭B2-032上数据类型IF总许空D1 孕 ntE货物名称

22、；K；16删类别16:EX：16V计量单立text16虽髙限虽1i gi ntEtigintE表3-13货物基本信息I、 r=$ :ai-L=!p 1AI-L：ai_LLU设计表*电库信息表-隹置是“仓库管理刀中、-2032 _b列名数据其型5允许空1圈仓库編号b i gi ntB咱:库帝称tE：tL&test1Hz首性耳编号Li gi nts备注tH：HtIE-V表3-14仓库信息表表3-15库存状况信息表Ifiik SQL Sbktfuh Eki rkfr 1 s亶:ui_厘容住匸匸设rJ检 寺件逼、痢口辿】帮Ui迫】曰里 晶距I 用理彎m韓&爭區5vTT |人库单綱=bi Sint0Li

23、 ixti.B咗必人締号L gixL*8A库叶口|tim estamji0入库单曲char10入岸数呈L gixL*8bi cixit.ev/乜库编号*bi int.s订单仗呪lei: tIBmoiteye&注ax tIB2表3-16入库信息表1T1出库探wb i fi xi-L曰bi ci nt.曰b i ex zi.-kmd.*.t_ * t. i rra *smoiksyt ci ntbi ci nt.b 云 ex zi.-ktext16Ffi 口工山夕.*3C-Li a11匕I却据穴JL2I 鼻I 7匸，午二表3-17出库单信息表抽1-行+J9Tl世入单轴导b a si ntb a 占

24、 i n-L=i;Jj-A.rR 7*b a 占i n-Lifumerd abi ci n.bi ci n-tbi i nl.IS1 B表3-18 借入单信息表1內色1樂.JS兰型1卜g 1如0 Ilr?l1惜出单陳号hi. ginta苛T?1细iTbi. cixL*8=Jj-.A.rR ylai-nt曰ra；i；iii 问Xi.iTl 4 S t.-iiTip6皆出敷量bi 芬int.8供应的浪号1= 3-否ixiAQ2i；3 端 Tt 1Tl*.8匚T单姒兄L 乂七1吕t i. cixLt.02SK tIB表3-19借出单信息表緞陌耶型Krs- I血午仝11陶撇单旅号Li gi nt曰b

25、i ci n tBL i 芒;i n 日冏按时1刊d=it.c= t irTi c=a诟|拨埶量bi nte尿11PF餉号b i gi n tabi nte_KI也益啟m :-rtgye7SHti&7表3-20 调拨单信息表b ib iLrs常氣 g爲翥？ |;瞑/;|-.汁 匕InlnlnhH-lb ib i表3-21报损单信息表SQL Server Enexprise KaiLa.geir 设tl査 *蛊点单IB宜表檻更件Q 窗址帮助竝a 站黑題鬲|叭幽越岂融時孑表3-22盘点单信息表表 3-22盘点单信息表列名戳据类型长度允许空用户名char16操作时间late timE操作内容tfiM

26、t16系统日志信息表表323系统日志信息表表 3-23列名数据类型长度允许仝1画盘点单編号bi gint0仓库编号bi gizit.e盘点时间I-zlI. e tirrie8经办人编号t i gi II*.8盘点数据t 五 Tl*.8列名数括类型长度允许空用户名char16用户密码char16用户权限bigint3表3-24用户管理信息表话IM* 如号 rVitaS-iiBl tflJi单廿11阿眄席.一 一二二吟FF科wlt鼻量 *=聊FV闭 刑tt:5E?l5IHi JJttsfH 讨托ft-a-歐片世Jt養*ttWHiE附量呂 rrtirM-帖申号aflEen4茁fti7ATWft* *

27、哑宀旳号 kg.Ains a.xasIS It*号CT*LtiSMUH 庄DO借出信鼻农*71*出时円-itEKW 门单止说 工也H践Bi出耳牟eH :af号di聲吋冈忻 出期量 APutM y疇 灯缆导 亘3?|倉白甲魅凳表*?申且期号已却i号e.4114阿力扎1W表3-25 各表关系图第四章系统主要功能模块设计与实现4.1系统登录界面设计思路与要点：用户运行程序后，输入用户名与密码，程序根 据用户名到后台数据库查询用户名和密码是否正确，如果正确，则根 据用户名给出用户所属的级别，并根据级别给出相应的权限。如没有 通过验证，则给出没有通过验证的原因。系统登录界面如图4-1所示：图4-1系统登

28、录界面单击登陆时，其对应的代码如下：Private Sub cmdOK_Click()Dim con As ADODB.ConnectionDim rs As ADODB.RecordsetSet con = New ADODB.ConnectionSet rs = New ADODB.Recordsetcon.Open dsn=xue , sa ,rs.Open select * from 用户 where 用 户名二+ Trim(txtUserName.Text) + , con, adOpenStatic, adLockOptimisticIf rs.RecordCount 0 Then

29、rs.MoveFirs tIf Tri m(txt Password.Tex t) 二 Trim(rs.Fields(密码)ThenForml.ShowLoginSucceeded = TrueMe.HideElseMsgBox 密码错误，请重新输入！，确定txtPassword.SetFocusSendKeys Home+EndEnd IfElseMsgBox 密码错误，请重新输入，确定txtPassword.SetFocusSendKeys Home+EndEnd IfEnd Sub图4-2仓库管理系统密码错误界面单击退出时，对应的代码如下：Private Sub cmdCancel_Cl

30、ick()End SubPrivate Sub cmdOK_Click()Dim con As ADODB.ConnectionDim rs As ADODB.RecordsetSet con = New ADODB.ConnectionSet rs = New ADODB.Recordsetc” ”con.Open dsn=xue, sa, rs.Open select * from 用户 where 用 户名二+ Trim(txtUserName.Text) + , con, adOpenStatic, adLockOptimisticIf rs.RecordCount 0 Thenrs.

31、MoveFirstIf Tri m(txt Password.Tex t) 二 Trim(rs.Fields(密码)Then Form1.ShowLoginSucceeded = TrueMe.HideElseMsgBox 无效的密码，请重试!, , 登录txtPassword.SetFocusSendKeys Home+EndEnd IfElseMsgBox 无效的用户名，请重试!, , 登录txtPassword.SetFocusSendKeys Home+EndEnd IfEnd Sub如果用户名或密码错误，系统会分别提示，防止非法用户进入系统操作。4.2系统主界面设计思路与要点：用户登

32、录通过后，进入系统的主界面。主界面 的菜单如果是灰色显示，则说明此用户没有权限操作此功能。在主界面的状态栏会显示当前用户名和用户权限。界面如图4-3所示:图4-3仓库管理系统主界面其对应的代码如下：Private Sub24.3系统管理模块系统管理模块主是功能是进行本系统的一些常用管理工作，共有 四个子模块：重新登录，修改密码，用户管理，退出。4.3.1重新登录功能进入系统后，可选择重新登录在不现用户之间进行切换。界面如图4-4所示：图4-4系统重登陆界面 其对应的代码如下：Private Sub cmdRelude -Click()Relude Me 重新登录仓库管理系统End Sub4.3

33、.2修改密码功能设计思路和要点：用户如需修改自己的登录密码，需输入旧密码 与新密码，程序在数据库中修改用户的密码。界面如图4-5所示：图4-5修改密码界面其对应的代码如下：Private Sub From-Loud()TxtO ldPWD二Curren tUserPassword显示用户密码Eed Sub实现密码输入验证：Private Sub txtNewPWD-KeyPress(Index As Integer,KeyAscii As Integer)If KeyAscii二vbKeyRurn ThenSecondKeys “ Tab”ElseIf Not (KeyAsscii二vbKey

34、O And KeyAsscii二 vbKey9-Or KeyAsscii=Asc( a )And KeyAscii二Asc( z)-Or KeyAsscii=Asc( A )And KeyAscii二Asc( Z)-Or KeyAsscii=vbKeyBack )ThenKeyAsscii=0Eed IfEnd Sub单击确认，保存新密码，Private Sub cmdSave-Click()If txtNewPWD(1) txtNewPWD(9)ThenMsgBox “两次输入的密码必须相等！”，vbExclamation, “修改密码”txtNewPWD(0).SetFocustxtNew

35、PWD(0).SetStart=0txtNewPWD(0).SetLength=Len(txtNewPWD(0)Else 修改原来的密码With Drug-Stor.rsSysUsers.Open.Find “编号二“&CurrentUserNumner&”.Fields( “密码”)=Trim(txtNewPWD(O).UpdateEnd WithMsgBox “密码已修改End Sub单击取消，关闭仓库管理窗体Private Sub cmdExit-Click()Unload Me 关闭密码修改窗体End Sub4.3.3 用户管理功能设计思路和要点：用户管理是对使用此系统的所有用户进行管

36、理。分为增加，删除以与修改用户信息。此功能只有管理员和超级用户才能使用。普通用户不能执行此操作。界面如图4-6所示：图4-6用户管理界面其对应的代码如下：定义窗体级变量，用于表示当前是否处于添加记录状态Dim isAdding As Boolean实现记录导航Private Sub cmdMove-Click(Index As Integer)With Drug-Store.rsSysUsersCase 0使第一个记录成为当前记录If .RecordCont0 And Not .BOF Then .MoveFirstCase 1使上一个记录成为当前记录If .RecordCont0 And N

37、ot .BOF Then .MovePreviousIf.BOF Then .MoveFirs tEnd IfCase 2使下一个记录成为当前记录If .RecordCont0 And Not .BOF Then .MoveNextIf . BOF Then .MoveLastEnd IfCase 3 使最后一个记录成为当前记录If .RecordCont0 And Not .BOF Then .MoveLastEnd SelectIf And . BOF ThentxtNews二“记录：无”Elsetxt News二“记录：” & .Absolu tePossi tion&” /” & .R

38、ecordCountEnd IfEnd WithEnd Sub验证用户信息输入，在输入用户名、密码和权限代码时，执行验证操作Private Sub txtUser-KeyPress(KeyAscii As Integer)If Not(KeyAscii=vbKey0 And KeyAscii=Asc(a)And KeyAscii=Asc(A)And KeyAscii=vbKey0 And KeyAscii=Asc(a)And KeyAscii=Asc(A)And KeyAscii0 Then. MoveLastEed IfEed IfEed IfEed WithEnd Sub单击关闭时，实现关

39、闭窗体操作Private Sub cmdExit-Click()Unload Me 关闭系统用户管理窗体End Sub4.3.3.1退出功能退出即退出本系统。选择系统管理下的退出即可。如图4-7所示、电库ins莆安于僦1理*汕琲:-+i：.i用户皆&匚冈图4-7退出系统界面其对应的代码如下：Private Sub cmdExit-Click()Unload Me关闭仓库管理窗体End Sub4.4仓库管理模块仓库管理模块是本系统的核心模块。根据仓库的日常操作共分有 六个子模块，分别是：入库操作，出库操作，退料操作，增料操作， 仓位管理和盘点损益。已基本包括了仓库管理的主要功能。4.4.1入库操

40、作设计思路和要点：入库操作即仓库的收料，系统规定收料只能根 据订单来进行。没有订单就不能完成收料。每个订单都对应一个入库 操作。这样可以大大减少因人为因素产生的错误。规化仓库收料操作。 选择订单后，相关的订单信息已会显示出来。订单是由订单管理模块 产生。仓库人员没有权限产生订单。界面如图4-8所示：图4-8入库操作界面其对应的代码如下：单击入库时，Private Sub cmdAdd-Click()If cmdAdd.Caption二“入库” ThencmdAdd.Caption二“查询”StockData.Visible二 False设置入库数据默认的产品名称和编号Stockln.Visib

41、le二True isStorking二 True cmdDelet.Enabled二 False cmbName.Listlndex=0 cmbNum.Listlndex=0ElsecmdRefresh.Value二 True cmdAdd.Caption二“入库” StockData.Visible二 True Stockln.Visible二 FalseisStorking二 FalsecmdDelet.Enabled二 TrueEed IfEnd Sub点击关闭时，退出入库窗体Private Sub cmdExit-Click()Unload Me关闭入库窗体End Sub4.4.2出库

42、操作设计思想和要点：出库操作即仓库的发料，本系统规定仓库的发 料需根据生产计划来进行。没有生产计划则不能发料。生产计划的产 生由专门模块实现。生产计划用工单来区分。每个工单的发料可有两 种方式，一种是按工单发料，即一次性将一个工单的全部所需物料全 部发至生产线。另一种是按物料，即根据生产状况，一个一个将物料 发至生产线。选择选择发料类型，按工单或按物料。按工单的话，则 选择工单号即生产计划号，系统自动将此工单的所有料发至生产线。 界面如图4_9和图4-10所示：图4-9出库操作按工作界面图4-10出库操作按物料界面 其对应的代码如下：Private Sub cmdAdd-Click()If c

43、mdAdd.Caption二“出库” Then cmdAdd.Caption二“查询” StockData.Visible二 False设置出库数据默认的产品名称和编号Stockln.Visible二True isStorking二 True cmdDelet.Enabled二 False cmbName.Listlndex=0 cmbNum.Listlndex=0ElsecmdRefresh.Value二 True cmdAdd.Caption二“入库” StockData.Visible二 True Stockln.Visible二 False isStorking二 False cmdD

44、elet.Enabled二 True Eed IfEnd Sub点击关闭时，退出出库窗体Private Sub cmdExit-Click()Unload Me 关闭出库窗体End Sub4.4.3借入操作设计思路和要点：借入操作即由于生产损耗而需要增料。为了核 算成本，增料需根据生产计划号来进行增料操作，这样就可以清楚列 出每次生产的损耗。界面如图4-11所示：图4-11借入操作界面其对应的代码如下：Private Sub cmdAdd-Click()If cmdAdd.Caption二“借入” Then cmdAdd.Caption二“查询”StockData.Visible二 False

45、Stockln.Visible二TrueisStorking二 TruecmdDelet.Enabled= FalsecmbName.ListIndex=0 设置借入数据默认的产品名称和编号cmbNum.ListIndex=0ElsecmdRefresh.Value= TruecmdAdd.Caption二“借入”StockData.Visible= TrueStockIn.Visible= FalseisStorking= FalsecmdDelet.Enabled= TrueEed IfEnd Sub点击关闭时，退出借入窗体Private Sub cmdExit-Click()Unload

46、 Me 关闭借入窗体End Sub4.4.4借出操作设计思路和要点：借出操作是针对生产线由于各种原因产生的生 产中多领的物料退回仓库。借出时需选择所退物料的料号与数量。程 序会根据这些信息在数据库中作出相应的调整。界面如图4-12所示：图4-12 借出操作界面其对应的代码如下:Private Sub cmdAdd-Click()If cmdAdd.Caption二“借出” Then cmdAdd.Caption二“查询”StockData.Visible二 FalseStockln.Visible二True设置借出数据默认的产品名称和编号isStorking二 True cmdDelet.En

47、abled二 False cmbName.Listlndex=0 cmbNum.Listlndex=0ElsecmdRefresh.Value二 TruecmdAdd.Caption二“借出”StockData.Visible二 TrueStockln.Visible二 FalseisStorking二 FalsecmdDelet.Enabled二 TrueEed IfEnd Sub点击关闭时，退出借出窗体Private Sub cmdExit-Click()Unload Me 关闭借出窗体End Sub4.5盘点模块设计思路和要点：每次盘点后，需根据盘点结果进行某些物料的 调整。调整分为收益

48、和亏损。界面如图4-13所示：X口回篋图4-13盘点界面4.5.1报表查询模块此模块的主要功能是查询与报表。4.5.2查询设计思路和要点：根据各种查询条件查询物料信息。物料信息包 含三部分，一为基本信息，二为订单信息，三为生产计划信息。适合所有使用者。界面如图4-14所示:图4-14查询界面其对应的代码如下：Private Sub CodSelect_Click()With Wage-Manage-Data.rsStuffDataAdodc1.RecordSource = select * from 仓库基本信息 where 仓位二Tex t3.Tex t Adodc1.RefreshTex

49、t1.Tex t 二 Adodc1.Recordse t.Fields(” 物料代码)End WithcmdMove(O).Value二TrueEnd SubPrivate Sub cmdExit-Click()Unload Me 关闭查询窗体End Sub4.5.3查询日常操作设计思路与要点：对系统的每一次操作能应与时地记录下来，以 便日后查询。因此在数据库中单独创建一表，用于记录系统的日常操 作，即仓库的各种日常操作。通过此功能，可能追溯系统数据的整个 变化过程。使整个系统的运行都在控制之。界面如图4-15所示:图4-15操作日志界面其对应的代码如下：Private Sub CodSele

50、ct_Click()With Wage-Manage-Data.rsStuffDataAdodc1.RecordSource = select * from 系统日志信息 where 操作员二 Text1.Text And “操作容” =Text2.Text And “日期从” =Text3.Text And “日 期到”二Tex t4.Text Adodc1.RefreshEnd With cmdMove(O).Value二TrueEnd SelectEnd SubPrivate Sub cmdExit-Click()Unload Me 关闭操作日志窗体End Sub4.5.4盘点报表设计思

51、路和要点：盘点报表可以根据盘点的需要，按物料编码或 按仓位生成。盘点报表将列出当前时刻，仓库中所有物料的数量与存 放地点，以便盘点时参考。同时此报表还可以输出成各种格式，以方 便用户使用。界面如图4-16所示：图4-16盘点报表界面其对应的代码如下PrivateSubtbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button .indexCase 1:M库存状况_ClickCase 4:M月盘点_ClickCase 9:M打印月盘点_ClickCase 11:M查看日志_ClickCase 13:mnuHelpAbout_ClickEnd SelectEnd SubAsPrivate Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenuMSComctlLib.ButtonMe