库存管理系统设计方案

目录摘要…………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.4Access简述………………11库存管理系统设计分析…………124.1需求分析………………………124.2模块划分………………………134.3数据库设计……………………15应用程序设计……………………185.1程序结构……………………185.2程序源代码…………………19第六章设计总结………38参考文件……………………39

摘要 伴随当代工业发展，计算机信息管理系统越来越受到企业重视。本文主要分析了库存管理系统一些基本功效和组成情况，包含系统需求分析、系统结构，功效模块划分以及数据库模式分析等，重点对应用程序实际开发实现作了介绍。达成了数据一致性和安全性，且应用程序功效完备，符合了库存管理系统作为经典信息管理系统(MIS)要求。同时简单介绍了VisualBasic编程环境和Access数据库管理系统功效特点，库存管理系统是企业物流管理中不可或缺一部分。关键词：库存管理，数据库，信息管理，VB

AbstractWiththedevelopmentofmodernindustry,theinformationmanagementsystemofthecomputerisbeingpaidattentiontobyenterprises.Thistexthasanalysedsomebasicfunctionsoftheadministrativesystemofthestockandmakesupthesituationmainly,includingthesystematicdemandisanalysed,systematicstructure,thefunctionmoduledividesandthedatabasemodeisanalysedetc.,haverealizeddoingtheintroductiontotheactualdevelopmentoftheapplicationprogramespecially.Havingreachedtheconsistencyandsecurityofthedata,andtheapplicationprogramfunctioniscomplete,haveaccordedwiththeadministrativesystemofthestockastherequestforthetypicalinformationmanagementsystem(MIS).IntroducedthefunctioncharacteristicsofVisualBasicprogrammingenvironmentandAccessdatabasemanagementsystembrieflyatthesametime,theadministrativesystemofthestockisanindispensablepartinenterprise'smaterialflowmanagement.Keywords:stockmanagement,database,informationmanagement,VB

