仓库库存管理系统分析

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

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

3、工具,利用其提供的各种,短面向对象的开发工具,尤其是ADO,是能方便而简洁操纵数据库的智能化对象期内就可以开发出用户满意的可行系统。关键字:库存管理ADO面相对象库存ABC分析AbstractStockpilemanagesystemisatypicalMIS.Itsdevelopmentmostlyincludethefoundationandmaintenanceofthedatabaseandthedevelopmentoftheclientapplicationprogramme.Fortheformerwemusteatablishabetterdatabase,whichhaswe

4、lldataconsistencyanddatasecurity.Forthelatterwemustmaketheprogrammehasself-containedfunctionandeasytobeuse.Byanalysingthesituation,weusetheVBoftheMicrosoftcompanyasclienttool,andusesomeofthetoolsofopp,especiallyADOobject,whichcaneasilyconvenientlymanipulatethedatabase.Weuseitcandevelopasatisfactorys

5、ysteminshorttimeKey:StockpilemanageADOOPPTheanalysisofStockpile第一章概述实用文档1.1库存管理的必要性大多数库存管理理论认为，库存是物理上和逻辑上库房库位的所有有形和无形物料极其价值的总和，具体包括成品、原材料、在制品、在途品、生产前物料、备品备件等。虽然持有一些库存是必要的，过量的库存却非但没有用处而且占用了资金。占用的资金对于公司发展、新产品开发等都是非常需要的；减少资金占用还可以大大减少来自银行贷款的利息和风险。对那些采购量特别大、采购件市场价格有波动的物料库存，加强库存管理效果更为明显。因此，平衡公司库存投资与其它资金需求

6、至关重要。1.2库存分类企业怎样管理库存，是库存管理的最大难点和挑战。因此，通过MRPII物料主计划模块和采购模块建立计划与控制系统以有效地实施库存管理和采购补偿成为题中应有之义。通过调查，我们得知任何库存均可分为如下三类：类物品：高值价值占库存总值-的相对少数物品。通常为物品的-。类物品：中值总值占库存总值的-。物品数居中，通常占物品的-。类物品：低值库存总值几乎可以忽略不计，只占-。是物品的大多数，通常占-。显然，类物品是关键；如果我们把精力集中于类物品，使其库存压缩10-50，就是总库存的相当可观的一笔压缩。关于分类方法有几条基本法则：a.控制的程度：实用文档对类物品严加控制，包括做完备

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

8、审一次库存数据和订货点，MRPII操作按例行公事处理。对类物品可以盘点处理或订货点计算。订货往往不用MRPII作计划。可以凭业务人员的经验加以控制。由上可以看出库存管理的重要性。因此，库存管理是企业管理的重要组成部分。市场需要库存商品提供给用户，企业的经营需要库存保证各种药品的供应以进行药品的销售，库存对生产效率的提高有着极其重要的影响。因此，库存管理系统是计算机管理系统的中心。因为，所有企业的经营活动都离不开物流的活动。实用文档1.3库存管理的目标库存管理的主要目标就是通过对仓库所有入出库活动的管理和控制及对库存数据有效的统计和分析，以保证企业生产中畅通的物流，使决策人员及早发现问题，采取相

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

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

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

12、应的入库单、领料单、台账、物料卡、报表等资料，这些资料可以用作数据库设计的依据,具体如下：序号1234567提纲零件仓库划分成多少个区域？每个区域有多少个货架？每个货架上分多少层？架子上的每一层有多少个格子？零部件是如何进行物料编码的？仓库管理人员人数有多少？日均处理入库单数量大约有多少？实用文档891011121314151617日均处理出库单数量大约有多少？领料退回的处理方法？是否每天都要登记库存台账？库存台账有多少类型？仓库之间是否可以进行调拨？每次盘点间隔时间多长？如何处理零部件盘亏？如何处理零部件盘盈？是否有零部件物料缺货警戒线？统计报表的种类和填报频率？入库单是入库单位在把相应的零

