仓库库存管理系统分析

1、时需忖呎 目录 前言 2 摘要2 第一章概述3 第二章开发背景4 第三章系统分析4 第四章系统设计6 第五章系统实施13 第六章系统使用说明 24 附录参考文献 25 时磊5说- 刖言 仓库库存管理系统是一个企业不可缺少的部分，它的内容对于企业的决策者 和管理者来说都至关重要，所以仓库库存管理系统应该能够为用户提供充足的信 息和快捷的查询手段。但一直以来人们使用传统人工的方式管理仓库中的各种 物资设备，这种管理方式存在着许多缺点，如:效率低、另外时间一长，将产生大量 的文件和数据,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻

2、认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用的一部分，使用计算机对物资信息进行管理，具有着手工管理 所无法比拟的优点例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、 寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率，也是企业的 科学化、正规化管理，与世界接轨的重要条件。 因此，开发这样一套库存管理软件成为很有必要的事情。 摘要 库存管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护 以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强数据安全 性好的库。而对于后者则要求应用程序功能完备，易使用等特点。

3、经过分析如此情况，我们使用微软公司的VisualBasic开发工具，利用其提供的各种面向 对象的开发工具，尤其是ADO,是能方便而简洁操纵数据库的智能化对象，短期内就可以开发 出用户满意的可行系统。 关键字：库存管理ADO面相对象库存ABC分析 Abstract Stockpile man age system is a typical MIS. It s developme nt mostly in clude the foun dati on and maintenance of the database and the developme nt of the clie nt applic

4、ati on programme.For the former we must eatablish a better database,which has well data consistency and data security.For the latter we must make the programme has self-c ontained function and easy to be use. By analysing the situation,we use the VB of the Microsoft company as client tool,and use so

5、me of the tools of opp, especially ADO object,which can easily convenien tly man ipulate the database.We use it can develop a satisfactory system in short time Key:Stockpile manage ADO OPPThe analysis of Stockpile 时磊忖呎 第一章概述 1.1库存管理的必要性 大多数库存管理理论认为，库存是物理上和逻辑上库房库位的所有有形和无形物料极其 价值的总和，具体包括成品、原材料、在制品、在途品

6、、生产前物料、备品备件等。虽然持 有一些库存是必要的， 过量的库存却非但没有用处而且占用了资金。占用的资金对于公司发 展、新产品开发等都是非常需要的；减少资金占用还可以大大减少来自银行贷款的利息和风 险。对那些采购量特别大、采购件市场价格有波动的物料库存，加强库存管理效果更为明显。 因此，平衡公司库存投资与其它资金需求至关重要。 1.2库存分类 企业怎样管理库存， 是库存管理的最大难点和挑战。 因此，通过MRPII物料主计划模块 和采购模块建立计划与控制系统以有效地实施库存管理和采购补偿成为题中应有之义。通过 调查，我们得知任何库存均可分为如下三类： A类物品：高值价值占库存总值7 0 - 8

7、 0 %的相对少数物品。 通常为物品的15 - 2 0%。 E类物品：中值总值占库存总值的15- 2 0%。物品数居中，通常占物品的3 0 - 4 0%。 C类物品：低值一一库存总值几乎可以忽略不计，只占5- 10%。是物品的大多数， 通常占6 0 - 7 0 %。 显然，A类物品是关键；如果我们把精力集中于A类物品，使其库存压缩10-50 %，就 是总库存的相当可观的一笔压缩。 关于ABC分类方法有几条基本法则： a. 控制的程度： 对A类物品严加控制，包括做完备、准确的记录，高层监督和经常评审，从供应商按大 合同订单频繁交货，对车间紧密跟踪以压缩提前期。 对B类物品做正常控制，包括良好的记

8、录与常规的关注。 对C类物品尽可能使用简便的控制， 诸如定期目视检查库存实物、 简要记录或以简便标 志法表明补充存货已经订货， 采用大库存量与订货量以避免缺货， 安排车间日程计划时给以 低优先级。 b. 优先级 在一切活动中给A类物品以高优先级以压缩其提前期与库存。 对B类物品予以正常处理，仅在关键时给以高优先级。 予C类物品以最低优先级。 c. 订货过程 对A类物品提供及时、 准确的采购信息和状态查询。计算机数据需要人工加以核对，进 行阶段性盘点，以及频繁的评审以压缩库存。 对B类物品，按一定周期或当发生重大变化时评审一次库存数据和订货点，MRPII操作 按例行公事处理。 对C类物品可以盘点

