[优秀毕业论文]仓库管理系统设计

《[优秀毕业论文]仓库管理系统设计》由会员分享，可在线阅读，更多相关《[优秀毕业论文]仓库管理系统设计（43页珍藏版）》请在装配图网上搜索。

1、 毕业论文（设计）仓库管理系统摘 要仓库信息管理系统是采用VISAUL BASIC开发的一个数据库管理系统。本设计说明书主要讲述了VISAUL BASIC的基本功能及设计方法。紧接着以本系统为例，逐一介绍开发本系统系统的步骤：系统分析、系统设计、系统实现、系统维护。在系统分析中先后用数据流图、系统的功能结构图分析了系统所需的各种数据。在系统的设计中，详细的展现了系统的各个功能模块。所需的数据库表及表字段。菜单的设计等。在系统的实现中，给出了实现表单中相应的功能控件的事件及代码。以及菜单实现的方法。文章的最后则给出了本系统的主要功能运行界面图。【关键词】 仓库管理 管理系统 VISAUL BAS

2、IC 面向对象38Abstractadministrative system of the storage adopts a data base management system that VISAUL BASIC6.0 developed . This design instruction has told the basic function of VISAUL BASIC6.0 and design method mainly .This design instruction has told the basic function of VISAUL BASIC6.0 and desi

3、gn method mainly. And then take this system as an example , recommend developing the step of this system one by one: Network analysis , designs systematically , realizes systematically , safeguards systematicallying. Successively with dataflow picture, data dictionary, function structure chart vario

4、us kinds of datum analyticl system take of system in network analysis. In the design of the system, detailed each function module which has represented the system. Necessary database form and literary name section. Design of the menu ,etc. In the realization of the system, provide and realize the in

5、cidents and codes of the corresponding function controlling part among forms. And the method that the menu realize. Provide the main function source code of this system at the end of the article. key Face the target storage administrative system of the storage VISAUL BASIC6.0目 录第一章引言11.1课题背景11.2库存管理

6、研究的目的和意义11.3库存管理在国内外的发展现状21.3.1 存贮论的形成与发展状况21.3.2库存管理的发展现状2第二章 系统分析32.1系统需求分析42.1.1系统调查42.1.2应用现状调查42.1.3、公司中运行本系统的组织机构设置52.1.4、用户需求52.1.5、系统业务流程图62.2、新系统逻辑方案72.2.1数据流程图（简称为DFD）72.2.2数据字典（简称为DD）82.2.3新系统逻辑模型的提出10第三章 系统设计1131 系统的总体设计123.1.1 系统的总体布局方案123.1.2软件系统总体结构设计123.1.3系统开发平台123.1.4系统总体功能结构设计133.

7、2 数据库设计133.2.1数据库概念结构设计143.2.1 数据库逻辑结构设计153.2.3 数据库结构的实现17第四章 仓库管理信息系统主窗体的创建1841 创建工程项目Materal MIS1942 创建仓库管理信息系统的主窗体1943 创建主窗体的菜单2044 创建公用模块2045 仓库基本信息模块的创建2146 入库信息管理模块的创建2447 仓库出库管理模块的创建2748 仓库余额信息管理模块的创建2949 系统的实现31第五章 系统测试及性能分析315.1 概述315.2 测试计划325.3 结果分析32总结：33致 谢34主要参考文献35附录：窗体的源代码36第一章引言随着经济

8、的发展，市场的国际一体化，市场的多变性、竞争的残酷性、企业运作的艰难性，使企业主们越来越体会到办好一个企业的艰辛。对于一个大的企业，可能遇到的问题是设备陈旧、负担过重、体制僵化、管理混乱，其产品在市场上的竞争力每况愈下。ERP的出现，就是针对解决这一类问题而来的。ERP是什么？值得单位花那么多的钱、时间、精力来实施。本文正是从这点出发，使用VISUAL BASIC6.0作为前端开发语言，以ACCESS作为后台数据库，开发了一个简单的库存管理子系统。在论文中，介绍了库存管理系统的特点、重要性，并结合企业的实际工作对这一项目的设计和技术实现、编程方法做了详细的讲解。1.1 课题背景随着经济全球化竞

9、争的加剧，信息流和物流的高度融合，对企业资源的要求也越来越高，无论是传统的MRP(Material Requirement Planning)、MRPII(Manufacturing Resource Planning)、还是目前流行的ERP(Enterprise Resource Planning)和TEP(Total Enterprise Planning),库存管理都是非常重要的基础部分。因为对于企业的决策层来讲，如果库存居高不下，仓库管理无序令他们头痛的话，那么由此引起的企业资源浪费过大、产品制造成本过高、企业运作不顺畅从而导致的企业竞争力和可持续发展能力降低，则是他们更为担忧的事情。

