aad-0617-库存管理系统设计方案(doc41)

库存管理系统设计方案目录摘要…………1Abstract……………………2 绪论………………31.1管理信息系统的概述………32数据库应用系统开发简介…………………33库存管理系统………………51.3.1国内外同类管理软件的研究现状与发展趋势………………… 51.3.2库存管理系统研究背景与意义……………………6第二章数据库理论基础……………………72.1数据库系统设计………………72.2SQL语言介绍…………………72.2.1SQL基础……………72.2.2SQL语句……………8第三章应用系统开发工具………………93.1VisualBasic简介及实现原理…………………93.2数据库组件介绍………………93.3SQL语言在VB中的应用……………………103.4Access2000简述………………11库存管理系统设计分析…………124.1需求分析………………………124.2模块划分………………………134.3数据库设计……………………15应用程序设计……………………185.1程序结构……………………185.2程序源代码…………………19第六章设计总结………38

摘要 随着现代工业的发展，计算机信息管理系统越来越受到企业重视。本文主要分析了库存管理系统的一些基本功能和组成情况，包括系统的需求分析、系统结构，功能模块划分以及数据库模式分析等，重点对应用程序的实际开发实现作了介绍。达到了数据的一致性和安全性，且应用程序功能完备，符合了库存管理系统作为典型的信息管理系统(MIS)的要求。同时简单介绍了VisualBasic编程环境和Access数据库管理系统的功能特点，库存管理系统是企业物流管理中不可或缺的一部分。关键词：库存管理，数据库，信息管理，VBAbstractWiththedevelopmentofmodernindustry,theinformationmanagementsystemofthecomputerisbeingpaidattentiontobyenterprises.Thistexthasanalysedsomebasicfunctionsoftheadministrativesystemofthestockandmakesupthesituationmainly,includingthesystematicdemandisanalysed,systematicstructure,thefunctionmoduledividesandthedatabasemodeisanalysedetc.,haverealizeddoingtheintroductiontotheactualdevelopmentoftheapplicationprogramespecially.Havingreachedtheconsistencyandsecurityofthedata,andtheapplicationprogramfunctioniscomplete,haveaccordedwiththeadministrativesystemofthestockastherequestforthetypicalinformationmanagementsystem(MIS).IntroducedthefunctioncharacteristicsofVisualBasicprogrammingenvironmentandAccessdatabasemanagementsystembrieflyatthesametime,theadministrativesystemofthestockisanindispensablepartinenterprise'smaterialflowmanagement.Keywords:stockmanagement,database,informationmanagement,VB