9、处理或订货点计算。订货往往不用MRPII作计划。可以凭业务人员 的经验加以控制。 由上可以看出库存管理的重要性。 因此，库存管理是企业管理的重要组成部分。 市场需 要库存商品提供给用户， 企业的经营需要库存保证各种药品的供应以进行药品的销售，库存 对生产效率的提高有着极其重要的影响。因此，库存管理系统是计算机管理系统的中心。 因 为，所有企业的经营活动都离不开物流的活动。 1.3 库存管理的目标 库存管理的主要目标就是通过对仓库所有入出库活动的管理和控制及对库存数据有效 的统计和分析，以保证企业生产中畅通的物流，使决策人员及早发现问题，采取相应措施， 调整库存结构，缩短储备周期，加速资金周转，

10、最大限度地降低库存占用，同时，通过周期 性的仓库盘点，及时补救管理中的漏洞，使库存管理系统实时地反映企业中各个仓库的现时 情况，为各类管理人员从不同侧面提供所需信息，以便协调企业经营收到更大效益，库存管 理系统是协调企业生产经营的基础，其数据的准确性、方便的查询、有效的分析是整个计算 机管理系统顺利运行的关键。 第二章开发背景 企业的库存物资管理往往是很复杂、很繁琐的。由于所掌握的物资种类众多，订货、管 理、发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计报表繁多，因此仓 库的库存管理必须编制一套库存管理信息系统，实现计算机化操作，而且必须根据企业的具 体情况制定相应的方案。 根据

11、当前的企业管理体制，一般的库存管理系统， 总是根据所掌握的物资类别， 相应分 成几个科室来进行物资的计划，订货，核销托收，验收入库，根据企业各个部门的需求来发 送物资设备，并随时按期进行库存盘点，作台帐，根据企业领导和自身管理的需要按月、季 度、年度进行统计分析，产生相应报表。为了加强关键物资、设备的管理，要定期掌握其储 备，消耗情况，根据计划定额和实际纤毫定额的比较，进行定额管理，使得资金使用合理， 物资设备的储备最佳。 一个完整的企业物资供应管理系统应包括采购计划管理，合同收托管理、仓库库存管理、 定额管理、统计管理、财务管理等模块。其中仓库的库存管理是整个物资供应管理系统的核 心。因此有

12、必要开发一套独立的库存管理系统来提高企业工作效率，而所使用的这套库存管 理系统是企业生产经营管理活动中的核心，此系统必须可以用来控制合理的库存费用、适时 适量的库存数量，使企业生产活动效率最大化。通过对这些情况的仔细调查，我开发了下面 的仓库库存管理系统。 第三章系统分析 本系统采用了结构化生命周期法，结构化生命周期法是最常用的管理信息系统开发方 法，分为四个步骤，即系统调研分析、数据库设计实现、界面设计实现和系统功能设计实现。 其中系统调研分析阶段是最基础、也是最容易被开发人员忽视的环节。 3.1进行资料收集 在整个系统分析阶段，我在图书馆认真查看了很多关于仓库库存管理方面的书籍，收集 到了

13、相应的入库单、领料单、台账、物料卡、报表等资料，这些资料可以用作数据库设计的 依据，具体如下： 序号 提纲 1 零件仓库划分成多少个区域？ 2 每个区域有多少个货架？ 3 每个货架上分多少层？ 4 架子上的每一层有多少个格子？ 5 零部件是如何进行物料编码的？ 6 仓库管理人员人数有多少？ 7 日均处理入库单数量大约有多少？ 8 日均处理岀库单数量大约有多少？ 9 领料退回的处理方法？ 10 是否每天都要登记库存台账？ 11 库存台账有多少类型？ 12 仓库之间是否可以进行调拨？ 13 每次盘点间隔时间多长？ 14 如何处理零部件盘亏？ 15 如何处理零部件盘盈？ 16 是否有零部件物料缺货警

14、戒线？ 17 统计报表的种类和填报频率？ 时磊5说- 入库单是入库单位在把相应的零部件送人仓库时必须填写的单据；领料单是领料人员从 仓库中领取零部件时必须填写的单据（即出库）；零部件台账（相当于本系统中的操作日志） 实际是一个流水账， 用于记录每天发生的入库、出库信息；物料卡（在本系统中用现有库存 信息来表示）的作用是记录某一种零部件的数量变化，以便库管员盘查；报表是仓库向有关 领导和部门定期提交的零部件库存汇总信息。收集到的入库单、领料单、零部件库存台账、 零部件物料卡等单据和报表的实物样式在此略去，有兴趣者请参考有关类似企业的样本即 可。 3.2绘制业务流程图 在某公司的调研过程中，已了解