10、因此合理的对仓库进行管理一直是企业关注的热点。1.2 库存管理研究的目的和意义随着我国改革开放的不断深入以及我国加入WTO时间还不是很长，各类企事业都面临着前所未有的机遇和挑战。这就要求企业在日趋激烈的市场竞争中，及时、准确、全面的了解市场信息并根据企业的具体实际，迅速的做出回应。如根据仓储情况调整供应、进货等等。同时，在当前市场经济的推动下，传统的计划经济模式已经被“一切围着市场转，一切来源于市场，一切服务于市场”的模式所取代。信息交流的速度使采购、销售成本有了较大的下降空间，这就给属于这个环节的库存管理带来了巨大的挑战。近年来，全球信息技术加速发展，世界各国信息化形势突飞猛进，人类正在进入

11、知识经济时代。全社会广泛研究和讨论知识经济，大大丰富和扩展了信息化的内涵，为信息产业和信息化的进一步发展奠定了理论和实践基础。当前，信息化带来的技术创新、商务模式转变和新的资本市场，极大的推动了社会生产力的发展因此，不管从世界范围内的竞争来看，还是从企业自身的发展来看，信息化建设必然使企业管理上不可避免的一次革命和飞跃。1.3 库存管理在国内外的发展现状1.3.1 存贮论的形成与发展状况20世纪40年代初期，西方经济学家通过对库存物料随时间推移而被使用和消耗的规律研究，提出了订货点的方法和理论，并将其应用到企业的库存计划管理中。20世纪60年代中期，美国IBM公司的管理专家约瑟夫奥利佛博士首先

12、提出了独立需求和相关需求的概念，将企业内的物料分成独立需求和相关需求物料两种类型，由此形成了基本MRP。以加强物料的计划与控制，最大限度地降低库存量、减少资金占用和满足企业生产为目标，基于按需采购方式的企业生产与库存管理方法。接下来是制造资源计划（ MRPII， Manufacturing Resources Planning ）是一种20世纪70年代末期的，以企业资源优化配置，确保企业连续、均衡的进行生产，实现信息流、物流与资金流的有机集成和提高企业整体水平为目标，以计划与控制为主线，面向企业产、供、销、财的现代企业管理思想和方法。1.3.2库存管理的发展现状企业资源计划（ ERP，Ente

13、rprise Resources Planning ）是一种20世纪90年代初期的，以市场和客户需求为导向，以实行企业内外资源优化配置，消除生产经营过程中一切无效的劳动和资源，实现信息流、物流、资金流、价值流和业务流的有机集成和提高客户满意度为目标，以计划与控制为主线，以网络和信息技术为平台，集客户、市场、销售、采购、计划、生产、财务、质量、服务、信息集成和业务流程重组（ BPR，Business Process Reengineering ）等功能为一体，面向供应链管理（ SCM，Supply Chain Management ）的现代企业管理思想和方法。第二章 系统分析2.1系统需求分析2

14、.1.1系统调查首先与经理的秘书及办公室主任交流意见，了解他们对现有库管业务开展情况的看法，有无新的信息需求，原系统有无多余的功能。然后，与相关仓库管理部门的直接领导，特别是从直接的仓库管理员那儿了解他们对原有工作方式的看法。在此基础上，深入到具体仓库职能管理部门进行详细的调查，了解他们对现行工作方式的看法，在操作上有无需要改进的地方。通过调查得知，原先人工操作在公司经营活动中占绝大部分，本系统开发后的主要使用者是公司的领导：包括董事长、经理、仓库管理员，从而方便他们快捷有效地获取有关信息，了解有关部门的工作情况。仓库管理员是这个系统的直接使用者，仓库管理员对每笔仓库物资的入库和出库，以及仓库

15、物资设备的现有库存要及时打印报表，上交给仓库管理部门的直接领导，这些领导对报表的数据进行综合管理和决策，并对其中的重要决策向公司的董事长、经理汇报。2.1.2应用现状调查在对某公司仓库管理的调查过程中知道，该公司目前所有的仓库物资的入库，出库等管理还是靠人工完成的仓库管理员每天对仓库的物资进出首先登记，然后对每笔进出的物资进行汇总，在汇总的过程中，需要将当天同一编号的物资进行计算汇总，如果进出的量小，人工汇总还可以勉强可以对付，但是，对于我调查的公司来说，人工汇总已经显得不能胜任，该公司在2000年以前还处于发展初期，每天进出的货物的种类一般在50种左右，每种类别的进出数量平均在200件左右，