13、部件送人仓库时必须填写的单据；领料单是领料人员从仓库中领取零部件时必须填写的单据（即出库）；零部件台账（相当于本系统中的操作日志）实际是一个流水账，用于记录每天发生的入库、出库信息；物料卡（在本系统中用现有库存信息来表示）的作用是记录某一种零部件的数量变化，以便库管员盘查；报表是仓库向有关领导和部门定期提交的零部件库存汇总信息。收集到的入库单、领料单、零部件库存台账、零部件物料卡等单据和报表的实物样式在此略去，有兴趣者请参考有关类似企业的样本即可。3.2绘制业务流程图在某公司的调研过程中，已了解到所涉及的业务主要是入库和出库，图3.1是系统入库、出库业务流程图。实用文档采购科车间财务处验收入库

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

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

16、.2确定系统开发环境由于大多数公司内部使用的计算机平台都是基于Windows环境的。为了降低系统成本，应最大程度地利用现有的资源、兼容现有的环境，可确定使用下面的开发环境：网络操作系统：Windows2000；数据库服务器：MicrosoftAccessr2000；实用文档服务器平台：Windows2000；客户机平台：Windows9598NT2000；前端开发工具：visualBasic6.0(企业版)；数据访问对象：ADO（本系统使用ADO控件，简化编程）。3.3.3确定系统的功能模块通过分析确定库存系统将包含6个主要功能模块，即系统模块、入库业务管理模块、出库业务管理模块、退料业务管理

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

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

19、代码标准化，软件统一化，确保软件的可维护性和实用性。界面尽量简单化，做到实用、方便，尽量满足企业中不同层次员工的需要。建立操作日志，系统自动记录所进行的各种操作。4.1.3系统功能分析本系统需要完成的功能主要有以下几点。库存管理的各种信息的输入，包括入库、出库、还库、需求信息的输入等。库存管理的各种信息的查询、修改和维护。设备采购报表的生成。实用文档在材料库存中加入所允许的最大库存合最小库存字段，对所有库存物资实现监控和报警。企业各个部门的物资需求管理。操作日志的管理库存管理系统的使用帮助。4.2详细设计4.2.1系统功能模块设计在系统功能分析的基础上，考虑VB和Access的特点，设计出如图

20、4.1所示的系统功能模块图。库存管理系统系统输入维护查看报表帮助打日入出还需用印志库库库求户图4.1系统功能模块图（1）系统模块a.包括报表的打印及设置，操作日志的管理。b.管理员可以通过管理界面添加或删除用户，添加新管理员或删除原有实用文档管理员,验证用户的合法性，阻止非法用户登录。c.管理员或其他用户可以修改自己的密码。（2）入库模块包括填写入库单，更新，删除入库记录，查看现有库存信息，入库记录的查询及打印（3）出库模块包括填写出库单，更新，删除出库记录，查看现有库存信息，出库记录的查询及打印（4）还库模块包括填写还库单，更新，删除还库记录，还库记录的查询及打印（5）需求模块包括填写需求计

21、划表，更新，删除采购计划信息，查看现有采购信息，采购信息的查询及打印，以及预测短期内的需求计划。库存管理输入处理输出入出还采查统修删报采库库库购寻计改除表购图4.2库存管理HIPO图实用文档4.2.2数据库设计数据库需求分析在仔细调查企业库存物资材料管理过程的基础上，设计出本系统所处理的数据流程图(图4.2)仓库现有库存各部门需求企业总体生产计汇总处理设备采购设备出库设备入库设备还库图4.3库存系统数据流程图通过对企业仓库管理内容和数据流程分析，设计的数据项合数据结构如下：设备代码信息。包括的数据项有设备号、设备名称。现有库存信息。包括的数据项有现有设备、现有数目、最大库存、最小库存等。设备使

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

23、各个实体的E-R图及其关系描述如下：现有库存设备号现有库存最大库存最小库存图4.4库存实体E-R图实用文档入库设备号供应商信采购价格、采购员图4.5入库实体E-R图出库设备号使用部门数量、时经手人图4.6出库实体E-R图部门需求设备号需求数量需求时间实用文档需求部门图4.7部门需求实体E-R图设备还库设备号还库数量经手人还库时间、图4.8库存实体E-R图计划采购设备号库存信息供应信息时间图4.9计划采购实体E-R图实体与实体间的关系E-R图如下所示：入库现有库存出库实用文档还库部门需求设备采购图4.10实体之间关系E-R图数据库逻辑结构设计在上面的实体以及实体之间关系的基础上，形成各个表格之间