15、到所涉及的业务主要是入库和出库，图3.1是系统入库、 业务流程图说明 外部环境 处理过程 数据存档数据流向 图3.2业务流程图符号说明 3.3用户需求分析 用户需求分析就是在用户需求调研的基础上，确定系统的总体结构方案，完成相应的需 求分析报告。在确定系统的总体结构方案过程中，包括确定应用程序的结构、系统开发环境 时需Sr彳 和系统的功能模块。用户需求调研结束之后，应该立即进行用户需求分析。 3.3.1应用程序结构确定 从用户应用角度来看，可把应用程序系统的组成部分分成数据存储层、业务处理层和界 面表示层等3个层次，而应用程序结构可归纳为： 集中式应用程序结构、 单用户应用程序结 构、多层服务

16、器应用程序结构、浏览器/服务器应用程序结构、 客户机/服务器应用程序结 构等5种类型。 本库存管理系统就采用了当前最流行的客户机/服务器应用程序结构（即C/S结构），此 时，客户机提出请求，服务器对客户机的请求作出回应。通过对服务功能的分布实现了分工 服务。数据存储层放在服务器上，业务处理层和界面表示层放在客户机上，因此又被称为灵 敏的客户机”结构。许多操作可以在本地的客户机上执行，只是当需要数据时，才向服务器 发出请求。并使应用程序的处理更接近用户，使整个系统具有较好的性能，可以并行地处理 应用程序的请求、减少了数据传输量、降低了服务器的负荷。由于条件所限，将此系统所有 程序都置于一台计算机

17、上，以便调试运行。 332确定系统开发环境 由于大多数公司内部使用的计算机平台都是基于Windows环境的。为了降低系统成本， 应最大程度地利用现有的资源、兼容现有的环境，可确定使用下面的开发环境： 网络操作系统： Windows2000 ; 数据库服务器： MicrosoftAccessr2000 ; 服务器平台： Windows2000 ; 客户机平台： Windows95 /98/ NT /2000; 前端开发工具：visualBasic6.0（企业版）;数据访问对象：ADO （本系统使用 ADO控 件，简化编程）。 3.3.3确定系统的功能模块 通过分析确定库存系统将包含 6个主要功能

18、模块，即系统模块、入库业务管理模块、出库 业务管理模块、退料业务管理模块（还库业务管理模块）、盘点业务管理模块（报表输出）、 需求管理模块。对于每一个功能模块，都包含了数据录入、编辑、查询、统计、打印、应急、 帮助等功能。 第四章系统设计 4.1总体设计 4.1.1系统目标设计 系统开发的总体任务是实现企业物资设备管理的系统化、规范化和自动化，从而达 到企业仓库库存管理效率的目的。 4.1.2开发设计思想 库存管理的物资主要是企业生产中所需要的各种设备、原材料及零部件。进货 时经检查合同确认为有效托收后，进行验收入库，填写入库单，进行入库登记。 企业各个部门根据所需要的物资设备总额和部门生产活

19、动需要提出物资需求 申请。计划员根据整个企业的需求开出物资设备出库单，仓库管理员根据出库 单核对发放设备、原材料及零部件。有些设备使用完毕需要及时归还入库，填 写还库单。根据需要按照月、季、年进行统计分析，产生相应报表。 仓库库存管理的特点是信息处理量比较大。所管理的物资设备、原材料及 零部件种类繁多，而且由于入库单、出库单、需求单等单据发生量特别大，关 联信息多，查询和统计的方式各不相同，因此在管理上实现起来有一定的困难。 在管理的过程中经常会出现信息的重复传递；单据、报表种类繁多，各个部门 规格不统等问题。 在本系统的设计过程中,为了克服这些困难，满足计算机管理的需要，我 们采取了下面的一