16、人工借助简单的计算器和纸介质可以完成。错误率比较低。但是该公司从2000年以后，经济效益迅猛发展，特别是近二年，公司货物的进出量猛增，每天进出的货物类别上千，每类数量在2000以上，由于种类的增加，所有在人工统计的时候，寻找同类的物资花费的时间是不可想象的。由于同类的物资的进出数量多，那么有容易造成统计的时候漏掉数据，这样造成物资的库存数量相应也不准确，给公司的决策不能提供正确的依据。2.1.3、公司中运行本系统的组织机构设置如图21所示 图21 本系统的组织机构设置图2.1.4、用户需求要设计一个性能良好的管理系统，明确用户的应用环境对系统的要求是首要的和基本的。本系统从以下四个方面对用户需

17、求进行了分析：用户的信息需求：物资基本信息方面：使用者需要对物资的编号，物资名称，物资库存的最小报警数量，物资的最大报警数量进行管理。物资的入库信息：使用者需要对物资的编号，入库时间，供应商，供应商电话，入库数量，价格，采购员等信息进行管理。物资的出库信息：使用者需要对物资的编号，出库时间，使用部门，出库状况，经手人，出库数量，领取人，用途等信息进行管理。现有库存物资信息：使用着需要对现有物资的编号，现有库存数量等信息进行管理。操作日志信息：使用者需要对操作员，操作内容，操作时间等信息进行管理。用户的处理要求：有关仓库基本信息的输入，包括仓库编号，仓库名称，规格型号，种类和计量单位等。仓库基本

18、信息的查询报表。仓库基本信息的修改。入库仓库信息的输入。入库仓库信息的修改。入库仓库信息的查询报表。出库仓库信息的输入。出库仓库信息的查询报表。出库仓库信息的修改。仓库余额信息的查询报表。仓库余额信息的浏览。三、对系统的适应性、通用性要求：要求系统能够不受或尽量避免使用环境变化的影响，保护用户在这方面的投资。四、对系统的安全性要求，要求进入系统必须进行口令校验。2.1.5、系统业务流程图详细调查的重点是对管理业务的流程进行描述，通过采用系统流程图中部分图形工具来描述管理活动，进行规范化说明。业务流程图的符号说明如图22所示：1、 2、 3、 4、 5、系统中人员 实体或单据 实物或信息流 处理

19、 数据存储 图22 业务流程图图例详细调查之后，结合现行公司运营模式，为开发本系统而绘制出的管理业务流程图如图23所示：图 2-3 公司库存管理系统业务流程图2.2、新系统逻辑方案系统分析的主要成果是系统的逻辑模型。本系统的逻辑模型主要是以系统的数据流图和数据字典为主要描述工具。即在公司仓库管理方式和业务流程进行认真分析和研究的基础上，排除现有组织机构和业务分工所造成的信息障碍，完全从业务管理功能和管理对象出发，按照信息系统中应有的数据流和数据结构来勾画系统的概貌。2.2.1数据流程图（简称为DFD）数据流程图是组织中信息运动的抽象。它是在调研的基础上，从系统的科学性、管理的合理性、实际运动的

20、可行性角度出发，将信息处理功能和彼此之间的联系自顶向下，逐层分解，从逻辑上精确地描述系统应具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向（外部实体）等项目。首先，分析公司库存管理系统的总体情况，划分系统边界，识别系统的数据来源和去处，确定外部实体，得出系统的顶层数据流程图；然后划分出几个主要的信息管理功能，并明确各功能之间的联系，绘制出数据流程图。仓库管理系统的数据流程图如图24所示。如图24库存管理系统系统流程图2.2.2数据字典（简称为DD）绘制DFD,只是对数据处理和彼此之间的联系进行了说明。为进一步明确数据的详细内容和数据加工过程,应将数据流图中的全部数据流及其组成部

21、分的数据元素，数据存储，数据加工，通过数据字典描述清楚,以便于此后系统设计的进行。这就需要开发人员编写详细的数据字典,来描述系统开发过程的细节。下面列出本系统中的数据项、数据流、数据存储、加工处理和数据结构的数据字典。数据字典可采用图表格式或较紧凑的记录格式描述，本文采用的是图表格式。1、数据项的DD表列举如下（限于篇幅，仅列举部分）：表21 设备号的数据字典 数 据 项系统名：公司仓库管理系统 编号：I001 名称：设备号 别名： 数据项值： 类型：字符型 长度：10个字节 取值范围：简述：每个库存设备都具有唯一的编号，它是某个物资设备的唯一标识符，如“0411076”通常用前两位数字表示物