绪论库存管理系统是一个企事业单位不可缺少的一部分,它的内容对于企业的决策者和管理者来说都是至关重要的，因此，库存管理系统应该能够为用户提供充足的信息和快捷的查询手段，但一直以来人们使用传统的人工方式管理库存，这种管理方式存在着许多缺点，诸如效率低，保密性差等，而且时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机科学不断发展，其强大的功能已经被人们深刻认识，它已经进入了人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对产品库存信息进行管理，具有着人工管理无法比拟的优点，它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，可减少更多的人力物力，这些都能够极大地提高货品库存的管理效率，也是企业库存管理科学化、正规化，与世界接轨的重要条件。因此，开发一个库存管理系统是很有必要的，具有其特有的技术意义和管理意义。 1.1管理信息系统的概述管理信息系统（简称MIS）是在管理科学、系统科学、计算机科学等的基础上发展起来的综合性边缘科学。在21世纪信息高速发展的时代中，管理信息系统具有很重要的作用，它的预测和辅助决策的功能，即利用现代管理的决策和支持。管理信息系统是一个由人、机（计算机）组成的能进行管理信息的收集、传递、存储、加工、维护和使用的系统。它能观测企业或组织的各种运动情况，利用过去的数据预测未来；从全局出发辅助决策；利用信息控制企业或组织行为，帮助其实现长远的规划目标。简言之，管理信息系统是一个以计算机为工具，具有数据处理、预测、控制和辅助决策功能的信息系统。管理信息系统是一个人机系统，同时它又是一个一体化集成系统。管理信息系统是信息系统的一个子系统，它以计算机技术、通讯技术和软件技术为技术基础，同时将现代管理理论、现代管理方法及各级管理人员融为一体，最终为某个组织整体的管理与决策服务，是由人和计算机组成的能进行管理信息的收集、传递、存储、加工、维护和使用的系统。管理信息系统的基本结构可以概括为四大部件，即信息源、信息处理器、信息用户和信息管理者。因此，一个成功的管理信息系统应该具有可靠的硬件、实用的软件、强有力的现代化管理水平。具体讲，管理信息系统的三大支柱是：计算机网络、数据库和现代化的管理，这三打支柱称为管理信息系统的扩展部件。1.2数据库应用系统开发简介在数据库应用系统开发之前，对开发数据库的基本概念应当了解，对数据库的结构、开发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解和认识。数据库应用系统开发的目标是建立一个满足用户长期需求的产品。开发的主要过程为：理解用户的需求，然后，把它们转变为有效的数据库设计。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用。数据库技术在计算机软件邻域研究中一直是非常重要的主题，产生于60年代，30多年来数据库技术得到了迅速发展，并已形成较为完整的理论体系和一大批实用系统。并且，近年来，随着WorldWideWeb(WWW)的猛增及Internet技术的迅速发展，使得数据库技术之时成为最热门技术之一。1.2.1数据库数据库由DBMS（数据库管理系统）处理，DBMS则由开发人员和用户通过应用程序直接或间接地使用。它主要包括四个要素：用户数据、元数据、索引和应用元数据。一、用户数据目前，大多数主流数据库管理系统把用户数据表示为关系。现在把关系看作数据表。表的列包含域或属性，表的行包含对应业务环境中的实体的记录。并非所有的关系都同样符合要求，有些关系比其它关系更结构化一些。为了对比结构差的关系和结构好的关系之间的差别，以图书管理系统中的图书和图书借阅者关系为例来说明，假若设计关系R1（借书证号，姓名，性别，身份编号，身份证，联系电话，图书编号,图书名称，图书类别，作者，出版社，出版日期，备注，价格，数量）；这个关系的问题出在它有关于两个不同主题的数据，就是图书借阅者和图书。用这种方式构成的关系在进行修改时，会出现问题。因为一个图书借阅者可能借阅多本书，如果某个图书借阅者的某个字段（如联系电话）出现变更，它所借阅的图书记录（可能多个）也就必须变化，这是不好的。因此数据用两个关系表示更好。现在如果某图书借阅者改变了它的联系电话，只有关系（表）user的对应行需要改变。当然，要想产生一个，显示图书名称及其借阅者联系电话的报表，就需要将这两个表的行结合起来。结果表明，将关系分别存储，在生成报表的时候将它们结合起来，比把它们存储在一个合成的表中更好。user（借书证号，姓名，性别，身份编号，身份证，联系电话，）book（图书编号,图书名称，图书类别，作者，出版社，出版日期，备注，价格，数量）二、元数据数据库是自描述的，这就意味着它自身包含了它的结构的描述，这种结构的描述称作元数据。因为DBMS产品是用来存储和操纵表的，所以大多数产品把元数据以表的形式存储，有时称作系统表。这些系统表存储了数据库中表的情况，指出每一个表中有多少列，那一列是主关键字，每一列的数据类型的描述，它也存储索引、关键字、规则和数据库结构的其他部分。在表中存储元数据不仅对DBMS是有效的，对用户也是方便的，因为他们可以使用与查询用户数据同样的查询工具来查询元数据。三、索引第三种类型的数据改进了数据库的性能和可访问性，这种数据经常称作开销数据，尽管有时也采用其他类型的数据结构，如链表，但它主要还是索引。索引可以用来排序和快速访问数据。下面以库存管理系统中的货品信息表为例来说明。假定数据在磁盘上是按’货品编号’的递增顺序排列的，用户想打印一个按’货品名称’排序的货品数据报表。为此，所有的数据都需要从源表中提取出来并排序，除非表很小，否则这是一个很费时的过程。或者，可以在‘货品名称’字段上创建一个索引，该索引的条目按照‘货品名称’排序，这样，该索引的条目可以读出来，并用来按顺序访问货品信息数据。索引用于快速访问数据。例如，一个用户只想访问货品信息表中‘类别’值为‘01’的那些货品。如果没有索引，则必须搜索整个源表；但有了索引之后，可以找到索引条目，并使用它来挑选所有合适的行。索引对排序和查找是有帮助的，但要付出代价。货品信息表中的行每次改变时，索引也必须改变，这意味着索引并非随意的，应该在真正需要时保存。四、应用元数据存储在数据库中的第四种数据是应用元数据，它用来存储用户窗体、报表、查询和其他形式的查询组件。并非所有的DBMS都支持应用组件，支持组件的DBMS也不一定把全部组件的结构作为应用元数据存储在数据库中。然而，大多数现代的DBMS产品存储这种数据作为数据库的一部分。一般来说，数据库开发人员和用户都不直接访问应用元数据，相反，他们通过DBMS中的工具来处理这些数据。Access2000中就支持窗体、存储过程等应用元数据。1.2.2数据库管理系统数据库管理系统（DBMS）是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作，包括定义、更新及各种控制,都是通过DBMS进行的。DBMS总是基于某种数据模型，可以把DBMS看成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同，DBMS可以分成层次型、网状型、关系型、面向对象型等。关系模型。关系模型主要是用二维表格结构表达实体集，用外键表示实体间联系。关系模型是由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型，它的实例称为关系，每个关系实际上是一张二维表格。关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据，表格简单用户易懂，编程时并不涉及存储结构，访问技术等细节。关系模型是数学化模型。SQL语言是关系数据库的标准化语言，已得到了广泛的应用。DBMS的特点和功能可以分为三个子系统：设计工具子系统、运行子系统和DBMS引擎。设计子系统有一个方便数据库及其应用创建的工具集。它典型地包含产生表、窗体、查询和报表的工具。DBMS产品还提供编程语言和对编程语言的接口。运行子系统处理用设计子系统开发的应用组件。它所包含的运行处理器用来处理窗体和数据库的数据交互，以及回答查询和打印报表等。DBMS引擎从其他两个组件接受请求，并把它们翻译成对操作系统的命令，以便读写物理介质上的数据。DBMS引擎还涉及事务管理、锁、备份和恢复。1.3库存管理系统当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息处理系统的环境。计算机最大的好处在于利用它能够进行信息管理，使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。仓库作为一总货品资源的集散地，货品的种类繁多，包含很多的信息数据的管理。据调查得知，以前仓库进行信息管理的方式主要是基于文本、表格等纸介质的手工处理，对于货品的出入库情况的统计和核实等往往采用对账本的人工检查，对管理者的管理权限等不受约束，任何人都可查看，这样容易引起资料外泄。另外，数据信息处理工作量大，容易出错，由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统、规范的信息管理手段。而且，一般的存储情况是记录在账本上的，仓库的工作人员和管理员也只是当时记得比较清楚，时间一长，如果再要进行查询，就得在众多的资料中翻阅查找了，这样造成费时、费力，如要对很长时间以前的货品进行更改就更加困难了。因此，很有必要建立一个库存管理系统，使货品管理工作规范化，系统化，程序化。提高信息处理的速度和准确性。1.3.1国内外同类管理软件的研究现状与发展趋势现在国内外对此类系统的开发与研究也是很有实用性的，基本上能满足各企业的自身特点，来进行库存方面的管理，同时，改类系统又都在不断地深入与发展，来适用更多的企业，一般都能运用于各个企业的库存管理，但是都没有针对大众的广泛应用，只能运用某个企业或单位，这一点还有待于今后的进一步开发与实践。今后此类软件将会向条码库存管理系统发展，现阶段，伴随物流及管理信息化、网络化的发展，应用条码技术进行库存管理、实现仓库作业自动化，将是一个必然的发展趋势，也是需要迫切解决的一个现实问题。随着信息化技术的不断提高和应用的日渐普及，更多的商品拥有自己的条码，而且，使用条码化工作代替传统作业模式，减少了手工输入，这样不但提高了作业效率，还能确保资料正确，并减少因人为失误所造成的损失。1、技术应用于库存管理是实现仓库管理自动化的有效途径库存品种多，数量大。因此，要实现收发作业的快速、准确、高效，仓储管理自动化势在必行。而实现管理自动化的“瓶颈”则是产品信息的采集、输入。传统手工作业方式，在信息采集量加大的情形下，半因信息不能及时的反馈，给收发作业造成一定的困难。利用条码技术，在入库及其包装上加贴条码，配之以仓库信息管理系统进行作业，不仅可提高效率，降低作业强度，也将大大提高产品收发作业准确率（如键盘输入仅为百分之一），进而实现仓库管理的全面自动化。2、技术应用于库存管理对提高仓库作业效率有重要作用将条码技术和仓库管理信息系统结合起来，用于产品收、发、保管等全过程控制管理，不仅可改变信息采集的传统手工作业方式，降低作业强度，还可避免由此造成的各种差错，提高作业效率和科学管库水平。比较发现，信息输入时，条码输入速度是键盘输入的5倍。入库时，通常保管员根据产品上的条码所反映出的册序号、出厂期、生产厂家、单价、封存（保管）期等信息，进行实物点验，同时将条码信息录入到管理信息系统；出库时，保管员根据航材发付单内容，持条码扫描装置进行器材拣选，并完成信息录入；清库盘点时，保管员可持扫描装备进行数质量等内容核对，并半采集的信息录入管理系统中进行自动盘点，生成清库对帐单等，完成清库盘点作业。3、技术应用于库存管理是完善产品保障信息网络的重要手段储存产品信息是产品保障信息网络的重要组成部分，是做好产品供应保障工作的基础。产品保障信息网是实现物资储运全过程可视化的前提。目前，有些仓库内部局域网已经建成并投入使用，并与业务主管部门实现了信息沟通，库存保障信息网在日常航材保障工作中实现了信息沟通，库存保障信息网在日常产品保障工作中的作用日趋明显。条码技术在储存管理中的应用，可进一步完善系统各仓库之间及各仓库与作业主管部门之间的信息共享和交换功能，最终达到对产品的全程跟踪管理，充分发挥条码技术在整个流通中的作用。同时，在软件系统的研发过程中，将会融入一种EPR的企业管理思想。大量的研究与实践已经充分表明，ERP作为一种现代企业管理的思想和方法，将其大力地推广应用就是有效的促使我国企业管理朝着更加科学化、合理化和规范化方向发展的一种具体方法和途径。另外，库存管理的信息化和可视化，每个企业将会拥有两个仓库，一个是装满货物的仓库，还有一个就是管理系统里的数据库，对上万种货物分别编码，使其成为计算机可识别的语言，形象地说，货架上的号码就是货物的地址，从而避免了货物的分拣和提取时的翻箱倒柜式的查找。1.3.2库存管理系统研究背景与意义随着我国经济的飞速发展，各种类型规模的公司企业迅速崛起，许多从事生产和经营管理的企业都有自己生产和销售的产品，而这些产品都需要储存在仓库中，对于每个企业来说，随着企业规模的不断扩大，产品数量的急剧增加，所生产产品的种类也会不断地更新与发展，有关产品的各种信息量也会成倍增长。面对庞大的产品信息量，如何有效地管理库存产品，对这些企业来说是非常重要的，库存管理的重点是销售信息能否及时反馈，从而确保企业运行效益。而库存管理又涉及入库、出库的产品、经办人员及客户等方方面面的因素，如何管理这些信息数据，是一项复杂的系统工程，充分考验着仓库管理员的工作能力，工作量的繁重是可想而知的，所以这就需要由库存管理系统来提高库存管理工作的效率，这对信息的规范管理、科学统计和快速查询，减少管理方面的工作量，同时对于调动广大员工的工作积极性，提高企业的生产效率，都具有十分重要的现实意义。