24、的关系。库存管理系统数据库中的各个表的设计结果如下面的几个表格所示，每个表格表示数据库中的一个表。表4.1设备代码表字段名称数据类型可否为空说明设备号设备名称文本文本NOTNULLNULL字段大小为6字段大小为20表4.2权限表字段名称用户名密码数据类型文本文本可否为空NULLNULL说明字段大小为10字段大小为15实用文档权限文本NULL字段大小为10表4.3设备入库表字段名称设备号入库时间供应商供应商电话入库数量价格采购员数据类型文本日期/时间文本文本数字数字文本可否为空NOTNULLNULLNULLNULLNULLNULLNULL说明字段大小为6无字段大小为20字段大小为15INTEGE

25、RINTEGER字段大小为10表4.4设备出库表字段名称设备号使用部门出库时间出库状况经手人数据类型文本文本日期/时间文本文本可否为空NOTNULLNULLNULLNULLNULL说明字段大小为6字段大小为20无字段大小为20字段大小为10实用文档出库数量领取人用途数字文本文本NULLNULLNULLINTEGER字段大小为10字段大小为20表4.5现有库存库表字段名称设备号数据类型文本可否为空NOTNULL说明字段大小为6主键现有库存最大库存最小库存文本文本文本NULLNULLNULLINTEGERINTEGERINTEGER表4.6部门需求表字段名称设备号部门名称需要数量需求开始时间需求结

26、束时间数据类型文本文本数字日期/时间日期/时间可否为空NOTNULLNOTNULLNULLNULLNULL说明字段大小为6字段大小为10INTEGER无无实用文档表4.7设备还库表字段名称设备号还库时间仓库管理员归还数量归还人数据类型文本日期/时间文本数字文本可否为空NOTNULLNULLNULLNULLNULL说明字段大小为6无字段大小为10INTEGER字段大小为10表4.8操作日志表字段名称操作员操作内容操作时间数据类型文本文本日期/时间可否为空NOTNULLNOTNULLNOTNULL说明字段大小为10字段大小为100无表4.9设备采购计划表字段名称设备号现有库存总库存数据类型文本数字

27、数字可否为空NOTNULLNULLNULL说明字段大小为6主键INTEGERINTEGER实用文档最大库存购买数量供应商价格计划采购时间数字数字文本数字日期/时间NULLNULLNULLNULLNULLINTEGERINTEGER字段大小为10INTEGER无4.3代码设计任何库存均可分为如下三类：类物品：高值价值占库存总值-的相对少数物品。通常为物品的-。类物品：中值总值占库存总值的-。物品数居中，通常占物品的-。类物品：低值库存总值几乎可以忽略不计，只占-。是物品的大多数，通常占-。因此设计编码如下：设备号或零件号自定义自定义实用文档自定义例如设备号或零件号A0102A类消耗性物资常用零件

28、44输入输出设计本系统界面标准Windows形式，键盘输入(也可以用条形码读取)，人机交互，容易使用。输入输出的设计考虑美观实用和通俗易懂，图文并茂。45系统安全性设计系统数据库中包含多个二维表，所以在系统与数据库的连接上，并没有把数据库和系统的连接直接写入代码，而是通过对服务器端进行系统设置，使数据库名及路径不可见，并通过ACCESS的数据库安全设置，保证了数据库的安全性。系统根据用户身份不同赋予不同权限，用户用密码登陆，同样也保证了系统数据的安全性。第五章系统实施实用文档51、开发工具简介本系统的前端开发工具，我选择了VisualBasic6.0，后台数据库采用Access2000。5.1

29、.1VB简介Visual意为“可视化的”，指的是一种开发图形用户界面的方法，所以VisualBasic是基于Basic的可视化的程序设计语言。在VisualBasic中，一方面继承了Basic所具有的程序设计语言简单易用的特点，另一方面在其编程系统中采用了面向对象、事件驱动的编程机制，用一种巧妙的方法把Windows的编程复杂性封装起来，提供了一种所见即所得的可视化程序设计方法。5.1.2VB功能特点具有面向对象的可视化设计工具在VB中，应用面向对象的程序设计方法（OOP），把程序和数据封装起来视为一个对象，每个对象都是可视的。程序员在设计时只需用现有工具根据界面设计要求，直接在屏幕上“画”出