22、资设备的类别，后面的数字表示编号。修改记录：编写日期审核日期表22 入库时间的数据字典 数 据 项系统名：公司仓库管理系统 编号：I002 名称：入库时间 别名： 数据项值： 类型：字符型 长度：20个字节 取值范围：简述：相同物资可能需要随时在不同的时间入库，所以，对于同一设备号的物资来说，入库时间是区分和唯一确定入库的标识之一。修改记录：编写日期审核日期表23 出库时间的数据字典 数 据 项系统名：公司仓库管理系统 编号：I002 名称：出库时间 别名： 数据项值： 类型：字符型 长度：20个字节 取值范围：简述：相同物资可能需要随时在不同的时间出库，所以，对于同一设备号的物资来说，出库时

23、间是区分和唯一确定出库的标识之一。修改记录：编写日期审核日期2、数据流的DD表列举如下：表25 物资设备入库的数据字典（仅举一例） 数 据 流系统名：公司仓库系统 编号：F1 条目名称：设备入库来源：仓库管理员 去处：仓库管理部门，公司其它高层领导数据流组成：设备入库设备号入库时间物资名称种类入库数量价格保管员简要说明：当物资设备入库时，保管员对相关的信息记录，并及时对仓库相关的信息进行报表上交给公司相关的管理部门和领导。修改记录：编写日期审核日期3、数据处理加工的DD表列举如下：表2-7 现有库存的数据字典（仅举一例） 数 据 处 理 加 工系统名：公司仓库管理系统 编号： 条目名称：现有库

24、存输入：数据流F3 输出：数据流F4处理逻辑：对入库或者出库的物资的数量进行处理简要说明： 当入库时对相应的物资数量加，当出库时对相应物资数量减、修改记录：编写日期审核日期2.2.3新系统逻辑模型的提出根据前面的分析与评价结果，提出新系统逻辑模型如图27所示。如图27新系统逻辑模型边界(1) 输入边界物资的基本信息，物资的入库信息，物资的出库信息，物资的现有库存信息，操作日志信息等。(2) 输出边界物资的基本信息，物资的入库信息，物资的出库信息，物资的现有库存信息，操作日志信息等。(3) 与公司的销售管理系统、客户管理系统、财务管理系统、工资管理系统、人事管理系统等是并行的系统，不包括这些系统

25、的功能。第三章 系统设计这个阶段的主要目标是将系统分析阶段所提出的反映了用户信息要求的系统逻辑方案转换成可以实施的基于计算机的物理方案。系统设计阶段的主要活动包括：系统总体结构设计。其中包括：系统总体布局方案的确定软件系统总体结构的设计计算机硬件方案的选择和设计数据存储的总体设计功能结构图设计信息系统流程图设计详细设计。数据库设计代码设计输出设计输入设计处理过程设计系统实施进度与计划的确定。“系统设计说明书”的编写。31 系统的总体设计 3.1.1 系统的总体布局方案 系统的总体布局是指系统的硬软件资源以及数据资源在空间上的分布特征。结合某某公司仓库管理的实际情况采用以下总体布局方案：1、本系

26、统的功能不是很广，并且规模较小，采用单机系统；2、从信息资源管理的集中程度来看，采用集中式系统；3、从信息处理的方式来看，采用批处理系统。3.1.2软件系统总体结构设计软件系统总体结构设计的主要任务就是将整个系统合理的划分成各个功能模块，正确处理模块之间与模块内部的联系及它们之间的调用关系和数据联系,定义各模块的内部结构等，本系统的软件总体结构按分解协调的原则，信息隐蔽抽象的原则，自顶向下的原则，一致性原则，面向用户的原则进行设计。3.1.3系统开发平台电脑配置：奔腾四代2.6G，硬盘：SATA 120G， 软驱：3.5/1.44MB，内存：DDR 2256M操作系统：Microsoft Wi