绪论库存管理系统是一个企事业单位不可缺乏一部分,它内容对于企业决议者和管理者来说都是至关主要，所以，库存管理系统应该能够为用户提供充分信息和快捷查询伎俩，但一直以来人们使用传统人工方式管理库存，这种管理方式存在着许多缺点，诸如效率低，保密性差等，而且时间一长，将产生大量文件和数据，这对于查找、更新和维护都带来了不少困难。伴随科学技术不停提升，计算机科学不停发展，其强大功效已经被人们深刻认识，它已经进入了人类社会各个领域并发挥着越来越主要作用。作为计算机应用一部分，使用计算机对产品库存信息进行管理，具备着人工管理无法比拟优点，它检索快速、查找方便、可靠性高、存放量大、保密性好、寿命长、成本低等，可降低更多人力物力，这些都能够极大地提升货物库存管理效率，也是企业库存管理科学化、正规化，与世界接轨主要条件。所以，开发一个库存管理系统是很有必要，具备其特有技术意义和管理意义。 1.1管理信息系统概述管理信息系统（简称MIS）是在管理科学、系统科学、计算机科学等基础上发展起来综合性边缘科学。在二十一世纪信息高速发展时代中，管理信息系统具备很主要作用，它预测和辅助决议功效，即利用当代管理决议和支持。管理信息系统是一个由人、机（计算机）组成能进行管理信息搜集、传递、存放、加工、维护和使用系统。它能观察企业或组织各种运动情况，利用过去数据预测未来；从全局出发辅助决议；利用信息控制企业或组织行为，帮助其实现久远规划目标。简言之，管理信息系统是一个以计算机为工具，具备数据处理、预测、控制和辅助决议功效信息系统。管理信息系统是一个人机系统，同时它又是一个一体化集成系统。管理信息系统是信息系统一个子系统，它以计算机技术、通讯技术和软件技术为技术基础，同时将当代管理理论、当代管理方法及各级管理人员融为一体，最终为某个组织整体管理与决议服务，是由人和计算机组成能进行管理信息搜集、传递、存放、加工、维护和使用系统。管理信息系统基本结构能够概括为四大部件，即信息源、信息处理器、信息用户和信息管理者。所以，一个成功管理信息系统应该具备可靠硬件、实用软件、强有力当代化管理水平。详细讲，管理信息系统三大支柱是：计算机网络、数据库和当代化管理，这三打支柱称为管理信息系统扩展部件。1.2数据库应用系统开发介绍在数据库应用系统开发之前，对开发数据库基本概念应该了解，对数据库结构、开发数据库应用程序步骤、开发体系及方法都应该有相当清楚了解和认识。数据库应用系统开发目标是建立一个满足用户长久需求产品。开发主要过程为：了解用户需求，然后，把它们转变为有效数据库设计。把设计转变为实际数据库，而且这些数据库带有功效完备、高效能应用。数据库技术在计算机软件邻域研究中一直是非常主要主题，产生于60年代，30多年来数据库技术得到了快速发展，并已形成较为完整理论体系和一大批实用系统。而且，近年来，伴随WorldWideWeb(WWW)猛增及Internet技术快速发展，使得数据库技术之时成为最热门技术之一。1.2.1数据库数据库由DBMS（数据库管理系统）处理，DBMS则由开发人员和用户经过应用程序直接或间接地使用。它主要包含四个要素：用户数据、元数据、索引和应用元数据。一、用户数据现在，大多数主流数据库管理系统把用户数据表示为关系。现在把关系看作数据表。表列包含域或属性，表行包含对应业务环境中实体统计。并非全部关系都一样符合要求，有些关系比其它关系更结构化一些。为了对比结构差关系和结构好关系之间差异，以图书管理系统中图书和图书借阅者关系为例来说明，假若设计关系R1（借书证号，姓名，性别，身份编号，身份证，联络电话，图书编号,图书名称，图书类别，作者，出版社，出版日期，备注，价格，数量）；这个关系问题出在它关于于两个不一样主题数据，就是图书借阅者和图书。用这种方式组成关系在进行修改时，会出现问题。因为一个图书借阅者可能借阅多本书，假如某个图书借阅者某个字段（如联络电话）出现变更，它所借阅图书统计（可能多个）也就必须改变，这是不好。所以数据用两个关系表示愈加好。现在假如某图书借阅者改变了它联络电话，只关于系（表）user对应行需要改变。当然，要想产生一个，显示图书名称及其借阅者联络电话报表，就需要将这两个表行结合起来。结果表明，将关系分别存放，在生成报表时候将它们结合起来，比把它们存放在一个合成表中愈加好。user（借书证号，姓名，性别，身份编号，身份证，联络电话，）book（图书编号,图书名称，图书类别，作者，出版社，出版日期，备注，价格，数量）二、元数据数据库是自描述，这就意味着它本身包含了它结构描述，这种结构描述称作元数据。因为DBMS产品是用来存放和操纵表，所以大多数产品把元数据以表形式存放，有时称作系统表。这些系统表存放了数据库中表情况，指出每一个表中有多少列，那一列是主关键字，每一列数据类型描述，它也存放索引、关键字、规则和数据库结构其余部分。在表中存放元数据不但对DBMS是有效，对用户也是方便，因为他们能够使用与查询用户数据一样查询工具来查询元数据。三、索引第三种类型数据改进了数据库性能和可访问性，这种数据经常称作开销数据，尽管有时也采取其余类型数据结构，如链表，但它主要还是索引。索引能够用来排序和快速访问数据。下面以库存管理系统中货物信息表为例来说明。假定数据在磁盘上是按’货物编号’递增次序排列，用户想打印一个按’货物名称’排序货物数据报表。为此，全部数据都需要从源表中提取出来并排序，除非表很小，不然这是一个很费时过程。或者，能够在‘货物名称’字段上创建一个索引，该索引条目按照‘货物名称’排序，这么，该索引条目能够读出来，并用来按次序访问货物信息数据。索引用于快速访问数据。比如，一个用户只想访问货物信息表中‘类别’值为‘01’那些货物。假如没有索引，则必须搜索整个源表；但有了索引之后，能够找到索引条目，并使用它来挑选全部适宜行。索引对排序和查找是有帮助，但要付出代价。货物信息表中行每次改变时，索引也必须改变，这意味着索引并非随意，应该在真正需要时保留。四、应用元数据存放在数据库中第四种数据是应用元数据，它用来存放用户窗体、报表、查询和其余形式查询组件。并非全部DBMS都支持应用组件，支持组件DBMS也不一定把全部组件结构作为应用元数据存放在数据库中。然而，大多数当代DBMS产品存放这种数据作为数据库一部分。通常来说，数据库开发人员和用户都不直接访问应用元数据，相反，他们经过DBMS中工具来处理这些数据。Access中就支持窗体、存放过程等应用元数据。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）

物理设计任务是确定全部属性类型、宽度与取值范围，设计出基本表主键，将全部表名与字段名英文化（现在很多软件能支持汉字字段，如Access），实现物理建库，完成数据库物理设计字典。（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.4Access简述Access是关系数据库开发工具，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)=Setrs=transactSQL(sql)Ifrs.EOF=FalseThen'显示信息内容rsGrid.Rows=1WhileNotrs.EOFrsGrid.Rows=rsGrid.Rows+1rsGrid.TextMatrix(rsGrid.Rows-1,0)=rs(0)rsGrid.TextMatrix(rsGrid.Rows-1,1)=rs(1)rsGrid.TextMatrix(rsGrid.Rows-1,2)=rs(2)rsGrid.TextMatrix(rsGrid.Rows-1,3)=rs(3)rsGrid.TextMatrix(rsGrid.Rows-1,4)=rs(4)rsGrid.TextMatrix(rsGrid.Rows-1,5)=rs(5)rsGrid.TextMatrix(rsGrid.Rows-1,6)=rs(6)rsGrid.TextMatrix(rsGrid.Rows-1,7)=rs(7)rsGrid.TextMatrix(rsGrid.Rows-1,8)=rs(8)rsGrid.TextMatrix(rsGrid.Rows-1,9)=rs(9)