仓库管理系统分析与设计

××××学院课程设计报告课程名称：学院：专业班级：姓名：学号：指导教师:完成时刻：报告成绩:评阅意见：评阅意见：评阅教师日期仓库治理系统设计 目

录前言第一章系统需求分析1、现行系统存在问题的分析2、解决方案3、可行性分析4、绘制业务流程图第二章系统分析与设计1、现系统中存在的问题2、新系统的目标3、系统功能模块设计4、应用需求分析5、系统数据库设计第三章系统开发背景1、计算机仓库治理的意义

2、为今后企业上网做好预备

3、通用仓库治理的设计分析4、数据库需求分析第四章通用仓库治理系统实现的环境

1、开发工具的选择

2、Access2000数据库简介

3、二者的结合（DBA）第五章系统总体规划

系统功能第六章系统设计各功能模块结构与实现系统要紧界面的实现系统使用讲明第七章结束语参考文献前言伴随着企业规模的不断扩大,原始的、手工的进行治理工作差不多不能适应工业企业进展的现状，更无法满足企业对治理工作的快速、准确的要求。而计算机信息治理技术的迅速进展恰恰解决了那个问题，它使计算机技术与现代的治理技术相互配合，来更加准确、高速的完成工业企业日常的仓库治理工作。使企业能够以最少的人员来完成更多的工作。仓库治理信息系统要紧采纳MicrosoftVisual6.0