30、窗口、菜单、按钮、滚动条等不同类型的对象，并为每个对象设置属性。程序员的编程工作仅限于编写相关对象要完成的功能程序，因而程序设计的效率可大大提高。事件驱动的编程机制事件驱动是非常适合图形用户界面的编程方式。在图形用户界面的应用程序中，是由用户的动作即事件掌握着程序运行的流向，每个事件都能驱动实用文档一段程序的运行。程序员只要编写响应用户动作的代码，而各个动作之间不一定有联系。提供了易学易用的应用程序集成开发环境在VB集成开发环境中，用户可设计界面、编写代码、调试程序，直至把应用程序编译成可执行文件在Windows中运行，使用户在友好的开发环境中工作。结构化的程序设计语言VB具有丰富的数据类型和

31、结构化程序结构，作为一种程序设计语言，它还有如下一些特点：强大的数值和字符串处理功能丰富的图形指令，可方便地绘制各种图形提供静态和动态数组，有利于简化内存的管理过程可递归调用，使程序更为简练支持随机文件和顺序文件的访问提供了一个可供应用程序调用的包含多种类型的图标库具有完善的运行出错处理支持多种数据库系统的访问利用数据控件可访问的数据库系统有：MicrosoftAccess、Btrieve、实用文档DBASE、MicrosfotFoxPro和Paradox等，也可以访问MicrosoftExcel、Lotus1-2-3等多种电子表格。支持动态数据交换（DDE）、动态链接库（DLL）和对象的链接

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

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

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

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

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

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

38、icatinns（VBA）过程，来响应大量的事件。Access2000为我们提供了强大的（同时也是相当方便的向导）来建立标准的Windows窗体。报表为格式化、计算、打印选定资料而设计的对象。它是衡量一个优秀的数据库的重要标准（有时甚至是唯一的标准）。宏为了响应已定义的事件，需要让Access去执行一个或多个操作，而宏就是对这些操作的结构化的定义对象。它可以让你像堆积木一样建立一个功能强大的程序，而无须写大量的代码。模块包括用VBA编码的定制过程的一个对象。模块提供了独立的动作流以捕获错误，而宏做不到。模块能直接响应窗体或报表事件，也可以从应用程序的任何地方被调用。5.1.5本系统中VB与Ac

39、cess2000的连接实用文档Access20Microsoft.Jet.OLEDB.4.0VB应用程序52系统实现5.2.1.系统管理模块实现系统管理菜单修改用户密码程序PrivateSubCommand1_Click()Adodc1.RecordSource=frmLogin.Adodc1.RecordSourceAdodc1.RefreshSetText4.DataSource=Adodc1Text4.DataField=密码IfText1=ThenMsgBox请输入原密码！,修改密码ExitSubElseIfText1.TextAdodc1.Recordset.Fields(密码)Th

40、enMsgBox原密码错误！,修改密码实用文档ExitSubElseIfText2=OrText3=ThenMsgBox请输入新密码！,修改密码ExitSubElseIfText2Text3ThenMsgBox密码不一致！,修改密码ExitSubElseText4.Text=Text2.TextAdodc1.Recordset.MoveFirstMsgBox密码修改成功！,修改密码UnloadMeEndIfEndSub5.2.2用户管理界面（程序略）5.2.3入库模块的实现实用文档PrivateSubCommand1_Click()设备入库程序DimI,JAsIntegerDimSTRAsSt

41、ringIfText1.Text=OrText2=OrCombo1.Text=OrText4=OrText5=OrText6=OrText7=ThenMsgBox请输入完整信息！ExitSubElse将记录存入入库记录表设备入库表.datPrimaryRS.Recordset.Fields(设备号)=Text1.Text实用文档设备入库表.datPrimaryRS.Recordset.Fields(入库数量)=Text2.Text设备入库表.datPrimaryRS.Recordset.Fields(入库时间)=Combo1.Text设备入库表.datPrimaryRS.Recordset.F