第二章 数据库理论基础2.1数据库系统设计一个成功的信息管理系统，是建立在许多条件之上的，而数据库是其中一个非常重要的条件和关键技术。信息管理系统所涉及的数据库设计分五个步骤：数据库需求分析、概念设计、逻辑设计、物理设计与加载测试。（1）

数据库需求分析的任务是将业务管理单证流化为数据流，划分主题之间的边界，绘制出DFD图，并完成相应的数据字典。（2）

概念设计的任务是从DFD出发，绘制出本主题的实体－关系图，并列出各个实体与关系的纲要表。（3）

逻辑设计的任务是从E-R图与对应的纲要表出发，确定各个实体及关系的表名属性。（4）

物理设计的任务是确定所有属性的类型、宽度与取值范围，设计出基本表的主键，将所有的表名与字段名英文化（现在很多软件能支持中文字段，如Access2000），实现物理建库，完成数据库物理设计字典。（5）

加载测试工作贯穿于程序测试工作的全过程，整个录入、修改、查询、处理工作均可视为对数据库的加载测试工作。数据库设计主要是进行数据库的逻辑设计，即将数据按一定的分类、分组系统和逻辑层次组织起来，是面向用户的。数据库设计时需要综合企业各个部门的存档数据和数据需求，分析各个数据之间的关系，按照DBMS提供的功能和描述工具，设计出规模适当、正确反映数据关系、数据冗余少、存取效率高、能满足多种查询要求的数据模型。数据库设计的步骤主要是：（1）

数据库结构定义：目前的数据库管理系统（DBMS）有的是支持联机事务处理CLTP（负责对事务数据进行采集、处理、存储）的操作型DBMS，有的可支持数据仓库、有联机分析处理CLAP（指为支持决策的制定对数据的一种加工操作）功能的大型DBMS，有的数据库是关系型的、有的可支持面向对象数据库。针对选择的DBMS，进行数据库结构定义。（2）