20、些原则： 统一各种原始单据的格式，统一帐目和报表的格式。 删除不必要的管理冗余，实现管理规范化、科学化。 程序代码标准化，软件统一化，确保软件的可维护性和实用性。 界面尽量简单化，做到实用、方便，尽量满足企业中不同层次员工的 时磊忖呎 需。 建立操作日志，系统自动记录所进行的各种操作。 4.1.3系统功能分析 本系统需要完成的功能主要有以下几点。 库存管理的各种信息的输入，包括入库、出库、还库、需求信息的输 入等。 库存管理的各种信息的查询、修改和维护。 设备采购报表的生成。 在材料库存中加入所允许的最大库存合最小库存字段，对所有库存物 资实现监控和报警。 企业各个部门的物资需求管理。 操作日

21、志的管理 库存管理系统的使用帮助。 4.2详细设计 4.2.1系统功能模块设计 在系统功能分析的基础上，考虑VB和Access的特点，设计出如图4.1所示的 系统功能模块图。 图4.1系统功能模块图 (1) 系统模块 a. 包括报表的打印及设置，操作日志的管理。 b. 管理员可以通过管理界面添加或删除用户，添加新管理员或删除原有管理 员，验证用户的合法性，阻止非法用户登录。 c. 管理员或其他用户可以修改自己的密码。 (2) 入库模块 包括填写入库单，更新，删除入库记录，查看现有库存信息，入库记录的 查询及打印 (3) 出库模块 包括填写出库单，更新，删除出库记录，查看现有库存信息，出库记录的

22、 查询及打印 (4) 还库模块 包括填写还库单，更新，删除还库记录，还库记录的查询及打印 (5) 需求模块 包括填写需求计划表，更新，删除采购计划信息，查看现有采购信息，采 购信息的查询及打印，以及预测短期内的需求计划。 输入处理输出 图4.2库存管理HIPO图 422数据库设计 数据库需求分析 在仔细调查企业库存物资材料管理过程的基础上，设计出本系统所处理的数据 流程图（图4.2） 图4.3库存系统数据流程图 通过对企业仓库管理内容和数据流程分析，设计的数据项合数据结构如下： 设备代码信息。包括的数据项有设备号、设备名称。 现有库存信息。包括的数据项有现有设备、现有数目、最大库存、最 小库存

23、等。 设备使用信息。包括的数据项有使用的设备、使用部门。数目。使用 时间、出库时状态等。 设备采购信息。包括的数据项有采购的设备、采购员、供应商、采购 数目、采购时间等。 设备归还信息。包括的数据项有归还设备、归还部门、归还数目、归 还时间、经手人等。 设备需求信息。包括的数据项有需求的部门、需求设备、需求数目、 需求时间等。 有了上面的数据结构、数据项和数据流程，就可以进行下面的数据库设计。 数据库概念结构设计 这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种实体， 以及它们之间的关系，为后面的逻辑结构设计打下基础。根据上面的设计规划 出的实体有库存实体、 出库实体、入库实体、

24、采购实体、还库实体、需求实体。 各个实体的E-R图及其关系描述如下： 图4.4库存实体E-R图 图4.5入库实体E-R图 图4.6出库实体E-R图 时磊忖呎 图4.8库存实体E-R图 图4.9计划采购实体 E-R图 实体与实体间的关系E-R图如下所示： 还库部门需求 J 设备采购 图4.10实体之间关系 E-R图 数据库逻辑结构设计 在上面的实体以及实体之间关系的基础上，形成各个表格之间的关系。 库存管理系统数据库中的各个表的设计结果如下面的几个表格所示，每个表 格表示数据库中的一个表。 表4.1设备代码表 字段名称 数据类型 可否为空 说明 设备号 文本 NOT NULL 字段大小为6 设备

25、名称 文本 NULL 字段大小为20 表4.2权限表 字段名称 数据类型 可否为空 说明 用户名 文本 NULL 字段大小为10 密码 文本 NULL 字段大小为15 权限 文本 NULL 字段大小为10 表4.3设备入库表 字段名称 数据类型 可否为空 说明 设备号 文本 NOT NULL 字段大小为6 入库时间 日期/时间 NULL 无 供应商 文本 NULL 字段大小为20 供应商电话 文本 NULL 字段大小为15 入库数量 数字 NULL INTEGER 价格 数字 NULL INTEGER 采购员 文本 NULL 字段大小为10 表4.4设备出库表 字段名称 数据类型 可否为空 说