27、ndows XP SP1中文版本开发语言：Microsoft Visual BASIC 6.03.1.4系统总体功能结构设计系统的HIPO图如图3-1所示。 图3-1 HIPO图通过对系统的数据流图进行分析，进一步进行功能分解，直到分解成含义明确，功能单一的功能模块，从而得到系统的功能模块结构图，即系统的本系3.2 数据库设计针对一般仓库信息管理系统的需求，通过对仓库调配工作过程的内容和数据流程分析，设计如下的所示的数据项和数据结构：仓库基本信息，包括的数据项有：仓库编号、仓库名称、规格型号、类别、计量单位等。入库仓库信息，包括的数据项有：仓库编号、仓库名称、规格型号、类别、计量单位、数量、单

28、价、金额、入库时间、经办人、保管人、仓库、备注等。出库仓库信息，包括的数据项有：仓库编号、仓库名称、规格型号、类别、计量单位、数量、单价、金额、领用时间、领用人、经办人、仓库、备注等。仓库余额信息，包括的数据项有：仓库编号、仓库名称、规格型号、类别、计量单位、数量、单价、金额、仓库等。3.2.1数据库概念结构设计得到上面的数据项和数据结构后，就可以设计出能够满足用户需求的各种实体以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。本系统设计规划的实体有：仓库基本信息实体，仓库入库信息实体，仓库出库信息实体，仓库余额信息实体。各个实体具体

29、的描述E-R图如下：1：仓库基本信息实体E-R图如图3-2： 图3-2 仓库基本信息实体E-R图2：仓库入库信息实体E-R图如图3-3：图3-3 仓库入库信息实体E-R图3：仓库出库信息实体E-R图如图3-4：图3-5 仓库出库信息实体E-R图4：仓库基本信息实体E-R图如图3-6：图3-6 仓库基本信息实体E-R图5：实体之间的关系的E-R图如图3-7：图3-7 实体之间的关系的E-R图3.2.1 数据库逻辑结构设计现在将上面的数据库概念结构转化为ACCESS数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系

30、。仓库信息管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。1：仓库基本信息表material，如图3-8列名数据类型可否为空说明wzidvarcharNOT NULL仓库编号wznamevarcharNOT NULL仓库名称wzpecvarcharNOT NULL规格型号wzkindvarcharNULL类别wzunitvarcharNULL计量单位图3-8仓库基本信息表material2：仓库入库信息表msave，如图3-9列名数据类型可否为空说明RknovarcharNOT NULL入库编号rkidvarcharNOT NULL入库仓库编号rknam

31、evarcharNOT NULL入库仓库名称rkspecvarcharNULL规格型rkkindvarcharNULL类别RkunitvarcharNOT NULL单位rkaccountvarcharNOT NULL数量rkpricevarcharNOT NULL单价rkvaluevarcharNULL金额rkdatevarcharNULL入库时间Rkdeal_personvarcharNOT NULL经办人Rksave_peasonvarcharNOT NULL保管员rkbasevarcharNULL仓库rkmemovarcharNULL备注图3-9仓库入库信息表msave3：仓库出库信息表

32、muse，如图3-10列名数据类型可否为空说明lynovarcharNOT NULL入库编号lyidvarcharNOT NULL入库仓库编号lynamevarcharNOT NULL仓库名称lyspecvarcharNULL规格型号lykindvarcharNULL类别lyunitvarcharNOT NULL单位lyaccountvarcharNOT NULL数量lypricevarcharNOT NULL单价lyvaluevarcharNULL金额lydatevarcharNULL入库时间lyuser_personvarcharNOT NULL经办人lydeal_peasonvarcha

33、rNOT NULL保管员lybasevarcharNULL仓库lymemovarcharNULL备注图3-10仓库出库信息表muse4：仓库余额信息表msurplus，如图3-11列名数据类型可否为空说明yeidvarcharNOT NULL仓库编号yenamevarcharNOT NULL仓库名称yepecvarcharNOT NULL规格型号yekindvarcharNULL类别yeunitvarcharNOT NULL单位yeaccountvarcharNOT NULL数量yevaluevarcharNULL金额yebasevarcharNULL仓库yememovarcharNULL备注

34、3.2.3 数据库结构的实现在需求分析、概念结构设计的基础上得到数据库的逻辑结构设计之后，我们就可以在Visual Basic6.0中实现该逻辑结构。实现方法和步骤如下：以英文版本为例：通过菜单栏：Add-InsVisual Data Manager点击出现VisData界面，点击菜单FileNewMicrosoft AccessVision 7.0 MDB弹出保存数据库文件的存放位置和数据库的文件名的对话框，命名为wzgl.mdb保存到当前系统存放的文件下。这时出现Database Windows设计界面，鼠标右键选择新建表。所设计的表的字段就是逻辑结构表中的列名。第四章 仓库管理信息系统主