数据表定义：数据表定义指定义数据库中数据表的结构，数据表的逻辑结构包括：属性名称、类型、表示形式、缺省值、校验规则、是否关键字、可否为空等。关系型数据库要尽量按关系规范化要求进行数据库设计，但为使效率高，规范化程度应根据应用环境和条件来决定。数据表设计不仅要满足数据存储的要求，还要增加一些如反映有关信息、操作责任、中间数据的字段或临时数据表。（3）

存储设备和存储空间组织：确定数据的存放地点、存储路径、存储设备等，备份方案，对多版本如何保证一致性和数据的完整性。（4）

数据使用权限设置：针对用户的不同使用要求，确定数据的用户使用权限，确保数据安全。（5）

数据字典设计：用数据字典描述数据库的设计，便于维护和修改。2.2SQL语言介绍2.2.1SQL基础SQL(StructuredQueryLanguage，结构查询语言)是一个功能强大的数据库语言。SQL通常使用于数据库的通讯。ANSI（美国国家标准学会）声称，SQL是关系数据库管理系统的标准语言。SQL语句通常用于完成一些数据库的操作任务，比如在数据库中更新数据，或者从数据库中检索数据。使用SQL的常见关系数据库管理系统有：Oracle、Sybase、MicrosoftSQLServer、Access、Ingres等等。虽然绝大多数的数据库系统使用SQL，但是它们同样有它们自立另外的专有扩展功能用于它们的系统。但是，标准的SQL命令，比如"Select"、"Insert"、"Update"、"Delete"、"Create"和"Drop"常常被用于完成绝大多数数据库的操作。SQL语言的突出优点就是它的非过程化、统一，而且还是所有关系数据库的公共语言。SQL语言一次处理一个记录，对数据提供自动导航，它允许用户在高层的数据结构上工作，而部队单个记录进行操作，可操作记录集，所有SQL语句接受集合作为输入，返回集合作为输出。SQL的集合特性允许一条SQL语句的结果作为另一条SQL语句的输入。同时，它不要求用户指定对数据的存放方法，这种特性使用户更易集中精力于要得到的结果；所有SQL语句使用查询优化器，它是RDBMS的一部分，由它决定对指定数据存取的最快速度的手段，查询优化器知道存在什么索引，在哪儿使用索引合适，而用户则从不需要知道表是否有索引、有什么类型的索引。作为统一的语言，SQL可用于所有用户的DB活动模型，包括系统管理员、数据库管理员、应用程序员、决策支持系统人员及许多其它类型的终端用户。2.2.2SQL语句SQL语句概括起来可以分为数据操作语言，数据定义语言和数据控制语言几大组，它们用于对数据库数据的查询，修改和更新，是一种完备的数据处理语言。主要用到的数据操作语言主要是：SELECT:用于数据检索；INSERT:用于增加数据到数据库；UPDATE:用于从数据库中修改现存的数据；DELETE:用于从数据库中删除数据。