26、明 设备号 文本 NOT NULL 字段大小为6 使用部门 文本 NULL 字段大小为20 岀库时间 日期/时间 NULL 无 岀库状况 文本 NULL 字段大小为20 经手人 文本 NULL 字段大小为10 岀库数量 数字 NULL INTEGER 领取人 文本 NULL 字段大小为10 用途 文本 NULL 字段大小为20 表4.5现有库存库表 字段名称 数据类型 可否为空 说明 设备号 文本 NOT NULL 字段大小为6主键 现有库存 文本 NULL INTEGER 最大库存 文本 NULL INTEGER 最小库存 文本 NULL INTEGER 表4.6部门需求表 字段名称 数据类

27、型 可否为空 说明 设备号 文本 NOT NULL 字段大小为6 部门名称 文本 NOT NULL 字段大小为10 需要数量 数字 NULL INTEGER 需求开始时间 日期/时间 NULL 无 需求结束时间 日期/时间 NULL 无 表4.7设备还库表 字段名称 数据类型 可否为空 说明 设备号 文本 NOT NULL 字段大小为6 还库时间 日期/时间 NULL 无 仓库管理员 文本 NULL 字段大小为10 归还数量 数字 NULL INTEGER 归还人 文本 NULL 字段大小为10 表4.8操作日志表 字段名称 数据类型 可否为空 说明 操作员 文本 NOT NULL 字段大小为

28、10 操作内容 文本 NOT NULL 字段大小为100 操作时间 日期/时间 NOT NULL 无 表4.9设备米购计划表 字段名称 数据类型 可否为空 说明 设备号 文本 NOT NULL 字段大小为6主键 现有库存 数字 NULL INTEGER 总库存 数字 NULL INTEGER 最大库存 数字 NULL INTEGER 购买数量 数字 NULL INTEGER 供应商 文本 NULL 字段大小为10 价格 数字 NULL INTEGER 计划采购时间 日期/时间 NULL 无 4.3代码设计 任何库存均可分为如下三类： A类物品：高值价值占库存总值7 0- 8 0 %的相对少数物

29、品。通常为物品的15- 20%。 E类物品：中值总值占库存总值的15- 2 0%。物品数居中，通常占物品的3 0- 4 0 %。 C类物品：低值库存总值几乎可以忽略不计，只占5- 10%。是物品的大多数，通常占6 0- 7 0 % 时需 因此设计编码如下： 设备号或零件号X X X X X X 自定义 自定义 自定义 例如设备号或零件号A 0 1 0 2 A类 消耗性物资 常用零件 4. 4输入输出设计 本系统界面标准 Windows形式，键盘输入（也可以用条形码读取），人机交互，容易使用。 输入输出的设计考虑美观实用和通俗易懂，图文并茂。 4. 5系统安全性设计 系统数据库中包含多个二维表，

30、所以在系统与数据库的连接上，并没有把数据库和系统的 连接直接写入代码， 而是通过对服务器端进行系统设置，使数据库名及路径不可见， 并通过 ACCESS的数据库安全设置，保证了数据库的安全性。 系统根据用户身份不同赋予不同权限， 用户用密码登陆，同样也保证了系统数据的安全性。 第五章系统实施 5. 1、开发工具简介 本系统的前端开发工具，我选择了Visual Basic6.0，后台数据库采用 Access2000。 5.1.1 VB 简介 Visual意为可视化的”，指的是一种开发图形用户界面的方法，所以Visual Basic 是 基于Basic的可视化的程序设计语言。在Visual Basi

31、c 中，一方面继承了 Basic所具有的 程序设计语言简单易用的特点，另一方面在其编程系统中采用了面向对象、事件驱动的编程 机制，用一种巧妙的方法把Windows的编程复杂性封装起来，提供了一种所见即所得的可视 化程序设计方法。 5.1.2 VB功能特点 具有面向对象的可视化设计工具 在VB中，应用面向对象的程序设计方法（ OOP,把程序和数据封装起来视为一 个对象，每个对象都是可视的。程序员在设计时只需用现有工具根据界面设计要 求，直接在屏幕上画”出窗口、菜单、按钮、滚动条等不同类型的对象，并为每 个对象设置属性。程序员的编程工作仅限于编写相关对象要完成的功能程序，因 而程序设计的效率可大大

