仓库管理系统分析与设计1

学院课程设计报告 课程名称： 学 院： 专业班级： 姓 名： 学 号： 指导教师: 完成时间： 报告成绩: 评阅意见： 评阅教师 日期 仓库管理系统设计目 录前言第一章 系统需求分析1、现行系统存在问题的分析2、解决方案3、可行性分析4、绘制业务流程图第二章 系统分析与设计1、现系统中存在的问题2、新系统的目标3、系统功能模块设计4、应用需求分析5、系统数据库设计第三章 系统开发背景1、计算机仓库管理的意义2、为将来企业上网做好准备3、通用仓库管理的设计分析4、数据库需求分析第四章 通用仓库管理系统实现的环境1、开发工具的选择2、Access2000数据库简介3、 二者的结合（DBA）第五章 系统总体规划系统功能第六章 系统设计各功能模块结构与实现系统主要界面的实现系统使用说明第七章 结束语参考文献前言伴随着企业规模的不断扩大,原始的、手工的进行管理工作已经不能适应工业企业发展的现状，更无法满足企业对管理工作的快速、准确的要求。而计算机信息管理技术的迅速发展恰恰解决了这个问题，它使计算机技术与现代的管理技术相互配合，来更加准确、高速的完成工业企业日常的仓库管理工作。使企业能够以最少的人员来完成更多的工作。仓库管理信息系统主要采用Microsoft Visual6.0 做为开发工具，应用面向对象的程序设计方法，进行开发与设计的。 它是一个典型的信息管理系统。本系统可以根据各应用单位情况，适当加以修改，以便更好应用。Visual Basic 是近几年来在国内外得到迅速推广应用的可视化程序实现语言，具有简单易学、功能强大、软件费用支出低、见效快等特点。它提供了开发Windows应用程序最迅速、最简捷的方法，不但是专业人员得心应手的开发工具，而且易于被非专业人员掌握。仓库管理信息系统是根据某企业所属仓库的实际管理情况进行编写的，主要目的是为了方便企业对仓库来往业务及仓库情况进行集中的查询与管理工作。在社会主义经济高速发展的今天，如果企业对仓库的各项管理运做仍然停滞在以纸、笔为主要工具的阶段，就会因为信息量的快速增长而无法迅速、准确的完成各项管理工作，这样，必将成为企业各方面发展的一个瓶颈。而在当代这个以信息时代为主题的社会里，将信息技术应用于对现代企业的管理，不但可以提高信息的处理速度和提高信息处理的准确性，更重要的是，可以解放劳动力，将他们分配到更需要人力资源的岗位上去，从而加快其现代化、综合化的建设步伐。这样，不但为企业管理部门节省了不必要的开支，更重要的是提高了它的工作效率。第一章 系统需求分析1、现行系统存在问题的分析现在多数企业的仓库管理工作大部分还是进行着手工管理，工作起来效率很低，并且不能及时了解仓库容量，需求的仓库信息等等，不便于动态及时地调整仓库结构，以便更好地适应当前学生的借阅需求。手工管理还存在这许多弊端，由于不可避免的人为因素，经常造成数据的遗漏、误报。计算机信息化管理有着储存信息量大、速度快等许多优点，提供给我们的处理信息及时快捷，同时也提高了我们工作人员的自身素质。2、解决方案基于以上的对问题的分析，利用计算机给我们提供信息，及时地调整仓库结构，并且对仓库过程形成一整套动态的管理就十分必要了。通用仓库系统的建立，需要进行用户的需求调查与分析，以确定系统目标，提出解决问题的详细方案，这是系统建设的重要环节。企业仓库规模要有着完善的仓库信息，对入库每一件物品要有详细的记录信息，功能上对系统的需求是全面的。因此对用户的需求可分为四个方面：一方面是工作人员通过计算机来管理仓库信息，分类编号，调整仓库结构，增加仓库，适应工作人员的需求；二方面是工作人员能通过计算机来查询仓库中的物品，来确定自已需要的出库的相就物品，为出库做好准备；三方面是工作人员对仓库中得到每个物品相关记录；四方面也是仓库的核心工作，对入库物品管理。这四个方面形成了仓库的一个工作整体，采用计算机自动化信息处理，可方便快捷地共享信息、交流信息，高效地协同工作。在软、硬件方面对系统的需求，软件要求易学，界面友好，容易掌握，可以很简单方便的管理各种仓库信息。硬件的配置要求不能太高，这样可以很好的适应当前的企业以及各个单位的仓库需要。在开发方式上对系统的需求，系统设计开发的周期要短，在短时间内完成，减少开发成本，提高开发效率，方便、简单、实用作为系统开发的指导思想。3、可行性分析通过对仓库管理各个方面进行了具体的了解之后，现对通用仓库管理系统的可行性进行分析。技术上可行：该系统所需硬件设备，市场上销售且价格较低，甚至可以使用原有的设备，软件上，操作系统采用Windows系列操作系统，数据库管理系统采用Visual Basic，这些软件在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、仓库管理的设计分析根据实际情况，我们使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。4、数据库需求分析在仔细调查企业库存物资材料管理过程的基础上，设计出本系统所处理的数据流程图。汇总处理企业总体生产计划设备还库设备出库设备入库设备采购各部门需求仓库现有库存 库存系统数据流程图第四章 怎样开发一个通用仓库管理系统？1、开发工具的选择现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的Visual Basic.Microsoft公司的Visual C.Borland公司的Delphi. Powersoft公司的PowerBulider在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。面向对象的程序设计：4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。结构化程序设计语言：Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。事件驱动的编程机制： 事件驱动是非常适合图形用户界面的编程方式。在图形用户界面的应用程序中，是由用户的动作即事件掌握着程序运行的流向，每个事件都能驱动一段程序的运行。程序员只要编写响应用户动作的代码，而各个动作之间不一定有联系。Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。提供了易学易用的应用程序集成开发环境：在VB集成开发环境中，用户可设计界面、编写代码、调试程序，直至把应用程序编译成可执行文件在Windows中运行，使用户在友好的开发环境中工作。 结构化的程序设计语言： VB具有丰富的数据类型和结构化程序结构，作为一种程序设计语言，它还有如下一些特点： 1. 强大的数值和字符串处理功能 2. 丰富的图形指令，可方便地绘制各种图形 3. 提供静态和动态数组，有利于简化内存的管理 4. 过程可递归调用，使程序更为简练 5. 支持随机文件和顺序文件的访问 6. 提供了一个可供应用程序调用的包含多种类型的图标库 7. 具有完善的运行出错处理 支持多种数据库系统的访问： Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。支持动态数据交换（DDE）、动态链接库（DLL）和对象的链接与嵌入（OLE）技术：（1）动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。（2）对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。（3）动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。完备的HELP联机帮助功能：与Windows环境下的软件一样，在VB中，利用帮助菜单和F1功能键，用户可以随时方便地得到所需要的帮助信息。VB帮助窗口中显示了有关的示例代码，通过复制、粘贴操作可获取大量的示例代码，为用户的学习和使用提供了极大的方便。 VB程序设计的概念就是面向对象的概念，对象就是数据（DATA）和代码（CODE）互相结合的综合体。Windows上面的每一个图标，包括窗口本身都是对象，如果没有任何事情发生，对象处于停顿状态。当存在外来事件时，程序段执行，它的执 行是由外来事件决定的。因此是“事件”驱动的。 编写VB程序较为简单，首先将各个对象放在空白窗体上，然后将程序代码分别添加给对象或图标，将它们组合起来就可以随意运行了。 在VB中，窗体实际上是一个对象，VB的窗体含有许多内嵌特性，这使得用户界面部分的建立像是从一个目录中挑选一个个合适的控件，而不是从零开始一步一步地建立控件。这种开发者能亲眼看到的程序设计过程就是“可视化程序设计”（Visual Programming） VB中的基本概念： 对象：面向对象编程（OOP）的提法大家一定也很耳熟，虽然Visual Basic并不是完全的面向对象编程，但也利用了对象编程技术。对象简单地说就是大家经常看到的各种窗口、按钮、文本框甚至打印机等。属性：如同电视有黑白、彩色之分一样，作为对象的Windows中的窗口也是有大有小，文本框的位置不可能完全一样，菜单要显示出不同的功能，这些都是由对象的属性决定的。不同对象的属性可能不同。属性一般决定了对象的位置、大小、显示等情况。方法：就是对象能够做的事，如打印机对象就有打印（Print）方法、窗口对象支持隐藏（Hide）方法、很多对象支持移动（Move）方法等。事件：就是对象对用户各种操作的反映情况。如用户用鼠标按一下按钮，就会触发按钮的“按”（Click）事件。控件：控件就是Visual Basic提供的编程用的模块，与对象有直接的联系，如同积木的木块，使用这样的控件，就可以像拼图或堆积木一样“搭”、“拼”你的程序界面。Visual Basic中使用控件，简化了Windows中的窗口、按钮等对象的编程设计。每个控件都有各自的属性、事件及方法。只需修改这些特征你就可以随心所欲地编程了。最重要的是，你可以利用成千上万的各种扩充的控件来快速构造几乎能满足你任何要求的程序。例如，如果你不满意Windows简陋的媒体播放器，你就可以使用VB的多媒体控件在1小时以内设计一个完全自己风格的能够播放CD、VCD的多媒体播放器，而功能完全与之相当。2、Access2000数据库简介：作为Microsoft的office套件产品之一,access已经成为世界上最流行的桌面数据库系统。Access与许多优秀的关系数据库一样，可以让你很容易地连接相关的信息而且还对其他的数据库系统有所补充。它能操作其它来源的资料，包括许多流行的PC数据库程序（如dBASE，Paradox，Microsoft FoxPro）和服务器、小型机及大型机上的许多SQL数据库。Access还完全支持Microsoft的OLE技术。Access还提供windows操作系统的高级应用程序开发系统。Access与其它数据库开发系统之间相当显著的区别就是：您不用写一行代码，就可以在很短的时间里开发出一个功能强大而且相当专业的数据库应用程序，并且这一愉快的过程是完全可视的！如果您能给它加上简短的VBA代码，那么您的程序决不比专业程序员潜心开发的程序差。Access的总体结构：Access将所有有名字的东西都成为对象（object），在Access 2000中，最重要的对象有表，查询，窗体，报表，宏和模块。表 用户定义的存储资料的对象。每一个表都包含有关某个主体的信息。表包括存储不同种类资料的字段（列），而记录（行）则收集特定主体实例的所有信息。查询 为来自一个或多个表的资料提供定制视图的对象。在Access中，可以利用图形化的实例查询机制（QBE）或通过SQL语句来建立查询。你可以在查询中选择、更新、插入或删除资料，也可以用查询来建立新表。窗体 窗体是主要的人机接口。大量的操作（几乎所有）都要通过窗体完成。窗体通过运行宏（macro）或Visual Basic for Applicatinns（VBA）过程，来响应大量的事件。Access 2000为我们提供了强大的（同时也是相当方便的向导）来建立标准的Windows窗体。报表 为格式化、计算、打印选定资料而设计的对象。它是衡量一个优秀的数据库的重要标准（有时甚至是唯一的标准）。宏 为了响应已定义的事件，需要让Access去执行一个或多个操作，而宏就是对这些操作的结构化的定义对象。它可以让你像堆积木一样建立一个功能强大的程序，而无须写大量的代码。模块 包括用VBA编码的定制过程的一个对象。模块提供了独立的动作流以捕获错误，而宏做不到。模块能直接响应窗体或报表事件，也可以从应用程序的任何地方被调用。数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。（1） 标识需要的数据；（2） 收集被标识的字段到表中；（3） 标识主关键字字段；（4） 绘制一个简单的数据图表；（5） 规范数据；（6） 标识指定字段的信息；（7） 创建物理表。修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。3、二者的结合（DBA）微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系Access2000数据库 本系统中VB与Access2000的连接VB应用程序 Microsoft.Jet.OLEDB.4.0第五章 系统总体规划系统功能（1） 基础资料设置；（2） 单据处理；（3） 统计查询；（4） 系统维护；（5） 报表输出；（6） 退出系统。第六章 系统设计各功能模块结构与实现系统主要界面的实现1、系统管理模块实现系统管理菜单 修改用户密码程序Private Sub Command1_Click() Adodc1.RecordSource = frmLogin.Adodc1.RecordSource Adodc1.Refresh 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.Text = Text2.Text Adodc1.Recordset.MoveFirst MsgBox 密码修改成功！, , 修改密码 Unload Me End IfEnd Sub2、 用户管理界面（程序略）3、入库模块的实现 Private Sub Command1_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 请输入完整信息！ 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 设备入库表.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 设备入库表.Adodc1.Recordset.RecordCount 0 Then 将记录加入现有库存表中 设备入库表.Text9.Text = CInt(设备入库表.Text9.Text) + CInt(Text2.Text) 设备入库表.Text9.Refresh J = 设备入库表.Text9 设备入库表.Adodc1.Recordset.MoveFirst 设备入库表.Adodc1.Recordset.Fields.Refresh 设备入库表.DataGrid1.Refresh MsgBox 现有库存量为： & J Else STR = 现有库存表中无此设备！ & vbCrLf & 请在设备代码表和现有库存表中手动添加记录！ MsgBox STR Load frm现有库存表 frm现有库存表.Show Call frm现有库存表.Command1_Click FrmAddNewEqu.Text1.Text = frmInput.Text1.Text FrmAddNewEqu.Text2.Text = frmInput.Text2.Text Load frm设备代码表 frm设备代码表.Show End If End SubPrivate 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 SubEnd IfDeleteErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click( ) 更新纪录程序 On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit SubUpdateErr: MsgBox Err.DescriptionEnd Sub4、出库模块实现Private Sub Command1_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 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) - CInt(Text2.Text) If k = 0 Then frm设备出库表.Text9.Text = CInt(frm设备出库表.Text9.Text) - CInt(Text2.Text) frm设备出库表.Text9.Refresh J = frm设备出库表.Text9 frm设备出库表.Adodc1.Recordset.MoveFirst frm设备出库表.Adodc1.Recordset.Fields.Refresh frm设备出库表.DataGrid1.Refresh MsgBox 现有库存量为： & J Else MsgBox 现有库存量不足！请输入合适数量！ Exit Sub End If Else STR = 现有库存表中无此设备！请检查输入是否正确！ MsgBox STR End IfEnd SubPr