第三章 应用系统开发工具3.1VisualBasic简介及实现原理VisualBasic（简称VB）是美国微软公司（Microsoft）于1990年推出的一套完整的Windows系统软件开发工具，可用于开发Windows环境下的各类应用程序，是一种可视化、面向对象、用事件驱动方式的结构化高级程序设计语言和工具，是目前使用最广泛的编程语言之一。至今以升级到了6.0版。VB的重要特点之一是可视性。系统引进了窗体和控件的机制，用于设计应用程序界面。用户通过在屏幕上生成窗体，在窗体中绘制所需要的控件和按钮，设计菜单和对话框，VB会自动生成相应的代码。VB的另一重要特点是事件驱动。当窗体或控件上发生一个事件时，VB立即把控制权交给程序员。程序员不必担心如何判断事件是否已发生，只需要编写一段代码告诉计算机在事件发生以后应该做什么工作就可以了。这样，设计一个Windows应用程序简化为用鼠标在屏幕上点击、拖拽并添加少量的代码就可以完成了，大大降低了对程序设计的要求，提高了应用程序的开发效率。利用VB的可视性特点，可方便的设计了程序的窗体界面，并在各个窗体中的合适位置绘制所需的每种控件。如要修改窗体或控件的某项属性，只需在相应的窗体或控件的属性窗口修改相应的参数便可达到需要的设计效果。利用VB的事件驱动性特点，只需在窗体或控件上的代码窗口中添加少量的代码，便可达到告诉当在相应的窗体或控件上发生某一事件时，它们在事件发生后应该做什么工作的目的。例如几个窗体上的添加、删除、返回按钮的作用，就是通过在各个相应按钮的代码窗口中输入相应的代码，来达到当在几个按钮上出现单击（Click）事件后，相应按钮实现添加、删除、返回的功能的。3.2数据库组件介绍在使用VisualBasic开发数据库应用程序的时候，会经常使用数据库访问控件。这些控件包括：● Data控件；● ADOData控件；● DataList控件/DataCombo控件；● DataGrid控件；● MSChart控件。下面将分别对这些控件的主要功能及使用方法进行介绍。3.2.1 Data控件Data控件是VisualBasic中最基本的数据库操作控件。它使用Recordset对象提供对存储在数据库中数据的访问。Data控件允许从一个记录移动到另一个记录，并显示和操纵来自被连接控件的记录的数据。许多其他的数据库操作控件都需要Data控件或类似的数据源控件（比如ADOData控件）。Data控件可以执行大部分数据库访问操作，但是它并不能显示数据库中数据的内容。Data控件通常需要与其他控件结合使用。这些与Data控件结合使用的控件，可以称之为“数据觉察控件”。因为程序员无需编写任何代码，就可以在这些控件中显示当前记录的数据。当Data控件中当前记录发生变化时，数据觉察控件的内容也会随之发生变化。当与Data控件相连接时，DataList、DataCombo、DataGrid和MSHFlexGrid控件都能管理记录集合。所有这些控件都允许一次显示或操作几个记录。内部的Picture、Label、TextBox、CheckBox、Image、OLE、ListBox和ComboBox控件也是数据觉察的，能和由Data控件管理的Recordset对象的某个字段相连接。3.2.2 ADOData控件ADOData控件与内部Data控件以及RemoteData控件（RDC）相似。用户可以使用ADOData控件快速地创建一个到数据库的连接。3.2.3 DataList控件/DataCombo控件DataList控件是一个数据绑定列表框，它可以自动地由一个附加数据源中的一个字段充填，并且可选择地更新另一个数据源中一个相关表的一个字段。DataCombo控件的功能与DataList控件完全相同，只不过DataCombo控件是一个组合框。3.2.4 DataGrid控件在许多情况下，需要使用表格形式来显示数据库中的数据。这时就要借助于DaatGrid控件。用户可以设置DataGrid控件的DataSource属性为一个ADOData控件，从而将ADOData中的数据自动地填充到DataGrid表格中。这个DataGrid控件实际上是一个固定的列集合，每一列的行数都是不确定的。3.2.5 MSChart控件MSChart控件的功能是以图形方式显示数据的图表。这会使枯燥的数据变得更加生动直观，增加了程序的实用价值。MSChart控件支持一下特性：1、真三维表示；2、支持所有主要的图表类型；3、数据网络成员支持随机数据，数据数组。3.3SQL语言在VB中的应用1.SQL提供的实用函数为实现使用VB程序调用SQL语言访问Access数据库多个记录的目的，我们利用SQL提供的函数。●DavgFunction（求平均值）●DcountFunction（计算满足条件的记录数）●DfirstFunction（返回记录集的第一个记录的某个域值）●DlastFunction（返回记录集的最后一个记录的某个域值）●DlookupFunction（返回记录集中满足待定条件的记录的域值）●DsumFunction（求和计算）●DmaxFunction（求最大值）●DminFunction（求最小值）利用以上的SQL函数能够方便地进行数据库文件记录地查询和统计工作，以Dsum为例，语法如下：Dsum(expr,clomain[,criteria])例：计算目的港为英国地所有订单地运费总和。假定“Orders”是数据库文件中地一张表格，则x=Dsum(“[Feight]”,”Order”.”[shipcountry]=’UK’”)2.利用SQL访问多个记录地方法在进信息查询和统计地过程中，我们往往需要从记录集中根据待定的条件提取其中的一部分记录信息。这种改变基于数据库关系视图的记录集，这里我们介绍提取记录信息的有效方法。（1）建立一个新的查询setmydb=OpenDatabase(“c:\DIR1\manage.mdb”)（打开数据库文件c:\DIR1\manage.mdb）setmyquery=mydb.creatQueryDef(“monthquery”)(创建查询名为monthquery的查询)Myquery.SQL=”select*fromOPNRPTwheremid$(year,7,2)=’”&yeartext.text&”’…”(利用查询的SQL属性，建立查询依据，即查询的条件。这里用到了SetectStatement)以后如果需要这样的查询，只需要引用查询名”monthquery”即可。需要说明的两点是：①使用前先定义DimmydbASDatabase及myqueryASquerydef.②查询”monthquery”没有使用Data控件，也就不直接显示信息。（2）如何设置Data控件的Recordsource属性设置Datasource属性的命令为：Data.Recordsource=”SetectVss_code,voyage,Sum(weight)ASWeight20frommonthquerywherectn_size=’20’groupbyVss_code,Voyage”在这个命令中字段名Vss_code为船名代码，Voyage为航次，ctn_size为集装箱号，weight为集装箱重量。计算机通过增加了条件的monthquery查询组成了新的记录集。AS为关键字表示，并定义了别名。通过这一个方法定义的记录集可以使用move和Find方法逐条记录的进行操作。3.4Access2000简述Access2000是关系数据库开发工具，1992年，MicrosoftAccess作为第一个面向Windows操作平台的桌面数据库管理系统而诞生，它不但充分体现了面向对象的思想，提供可视化的编程手段，而且充分利用了Windows操作平台的优越性，采用与Windows完全一致的界面风格，使界面非常友好。在Access中，用户不需要编写复杂的程序就可以建立一个完整的数据库应用系统，是一个典型的开放式数据库系统，它可以和Windows下的其他应用程序共享数据库资源。数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。