35、窗体的创建有关数据库结构的所有后台工作已经完成。现在将通过仓库管理信息系统中各个功能模块的实现，讲解如何使用Visual Basic 来编写数据库系统的客户端程序。41 创建工程项目Materal MIS打开Visual Basic后，单击File|NEW project菜单在工程模块中选择StandardEXE,VisualBasic将自动产生一个Form窗体，属性都是缺省设置。这里我们删除这个窗体，单击FileSaveProject菜单，将这个工程项目命名为Material MIS。42 创建仓库管理信息系统的主窗体这个项目我们使用多文档界面，单击工具栏中的ADD MDI Form按钮，产

36、生一个窗体。在这个窗体上添加所需的控件，窗体和控件的属性设置见表4-1。控件属性属性取值Frmmain(form)namefrmmainCaption仓库管理信息系统startuppositioncentersreenwindowstatemaximizedSbstatusbar(stausbar)NameSbstausbarPanels(1)styleSbrtextPanels(2)styleSbrdatePanels(3)styleSbrtime图4-1 窗体和控件的属性设置创建好的窗体如图4-2所示。图4-2 窗体在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。状态栏控件需

37、要在通常的属性窗口中设置一般属性，还需要在其特有的弹出式菜单中进行设置。选中状态栏控件，单击鼠标右键，选中Property菜单，然后设置属性。面板1用来显示各种文本信息，面板2用来显示当前日期，面板3用来显示当前时间。43 创建主窗体的菜单在主窗体中，单击鼠标右键，选择弹出式菜单中的MenuEditor，创建如图所示的菜单结构4-3：如图4-3 菜单结构图44 创建公用模块在VisualBasic中可以用公用模块来存放整个工程项目公用的函数，过程和全局变量等。这样可以提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Modulel bas。下面就可以开始添加需要的代码了。由于

38、系统中各个功能模块都将频繁使用数据库中的各个数据，因此需要一个公共的数据操作函数，用以执行各种SQL语句。Keyasc用来保存当前按键，SendKeys函数用来指定的按键。一旦按下回车键，将返回Tab键，下一个控件自动获得输入焦点。添加全局变量，用来记录各个窗体的读写状态，代码如下：Public fMainForm As frmMainPublic flagMedit As BooleanPublic flagIedit As BooleanPublic flagLedit As BooleanPublic flagOedit As BooleanPublic gintMmode As Int

39、egerPublic gintImode As IntegerPublic gintLmode As IntegerPublic gintOmode As IntegergintMmode变量用来记录是添加状态还是修改状态，赋值1为添加，赋值2为修改。FlajMedit变量用来标示是否进入修改的窗体。由于仓库管理信息系统启动后，需要对用户进行判断。如果登录者是授权用户，将进入系统，否则将停止程序的执行。这个判断需要在系统运行的最初进行，因此将代码放在公用模块中。45 仓库基本信息模块的创建仓库基本信息管理模块主要实现如下功能： 添加仓库基本信息。 修改仓库基本信息。 删除仓库基本信息。 查询仓

40、库基本信息。1：添加仓库基本信息窗体的创建选择“仓库基本信息管理添加仓库基本信息”菜单，将出现如图4-4所示的窗体。图4-4 “仓库基本信息管理添加仓库基本信息”菜单图在窗体上放置多个文本框，用来输入仓库基本信息；两个按钮用来确定是否添加仓库信息；多个标签用来提示文本框中需要输入的内容。这些控件的属性见下表4-5：控件属性属性取值Frmmater1(Form)NamefrmsinfoCaption仓库信息MDIChildTrueTxtitem(0) Txtitem(4)NameTxtitem(0) Txtitem(4)Label1Caption学号Label2Caption姓名Label3Ca

41、ption性别Label4Caption出生日期Label5Caption班号图4-5 控件的属性表在载入窗体时，程序首先判断所处状态。载入窗体时，将首先通过变量gintMmode判断是添加还是修改。如果是添加状态，文本框将清除内容，窗体有提示信息；如果是修改状态，将显示当前的记录。用户输入内容完毕后，单击cmdSave按钮将触发Click事件，代码详情见附录源代码清单：程序首先对是否输入内容进行判断，然后进行格式判断。在仓库管理中，所有仓库都有唯一的编号，并且不同型号的仓库对应不同的编号。程序将判断是否有重复ID和重复内容地的记录，然后添加数据到数据库。最后根据状态来显示相应的信息：如果是添