做为开发工具，应用面向对象的程序设计方法，进行开发与设计的。它是一个典型的信息治理系统。本系统能够依照各应用单位情况，适当加以修改，以便更好应用。VisualBasic是近几年来在国内外得到迅速推广应用的可视化程序实现语言，具有简单易学、功能强大、软件费用支出低、见效快等特点。它提供了开发Windows应用程序最迅速、最简捷的方法，不然而专业人员得心应手的开发工具，而且易于被非专业人员掌握。仓库治理信息系统是依照某企业所属仓库的实际治理情况进行编写的，要紧目的是为了方便企业对仓库来往业务及仓库情况进行集中的查询与治理工作。在社会主义经济高速进展的今天，假如企业对仓库的各项治理运做仍然停滞在以纸、笔为要紧工具的时期，就会因为信息量的快速增长而无法迅速、准确的完成各项治理工作，如此，必将成为企业各方面进展的一个瓶颈。而在当代那个以信息时代为主题的社会里，将信息技术应用于对现代企业的治理，不但能够提高信息的处理速度和提高信息处理的准确性，更重要的是，能够解放劳动力，将他们分配到更需要人力资源的岗位上去，从而加快其现代化、综合化的建设步伐。如此，不但为企业治理部门节约了不必要的开支，更重要的是提高了它的工作效率。第一章系统需求分析1、现行系统存在问题的分析现在多数企业的仓库治理工作大部分依旧进行着手工治理，工作起来效率专门低，同时不能及时了解仓库容量，需求的仓库信息等等，不便于动态及时地调整仓库结构，以便更好地适应当前学生的借阅需求。手工治理还存在这许多弊端，由于不可幸免的人为因素，经常造成数据的遗漏、误报。计算机信息化治理有着储存信息量大、速度快等许多优点，提供给我们的处理信息及时快捷，同时也提高了我们工作人员的自身素养。2、解决方案基于以上的对问题的分析，利用计算机给我们提供信息，及时地调整仓库结构，同时对仓库过程形成一整套动态的治理就十分必要了。通用仓库系统的建立，需要进行用户的需求调查与分析，以确定系统目标，提出解决问题的详细方案，这是系统建设的重要环节。企业仓库规模要有着完善的仓库信息，对入库每一件物品要有详细的记录信息，功能上对系统的需求是全面的。因此对用户的需求可分为四个方面：一方面是工作人员通过计算机来治理仓库信息，分类编号，调整仓库结构，增加仓库，适应工作人员的需求；二方面是工作人员能通过计算机来查询仓库中的物品，来确定自已需要的出库的相就物品，为出库做好预备；三方面是工作人员对仓库中得到每个物品相关记录；四方面也是仓库的核心工作，对入库物品治理。这四个方面形成了仓库的一个工作整体，采纳计算机自动化信息处理，可方便快捷地共享信息、交流信息，高效地协同工作。在软、硬件方面对系统的需求，软件要求易学，界面友好，容易掌握，能够专门简单方便的治理各种仓库信息。硬件的配置要求不能太高，如此能够专门好的适应当前的企业以及各个单位的仓库需要。在开发方式上对系统的需求，系统设计开发的周期要短，在短时刻内完成，减少开发成本，提高开发效率，方便、简单、有用作为系统开发的指导思想。3、可行性分析通过对仓库治理各个方面进行了具体的了解之后，现对通用仓库治理系统的可行性进行分析。技术上可行：该系统所需硬件设备，市场上销售且价格较低，甚至能够使用原有的设备，软件上，操作系统采纳Windows系列操作系统，数据库治理系统采纳VisualBasic，这些软件在MIS开发中已被大量应用，技术上都比较成熟。因此在技术上是可行的。经济上可行：由于各个急需采纳计算机来进行仓库的治理，因此对开发通用仓库系统大力支持，开发经费没有问题。治理上可行：通用仓库治理有专门多的治理体制，每位入库物品都要有相应的记录，出库进也要对相应入库的物品进入删减，同时入和出库必须对每个物品的相应数量和单价进入录入。因此治理上可行。另外，仓库治理对开发该系统也是大力支持的，同时制定了培训打算，并进行了实施MIS的物质预备和工作预备。4、绘制业务流程图财务处采购科车间验收财务处供应科缺件单领料单入库单报表库存台帐登帐入库处出库处统计盘点在某公司的调研过程中，已了解到所涉及的业务要紧是入库和出库，下图是系统入库、出库业务流程图。财务处采购科车间验收财务处供应科缺件单领料单入库单报表库存台帐登帐入库处出库处统计盘点财务处财务处退货退货不合格领料入合库格库存治理系统业务流程图业务流程图讲明外部环境处理过程决策过程数据存档数据流向业务流程图符号讲明第二章系统分析与设计1、现系统中存在的问题现行的通用仓库治理系统只是单一治理系统，现已不能满足快速准确的通用仓库治理需要。系统输入繁琐，极易产生输入错误，缺少智能化输入功能，如：产品名称输入过程中，产品名称和产品代码不能够相互协调，易产生不匹配现象。另外，整个系统运行较慢，数据处理能力不够，进行一个查询往往需要等待专门长时刻。该系统还缺少通用仓库治理理功能，图书组成条目差不多上通过手工计算的，工作量专门大，且容易产生错误，有一个小错误，核对都需要花费专门大的精力，换句话讲，当前没有通用仓库治理系统。原通用仓库治理系统用basic开发，为单机版，不能实现网络共享，使用是单位内部之间进行信息传递成为专门棘手的问题原。系统已不能满足多个人员对数据的索取；如副科长治理计算机，则科长就不能在自己的办公室中查看资料。可见当前系统已不能适应以后治理信息系统进展的趋势，慢慢的将要被淘汰，一个新兴的治理信息系统是当前的迫切需求。2、新系统的目标按照治理信息系统的原理和生命周期开发方法，采纳成熟的信息技术和手段，建设成一个集通用仓库治理、产品准确录入于一体的高效治理信息系统。该系统能高速、快捷、智能化的治理全过程，并加强通用仓库治理中的各种信息资源的治理与应用，提高入库和出库产品查找与查询的处理速度，进而提高企业的整体治理水平。3系统功能模块设计在系统功能分析的基础上，考虑VB和Access的特点，设计出如下图所示的系统功能模块图。需求模块还库模块出库模块入库模块日志治理打印设置关心模块报表模块查看模块维护模块输入模块系统模块库存管理系统需求模块还库模块出库模块入库模块日志治理打印设置关心模块报表模块查看模块维护模块输入模块系统模块库存管理系统用户治理用户治理系统功能模块图（1）系统模块a、包括报表的打印及设置，操作日志的治理。b、治理员能够通过治理界面添加或删除用户，添加新治理员或删除原有治理员,验证用户的合法性，阻止非法用户登录。c、治理员或其他用户能够修改自己的密码。(2)入库模块 包括填写入库单，更新，删除入库记录，查看现有库存信息，入库记录的查询及打印(1)出库模块 包括填写出库单，更新，删除出库记录，查看现有库存信息，出库记录的查询及打印(2)还库模块 包括填写还库单，更新，删除还库记录，还库记录的查询及打印(3)需求模块 包括填写需求打算表，更新，删除采购打算信息，查看现有采购信息，采购信息的查询及打印，以及预测短期内的需求打算。库存治理库存治理处理输出输入处理输出输入采购单报表删除修改统计查寻入库单出库单还库单采购打算采购单报表删除修改统计查寻入库单出库单还库单采购打算库存治理HIPO图4、应用需求分析仓库治理可直接查看产品的仓库情况，假如其它人员想要进行查询和查看时，必须得由仓库治理人员提供密码或者自己明白用户名和密码，从而增加了系统的安全性，这些是专门难得到的，特不是密码，因此不但满足了仓库治理者治理仓库中产品的相应信息起到了作用，而且也使得不的用户无法进行相应的操作，仓库治理人员输入的信息量大，数据安全性和保密性要求最高。本功能实现对产品信息、入库信息、出库信息等情况治理和统计。不是仓库治理人员的话也能够能通过扫瞄、查询、来查看入库和出库的差不多信息；（1）依照入库和出库情况对数据库进行操作并生成报表（2）查询及统计各种信息（3）维护仓库中各个产品的相关信息（4）处理信息的完整性5、系统数据库设计在概念设计时期中，设计人员从用户的角度看待数据及处理要求和约束，产生一个反映用户观点的概念模式。然后再把概念模式转换成逻辑模式。将概念设计从设计过程中独立开来，使各时期的任务相对单一化，设计复杂程度大大降低，不受特定DBMS的限制。利用ER方法进行数据库的概念设计，可分成三步进行：首先设计局部ER模式，然后把各局部ER模式综合成一个全局模式，最后对全局ER模式进行优化，得到最终的模式，即概念模式。第三章．什么缘故要开发一个通用仓库治理系统？今天，计算机的价格差不多十分低廉，性能却有了长足的进步。它差不多被应用于许多领域，计算机之因此如此流行的缘故要紧有以下几个方面：首先，计算机能够代替人工进行许多繁杂的劳动；其次，计算机能够节约许多资源；第三，计算机能够大大的提高人们的工作效率；第四，计算机能够使敏感文档更加安全，等等。1、用计算机治理仓库的意义现在我国的各个单位仓库的治理水平还停留在纸介质的基础上，如此的机制差不多不能适应时代的进展，因为它白费了许多人力和物力，在信息时代这种传统的治理方法必定被计算机为基础的信息治理所取代。我作为一个计算机应用的本科生，希望能够在这方面有所贡献。改革的总设计师邓小平同志讲过“科学技术是第一生产力”，我希望能用我四年的所学编制出一个有用的程序来关心各个单位进行更有效的仓库治理。归纳起来，好处大约有以下几点：（1）能够存储最新的入库和出库产品，安全、高效；（2）只需一到二名仓库治理人员即可操作系统，节约大量人力；（3）能够迅速查到所需信息。2、为今后企业上网做好预备跟据1999年中国电信的调查报告显示我国的上网人数已达到890万，互联网差不多十分普及，各个单位也希望能在世界的任何一个角落查到自己单位的信息，本系统为各个企业今后的上网作了先期工作，比如数据库的建立。3、仓库治理的设计分析依照实际情况，我们使用原型法（RapidPrototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员能够较快地确定需求，然后采纳循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。现在模块也进展成为最终产品了。4、数据库需求分析在认真调查企业库存物资材料治理过程的基础上，设计出本系统所处理的数据流程图。汇总处理企业总体生产打算设备还库设备出库设备入库设备采购各部门需求仓库现有库存汇总处理企业总体生产打算设备还库设备出库设备入库设备采购各部门需求仓库现有库存库存系统数据流程图第四章如何样开发一个通用仓库治理系统？1、开发工具的选择现在，市场上能够选购的应用开发产品专门多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的VisualBasic.Microsoft公司的VisualC.Borland公司的Delphi.Powersoft公司的PowerBulider在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多专门化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，假如只强调程语言的弹性，却没有便利的工具作配合，会使一些即使特不简单的界面处理动作，也会严峻地白费程序设计师的宝贵时刻。作为数据库系统的开发，VisualBasic是一个特不理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库治理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言VisualBasic语言，该开发工具具有专门多长处：VisualBasic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，能够与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，能够高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来讲，VisualBasic具有以下特点：◆可视化编程：用传统程序设计语言设计程序时，差不多上通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观看。假如对界面的效果不中意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大阻碍了软件开发效率。VisualBasic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。VisualBasic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而能够大大提高程序设计的效率。◆面向对象的程序设计：4.0版以后的VisualBasic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而VisualBasic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象给予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，VisualBasic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，差不多上可视的。◆结构化程序设计语言：VisualBasic是在BASIC语言的基础上进展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。VisualBasic语句简单易明白，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。VisualBasic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机能够识不的机器指令，并推断每个语句的语法错误。在设计VisualBasic程序的过程中，随时能够运行程序，而在整个程序设计好之后，能够编译生成可执行文件(.EXE)，脱离VisualBasic环境，直接在Windows环境下运行。◆事件驱动的编程机制：事件驱动是特不适合图形用户界面的编程方式。在图形用户界面的应用程序中，是由用户的动作即事件掌握着程序运行的流向，每个事件都能驱动一段程序的运行。程序员只要编写响应用户动作的代码，而各个动作之间不一定有联系。VisualBasic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都能够通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用VisualBasic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分不面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，如此能够方便编程人员，提高效率。◆提供了易学易用的应用程序集成开发环境：在VB集成开发环境中，用户可设计界面、编写代码、调试程序，直至把应用程序编译成可执行文件在Windows中运行，使用户在友好的开发环境中工作。◆结构化的程序设计语言：VB具有丰富的数据类型和结构化程序结构，作为一种程序设计语言，它还有如下一些特点：强大的数值和字符串处理功能丰富的图形指令，可方便地绘制各种图形提供静态和动态数组，有利于简化内存的治理过程可递归调用，使程序更为简练支持随机文件和顺序文件的访问提供了一个可供应用程序调用的包含多种类型的图标库具有完善的运行出错处理◆支持多种数据库系统的访问：VisualBasic具有强大的数据库治理功能，利用数据控件和数据库治理窗口，能够直接建立或处理MicrosoftAccess格式的数据库，并提供了强大的数据存储和检索功能。同时，VisualBasic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都能够用VisualBasic编辑和处理。VisualBasic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQLServer，Oracle等。在应用程序中，能够使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。◆支持动态数据交换（DDE）、动态链接库（DLL）和对象的链接与嵌入（OLE）技术：（1）动态数据交换(DDE)利用动态数据交换(DynamicDataExchange)技术，能够把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，能够自动更新链接的数据。VisualBasic提供了动态数据交换的编程技术，能够在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。（2）对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而能够得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，能够方便地建立复合式文档(compounddocument)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。（3）动态链接库(DLL)VisualBasic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它能够通过动态链接库技术将C/C++或汇编语言编写的程序加入到VisualBasic应用程序中，能够像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还能够调用Windows应用程序接口(API)函数，实现SDK所具有的功能。◆完备的HELP联机关心功能：与Windows环境下的软件一样，在VB中，利用关心菜单和F1功能键，用户能够随时方便地得到所需要的关心信息。VB关心窗口中显示了有关的示例代码，通过复制、粘贴操作可猎取大量的示例代码，为用户的学习和使用提供了极大的方便。VB程序设计的概念确实是面向对象的概念，对象确实是数据（DATA）和代码（CODE）互相结合的综合体。Windows上面的每一个图标，包括窗口本身差不多上对象，假如没有任何情况发生，对象处于停顿状态。当存在外来事件时，程序段执行，它的执行是由外来事件决定的。因此是“事件”驱动的。编写VB程序较为简单，首先将各个对象放在空白窗体上，然后将程序代码分不添加给对象或图标，将它们组合起来就能够随意运行了。在VB中，窗体实际上是一个对象，VB的窗体含有许多内嵌特性，这使得用户界面部分的建立像是从一个目录中选择一个个合适的控件，而不是从零开始一步一步地建立控件。这种开发者能亲眼看到的程序设计过程确实是“可视化程序设计”（VisualProgramming）VB中的差不多概念：对象：面向对象编程（OOP）的提法大伙儿一定也专门耳熟，尽管VisualBasic并不是完全的面向对象编程，但也利用了对象编程技术。对象简单地讲确实是大伙儿经常看到的各种窗口、按钮、文本框甚至打印机等。

