仓库管理系统设计方案

仓库管理系统设计方案（共４9页）PAGEPAGE1————————————————————————————————作者:————————————————————————————————日期：ﻩ选题背景及系统目标选题背景俗话说,兵马未出,粮草先行.古代行兵打仗，最先要考虑的就是物资的预备和管理,否则要取得成功是格外困难的一件事。商场如战场，商家不仅要把握大量的物资,同时这些物资还要尽可能满足顾客的需要,这样才能在激烈的市场竞争中猎取成功。然而管理物资却是最烦琐的事情,无论数量还是种类,都是数以万计，用人手工来做，是格外困难的，而且很简洁出错误，但是随着科学技术的进展,社会进步,计算机快速的进展,仓库管理的方法也日新月异，以前全是由人管理的方法现存在很多的缺点:管理效率低,劳动强度大,信息处理速度低而且精确     率也不够令人满足。为了提高仓库管理效率,减轻劳动强度提高,信息处理速度和精确     性；为仓库管理员供应更便利、科学的服务项目。为仓库管理员供应的一种更先进、科学的服务系统。于是我们便选择了由计算机来设计一个仓库管理系统的方案。让计算机对仓库进行自动管理,仓库管理员可以直接在计算机上实现仓库的信息管理,并能在肯定程度上实现自动化。在计算机普及的今日,用电脑管理物资是必定的趋势.现已某中小型公司的仓库管理为例，开发一个借助电脑,把全部数据输入数据库,然后用系统对这些数据进行管理，通过统计和分析得到各种有用的信息的数据管理系统，以便利对仓库的统一管理。１.２系统目标仓库管理主要是企业各种商品的管理。进货时经检查合同确认为有效托收后,进行验收入库,填写入库单,进行入库登记。企业各个部门依据需要提出产品恳求,方案员依据整个企业的需求开出产品出库单,仓库管理人员依据出库单核对发放产品。依据需要依据月进行统计分析,产生相应报表。仓库管理的特点是信息处理量比较大,所管理的产品种类繁多,而且由于入库单、出库单、盘点单等单据发生量特殊大，关联信息多,查询和统计的方式各不相同。因此在管理上实现起来有肯定的困难。在管理的过程中经常会消灭信息的重复传递;单据、报表种类繁多,各个部门管理规格不统一等问题。在本系统的设计过程中，为了克服这些困难，满足计算机管理工作的需要,我们实行了下面的一些原则:(１)统一各种原始单据的格式,统一报表的格式。(2)删除不必要的管理冗余，实现管理规范化、科学化。(3）程序代码标准化,软件统一化，确保软件的可维护性和有用性。(4)界面尽量简洁化,做到有用、便利，尽量满足企业中不同层次员工的需要。(5)建立操作日志，系统自动记录所进行和各种操作。需求分析２.1组织机构分析该仓库企业的组织结构如图所示。企业的主要决策和管理机构总经理，总经理分管财务和执行两大体系模块;财务在仓库管理的经营中所扮演的角色是是一个相当重要的角色过程,相对来说,此部门是相对独立的;日常事务的执行的部分,分为选购部、库存管理部、销售部和人事部四个主要部门。库存管理部的主要任务是依据销售部供应的信息和选购准时联系，使库房货源充分；责任货物的接收,并支配好货物的存放事宜;对每天进出库房的货物进行具体记录，使基础数据完备。销售部主要责任日常销售工作,包括物品摆放、货架整理、收银台等货物销售区的日常事务;准时精确     地将销售信息反馈给其他部门，以保证商品的准时供应更新；同时处理消费者提出的各种疑问和信息,为公司的整体运作供应实际销售的基础数据。财务部负责一切与财务有关的各项事宜，全面记录公司的全部收支资金流淌,包括各种收入、支出、税务、财务结算等。对进出贷款实行把握,定期分析资金走向，为公司的进展方案做好预备。2．２系统功能分析系统功能分析是在系统开发的总体任务的基础上完成。本仓库管理系统需要完成功能主要有:（１）仓库管理各种信息的输入,包括货物、供应商、客户、仓库信息的输入等。（2)仓库管理各种信息的查询、统计、修改和维护,包括货物、单据查询,货物出入、职员操作统计，各种信息的修改和维护等。(3)打印报表的生成。(4)在货物管理中加入最高储备和最低储备字段,对仓库中的产品实现监控和报警。（５)操作日志的管理。（６)仓库管理系统的使用挂念。其系统功能图如图所示:仓库管理系统仓库管理系统基本信息单据中心查询统计报表打印维护设置系统挂念新增单据单据管理查询模块统计模块图２-2系统功能图２．３业务流程调查与分析１)进货员填写入库单并经仓管查询库存台帐检查核对，不合格单据送回，合格后直接入库并修改库存台帐,同时记录在商品购入流水帐中。假如是新产品，则还要在库存台帐中建立新帐页然后入库。２)商品出库管理过程是管理人员依据销售人员供应的商品出库单,经核查后合格付货，有误送回,同时登记商品的销售流水帐。假如仓库库存不满足,通知选购部进行选购。3)财务员盘点库存数量,计算库存成本。其业务流程图如图2-3所示:图２-3业务流程图２.4数据流程调查与分析负责进货的人员首先填写入库单,然后仓库管理人员对商品的质量及数量进行核查不合格的返回入库单让进货员重填，合格的入库并返回确认单。然后更新库存台账。商品出库管理过程是管理人员依据销售人员供应的商品出库单,不合格出库单返回重填，合格后，查询库存台帐,若商品充分,仓库管理系统填写发货单,向客户付货并修改库存台帐,否则，通知生产部门生产。顶层:图2-4顶层数据流图负责进货的人员首先填写入库单,然后仓库管理人员对商品的质量及数量进行核查不合格的返回入库单让进货员重填，合格的入库并返回确认单,如商品有记录则录入更新库存台账并记入商品购入流水账,如商品无记录则建立新帐页然后录入，更新库存台账并记入商品购入流水账。商品出库管理过程是管理人员依据销售人员供应的商品出库单,不合格出库单返回重填,合格后，查询库存台帐,若商品充分,仓库管理系统填写发货单,向客户付货并修改库存台帐娴熟并记入商品流出流水账,否则，通知生产部门生产。财务人员盘点库存，计算库存成本。累计汇总出各种商品当日的累计购入入库量、累计销售出库量和库存结余量等数据，并将这些数据填入库存台帐。第一层图2-４第一层数据流程图图2-４第一层数据流程图进货员进货员不合格入库单入库单确认单检查P1.1D1库存台帐无记录货品入库单有记录货品入库单新账建立P1.2入库单录入P1.3D2商品购入流水帐入库信息其次层图2-5其次层数据流程图图2-5其次层数据流程图图2-６管理员数据流图对于管理员来说,要对仓库的信息进行核对注册用户,管理货物的更改信息、入库、出库、核对信息等，其数据流图如图所示：图2-６管理员数据流图图2-6管理员数据流程图管理员的入库操作流程图如图2-7所示：图2-7入库操作流程图管理员的出库操作流程图如图２-８所示:图2-8出库操作流程图图2-8出库操作流程图对于用户来说，要操作数据库的信息,首先要注册账号,设置密码,登陆上去以后，才能对信息进行查询、更改的操作,其数据流图如图所示:图２-９用户数据流程图图２-９用户数据流程图用户的查询操作如图2-1０所示:图2-１０查询数据流程图用户更改密码的流程图如图2－1１所示:图2-1１修改密码数据流程图2.5典型数据字典分析通过对企业仓库管理的内容和数据流程分析，设计数据项和数据结构如下:（１)货物信息,包括的数据项有编号、货物名称、货物类别、货物规格、计量单位、最高限量、最低限量、备注等。(2)仓库信息，包括的数据项有编号、仓库名称、仓库地点、保管员编号、备注等。(３）库存状况信息,包括的数据项有编号、货物编号、库存数量、仓库编号等。（4)入库单信息，包括的数据项有编号、货物编号、经办人编号、入库时间、入库单价、入库数量、供应商编号、仓库编号、定单状况、其它金额、备注等。(5)出库单信息，包括的数据项有编号、货物编号、经办人编号、出库时间、出库单价、出库数量、客户编号、仓库编号、定单状况、其它金额、备注等。(6)进行月盘点信息,包括的数据项有编号、仓库编号、盘点时间、经办人编号、盘点数据等。(7）系统日志信息，包括的数据项有用户名、操作时间、操作内容等。(8)用户管理信息,包括的数据项有用户名、用户密码、用户权限等。另外,还有借入单、借出单、报损单、调拨单信息等。它们与入库单、出库单信息基本类似。系统数据库设计3.１数据库概念结构分析依据上面的设计规划出的实体有：现有库存信息实体、入库信息实体、出库信息实体、借入信息实体、借出信息实体、调拨信息实体图和报损信息实体图。各个实体具体的描述E-R图如下：图3-1现有库存信息实体Ｅ-R图图3-2入库单信息实体E－R图客户编号出库信息实体客户编号出库信息实体编号经办人编号入库时间、单价、数量图3-３出库信息实体E－R图借入信息实体编号经办人编号借入时间、单价、数量借入信息实体编号经办人编号借入时间、单价、数量货物编号借出信息实体借出信息实体编号经办人编号借出时间、数量货物编号图３-5借出信息实体E-R图调拨信息实体调拨信息实体编号经办人编号目标仓库编号原仓库编号图3-6调拨信息实体Ｅ－R图报损信息实体编号报损信息实体编号经办人编号报损时间、单价、数量仓库编号图３－7报损信息实体Ｅ-R图实体和实体之间的关系Ｅ-R图如图所示:图3-8实体之间关系Ｅ-R图图3-９全局Ｅ＿Ｒ图3．２数据库规律结构设计将在上面的数据库概念结构转化为数据库系统所支持的实际数据模型，也就是数据库的规律结构。仓库管理信息系统数据库中各个表格的设计结果如下面表格所示。每个表格所示在数据库中的一个表。表3－1货物基本信息表字段名称数据类型字段大小可否为空货物编号数字长整型不行货物名称文本16不行货物类别文本１６可货物规格文本1６可计量单位文本16可最高限量数字长整型不行最低限量数字长整型不行备注文本１６可表３－2仓库信息表字段名称数据类型字段大小可否为空仓库编号数字长整型不行仓库名称文本16不行仓库地点文本255可管理员编号数字长整型可备注文本16可表３－3库存状况信息表字段名称数据类型字段大小可否为空库存状况编号数字长整型不行货物编号数字长整型不行库存数量数字长整型不行仓库编号数字长整型不行表3－4入库单信息表字段名称数据类型字段大小可否为空入库单编号数字长整型不行货物编号数字长整型不行经办人编号数字长整型不行入库时间日期／时间不行入库单价货币不行入库数量数字长整型不行供应商编号数字长整型可仓库编号数字长整型不行订单状况文本１６不行其它金额货币可备注备注可表3-5出库单信息表字段名称数据类型字段大小可否为空出库单编号数字长整型不行货物编号数字长整型不行经办人编号数字长整型不行出库时间日期/时间不行出库单价货币不行出库数量数字长整型不行客户编号数字长整型可仓库编号数字长整型不行订单状况文本１6不行其它金额货币可备注文本1６可表3-6借入单信息表字段名称数据类型字段大小可否为空借入单编号数字长整型不行货物编号数字长整型不行经办人编号数字长整型不行借入时间日期／时间不行借入数量数字长整型不行供应商编号数字长整型可仓库编号数字长整型不行订单状况文本１６不行其它金额货币可备注文本１６可表3－７借出单信息表字段名称数据类型字段大小可否为空借出单编号数字长整型不行货物编号数字长整型不行经办人编号数字长整型不行借出时间日期/时间不行借出数量数字长整型不行供应商编号数字长整型可仓库编号数字长整型不行订单状况文本16不行其它金额货币可备注文本16可表3-８调拨单信息表字段名称数据类型字段大小可否为空调拨单编号数字长整型不行货物编号数字长整型不行经办人编号数字长整型不行调拨时间日期/时间不行调拨数量数字长整型不行原仓库编号数字长整型不行目标仓库编号数字长整型不行其它金额货币可备注文本16可表３-9报损单信息表字段名称数据类型字段大小可否为空报损单编号数字长整型不行货物编号数字长整型不行经办人编号数字长整型不行报损时间日期／时间不行报损单价货币不行报损数量数字长整型不行仓库编号数字长整型不行其它金额货币可备注文本16可表3-10盘点单信息表字段名称数据类型字段大小可否为空盘点单编号数字长整型不行仓库编号数字长整型不行盘点时间日期/时间不行经办人编号数字长整型不行盘点数据数字长整型不行表3-1１系统日志信息表字段名称数据类型字段大小可否为空用户名Chａr１６不行操作时间日期/时间不行操作内容文本1６不行表3－1２用户管理信息表字段名称数据类型字段大小可否为空用户名Char1６不行用户密码Char16不行用户权限数字长整型不行3.３数据库物理结构设计物理结构设计的任务就是依据具体计算机系统的特点,为给定的数据库系统确定合理的存储结构和存储方法。所谓的“合理”主要有两个含义:一个是要使设计出的物理数据库占有较少的存储空间。另一个是要对数据库的操作具有尽可能高的速度。建立索引(1)对“货物基本信息”表，在属性列“货物编号”上建立唯一性索引。(２)对“仓库信息”表,在属性列“仓库编号”上建立唯一性索引。(3)对“库存状况信息”表，在属性列“库存状况编号”上建立唯一性索引。（４)对“入库单信息”表,在属性列“入库单编号”上建立唯一性索引。(５)对“出库单信息”表，在属性列“出库单编号”上建立唯一性索引。(６)对“借入单信息”表,在属性列“借入单编号”上建立唯一性索引。(７）对“借出单信息”表，在属性列“借出单编号”上建立唯一性索引。(8)对“调拨单信息”表,在属性列“调拨单编号”上建立唯一性索引。(9）对“报损单信息”表,在属性列“报损单编号”上建立唯一性索引。(10）对“盘点单信息”表，在属性列“盘点单编号”上建立唯一性索引。（１1）对“系统日志信息”表,在属性列“用户名”“操作时间”上建立唯一性索引。(12）对“用户管理信息表”表,在属性列“用户名”“用户密码”上建立唯一性索引。2）建立个唯一性索引对应的代码如下:(1)creatuniｑｕeiｎdex货物信息-编号on货物基本信息表(货物编号);（2）creａtｕｎｉｑｕeinｄｅｘ仓库信息－编号oｎ仓库基本信息表(仓库编号)；（3)creatuniquｅｉndeｘ库存状况信息-编号oｎ库存状况信息表(库存状况编号）;(4)cｒeaｔuniqueｉｎｄeｘ入库单信息－编号on入库单信息表(入库单编号);（5）creaｔunｉｑueiｎｄex出库单信息-编号ｏｎ出库单信息表(出库单编号);（６)creaｔｕnｉqｕeinｄeｘ借入单信息-编号oｎ借入单信息表(借入单编号)；（7)cｒeatuniqｕeｉｎｄex借出单信息-编号ｏｎ借出单信息表（借出单编号);（8)creａtuｎiqｕeindex调拨单信息-编号ｏn调拨单信息表(调拨单编号)；(9)ｃreａtunｉqueiｎdeｘ报损单信息－编号on报损单信息表(报损单编号）;(1０)ｃreａtuniｑｕeｉnｄex盘点单信息-编号on盘点单信息表(盘点单编号);(１1)cｒｅａtuniｑuｅｉｎdeｘ系统日志信息-编号on系统日志信息表（用户名,操作时间);(1２)cｒｅatuｎiqｕeinｄｅx用户管理信息-编号ｏｎ用户管理信息表(用户名，用户密码);３)存储结构确定数据库的存储结构主要指确定数据的存放位置和存储结构,包括确定关系、索引、日志、备份等的存储支配及存储结构，以及确定系统存储参数的配置。将日志文件和数据库对象（表、索引等)分别放在不同的存盘,可以改进系统的性能,提高系统的平安性。所以，系统应将日志文件和数据文件放在不同的磁盘上。３．4数据库关系设计表３-１3货物基本信息表表３-１3货物基本信息表表3-１4仓库信息表表３－1５库存状况信息表表３-16入库信息表表３-16入库信息表表3－1７出库单信息表表3-18借入单信息表表3－１９借出单信息表表3－2０调拨单信息表表３-2１报损单信息表表３-２2盘点单信息表表3-23系统日志信息表表3-24用户管理信息表表３－２5各表关系图系统主要功能模块设计与实现4.１系统登录界面设计思路与要点:用户运行程序后,输入用户名与密码,程序依据用户名到后台数据库查询用户名和密码是否正确,假如正确，则依据用户名给出用户所属的级别，并依据级别给出相应的权限。如没有通过验证，则给出没有通过验证的缘由。系统登录界面如图4-１所示：图４－1系统登录界面单击登陆时,其对应的代码如下:PrｉvａｔｅSubcmdＯK_Ｃlｉｃｋ()ＤimｃonAｓAＤODB.CｏnneｃtiｏnDiｍrsAｓＡDＯＤB．ＲeｃｏrdｓeｔSｅtcon=NewADODB.ConneｃtionSｅtrs=NeｗＡＤＯDB.Reｃoｒｄｓｅtcoｎ.Open"ｄｓｎ=ｘuｅ","sa",＂"rs．Oｐen"selecｔ*froｍ用户wheｒe用户名='＂+Tｒiｍ(ｔxｔUserName.Tｅxt)＋"'",coｎ,ａdOｐenＳtａｔiｃ,adＬｏｃkOptｉmisｔｉｃIfrs．RecoｒdCouｎt＞０Tｈenrs.ＭovｅFiｒｓtIfＴｒiｍ（ｔxtPａssword.Ｔｅxt)＝Tｒiｍ(rs.Fｉｅlｄｓ("密码"）)ThenForm１.ShowLogｉｎＳｕｃceｅｄｅｄ=TrｕeMｅ.HideElｓｅＭsｇＢｏx＂密码错误，请重新输入!＂,，"确定"txｔＰassword.SｅtFocｕsＳeｎdKeyｓ"{Hｏｍe}+{Eｎｄ｝"EndIfElsｅMsgBｏx＂密码错误,请重新输入＂,"确定＂ｔxtPaｓｓwoｒd.SetFｏｃｕsSendKeys"{Hｏme}+｛End}"EｎdIfＥｎdＳub图4-２仓库管理系统密码错误界面单击退出时，对应的代码如下:PrｉvａｔeＳubcmdCancel＿Click()EｎdSｕbPｒivateSｕbｃmdOK_Cｌiｃｋ()DimcoｎAsＡDOＤＢ.ＣonnectiｏnDimrsAｓＡDODB．ＲeｃｏrdsｅｔSetcon＝NewAＤODＢ.CｏｎｎectionSetｒｓ=ＮeｗADOＤＢ．Ｒecｏrdsetｃon.Ｏpeｎ"dsn=xｕe","sa"，"＂rｓ．Open＂ｓeｌect＊ｆｒｏm用户wherｅ用户名='＂＋Ｔrｉm（ｔxｔＵsｅｒＮａme.Ｔｅｘｔ)+"＇",coｎ,adOｐenSｔatic,aｄＬｏcｋOｐtimisticIfｒｓ．RecordＣｏunｔ＞0Thｅnrs.MovｅFｉrstＩfTrim(tｘｔPａsｓwｏrd.Ｔｅｘｔ)=Tｒim(rｓ.Fｉｅlｄs（"密码")）TｈｅnＦoｒｍ1．SｈoｗＬogiｎSucceeｄed＝TｒueＭｅ.ＨideＥlseMｓgBｏx"无效的密码,请重试!＂,,"登录"tｘtPassworｄ．SｅtFoｃｕｓＳendKeyｓ＂{Hoｍｅ｝+{End}"ＥnｄIfElsｅＭｓgBox"无效的用户名,请重试!",，"登录＂ｔxtPassｗoｒｄ.SeｔFocusSeｎｄKeｙｓ＂{Ｈome}+｛Enｄ}＂EｎdIｆEndSuｂ假如用户名或密码错误，系统会分别提示,防止非法用户进入系统操作。4．２系统主界面设计思路与要点:用户登录通过后,进入系统的主界面。主界面的菜单假如是灰色显示,则表明此用户没有权限操作此功能。在主界面的状态栏会显示当前用户名和用户权限。界面如图４－３所示：图４-3仓库管理系统主界面其对应的代码如下:PrivateSuｂ2系统管理模块系统管理模块主是功能是进行本系统的一些常用管理工作,共有四个子模块:重新登录，修改密码,用户管理,退出。重新登录功能进入系统后，可选择重新登录在不现用户之间进行切换。界面如图４-4所示：图4-４系统重登陆界面其对应的代码如下:ＰｒivａｔeＳｕｂcｍdＲeluｄｅ－Clicｋ(）ReｌuｄeMe‘重新登录仓库管理系统EndＳub修改密码功能设计思路和要点：用户如需修改自己的登录密码，需输入旧密码与新密码,程序在数据库中修改用户的密码。界面如图４－5所示:图4-５修改密码界面其对应的代码如下：ＰrｉvatｅＳｕｂFroｍ-Lｏud()TxtＯldＰWＤ＝CｕｒrenｔUｓeｒＰaｓswoｒd‘显示用户密码EeｄSub实现密码输入验证：ＰrｉvateSｕbtxtNewＰWＤ-KeyＰrｅsｓ(ＩｎｄeｘＡsＩnteger,ＫeyＡscｉiＡｓInteｇｅr)ＩｆKeyAｓciｉ=vｂＫeyＲurnThｅnＳeｃｏnｄＫeys“{Taｂ}”EｌｓｅＩfＮot（KeyＡｓscｉｉ>=ｖbKｅｙ0ＡｎdＫｅｙＡsscii＜＝ｖbＫｅy9-OrKｅyAssｃｉi＞=Asc（‘ａ’)AndＫeｙＡsciｉ＜＝Aｓｃ（‘z’)－ＯrKeyAssｃｉｉ>＝Ａsｃ（‘A’)AｎdKｅｙAsｃii<=Aｓc(‘Z’）-OｒKｅyAsscｉｉ=vbKeyBａｃk)TheｎＫｅyAsｓcｉi=0EeｄIfＥndＳuｂ单击确认，保存新密码,PｒivateSｕbcmdSａｖe－Cliｃk（)IfｔxｔNewPWＤ(1）＜＞txｔＮeｗＰWＤ(９)ＴhｅnMｓgBｏx“两次输入的密码必需相等!”,vbＥxclａｍaｔiｏｎ，“修改密码”ｔxtNｅｗＰＷD(０）．SetFocｕstxtNeｗPＷD（0).ＳｅｔＳtａrt=0tｘtNewＰWD（0）．SetLｅngth＝Lｅn（txtNewPＷD(0))Else‘修改原来的密码ＷithDrｕｇ-Stｏr.ｒｓSysUsｅrｓ．Open.Fｉnｄ“编号=”“&CuｒrｅｎtUseｒNuｍｎer＆”．Ｆieldｓ(“密码”)=Ｔｒim（txｔＮewPWＤ(0)）．ＵpdateＥndWｉｔhMｓgBox“密码已修改EnｄSｕb单击取消，关闭仓库管理窗体ＰrivatｅSubｃmdEｘiｔ－Click（)UnｌoａｄMe‘关闭密码修改窗体EnｄSub用户管理功能设计思路和要点：用户管理是对使用此系统的全部用户进行管理。分为增加,删除以及修改用户信息。此功能只有管理员和超级用户才能使用。一般用户不能执行此操作。界面如图4-6所示：图4-６用户管理界面其对应的代码如下:定义窗体级变量，用于表示当前是否处于添加记录状态ＤimisＡdｄinｇAｓＢoｏlｅan实现记录导航ＰrivａｔeSubcｍdMｏve-Ｃlick(InｄｅxＡｓInｔｅgｅr）WｉthＤｒｕg－Ｓtore．rsSｙｓUｓersＣaｓｅ0‘使第一个记录成为当前记录If．RｅｃoｒdCoｎt>０AnｄNoｔ.BOＦTｈｅn．MｏveFirstCase１‘使上一个记录成为当前记录If.ＲeｃordConｔ>0AndNｏt．BＯFＴheｎ.ＭｏｖｅPｒeｖiｏuｓIf.BOFThen．MｏveＦirsｔEndＩfCａsｅ２‘使下一个记录成为当前记录Ｉf.ＲecorｄConｔ>0AｎdＮot.BOＦThｅn.ＭｏvｅNextＩf.ＢOFTｈｅn．ＭovｅLaｓtＥndIｆCase３‘使最终一个记录成为当前记录Ｉf.ReｃｏrｄCｏｎt＞0ＡｎdNot．BＯFＴhen.ＭovｅLａstEndSｅlectIｆＡnｄ.BOＦＴｈeｎｔxｔNeｗs=“记录:无”ElseｔxtＮeｗs=“记录:”&.．AｂsｏlutePossｉｔiｏｎ&”／”&.RecordＣoｕｎｔＥndIfEnｄＷｉtｈＥｎｄＳuｂ验证用户信息输入,在输入用户名、密码和权限代码时，执行验证操作,PriｖateSubtxtUsｅｒ-ＫｅyPｒess(KeyAsciiAｓInｔeger)IｆＮot(ＫｅyＡscii＞=vｂＫeｙ0AｎdＫeyAｓｃiｉ＜＝ｖbKｅy9-OrKeyＡｓscii>=Asc（‘a’)ＡndKeyAsｃｉi<=Ａsc(‘ｚ’)－OｒＫｅyAssｃiｉ＞=Ａsｃ(‘Ａ’)AｎdKｅyAscii<=Ａsｃ(‘Z’)－OrKｅyAssciｉ=vbKｅyBａcｋ）ＴｈenKeｙAssciｉ＝０EedIfEｎdSｕｂPrｉvatｅＳubtxtPＷＤ-KeyＰｒesｓ(KeyAscｉiAsIntｅge)ＩｆNｏt(KeｙＡscii>=vｂKey0AｎdKeyAscii<＝vbKｅy9－OrＫｅyAssｃii>=Aｓc（‘ａ’）AnｄＫｅyＡscｉi＜＝Ａｓc（‘z’)-ＯrＫeｙAsｓｃii＞=Aｓｃ(‘A’)AｎdKeyＡｓｃiｉ<＝Asc（‘Ｚ’)－ＯｒKeyAｓｓｃｉi=vbKｅｙＢack)ThｅnKeｙAｓscii=0EedＩfｐicＮａｖｉngation.Enabｌed=FａｌseＥnｄＳｕb‘验证权限代码输入PrivaｔeＳubｃmｄStatus－KｅyＰｒess(ＫｅｙAsciiＡsInｔegeｒ)IfNoｔ(KeyAｓcｉｉ=vｂＫey0OｒKｅｙAscii＝ｖbＫeｙ１ＯｒＫeyAｓscivｂKｅｙ2-ｉＯｒＫeyAｓscｉｉ=ｖbKeｙ3OrＫeyＡｓciｉ＝vbＫｅｙ4－OrKｅyAsｓｃｉi＝vbKeｙＢａｃk)ThenKｅyAｓscii＝０EedIfpicNａvｉｎgation.Eｎabｌｅd=FａｌｓeＥndSｕｂ实现添加操作ｎbPrivateSuｂcmdAｄd-Clｉcｋ()cmbStatus．LiｓtIｎdex=1txｔNews=“记录:”＆&“／”&ｉsAｄdｉng＝TruecｍdAｄd．Eｎaｂlｅd＝ＦalseｃmdＤeletｅ.Eｎabled＝Ｆａlse:ｐiｃＮaｖｉngatiｏn.Enablｅｄ=FalsｅEnｄSub实现删除操作,单击删除时,ＰrivaｔｅSubcmｄDelｅｔe-Click（)WitｈDrug-Sｔoｒｅ.rsSｙsＵseｒsIfＮｏt.EOＦTheｎIfＭsｇBoｘ（“将删除用户名为”＆Ｔriｍ(txｔUseｒ)&-“的用户数据,是否连续?”,-vbCrｉｔicａｌ＋ｖbＹｅｓNｏ,“系统用户管理”)=ｖbYesThen.Delｅte:．ＭoveＮｅxtIｆ．EＯFＡnd.RecoｒdＣｏｕnt＞0Tｈeｎ．MｏvｅLastＥedＩfEedIｆＥeｄIfEeｄWｉthEndSub单击关闭时,实现关闭窗体操作PｒivatｅSｕbｃmｄExit-Ｃｌick（)UｎloadＭｅ‘关闭系统用户管理窗体EndＳub退出功能退出即退出本系统。选择系统管理下的退出即可。如图4－7所示：图4-7退出系统界面其对应的代码如下:PrivａtｅＳubｃmdＥxｉt－Cｌｉck()ＵnloadMe‘关闭仓库管理窗体EｎdSub4.４仓库管理模块仓库管理模块是本系统的核心模块。依据仓库的日常操作共分有六个子模块，分别是:入库操作,出库操作,退料操作,增料操作，仓位管理和盘点损益。已基本包括了仓库管理的主要功能。4.4.1设计思路和要点:入库操作即仓库的收料，系统规定收料只能依据订单来进行。没有订单就不能完成收料。每个订单都对应一个入库操作。这样可以大大削减因人为因素产生的错误。规范化仓库收料操作。选择订单号码后，相关的订单信息已会显示出来。订单号码是由订单管理模块产生。仓库人员没有权限产生订单。界面如图4-8所示:图4-8入库操作界面其对应的代码如下：单击入库时,ＰriｖａteSuｂcmdAｄd-Ｃlｉｃk（）IｆcmdAｄｄ．Caｐｔion=“入库”ThencmdAdd．Cａptiｏｎ＝“查询”SｔｏckData.Visiｂlｅ＝FalsｅStockＩn.Vｉｓｉbｌe=ＴｒｕeｉsＳtｏrkiｎg＝TruecｍdDelet.Ｅnaｂled=ＦaｌsecmbＮａmｅ．ListIｎdex=0‘设置入库数据默认的产品名称和编号cmbNuｍ.LisｔIndex=0ＥｌseｃmdＲeｆresh．Value＝TruｅcmdＡdd.Caｐtｉｏn＝“入库”SｔockData.Ｖisｉblｅ＝TｒｕｅSｔｏｃkＩn．Ｖisibｌｅ=ＦalｓeisSｔoｒｋiｎｇ＝FａlsｅcmｄＤeｌｅt．Enａblｅd=ＴruｅＥｅdIfEndＳub点击关闭时,退出入库窗体ＰrivaｔeＳubｃmｄExｉｔ-Cｌick(）UnlｏaｄMe‘关闭入库窗体EndＳuｂ4.4.２设计思想和要点:出库操作即仓库的发料,本系统规定仓库的发料需依据生产方案来进行。没有生产方案则不能发料。生产方案的产生由特地模块实现。生产方案用工单来区分。每个工单的发料可有两种方式,一种是按工单发料,即一次性将一个工单的全部所需物料全部发至生产线。另一种是按物料,即依据生产状况，一个一个将物料发至生产线。选择选择发料类型,按工单或按物料。按工单的话，则选择工单号即生产方案号,系统自动将此工单的全部料发至生产线。界面如图４-9和图４－1０所示:图4－9出库操作按工作界面图4-10出库操作按物料界面其对应的代码如下:PrivateSｕbcｍdAdｄ-Clｉｃk(）IｆｃｍdAｄd．Cａptｉon=“出库”ＴhenｃmdAdｄ．Ｃaｐtion＝“查询”ＳｔｏｃkDａｔa．Vｉsｉｂle＝FalｓeＳtocｋＩn．Vｉsｉbｌｅ=ＴｒuｅｉｓStorkiｎg＝ＴruecmｄＤeleｔ.Enaｂleｄ=FalsｅｃｍｂName.ＬiｓｔIｎdｅx＝０‘设置出库数据默认的产品名称和编号ｃmbＮum．ＬiｓtIｎdｅx=0ElｓｅcmdRefrｅsｈ．Vａｌue=ＴｒｕecmdAｄd.Ｃａｐtｉon＝“入库”ＳtockDａta．Ｖｉsiblｅ=ＴruｅSｔockＩｎ.Vｉsible=FａlｓｅisＳｔｏｒking＝FａlsecmdDelet．Ｅｎabled=TrｕeEedＩfＥndSuｂ点击关闭时,退出出库窗体PｒivａtｅSｕbcmdＥｘiｔ－Ｃlｉck()UnｌｏａｄMｅ‘关闭出库窗体EｎｄSub4．４.3借入设计思路和要点:借入操作即由于生产损耗而需要增料。为了核算成本,增料需依据生产方案号来进行增料操作,这样就可以清楚列出每次生产的损耗。界面如图４－11所示:图４－11借入操作界面其对应的代码如下：PｒｉvatｅSubcmdＡｄd－Clicｋ（）IfｃmdAdｄ．Capｔｉoｎ=“借入”ＴｈｅnｃｍｄAｄd.Caption=“查询”ＳtoｃkData.Ｖｉｓiｂlｅ=FａlseStｏcｋＩn．Viｓiｂｌe=ＴruｅｉｓStorｋinｇ=TruｅcｍｄDｅlet.Ｅnａbleｄ＝FalseｃmbNａme．ＬｉstInｄeｘ＝０‘设置借入数据默认的产品名称和编号cmｂNｕm.LｉstＩnｄｅｘ=0ElｓｅcmdReｆｒesｈ.Valｕe=ＴrｕecmｄＡdｄ.Cａpｔiｏｎ＝“借入”ＳｔoｃｋDaｔａ.Visｉｂle=TｒueStｏcｋＩn.Visｉble=ＦalseiｓSｔｏrkiｎg=FａlseｃｍdDeｌｅt.Enaｂｌｅｄ=TrｕｅEedＩfEｎdＳub点击关闭时,退出借入窗体ＰｒｉvaｔeＳｕbcｍdEｘit-Ｃlｉｃk()UｎlｏadＭe‘关闭借入窗体EnｄSｕb借出操作设计思路和要点:借出操作是针对生产线由于各种缘由产生的生产中多领的物料退回仓库。借出时需选择所退物料的料号及数量。程序会依据这些信息在数据库中作出相应的调整。界面如图４－１2所示:图4-1２借出操作界面其对应的代码如下:ＰrｉｖateＳｕbcｍdＡdd－Clｉｃk()ＩfcｍｄAdｄ．Capｔion＝“借出”ＴhｅｎcmdＡdｄ．Caｐｔiｏｎ=“查询”ＳtoｃｋＤａtａ．Visｉｂｌe＝FalｓeSｔoｃkIn．Visible=TrueisStｏｒking=ＴｒuｅｃmｄDｅｌｅt.Enaｂled=ＦalsｅｃｍｂNａｍe．LｉsｔＩndｅｘ=0‘设置借出数据默认的产品名称和编号cmｂNｕm.LiｓtＩndex=0ElｓeｃｍｄReｆｒesh.Ｖaｌｕe＝TrｕｅcmdAdd.Ｃａption=“借出”SｔockDａta．Ｖisibｌe＝TruｅＳtocｋＩｎ.Ｖｉｓible=FａlｓeｉsStｏrking=ＦａlｓeｃｍｄDeｌet.Eｎａbled=TｒueEeｄIfＥｎｄSuｂ点击关闭时，退出借出窗体PrivａｔeSubcmｄＥxiｔ-Clｉck()ＵｎｌｏaｄMｅ‘关闭借出窗体EｎdＳub盘点模块设计思路和要点:每次盘点后,需依据盘点结果进行某些物料的调整。调整分为收益和亏损。界面如图4-１３所示：图４－１3盘点界面报表查询模块此模块的主要功能是查询及报表。查询设计思路和要点:依据各种查询条件查询物料信息。物料信息包含三部分,一为基本信息,二为订单信息,三为生产方案信息。适合全部使用者。界面如图4－１4所示：图４-１4查询界面其对应的代码如下:ＰrivateＳubCｏdSeleｃt＿Cliｃk()WithWage-Ｍaｎage-Datａ．ｒｓStｕffDataＡｄodｃ1.RecorｄSｏｕrce="select*ｆrｏm仓库基本信息wherｅ仓位='"Teｘt3．Teｘt"＇"Adodc１．RefｒｅｓhＴexｔ1.Ｔexｔ＝Ａdodc1.Ｒｅcordｓet.Ｆiｅlds("物料代码"）EｎｄＷithcmdMoｖe(0).Vａｌue=TｒｕeEｎdSubPrｉｖａtｅSuｂcmdＥxｉt－Ｃlicｋ(）ＵnlｏａdＭｅ‘关闭查询窗体EｎdSub查询日常操作设计思路与要点：对系统的每一次操作能应准时地记录下来,以便日后查询。因此在数据库中单独创建一张表,用于记录系统的日常操作,即仓库的各种日常操作。通过此功能,可能追溯系统数据的整个变化过程。使整个系统的运行都在把握之内。界面如图4-15所示:图４-1５操作日志界面其对应的代码如下:PriｖaｔｅＳubCｏｄSeｌeｃt＿Click()ＷｉｔhWａgｅ-Ｍanａｇe－Ｄata．rsStuffDaｔａＡｄｏｄc1.RecｏrdSｏurｃe＝"seｌeｃt*fｒom系统日志信息wｈｅrｅ操作员='＂Texｔ1.ＴexｔAnd“操作内容”＝Ｔext2.ＴeｘtＡｎd“日期从”＝Tｅｘt3.TｅxtAｎｄ“日期到”=Ｔext４.Tｅｘt"'"Aｄodｃ1.RｅfresｈEnｄＷitｈcｍｄMｏve(０）.Valｕe=TrｕｅEnｄSｅｌectＥｎｄＳubＰｒivaｔeSuｂｃｍdEｘiｔ－Cｌｉck()UnlｏadMe‘关闭操作日志窗体EｎdSuｂ４.５.4设计思路和要点：盘点报表可以依据盘点的需要,按物料编码或按仓位生成。盘点报表将列出当前时刻，仓库中全部物料的数量及存放地点，以便盘点时参考。同时此报表还可以输出成各种格式,以便利用户使用。界面如图４-1６所示:图4-１６盘点报表界面其对应的代码如下ＰrivateSｕbtｂToolBａr_ＢuｔｔｏｎCｌｉck（ＢyValBｕtｔｏnAsＭSＣomctlLｉb．Bｕtton)ＳeleｃｔＣaseButｔon.iｎｄeｘＣasｅ1：M库存状况_ＣlicｋCase4:M月盘点_ＣｌicｋＣase9:Ｍ打印月盘点＿CliｃkCaｓｅ11：M查看日志_ClicｋCａsｅ１3：ｍnu