42、加状态，将提示添加成功，然后重新显示并清空所有的文本框，以便继续添加记录；如果处于修改状态，将提示修改成功，然后更新所有记录的列表。当文本框获得焦点时将触发下面的事件：自动选中输入的内容，便于修改。Private Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index)End Sub单击按钮cmdedit取消添加仓库信息，代码如下：Private Sub cmdExit_Click() If mblChange And cmdS

43、ave.Enabled Then If MsgBox(保存当前记录的变化吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then 保存 Call cmdSave_Click End If End If Unload MeEnd Sub2：修改仓库基本信息窗体的创建选择“仓库基本信息管理修改仓库基本信息”菜单，将出现如图4-6所示的窗体，窗体中放置一个表格控件。图4-6 “仓库基本信息管理修改仓库基本信息”菜单载入窗体时，触发窗体的Load事件，显示当前数据库中所有的记录，代码如下：调用showTitle函数。选择记录，然后单击鼠标右键，将触发MouseUp

44、事件，并出现弹出式菜单。这个事件发生在松开鼠标的时候，代码如下：Private Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 右键弹出 If Button = 2 And Shift = 0 Then PopupMenu fMainForm.menuMaterial End IfEnd Sub当窗口变化时，需要调整标签和表格的位置，使标签始终处于窗体的最上方，而表格始终处于标签的下方。3：删除仓库基本信息选择“仓库基本信息管理删除仓库基本信息”菜单，将出现记录列表。选择相应记

45、录，单击鼠标右键，选择弹出式菜单，将删除当前记录。4：查询仓库物资信息窗体的创建选择“仓库基本信息管理查询仓库基本信息”菜单，将出现如图4-7所示的窗体。在这里可以按照各种方式以及它们的组合进行查询。图4-7 “仓库基本信息管理查询仓库基本信息”菜单查询仓库基本信息窗体包括的控件及其属性设置见表4-8。控件属性属性取值Frmmater(Form)NamefrmsinfoCaption仓库登记查询MDIChildTrueTxtitem(0) Txtitem(1)NameTxtitem(0) Txtitem(1)Check1Caption仓库名称CmdokCaption仓库名称NameCmdokC

46、mdexitCaption取消NameCmdexit图4-8 查询仓库基本信息窗体包括的控件及其属性首先选择查询方式，然后输入查询内容。单击“确定”按钮，触发Click事件进行查询。程序首先判断查询方式，如果没有设置查询方式将显示提示信息；然后对查询内容进行组合，组成SQL语句，进行查询。查询到数据集以后，需要正常显示在表格控件中。运用循环将每一条记录的每一个字段显示出来。单击“取消”按钮将退出程序。46 入库信息管理模块的创建入库信息管理模块主要实现如下功能： 添加入库信息。 修改入库信息。 删除入库信息。 查询入库信息。1：添加仓库入库信息窗体的创建选择“仓库入库信息管理添加仓库入库信息”

47、菜单，将出现如图4-9所示的窗体。图4-9 “仓库入库信息管理添加仓库入库信息”菜单窗体中各个控件属性这里就不一一介绍。将各种文本框放在窗体的框架中，组成“仓库信息”，“入库信息”两部分。载入窗体时，仓库信息中将自动添加已有仓库信息，代码加在窗体的Load事件中，源代码见附录：入库信息的记录号由程序随机产生，这样每条记录都有唯一的编号，产生随机编号的代码如下：Private Function GetRkno() As String GetRkno = Format(Now, yymmddhhmmss) Randomize GetRkno = GetRkno & Int(99 - 10 + 1)

48、 * Rnd + 10)End Function随机编号前12位由当前时间决定，后两位由随机数产生，输入完内容，单击“保存”按钮，触发Click事件，首先检查文本内容是否符合格式要求，然后判断是否有重复记录，并更新仓库余额表中的相关信息，最后添加内容到数据库，代码见附录：这里很重要的一点是：在添加仓库入库信息的同时，更新仓库余额表中的信息。更新时使用了SQL语句update：2：修改仓库入库信息选择“仓库入库信息管理修改仓库入库信息”菜单，将出现如图4-10所示的窗体。图4-10 “仓库入库信息管理修改仓库入库信息”菜单窗体中放置了一个表格控件，所有仓库入库记录都显示在里面。选择需要修改的记录