32、提高。 时磊忖呎 事件驱动的编程机制 事件驱动是非常适合图形用户界面的编程方式。在图形用户界面的应用程序 中，是由用户的动作即事件掌握着程序运行的流向，每个事件都能驱动一段程序 的运行。程序员只要编写响应用户动作的代码，而各个动作之间不一定有联系。_ 提供了易学易用的应用程序集成开发环境 在VB集成开发环境中，用户可设计界面、编写代码、调试程序，直至把应 用程序编译成可执行文件在Win dows中运行，使用户在友好的开发环境中工作。 结构化的程序设计语言 VB具有丰富的数据类型和结构化程序结构，作为一种程序设计语言，它还 有如下一些特点： ?强大的数值和字符串处理功能 ?丰富的图形指令，可方便

33、地绘制各种图形 ?提供静态和动态数组，有利于简化内存的管理 ?过程可递归调用，使程序更为简练 ?支持随机文件和顺序文件的访问 ?提供了一个可供应用程序调用的包含多种类型的图标库 ?具有完善的运行出错处理 支持多种数据库系统的访问 利用数据控件可访问的数据库系统有：Microsoft Access、Btrieve、DBASE Microsfot FoxPro 和 Paradox 等，也可以访问 Microsoft Excel 、Lotus1-2-3 等多种电子表格。 支持动态数据交换（DDE、动态链接库（DLL）和对象的链接与嵌入（ OLE技 术 完备的HELP联机帮助功能 与Windows环境

34、下的软件一样， 在VB中，利用帮助菜单和 F1功能键，用户 可以随时方便地得到所需要的帮助信息。VB帮助窗口中显示了有关的示例代码， 通过复制、粘贴操作可获取大量的示例代码，为用户的学习和使用提供了极大的 方便。 VB程序设计的概念就是面向对象的概念，对象就是数据（DATA和代码（CODE 互相结合的综合体。 Win dows上面的每一个图标，包括窗口本身都是对象， 如果没 有任何事情发生，对象处于停顿状态。当存在外来事件时，程序段执行，它的执 行是由外来事件决定的。因此是“事件”驱动的。 编写VB程序较为简单，首先将各个对象放在空白窗体上，然后将程序代码分 别添加给对象或图标，将它们组合起来

35、就可以随意运行了。 在VB中，窗体实际上是一个对象，VB的窗体含有许多内嵌特性，这使得用户 界面部分的建立像是从一个目录中挑选一个个合适的控件，而不是从零开始一步一 步地建立控件。这种开发者能亲眼看到的程序设计过程就是可视化程序设计” （Visual Program ming ） 5.1.3 VB 中的基本概念 对象：面向对象编程（OOP的提法大家一定也很耳熟，虽然Visual Basic并不是 完全的面向对象编程，但也利用了对象编程技术。对象简单地说就是大家经常看到的 各种窗口、按钮、文本框甚至打印机等。 属性：如同电视有黑白、彩色之分一样，作为对象的Win dows中的窗口也是有大 有小，

36、文本框的位置不可能完全一样，菜单要显示出不同的功能，这些都是由对象的 属性决定的。不同对象的属性可能不同。属性一般决定了对象的位置、大小、显示等 情况。 方法：就是对象能够做的事，如打印机对象就有打印（ Print ）方法、窗口对象支 持隐藏（Hide）方法、很多对象支持移动（Move）方法等。 事件：就是对象对用户各种操作的反映情况。如用户用鼠标按一下按钮，就会触 发按钮的“按”（Click ）事件。 控件：控件就是Visual Basic提供的编程用的模块，与对象有直接的联系，如同 积木的木块，使用这样的控件，就可以像拼图或堆积木一样“搭”、“拼”你的程序 界面。Visual Basic中

37、使用控件，简化了 Windows中的窗口、按钮等对象的编程设计。 每个控件都有各自的属性、事件及方法。只需修改这些特征你就可以随心所欲地编程 了。最重要的是，你可以利用成千上万的各种扩充的控件来快速构造几乎能满足你任 何要求的程序。例如，如果你不满意Win dows简陋的媒体播放器，你就可以使用VB的 多媒体控件在1小时以内设计一个完全自己风格的能够播放CD VCD的多媒体播放器， 而功能完全与之相当。 5.1.4 Access200（数据库简介 作为Microsoft的office 套件产品之一 access已经成为世界上最流行的桌面数 据库系统。Access与许多优秀的关系数据库一样，可以