属性：如同电视有黑白、彩色之分一样，作为对象的Windows中的窗口也是有大有小，文本框的位置不可能完全一样，菜单要显示出不同的功能，这些差不多上由对象的属性决定的。不同对象的属性可能不同。属性一般决定了对象的位置、大小、显示等情况。

方法：确实是对象能够做的事，如打印机对象就有打印（Print）方法、窗口对象支持隐藏（Hide）方法、专门多对象支持移动（Move）方法等。

事件：确实是对象对用户各种操作的反映情况。如用户用鼠标按一下按钮，就会触发按钮的“按”（Click）事件。

控件：控件确实是VisualBasic提供的编程用的模块，与对象有直接的联系，如同积木的木块，使用如此的控件，就能够像拼图或堆积木一样“搭”、“拼”你的程序界面。VisualBasic中使用控件，简化了Windows中的窗口、按钮等对象的编程设计。每个控件都有各自的属性、事件及方法。只需修改这些特征你就能够为所欲为地编程了。最重要的是，你能够利用成千上万的各种扩充的控件来快速构造几乎能满足你任何要求的程序。例如，假如你不中意Windows简陋的媒体播放器，你就能够使用VB的多媒体控件在1小时以内设计一个完全自己风格的能够播放CD、VCD的多媒体播放器，而功能完全与之相当。2、Access2000数据库简介：作为Microsoft的office套件产品之一,access差不多成为世界上最流行的桌面数据库系统。Access与许多优秀的关系数据库一样，能够让你专门容易地连接相关的信息而且还对其他的数据库系统有所补充。它能操作其它来源的资料，包括许多流行的PC数据库程序（如dBASE，Paradox，MicrosoftFoxPro）和服务器、小型机及大型机上的许多SQL数据库。Access还完全支持Microsoft的OLE技术。Access还提供windows操作系统的高级应用程序开发系统。Access与其它数据库开发系统之间相当显著的区不确实是：您不用写一行代码，就能够在专门短的时刻里开发出一个功能强大而且相当专业的数据库应用程序，同时这一愉快的过程是完全可视的！假如您能给它加上简短的VBA代码，那么您的程序决不比专业程序员潜心开发的程序差。Access的总体结构：Access将所有有名字的东西都成为对象（object），在Access2000中，最重要的对象有表，查询，窗体，报表，宏和模块。表用户定义的存储资料的对象。每一个表都包含有关某个主体的信息。表包括存储不同种类资料的字段（列），而记录（行）则收集特定主体实例的所有信息。查询为来自一个或多个表的资料提供定制视图的对象。在Access中，能够利用图形化的实例查询机制（QBE）或通过SQL语句来建立查询。你能够在查询中选择、更新、插入或删除资料，也能够用查询来建立新表。窗体窗体是要紧的人机接口。大量的操作（几乎所有）都要通过窗体完成。窗体通过运行宏（macro）或VisualBasicforApplicatinns（VBA）过程，来响应大量的事件。Access2000为我们提供了强大的（同时也是相当方便的向导）来建立标准的Windows窗体。报表为格式化、计算、打印选定资料而设计的对象。它是衡量一个优秀的数据库的重要标准（有时甚至是唯一的标准）。宏为了响应已定义的事件，需要让Access去执行一个或多个操作，而宏确实是对这些操作的结构化的定义对象。它能够让你像堆积木一样建立一个功能强大的程序，而无须写大量的代码。模块包括用VBA编码的定制过程的一个对象。模块提供了独立的动作流以捕获错误，而宏做不到。模块能直接响应窗体或报表事件，也能够从应用程序的任何地点被调用。■数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库确实是信息的集合。计算机的数据库能够分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。■新建一个数据库创建任何一个数据库的第一步是认确实规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。（1）标识需要的数据；（2）收集被标识的字段到表中；（3）标识主关键字字段；（4）绘制一个简单的数据图表；（5）规范数据；（6）标识指定字段的信息；（7）创建物理表。■修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由VisualBasic创建的程序来完成，下面的章节将详细描述实现的具体方法。■实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中猎取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。3、二者的结合（DBA）微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及VisualBasic来访问数据库并对其进行各种操作。VisualBasic、Access以及其他微软的软件产品差不多上通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA控件在数据库中的信息与将信息显示给用户看的VisualBasic程序之间架起了一座桥梁。我们能够设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件依照数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来扫瞄不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系Access2000数据库 本系统中VB与AccessAccess2000数据库VB应用程序VB应用程序第五章