42、ields(供应商)=Text4.Text设备入库表.datPrimaryRS.Recordset.Fields(供应商电话)=Text5.Text设备入库表.datPrimaryRS.Recordset.Fields(价格)=Text6.Text设备入库表.datPrimaryRS.Recordset.Fields(采购员)=Text7.TextMsgBox已经成功入库！EndIf设备入库表.Adodc1.RecordSource=select*from现有库存表where设备号=&Text1.Text&设备入库表.Adodc1.Refresh设备入库表.DataGrid1.RefreshI

43、f设备入库表.Adodc1.Recordset.RecordCount0Then实用文档将记录加入现有库存表中设备入库表.Text9.Text=CInt(设备入库表.Text9.Text)+CInt(Text2.Text)设备入库表.Text9.RefreshJ=设备入库表.Text9设备入库表.Adodc1.Recordset.MoveFirst设备入库表.Adodc1.Recordset.Fields.Refresh设备入库表.DataGrid1.RefreshMsgBox现有库存量为：&JElseSTR=现有库存表中无此设备！&vbCrLf&请在设备代码表和现有库存表中手动添加记录！Ms

44、gBoxSTRLoadfrm现有库存表frm现有库存表.ShowCallfrm现有库存表.Command1_ClickFrmAddNewEqu.Text1.Text=frmInput.Text1.TextFrmAddNewEqu.Text2.Text=frmInput.Text2.Text实用文档Loadfrm设备代码表frm设备代码表.ShowEndIfEndSubPrivateSubcmdDelete_Click()删除入库表中记录OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox(删除,vbYesNo,删除记录)IfYesNo=vbYesTh

45、enWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithElseExitSubEndIfDeleteErr:实用文档MsgBoxErr.DescriptionEndSubPrivateSubcmdUpdate_Click()更新纪录程序OnErrorGoToUpdateErrdatPrimaryRS.Recordset.UpdateBatchadAffectAllExitSubUpdateErr:MsgBoxErr.DescriptionEndSub5.2.4出库模块实现实用文档PrivateSubComman

46、d1_Click()设备出库程序Dimi,J,kAsIntegerDimSTRAsStringfrm设备出库表.Adodc1.RecordSource=select*from现有库存表where设备号=&Text1.Text&frm设备出库表.Adodc1.Refreshfrm设备出库表.DataGrid1.RefreshIfIsNumeric(Text2)=FalseThenMsgBox数量必须是数字！ExitSubEndIfIfText1.Text=OrText2=OrCombo1.Text=OrText4=OrText5=OrText6=OrText7=ThenMsgBox请输入完整信息

47、！ExitSub实用文档ElseIffrm设备出库表.Adodc1.Recordset.RecordCount0Thenk=CInt(frm设备出库表.Text9.Text)-CInt(Text2.Text)Ifk=0Thenfrm设备出库表.Text9.Text=CInt(frm设备出库表.Text9.Text)-CInt(Text2.Text)frm设备出库表.Text9.RefreshJ=frm设备出库表.Text9frm设备出库表.Adodc1.Recordset.MoveFirstfrm设备出库表.Adodc1.Recordset.Fields.Refreshfrm设备出库表.Dat

48、aGrid1.RefreshMsgBox现有库存量为：&JElseMsgBox现有库存量不足！请输入合适数量！ExitSubEndIf实用文档ElseSTR=现有库存表中无此设备！请检查输入是否正确！MsgBoxSTREndIfEndSubPrivateSubcmdDelete_Click()删除出库记录OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox(删除,vbYesNo,删除记录)IfYesNo=vbYesThenWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndW

49、ithElseExitSubEndIf实用文档DeleteErr:MsgBoxErr.DescriptionEndSub更新记录程序同入库的更新程序相同，在此略5.2.5设备采购模块实现，程序略5.2.6现有模块实现，程序略5.2.7设备代码模块实现主要程序PrivateSubcmdAdd_Click()添加设备实用文档OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewExitSubAddErr:MsgBoxErr.DescriptionEndSub5.2.8库存报警模块实现主要程序PrivateSubCommand1_Click()显示高于最大警戒库存的设备datPrimaryRS.RecordSource=select*from现有库存表where现有库存最大