38、让你很容易地连接相关的信息 而且还对其他的数据库系统有所补充。它能操作其它来源的资料，包括许多流行的PC 数据库程序（如 dBASE Paradox，Microsoft FoxPro）和服务器、小型机及大型机上 的许多SQL数据库。Access还完全支持Microsoft 的OLE技术。 Access还提供windows操作系统的高级应用程序开发系统。Access与其它数据库 开发系统之间相当显著的区别就是：您不用写一行代码，就可以在很短的时间里开发出 一个功能强大而且相当专业的数据库应用程序，并且这一愉快的过程是完全可视的！如 果您能给它加上简短的 VBA代码，那么您的程序决不比专业程序员潜

39、心开发的程序差。 Access的总体结构 Access将所有有名字的东西都成为 对象（object ），在 Access 2000中，最重要 的对象有表，查询，窗体，报表，宏和模块。 表 用户定义的存储资料的对象。每一个表都包含有关某个主体的信息。表包括存 储不同种类资料的字段（列），而记录（行）则收集特定主体实例的所有信息。 查询 为来自一个或多个表的资料提供定制视图的对象。在Access中，可以利用图 形化的实例查询机制（QBE或通过SQL语句来建立查询。 你可以在查询中选择、更新、 插入或删除资料，也可以用查询来建立新表。 窗体 窗体是主要的人机接口。大量的操作（几乎所有）都要通过窗体完

40、成。窗体 通过运行宏（macro）或Visual Basic for Applicatinns（ VBA过程，来响应大量的 事件。Access 2000为我们提供了强大的（同时也是相当方便的向导）来建立标准的 Win dows 窗体。 报表为格式化、计算、打印选定资料而设计的对象。它是衡量一个优秀的数据库 的重要标准（有时甚至是唯一的标准）。 宏为了响应已定义的事件， 需要让Access去执行一个或多个操作， 而宏就是对这 些操作的结构化的定义对象。它可以让你像堆积木一样建立一个功能强大的程序，而无 须写大量的代码。 模块包括用VBA编码的定制过程的一个对象。模块提供了独立的动作流以捕获错 误

41、，而宏做不到。模块能直接响应窗体或报表事件，也可以从应用程序的任何地方被调 用。 布磊Sn/ Access2000 数据库 5.1.5本系统中VB与Access2000的连接 Microsoft.Jet.OLEDB.4.0 VB应用程序 5. 2系统实现 5.2.1.系统管理模块实现 系统管理菜单 亲绕管理入庫除住出库塾性还 垂新登录 ?工业企业通用库存管理信息乘统 忝m或删陽用尸 退岀 修改用户密码程序 Private Sub Comma nd1_Click() Adodc1.RecordSource = frmLogin.Adodc1.RecordSource Adodc1.Refresh

42、 Set Text4.DataSource = Adodc1 Text4.DataField =密码 If Text1 = Then MsgBox 请输入原密码！,修改密码 Exit Sub ElseIf Text1.Text Adodc1.Recordset.Fields(密码)Then MsgBox 原密码错误！,修改密码 Exit Sub ElseIf Text2 = Or Text3 = Then MsgBox 请输入新密码！ ！修改密码 Exit Sub ElseIf Text2 Text3 Then MsgBox 密码不一致！ ！，修改密码 Exit Sub Else Text4.

43、Text = Text2.Text Adodc1.Recordset.MoveFirst MsgBox 密码修改成功！ ！,，修改密码 Unload Me End If End Sub 附磊论呎 522用户管理界面（程序略） 5.2.3入库模块的实现 Private Sub Comma nd1_Click（）设备入库程序 Dim I, J As Integer Dim STR As String If Text1.Text = Or Text2 = Or Combo1.Text = Or Text4 = Or Text5 = Or Text6 =Or Text7 = Then MsgBox 请

44、输入完整信息！ Exit Sub Else将记录存入入库记录表 设备入库表.datPrimaryRS.Recordset.Fields（” 设备号）=Text1.Text 设备入库表.datPrimaryRS.Recordset.Fields（入库数量）=Text2.Text 设备入库表.datPrimaryRS.Recordset.Fields（入库时间）=Combo1.Text 设备入库表.datPrimaryRS.Recordset.Fields（供应商）=Text4.Text 设备入库表.datPrimaryRS.Recordset.Fields（供应商电话）=Text5.Text 设

45、备入库表.datPrimaryRS.Recordset.Fields（价格）=Text6.Text 设备入库表.datPrimaryRS.Recordset.Fields（采购员）=Text7.Text MsgBox 已经成功入库！ End If 设备 入库表.Adodc1.RecordSource = select * from 现有库存表 where 设备号=& Text1.Text & 设备入库表.Adodc1.Refresh 设备入库表.DataGrid1.Refresh 时需忖呎 If 设备入库表.AdodcI.Recordset.RecordCount 0 Then 将记录加入现有