系统总体规划系统功能（1）基础资料设置；（2）单据处理；（3）统计查询；（4）系统维护；（5）报表输出；（6）退出系统。第六章系统设计各功能模块结构与实现系统要紧界面的实现1、系统治理模块实现 系统治理菜单 修改用户密码程序PrivateSubCommand1_Click()Adodc1.RecordSource=frmLogin.Adodc1.RecordSourceAdodc1.RefreshSetText4.DataSource=Adodc1Text4.DataField="密码"IfText1=""ThenMsgBox"请输入原密码！",,"修改密码"ExitSubElseIfText1.Text<>Adodc1.Recordset.Fields("密码")ThenMsgBox"原密码错误！",,"修改密码"ExitSubElseIfText2=""OrText3=""ThenMsgBox"请输入新密码！！",,"修改密码"ExitSubElseIfText2<>Text3ThenMsgBox"密码不一致！！",,"修改密码"ExitSubElseText4.Text=Text2.TextAdodc1.Recordset.MoveFirstMsgBox"密码修改成功！！",,"修改密码"UnloadMeEndIfEndSub2、用户治理界面（程序略）3、入库模块的实现 PrivateSubCommand1_Click()设备入库程序DimI,JAsIntegerDimSTRAsStringIfText1.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.Fields("供应商")=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.RefreshIf设备入库表.Adodc1.Recordset.RecordCount>0Then 将记录加入现有库存表中设备入库表.Text9.Text=CInt(设备入库表.Text9.Text)+CInt(Text2.Text)设备入库表.Text9.RefreshJ=设备入库表.Text9设备入库表.Adodc1.Recordset.MoveFirst设备入库表.Adodc1.Recordset.Fields.Refresh设备入库表.DataGrid1.RefreshMsgBox"现有库存量为："&JElseSTR="现有库存表中无此设备！"&vbCrLf&"请在设备代码表和现有库存表中手动添加记录！！"MsgBoxSTRLoadfrm现有库存表frm现有库存表.ShowCallfrm现有库存表.Command1_ClickFrmAddNewEqu.Text1.Text=frmInput.Text1.TextFrmAddNewEqu.Text2.Text=frmInput.Text2.TextLoadfrm设备代码表frm设备代码表.ShowEndIfEndSubPrivateSubcmdDelete_Click()删除入库表中记录OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox("删除",vbYesNo,"删除记录")IfYesNo=vbYesThenWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithElseExitSubEndIfDeleteErr:MsgBoxErr.DescriptionEndSubPrivateSubcmdUpdate_Click()更新纪录程序OnErrorGoToUpdateErrdatPrimaryRS.Recordset.UpdateBatchadAffectAllExitSubUpdateErr:MsgBoxErr.DescriptionEndSub4、 出库模块实现PrivateSubCommand1_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"请输入完整信息！"ExitSubElseIffrm设备出库表.Adodc1.Recordset.RecordCount<=0ThenSTR="现有库存表中无此设备！请检查输入是否正确！！"MsgBoxSTRExitSubElsefrm设备出库表.datPrimaryRS.Recordset.Fields("设备号")=Text1.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("出库数量")=Text2.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("出库时刻")=Combo1.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("经手人")=Text4.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("领取人")=Text5.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("使用部门")=Text6.Textfrm设备出库表.datPrimaryRS.Recordset.Fields("用途")=Text7.TextMsgBox"差不多成功存入设备出库表库！"EndIfIffrm设备出库表.Adodc1.Recordset.RecordCount>0Thenk=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设备出库表.DataGrid1.RefreshMsgBox"现有库存量为："&JElseMsgBox"现有库存量不足！请输入合适数量！！"ExitSubEndIfElseSTR="现有库存表中无此设备！请检查输入是否正确！！"MsgBoxSTREndIfEndSubPrivateSubcmdDelete_Click()删除出库记录OnErrorGoToDeleteErrDimYesNoAsStringYesNo=MsgBox("删除",vbYesNo,"删除记录")IfYesNo=vbYesThenWithdatPrimaryRS.Recordset.Delete.MoveNextIf.EOFThen.MoveLastEndWithElseExitSubEndIfDeleteErr:MsgBoxErr.DescriptionEndSub更新记录程序同入库的更新程序相同，在此略5、设备采购模块实现，程序略6、现有模块实现，程序略7、设备代码模块实现要紧程序PrivateSubcmdAdd_Click()添加设备OnErrorGoToAddErrdatPrimaryRS.Recordset.AddNewExitSubAddErr:MsgBoxErr.DescriptionEndSub8、库存报警模块实现要紧程序PrivateSubCommand1_Click()显示高于最大警戒库存的设备datPrimaryRS.RecordSource="select*from现有库存表where现有库存>最大库存"datPrimaryRS.RefreshgrdDataGrid.RefreshIfdatPrimaryRS.Recordset.RecordCount>0ThenBeepMsgBox"表中设备已过量！"ElseMsgBox"没有设备库存过量！"EndIfEndSubPrivateSubCommand2_Click()显示低于于最小警戒库存的设备datPrimaryRS.RecordSource="select*from现有库存表where现有库存<最小库存"datPrimaryRS.RefreshgrdDataGrid.RefreshIfdatPrimaryRS.Recordset.RecordCount>0ThenBeepMsgBox"表中设备库存量已过警戒线！请采购！！"ElseMsgBox"没有设备库存量过少！" EndIf EndsubPrivateSubTimer1_Timer()自动报警程序frmAlarm.da