库存管理系统设计分析4.1需求分析本套应用程序名称为“库存管理系统”，主要用于仓库货品信息的管理，系统包括仓库管理、入库、出库、一些统计查询和报表等几部分组成。库存管理系统需满足仓库管理员及工作人员的需求，他们具有登陆应用系统的权限，所以需要对工作人员的登陆本模块进行更多的考虑，设计不同用户的操作权限和登陆方法。对于一个仓库来说，最大的功能就是存储货品，所以仓库管理就是对货品信息，仓库信息，短线货品及超储货品的管理，用户可以根据实际情况对各种货品信息进行分类管理，包括添加，删除更新数据库等。当然，仓库中货品入库也是常有的事，入库管理操作就是对于货品入库情况的管理，用户可以方便地输入一些货品的信息。有了货品的入库，自然也就有货品的出库，这部分提供的功能与入库操作流程差不多，有所区别的只是对一些出库货品的管理，也很方便数据的输入。仓库货品的信息量大，数据安全性和保密性要求高。本系统实现对货品信息的管理和总体的统计等，仓库信息，供货单位和经办人员信息的查看及维护。仓库管理人员可以浏览、查询、添加、删除等货品的基本信息以及统计等，并可以对一些基本的信息生成报表形式，并打印输出的功能。报表是一个数据库中最重要的功能之一，有了报表才能清楚地知道货品的出入库情况，在数据报表功能中包括出库报表，库存报表及经办人员报表等一些基本信息的打印，方便简洁。本系统基本涵盖了库存管理的主要需求，具有完善细致的功能、友好的用户界面、强大的数据处理功能和完备的安全机制；随心所欲的查询和所见即所得的打印功能，并全面支持分析和决策的功能。●系统特色：1.设置系统用户登陆功能，即时对系统数据进行安全设置与保护。2.友好的用户界面，业务操作简单，进入系统即能使用。3.成熟先进的技术和系统构架，采用先进的数据库访问方式，数据更安全，性能更稳定。4.强大的数据处理能力和开放的数据接口，选用具有大型数据库安全机制的数据库系统，提供各种级别的数据保护和权限控制方式，确保数据的安全可靠。5.系统每种操作都可以通过菜单来进行。操作快捷、方便。易懂易会。系统集输入、维护、查询、统计和各种处理为一体，信息导入导出方便共享。库存管理系统仓库管理库存管理系统仓库管理入库管理出库管理盘存管理综合管理附项分类历史数据管理打印、查询系统货品信息管理货品库存管理短线货品管理超储货品管理出库登记管理货品出库年度统计收货单位年度收货金额统计盘存录入货品出入库期间汇总表仓库信息管理供货单位管理收货单位管理经办人员管理 基本模块与功能：1.系统包括用户管理，密码管理，关闭系统，以及数据的备份与恢复，可以根据需要对整个数据库进行备份，以确保数据的安全性。帮助：本系统的帮助信息，包括应用程序的版本信息；2.库存管理货品信息管理：对仓库里的货品进行登记；货品库存管理：管理仓库的库存情况；短线货品管理：对仓库里短线的货品进行登记，以便及时采购补货；超储货品管理：对仓库里超储的货品进行登记，控制库存量，减少进货；3.入库管理入库登记管理：能对货品的入库登记，删除，更改等；入库期间统计：货品入库期间年度的统计；供货单位期间供货金额统计：对货品供应的金额进行统计；4.出库管理对货品出库期间的年度统计，出库登记，及收获单位金额统计等；5.盘存管理对盘存货品信息的盘存录入；6.综合管理可根据同一货品的出入库情况，对库存情况的汇总；7.附项管理对供货单位情况，经办人员，收货单位情况，仓库信息进行登记管理，可进行添加，删除等操作；8.历史数据管理对历史库存，历史出库，历史出库情况进行管理；9.打印与查询可根据输入的条件，对货品的入库信息，库存信息等进行简单查询和组合查询。据流程图：登陆库存管理系统登陆库存管理系统验证用户信息系统主窗体仓库管理入库管理出库管理盘存管理综合管理附项分类历史数据管理打印、查询系统货品入库单经办人员报表货品出库单数据备份备份输出库存汇总图4－1库存管理系统数据流程图密码错误汇总计算货品信息管理数据流程图：货品登记货品登记基本信息录入货品基本信息管理货品调配汇总出库货品信息管理入库货品信息管理货品其他信息管理图4－2货品信息管理数据流程图4.3数据库设计本库存管理系统是应用在单机系统上的，所以只需建立起一个数据库，在此数据库基础上建立起表格，现将部分数据结构表描述如下：货品信息表字段名数据类型字段长度是否为空货品编码文本5货品名称文本10类别文本8型号文本4单位文本2仓库编码文本5存放仓库文本12入库计划单价货币出库计划单价货币原始库存数字长整型默认货位文本5警戒底线库存数字长整型警戒高线库存数字长整型表1 货品信息表表1 货品信息表入库登记表字段名数据类型字段长度是否为空入库日期日期/时间入库单号文本10货物编码文本5数量数字长整型进货价货币总额货币已付货款货币供货单位编码文本5供货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注表2 入库登记表表2 入库登记表出库登记表字段名数据类型字段长度是否为空出库日期日期/时间出库单号文本10货物编码文本5货物名称文本10数量数字长整型单价货币出货价货币总额货币已收获款货币收货单位编码文本5收货单位文本20经办人编码文本5经办人文本8增值税率数字单精度型备注备注表3 货品出库表表3 货品出库表仓库信息表字段名数据类型字段长度是否为空仓库编号文本5仓库名称文本12存货种类文本2存货价值货币表4 仓库信息表表4 仓库信息表供货单位信息表（收货单位表）字段名数据类型字段长度是否为空单位编号文本5单位名称文本50单位地址文本50电话文本15联系人文本8表5 供货单位信息表表5 供货单位信息表经办人员表字段名数据类型字段长度是否为空编号文本5姓名文本8家庭住址文本50办公电话文本15家庭电话文本15表6 经办人员表表6 经办人员表用户表字段名数据类型字段长度是否为空UserID文本10userPWD文本6表7 用户表表7 用户表另外，我们还建立了几张查询表，用以存放部分用于计算的统计信息，以便查询。●入库登记统计表 入库登记_合计●货品入库年度统计表 入库登记_n●供货单位年度供货金额统计表 入库登记_w●库存汇总表 库存 ●出库登记统计表 出库登记_合计●货品出库年度统计表 出库登记_h●收货单位年度收货金额统计表 出库登记_d入库登记_合计表与出库登记_合计分别是以入库登记表和出库登记表为基础的，所以此处不再描述；库存汇总表主要由出库表和入库表建立关系获得。入库登记_n字段名数据类型字段长度是否为空货物名称文本10入库日期日期/时间年度数量数字长整型表8入库登记_n表8入库登记_n入库登记_w字段名数据类型字段长度是否为空供货单位文本50入库日期日期/时间年度供货总额数字长整型表9入库登记_w表9入库登记_w库存汇总字段名数据类型字段长度是否为空货物编码文本5入库日期日期/时间货物名称文本10数量（入库）数字长整型进货价货币数量（出库）数字长整型库存数量数字长整型表10库存汇总表表10库存汇总表出库登记_h字段名数据类型字段长度是否为空货物名称文本10出库日期日期/时间年度数量数字长整型表11出库登记_h表11出库登记_h出库登记_d字段名数据类型字段长度是否为空收货单位文本50出库日期日期/时间年度金额总额数字长整型表12出库登记_d表12出库登记_d第五章 应用程序设计5.1程序结构本应用程序由33个窗体组成，主要的分别是：主窗体，欢迎界面，登陆窗体，入库窗体，出库窗体，库存汇总，打印及查询等窗体组成。通过运行程序首先进入欢迎界面和登陆窗体，通过输入密码，验证身份后进入主窗体，在主窗体上有10个菜单项，分别对应各自的功能模块窗体，包括系统，库存管理，入库管理，出库管理，盘存管理，综合管理，附项管理，历史数据管理，打印和查询。需要哪个功能的时候就点哪个菜单，相对应的窗体会自动弹出。5.2程序源代码程序实现的部分代码如下：●公共模块Publicdate1AsStringPublicdate2AsStringPublicgUserNameAsString'保存用户名'添加执行SQL语句的函数PublicFunctiontransactSQL(ByValsqlAsString)AsADODB.RecordsetDimconAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrConnectionAsStringDimstrArray()AsStringSetcon=NewADODB.Connection'创建连接Setrs=NewADODB.Recordset'创建记录集OnErrorGoToTransactSQL_ErrorstrConnection="Provider=Microsoft.jet.oledb.4.0;DataSource=E:\库存管理\kucun.mdb"strArray=Split(sql)con.OpenstrConnection'打开连接IfStrComp(UCase$(strArray(0)),"select",vbTextCompare)=0Thenrs.OpenTrim$(sql),con,adOpenKeyset,adLockOptimisticSettransactSQL=rs'返回记录集iflag=1Elsecon.Executesql'执行命令iflag=1EndIfTransactSQL_Exit:Setrs=NothingSetcon=NothingExitFunctionTransactSQL_Error:MsgBox"查询错误："&Err.Descriptioniflag=2ResumeTransactSQL_ExitEndFunction●主窗体的程序代码图5－1主窗体界面图5－1主窗体界面PrivateSuba1_Click()Form1.ShowEndSubPrivateSuba2_Click()DimfAddAsNewfrmAddUserfAdd.ShowfAdd.ZOrder0EndSubPrivateSuba3_Click()DimfChangePWDAsNewfrmChangePWDfChangePWD.ShowEndSubPrivateSuba4_Click()frmAbout.ShowEndSubPrivateSuba5_Click()'调入数据备份Loadmain_sjbfmain_sjbf.Showmain.Enabled=FalseEndSubPrivateSuba6_Click()'调入数据恢复Loadmain_sjhfmain_sjhf.Showmain.HideEndSubPrivateSubb1_Click()frm货品信息.ShowEndSubPrivateSubb12_Click()sql="select*from货品信息orderby货品编码"frmProInfo.createList(sql)frmProInfo.ShowEndSubPrivateSubb2_Click()frm货品库存.ShowEndSubPrivateSubB3_Click()frm超储货品.ShowEndSubPrivateSubb4_Click()frm短线货品.ShowEndSubPrivateSubc1_Click()frm入库登记.ShowEndSubPrivateSubc2_Click()frm货品入库年度统计.ShowEndSubPrivateSubc3_Click()frm供货单位供货分类金额统计.ShowEndSubPrivateSubc4_Click()frm供货单位年度供货金额统计.ShowEndSubPrivateSubCommand1_Click()date1=Text1.Text&"/"&Text3.Text&"/"&Text2.Textdate2=Text6.Text&"/"&Text4.Text&"/"&Text5.TextText7.Text=date1EndSubPrivateSubd1_Click()frm出库登记.ShowEndSubPrivateSubd2_Click()frm货品出库年度统计.ShowEndSubPrivateSubd3_Click()frm收货单位期间收货统计.ShowEndSubPrivateSubd4_Click()frm收货单位年度收货金额统计.ShowEndSubPrivateSube1_Click()frm盘存录入.ShowEndSubPrivateSube2_Click()frm盘存表.ShowEndSubPrivateSubf1_Click()frm货品出入汇总表.ShowEndSubPrivateSubg1_Click()frm经办人员.ShowEndSubPrivateSubg2_Click()frm供货单位.ShowEndSubPrivateSubg3_Click()frm仓库信息.ShowEndSubPrivateSubg5_Click()Form6.ShowEndSubPrivateSubh1_Click()frm历史库存.ShowEndSubPrivateSubh2_Click()frm历史入库.ShowEndSubPrivateSubh3_Click()frm历史出库.ShowEndSubPrivateSubi1_Click()DataReport1.ShowEndSubPrivateSubi2_Click()DataReport2.ShowEndSubPrivateSubi3_Click()DataReport3.ShowEndSubPrivateSubj1_Click()Form2.ShowEndSubPrivateSubj2_Click()Form3.ShowEndSubPrivateSubj3_Click()Form4.ShowEndSubPrivateSubj4_Click()Form5.ShowEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsComctlLib.Button)SelectCaseButton.KeyCaseIs="rk"'调入入库登记c1_ClickCaseIs="ck"'调入出库登记d1_ClickCaseIs="kchz"'调入库存汇总f1_ClickCaseIs="zhcx"'调入组合查询j4_ClickCaseIs="sjbf"'调入数据备份a5_ClickEndSelectEndSubPrivateSubx_Click()EndEndSub●登陆模块的实现PrivateSubcmdLogin_Click()denlu_name=txtUserName.Textdenlu_pass=txtPassword.TextDimmycnAsNewADODB.ConnectionDimmyrsAsNewADODB.RecordsetSetmyrs=NewADODB.Recordsetmycn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=kucun.mdb;"myrs.Open"SELECT*FROM[用户]whereuserID='"+denlu_name+"';",mycn,adOpenKeyset,adLockOptimisticIfmyrs.BOF=TrueAndmyrs.EOF=TrueThenMsgBox"查无此人",,"登陆信息"ElseIfmyrs("userPWD")=denlu_passThen''''''''''''''''''''''''''''''''''''''''''MsgBox"身份正确",,"登陆信息"main.ShowUnloadMe'''''''''''''''''''''''''''''''''''''''''''''''''''ElseMsgBox"密码不正确",,"登陆信息"EndIfEndIfEndSub●添加用户模块的实现OptionExplicitPrivateSubCommand1_Click()DimsqlAsStringDimrsAsADODB.RecordsetIfTrim(UserName.Text)=""Then'判断用户名称是否为空MsgBox"请输入用户名称!",vbOKOnly+vbExclamation,"警告"ExitSubUserName.SetFocusElsesql="select*from用户whereUserID='"&UserName&"'"Setrs=transactSQL(sql)Ifrs.EOF=FalseThen'判断是否已经存在用户MsgBox"这个用户已经存在！请重新输入用户名称！",vbOKOnly+vbExclamation,"警告"UserName.SetFocusUserName.Text=""PassWord.Text=""ConfirmPWD.Text=""ExitSubElseIfTrim(PassWord.Text)<>Trim(ConfirmPWD.Text)Then'判断两次密码是否相同MsgBox"两次输入的密码不一致，请重新输入密码！",vbOKOnly+vbExclamation,"警告"PassWord.Text=""ConfirmPWD.Text=""PassWord.SetFocusExitSubElseIfTrim(PassWord.Text)=""Then'判断密码是否为空MsgBox"密码不能为空！",vbOKOnly+vbExclamation,"警告"PassWord.Text=""ConfirmPWD=""PassWord.SetFocusElse'添加用户sql="insertinto用户(UserID,UserPWD)values('"&UserNamesql=sql&"','"&PassWord&"')"transactSQL(sql)MsgBox"添加成功！",vbOKOnly+vbExclamation,"添加结果"'重新设置初始化为空UserName.Text=""PassWord.Text=""ConfirmPWD.Text=""UserName.SetFocusEndIfEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()UserName.Text=""PassWord.Text=""ConfirmPWD.Text=""EndSub●修改用户密码的实现OptionExplicitPublicgUserNameAsStringPrivateSubCommand1_Click()DimsqlAsStringDimrsAsADODB.RecordsetIfTrim(OldPWD.Text)=""Then'判断是否输入旧密码MsgBox"请输入旧密码！",vbOKOnly+vbExclamation,"警告"OldPWD.SetFocusExitSubElseIfTrim(NewPWD.Text)=""Then'判断是否输入新密码MsgBox"请输入新密码！",vbOKOnly+vbExclamation,"警告"NewPWD.SetFocusExitSubElseIfTrim(NewPWD.Text)<>Trim(ConfirmPWD.Text)Then'判断两次密码是否相同MsgBox"两次密码不同！",vbOKOnly+vbExclamation,"警告"NewPWD.Text=""ConfirmPWD.Text=""NewPWD.SetFocusElse'修改密码sql="update用户setUserPWD='"&NewPWD&"'whereUserID='"sql=sql&gUserName&"'"transactSQL(sql)MsgBox"密码已经修改！",vbOKOnly+vbExclamation,"修改结果"UnloadMeEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()OldPWD.Text=""NewPWD.Text=""ConfirmPWD.Text=""EndSub●数据备份模块的实现PrivateSubForm_Activate()'赋值给text1Text1.Text="A"EndSubPrivateSubCommand1_Click()'确认数据备份Me.MousePointer=11YesNo=MsgBox("准备好了吗？",vbNo+vbQuestion)IfYesNo=vbNoThenExitSubEndIfOnErrorGoToerrpromptMe.MousePointer=11MkDir(Text1.Text&":\数据备份")FileCopyApp.Path&"\kucun.mdb",Text1.Text&":\数据备份\kucun"&Date&".mdb"Me.MousePointer=0MsgBox"数据已备份完毕。"errprompt:Me.MousePointer=0SelectCaseErr.NumberCase57MsgBox"磁盘已满！",vbCriticalCase70MsgBox"磁盘写保护！",vbCriticalEndSelectEndSubPrivateSubCommand2_Click()Loadmainmain.Showmain.Enabled=TrueUnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSub●数据恢复模块的实现PrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.DriveEndSubPrivateSubFile1_Click()Text1.Text=Dir1.Path&"\"&File1.FileNameEndSubPrivateSubCommand1_Click()'恢复指定路径下的数据库IfText1.Text=""ThenMsgBox"请选择要恢复的数据！"ElseMe.MousePointer=11FileCopyDir1.Path&"\"&File1.FileName,App.Path&"\kucun.mdb"Me.MousePointer=0MsgBox"数据已恢复完毕！"EndIfEndSubPrivateSubCommand2_Click()main.ShowUnloadMeEndSub对于货品信息的浏览，主要采用了MSFlexGrid控件，它是一种Active控件，该控件提供了表格式界面，处理数据相当灵活，具有只读数据绑定、对表格数据进行显示和操作、数据分组排序、Data控件赋值、文本自动换行等功能。但它无法对数据进行动态输入，只能提供浏览功能。图5－2货品信息界面图5－2货品信息界面具体代码如下：OptionExplicitPrivateSubCommand1_Click()rsGrid.RefreshEndSubPrivateSubForm_Load()DimsqlAsStringsql="select*from货品信息orderby货品编码"createList(sql)EndSubPublicSubcreateList(sqlAsString)DimrsAsNewADODB.RecordsetDimiAsIntegerDimrsGirdAsMSFlexGrid'设置表头rsGrid.TextMatrix(0,0)="货品编码"rsGrid.TextMatrix(0,1)="货品名称"rsGrid.TextMatrix(0,2)="类别"rsGrid.TextMatrix(0,3)="型号"rsGrid.TextMatrix(0,4)="单位"rsGrid.TextMatrix(0,5)="仓库编码"rsGrid.TextMatrix(0,6)="存放仓库"rsGrid.TextMatrix(0,7)="入库计划单价"rsGrid.TextMatrix(0,8)="出库计划单价"rsGrid.TextMatrix(0,9)="原始库存"rsGrid.TextMatrix(0,10)="默认货位"rsGrid.TextMatrix(0,11)="警戒底线库存"rsGrid.TextMatrix(0,12)="警戒高线库存"Fori=0To12'设置所有表格对齐方式rsGrid.ColAlignment(i)=4NextiFori=0To11'设置每列宽度rsGrid.ColWidth(i)=1400NextirsGrid.ColWidth(12)=2000Setrs=transactSQL(sql)Ifrs.EOF=FalseThen'显示信息内容rsGrid.Rows=1WhileNotrs.EOFrsGrid.Rows=rsGrid.Rows+1rsGrid.TextMatrix(rsGrid.Rows-1,0)=rs(0)