46、库存表中 设备入库表.Text9.Text = CInt(设备入库表.Text9.Text) + Clnt(Text2.Text) 设备入库表.Text9.Refresh J =设备入库表.Text9 设备入库表.AdodcI.Recordset.MoveFirst 设备入库表.Adodc1.Recordset.Fields.Refresh 设备入库表.DataGrid1.Refresh MsgBox 现有库存量为：& J Else STR =现有库存表中无此设备！ & vbCrLf & 请在设备代码表和现有库存表中手动添 加记录！ MsgBox STR Load frm现有库存表 frm现有

47、库存表.Show Call frm 现有库存表.Command1_Click FrmAddNewEqu.Text1.Text = frmlnput.Text1.Text FrmAddNewEqu.Text2.Text = frmInput.Text2.Text Load frm设备代码表 frm设备代码表.Show End If End Sub Private Sub cmdDelete_Click() 删除入库表中记录 On Error GoTo DeleteErr Dim YesNo As String YesNo = MsgBox(删除, vbYesNo,删除记录) If YesNo =

48、 vbYes Then With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Else Exit Sub End If DeleteErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click()更新纪录程序 On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Descripti

49、on End Sub 5.2.4 出库模块实现 i十峯扛I* f-I I Private Sub Comma nd1_Click（） 设备出库程序 Dim i, J, k As Integer Dim STR As String frm 设备出库表.Adodc1.RecordSource = select * from 现有库存表 where 设备号=& Text1.Text & frm 设备出库表.Adodc1.Refresh frm 设备出库表.DataGrid1.Refresh If IsNumeric （Text2） = False Then MsgBox 数量必须是数字！ Exit

50、Sub End If If Text1.Text = Or Text2 = Or Combo1.Text = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then MsgBox 请输入完整信息! Exit Sub ElseIf frm 设备出库表.Adodc1.Recordset.RecordCount 0 Then k = CInt（frm 设备出库表.Text9.Text） - Clnt（Text2.Text） If k = 0 Then frm 设备出库表.Text9.Text = CInt（frm 设备出库表.Text9.Text） - CI

51、nt（Text2.Text） frm 设备出库表.Text9.Refresh J = frm设备出库表.Text9 时磊 f|磊5彳 frm 设备出库表.AdodcI.Recordset.MoveFirst frm 设备出库表.AdodcI.Recordset.Fields.Refresh frm 设备出库表.DataGridl.Refresh MsgBox 现有库存量为：& J Else MsgBox 现有库存量不足！请输入合适数量！ Exit Sub End If Else STR =现有库存表中无此设备！请检查输入是否正确！ MsgBox STR End If End Sub Priva

52、te Sub cmdDelete_Click() 删除出库记录 On Error GoTo DeleteErr Dim YesNo As String YesNo = MsgBox(删除, vbYesNo,删除记录) If YesNo = vbYes Then With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Else Exit Sub End If DeleteErr: MsgBox Err.Description End Sub 更新记录程序同入库的更新程序相同，在此略 5.2.5设备

53、采购模块实现，程序略 査诲 SA* TT1 i iiiij - 3D 三am 04-23- IB 蠢Bl i i 3 X 枚厂工厂 2D0K 胃 eD0 , n U ：I5 口 2-1-2D- Hr切 工rfpj 526现有模块实现，程序略 5.2.7设备代码模块实现 主要程序 Private Sub cmdAdd_Click() 添加设备 On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: MsgBox Err.Description End Sub 5.2.8库存报警模块实现 冠中迅备库存量己1豊戒辫t讳壬

54、內T片 主要程序 忙二越莖二勺 Private Sub Comma nd1_Click()显示高于最大警戒库存的设备 datPrimaryRS.RecordSource = select * from 现有库存表 where 现有库存 最大库存 datPrimaryRS.Refresh grdDataGrid.Refresh If datPrimaryRS.Recordset.RecordCount 0 Then Beep MsgBox 表中设备已过量！ Else MsgBox 没有设备库存过量！ End If End Sub Private Sub Comma nd2_Click()显示低于于最小警戒库存的设备 datPrimaryRS.RecordSource = select * from 现有库存表 where 现有库存 最小库存 datPrimaryRS.Refresh grdDataGrid.Refresh If da