49、，在弹出式菜单中选择“修改仓库入库信息”命令，在如图所示的窗体中进行修改。选择“修改仓库入库信息”命令，将触发menuModifymaterialin的Click事件，代码如下:Private Sub menuModifymaterialin_Click() Dim intCount As Integer If flagIedit Then If frmMaterIn.msgList.Rows 1 Then gintImode = 2 intCount = frmMaterIn.msgList.Row frmMaterIn1.txtSQL = select * from msave where

50、 rkno= & Trim(frmMaterIn.msgList.TextMatrix(intCount, 1) & frmMaterIn1.Show Else Call menuAddmaterialin_Click End If Else frmMaterIn.txtSQL = select * from msave frmMaterIn.Show End IfEnd Sub程序判断为修改状态后，首先删除原有记录，然后新内容加入到数据库中，同时保持对仓库余额表中相关信息的更新。3：删除仓库入库信息在仓库入库记录列表中选择记录，然后选择菜单中的“删除仓库入库信息”命令，将删除当前记录，并更新

51、仓库余额表中相关的信息。4：查询仓库入库信息选择“仓库入库信息管理查询仓库仓库入库信息“菜单，将出现所示4-11的窗体。在这里可以按照各种方式以及它们的组合进行查询。图4-11 “仓库入库信息管理查询仓库仓库入库信息“菜单载入窗体时，将自动加入所有记录的入库时间。47 仓库出库管理模块的创建仓库出库管理模块主要实现如下功能： 添加仓库出库信息。 修改仓库出库信息。 删除仓库出库信息。 查询仓库出库信息。1:添加仓库出库信息窗体的创建选择“仓库出库信息管理|添加仓库出库信息“菜单，将出现如图4-12所示的窗体。图4-12 “仓库出库信息管理|添加仓库出库信息“菜单载入窗体时，程序将自动加入仓库余

52、额表中数量大于零的所有仓库的名称。当选择仓库名称时，其它有关这种仓库的其它信息也显示出来。为了在录入信息时防止误操作，可以限制键盘的使用范围。在文本框中Private Sub txtItem_KeyPress(Index As Integer, KeyAscii As Integer) If Index = 0 Or Index = 1 Then MsgBox KeyCode 对键入字符进行控制 txtQuantity(Index).Locked = False 小数点只允许输入一次 If KeyAscii = 190 Then If InStr(Trim(txtItem(Index), .)

53、 = 0 Then If Len(Trim(txtItem(Index) 0 Then txtItem(Index).Locked = False Else txtItem(Index).Locked = True End If Else txtItem(Index).Locked = True End If Exit Sub End If 非数字不能输入 If KeyAscii 57 Or KeyAscii 48 Then txtItem(Index).Locked = True Else txtItem(Index).Locked = False End If 允许Backspace If

54、 KeyAscii = 8 Then txtItem(Index).Locked = False End If Delete键 If KeyAscii = 46 Then txtItem(Index).Locked = False End If End IfEnd Sub输入完成后，程序将首先检查输入内容是否符合要求，然后检查是否有重复记录，同时更新仓库余额表中相关数据，最后把数据添加到数据库，代码详情将附录源代码清单：2：修改仓库出库信息选择“仓库出库信息管理|修改仓库出库信息菜单”，将出现如图4-14所示的窗体：图4-14仓库出库信息管理|修改仓库出库信息菜单选择需要的修改记录，单击鼠标右

55、键，选择“修改仓库出库信息”菜单，进行修改，选择“删除仓库出库信息”命令，就可以删除当前记录。3：查询仓库出库信息：选择“仓库出库信息管理|查询仓库出库信息”菜单，将出现如图4-15所示的窗体，在这里可以按照各种方式以及它们的组合进行查询。图4-15仓库出库信息管理|查询仓库出库信息满足查询的要求记录都将出现仓库领用列表中。48 仓库余额信息管理模块的创建仓库余额信息管理模块主要实现如下功能： 查询维修信息。浏览仓库余额信息。1:仓库余额信息窗体的创建选择“仓库余额信息管理查询仓库余额信息”菜单，将首先出现如图4-16所示的窗体。图4-16仓库余额信息管理查询仓库余额信息ShowTitle函数

56、用来显示表头，ShowData用来显示记录。然后出现如图4-17所示的查询窗口，设置各种查询方式可以对仓库余额信息进行查询，查询结果出现在上面所示的窗体中。图4-17 查询窗口2：浏览仓库余额信息窗体的内容将通过Load事件从数据中获得，代码如下：Private Sub Form_Load() Dim sSql As String Dim intCount As Integer Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With mrc For intCount = 0 To 7 If Not IsNull(.Fields(intCount) Then txtItem(intCount) = .Fields(intCount)