前 言
为了适应日趋激烈的市场竞争，企业需要对自身的经营状况有充分的了解，并通过有效的管理不断提高效率。因此，对仓库的管理也成为提高生产经营效率的一个重要途径。
仓库库存管理系统是是典型的信息管理系统, 一个企业不可缺少的部分, 它的内容对于企业的决策者和管理者来说都至关重要, 所以仓库库存管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理仓库中的各种物资设备，这种管理方式存在着许多缺点, 如:效率低、另外时间一长, 将产生大量的文件和数据, 这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高, 计算机科学日渐成熟, 其强大的功能已为人们深刻认识, 它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分, 使用计算机对物资信息进行管理, 具有着手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率, 也是企业的科学化、正规化管理, 与世界接轨的重要条件。
因此，开发这样一套仓库库存管理软件是一件很有必要的事情。
第一章 仓库库存管理概述
第一节 仓库库存管理的必要性
大多数仓库库存管理理论认为，仓库库存是物理上和逻辑上库房库位的所有有形和无形物料极其价值的总和，具体包括成品、原材料、在制品、在途品、生产前物料、备品备件等。虽然持有一些仓库库存是必要的，过量的库存却非但没有用处而且占用了资金。占用的资金对于公司发展、新产品开发等都是非常需要的；减少资金占用还可以大大减少来自银行贷款的利息和风险。对那些采购量特别大、采购件市场价格有波动的物料库存，加强库存管理效果更为明显。因此，平衡公司库存投资与其它资金需求至关重要。
第二节 仓库库存管理的目标
仓库库存管理的主要目标就是通过对仓库所有入出库活动的管理和控制及对库存数据有效的统计和分析，以保证企业生产中畅通的物流，使决策人员及早发现问题，采取相应措施，调整库存结构, 缩短储备周期，加速资金周转，最大限度地降低库存占用，同时，通过周期性的仓库盘点，及时补救管理中的漏洞，使仓库库存管理系统实时地反映企业中各个仓库的现时情况，为各类管理人员从不同侧面提供所需信息，以便协调企业经营收到更大效益，仓库库存管理系统是协调企业生产经营的基础，其数据的准确性、方便的查询、有效的分析是整个计算机管理系统顺利运行的关键。第三节 仓库库存管理目前存在的问题
仓库库存管理对企业来说是一项繁琐复杂的工作，每天要处理大量的单据数据。为及时结清每一笔业务，盘点库存和货物流动情况，保证企业生产用料以及货物安全，库存管理人员要花费大量人力物力和时间来做数据记录统计工作。在世界发达国家，库存管理的计算机化水平已经很高了，尽管我国的生产企业在这方面也有了很强的意识和长足的进步，但仍存在这样、那样的一些问题。表现之一：有的企业单位的库存管理部分目前仍为手工、半手工操作。从供应单位办理入库登记开始，到使用单位输领料出库手
续为止，所有操作基本上都是由仓库管理人员笔写，手理，加上算盘、计算器来完成。这不仅繁锁，效率低，而且缺乏库存管理的一些基本手段，如库存状况统计，查询经济订货量计算等，这给企业在一定程度上造成了管理上的落后，及经济利益上的损失。表现之二为：有的单位的库存管理部已上了微机，但对微机的利用效率极低，有的在用它打游戏，有的仅把它当计算器或打字机来用。表现之三为：有的企业单位既有了微机同时也有了仓库库存管理软件，但硬件上去了，软件上不去。因为他们用的仓库库存管理软件，大多为自己的工作人员及其他一些非专业人员所开发的简单的管理程序，很难称得上是“仓库库存管理信息系统软件”这些程序的弱点多表现为：
1) 系统开发时无科学的理论支持。
2) 开发过程中调研不全面。
3) 软件编写时模型不清晰完整。
4) 所用开发工具落后（如Foxbase 等）。
第四节 开发背景
1.4.1 课题研究的背景
计算机在管理中的应用开始于1954年，当时美国首先用计算机处理工资单。40多年来，计算机在处理管理信息方面发展迅速。例如，60年代美国计算机在管理中应用项目不到300项，到了1975年达到2670项。而现在，美国在财务会计上90%的工作由计算机完成；物资管理中80—100%的信息处理由计算机完成；计划管理中是80—90%。据计算机应用方面发展较快的国家统计，计算机用于经济管理的约占80%；用于科技运算的占8%；用于生产过程控制的占12%。因此，经济管理是计算机应用的主要领域。当然，由于库存管理在经济管理中占重要地位，其计算机化在发达国家中也已经达到了相当高的水平。我国在全国范围内推广计算机在管理中的应用，是在70年代末开始的，虽然起步较晚，近几年发展却较快，特别是微型计算机的出现和普及为信息处理提供了物美价廉的手段，对于推动我国管理信息处理的现代化起了重要的作用。当今社会为信息社会，世界已进入在计算机信息管理领域中激烈竞争的时代。信息已成为继劳动力、
土地、资本之后的又一大资源，谁控制的信息越多，谁利用信息资源的效率越高，谁就会在各方面的竞争中，占有一席之地，谁就会更有优势，这一点已得到举世公认。随着WTO 的加入和我国工业的迅猛发展，为了抓住机遇，在竞争中占得先机，作为生产企业的一个必不可少的重要环节—库存管理的信息化、计算机化也就迫在眉睫了。开发库存管理信息系统即有宏观上的意义，那就是顺应时代信息化、现代化潮流，提高效益，促进国民经济结构优化；也有微观上的意义，那就是可以提高管理的现代化程序，加强管理的信息化手段，提高工作效率，增加单位效益。
1.4.2 所做课题的目的
企业的库存物资管理往往是很复杂、很繁琐的。由于所掌握的物资种类众多，订货、管理、发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计报表繁多，因此仓库的库存管理必须编制一套仓库库存管理信息系统，实现计算机化操作，而且必须根据企业的具体情况制定相应的方案。
根据当前的企业管理体制，一般的库存管理系统，总是根据所掌握的物资类别，相应分成几个科室来进行物资的计划，订货，核销托收，验收入库，根据企业各个部门的需求来发送物资设备，并随时按期进行库存盘点，作台帐，根据企业领导和自身管理的需要按月、季度、年度进行统计分析，产生相应报表。为了加强关键物资、设备的管理，要定期掌握其储备，消耗情况，根据计划定额和实际纤毫定额的比较，进行定额管理，使得资金使用合理，物资设备的储备最佳。上海一个完整的企业物资供应管理系统应包括采购计划管理，合同收托管理、仓库库存管理、定额管理、统计管理、财务管理等模块。其中仓库的库存管理是整个物资供应管理系统的核心。因此有必要开发一套独立的库存管理系统来提高企业工作效率, 而所使用的这套库存管理系统是企业生产经营管理活动中的核心，此系统必须可以用来控制合理的库存费用、适时适量的库存数量，使企业生产活动效率最大化。通过对这些情况的仔细调查，我们开发了这个仓库库存管理系统。
第二章 系统分析
本系统主要完成对仓库的库存管理，它包括六个功能模块：系统维护、基础资料设置、入库单处理、出库单处理、统计查询以及报表输出六个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改、报表、打印等功能。
系统的核心是入库、库存和出库三者之间的联系，每一个表的修改都将联动的影响
其它的表，当完成入库或出库操作时系统会自动地完成库存的修改。查询功能也是系统的核心之一，在系统中即有单条件查询和多条件查询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码修改功能，并具备报表打印功能。
系统采用microsoft office中的access 2000来设计数据库，并使用当前优秀的开发工具—visual basic 6.0 ，它有着灵活的数据库结构，对数据库应用有着良好的支持。
第一节 可行性分析
当接受一个软件开发任务，就进入软件生命的第一个阶段，即进行可行性的研究。并不是所有问题具有简单的解决办法，许多问题不能在预定的规模之内解决。因此通过可行性的研究分析可以知道问题。
有无可行性的解决方法，进而避免人力、物力和才力的浪费。在现行系统初步调查的基础上就可以提出新系统目标，即新系统建立后所要求达到的运行指标，这是系统开发和评价的依据。系统目标应充分体现，直接为仓库管理系统服务，并且，程序可以分期分批实现。但是，需要指出的是，系统目标是不可能在总体规划阶段就提得非常具体，它还将在开发过程中逐步明确和定量化。以达到更加出色的程序系统。可是，目标的提法不尽相同，例如：
·提高仓库管理效率，减轻劳动强度；
·提高信息处理速度和准确性；
·为仓库管理者提供更方便、科学的服务项目。
系统的目标确定后，就可以从以下四方面对能否实现新系统目标进行可行性分析：
（1）技术可行性
根据客户提出的系统功能、性能及实现系统的各项约束条件，根据新系统目标来衡量所需的技术是否具备，本系统是一个数据库管理和查询的系统，现有的技术以较为成熟，硬件、软件的性能要求、环境条件等各项条件良好，估计利用现有技术条件应完全可以达到该系统的功能目标。同时，考虑给予的开发期限也较为充裕，预计系统是可以在规定期限内完成开发。
（2）经济可行性
估算新系统的成本效益分析，其中包括估计项目开发的成本，开发费用和今后的运行、维护费用，估计新系统将获得的效益，估算开发成本是否回高于项目预期的全部经费。并且，分析系统开发是否会对其它产品或利润带来一定影响。
① 支出：
·基础投资：
硬件设备： PC机配置：128兆内存，40G 以上硬盘。
软件设备：WINDOWS982000、visual basic 6.0、WORD2000
·其它一次性支出：
软件设计和开发费用
·经常性支出：
软件维护费用、软件使用费用。
②效益：
系统的效益可以从经济效益和社会效益两方面考虑。对于仓库管理系统则应着重分析其社会效益。例如，系统投入运行后可以使仓库管理实现科学化、规范化。曾强了工作人员对仓库管理能力、提高了工作效率。
（3）运行可行性
新系统的研制和开发是充分得考虑工作人员对仓库的易于管理，管理者方便查询设备信息效率。从而能完全满足使用者的要求。
（4）法律可行性
新系统的研制和开发，将不会侵犯他人、集体和国家的利益，不会违反国家政策和法律。
第二节 用户需求分析
用户需求分析就是在用户需求调研的基础上，确定系统的总体结构方案，完成相应的需求分析报告。在确定系统的总体结构方案过程中，包括确定应用程序的结构、系统开发环境和系统的功能模块。用户需求调研结束之后，应该立即进行用户需求分析。
2.2.1应用程序结构确定
从用户应用角度来看，可把应用程序系统的组成部分分成数据存储层、业务处理层和界面表示层等3个层次，而应用程序结构可归纳为：集中式应用程序结构、单用户应用程序结构、多层服务器应用程序结构、浏览器服务器应用程序结构、客户机服务器应用程序结构等5种类型。
本仓库库存管理系统就采用了当前最流行的客户机服务器应用程序结构（即CS 结构），此时，客户机提出请求，服务器对客户机的请求作出回应。通过对服务功能的分布实现了分工服务。数据存储层放在服务器上，业务处理层和界面表示层放在客户机上，因此又被称为“灵敏的客户机”结构。许多操作可以在本地的客户机上执行，只是当需要数据时，才向服务器发出请求。并使应用程序的处理更接近用户，使整个系统具有较好的性能，可以并行地处理应用程序的请求、减少了数据传输量、降低了服务器的负荷。由于条件所限，将此系统所有程序都置于一台计算机上，以便调试运行。
2.2.2系统开发环境的选择
现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：
microsoft 公司的visual basic 6.0版
microsoft 公司的visual c++6.0版
borland 公司的delphi 6.0版
由于大多数公司内部使用的计算机平台都是基于Windows 环境的。为了降低系统成本，应最大程度地利用现有的资源、兼容现有的环境，可确定使用下面的开发环境：
★网络操作系统：Windows2000；★数据库服务器：MicrosoftAccessr2000；★服务器平台：Windows2000；★客户机平台：Windows9598NT2000；★前端开发工具：visualBasic6.0(企业版) ；★数据访问对象：ADO （本系统使用ADO 控件，简化编程）。
第三章 系统开发环境的介绍
第一节 access 数据库简介
数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file ）和关系数据库（relational ）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。
建立一个数据库我们有多种选择，现在市场上有各种各样的数据库，而且每一种数据库都有其自身的特点，不能说哪一种更好，只能在其中寻找一种能更好地适应系统需求、更好地满足用户的要求以及适应开发人员的习惯。在本系统中，做为图书仓库管理系统是一个比较小的应用系统，它所产生和处理的数据量也比较小。因此，没有必要使用像sql server和oracle 这样的大型数据库。我首先想到的数据库是borland 公司的paradox 数据库。另外，microsoft office 中的access 数据库在计算机上的应用比较普及，是开发小型数据库系统的比较理想的选择，所以，在本系统中我选择了access 数据库。
access 做为一个数据库管理系统，它被集成在microsoft office 中。access 数据库处理的基本结构，采取关系型数据库模式。与其他的数据库系统相比，access 更加简单易学，一个普通的计算机用户可以很快地掌握它。access 2000的功能十分强大，利用它可以方便地实现对信息保存、维护、查询、统计、打印、交流、发布，而且它可以十分方便地与office 其他组件交流数据，这些功能对一个一般用户而言已经足够了。
第二节 Visual Basic简介
Visual Basic（简称VB ）是美国微软公司（Microsoft ）于1990年推出的一套完
整的Windows 系统软件开发工具，可用于开发Windows 环境下的各类应用程序，是一种可视化、面向对象、用事件驱动方式的结构化高级程序设计语言和工具，是目前使用最广泛的编程语言之一。至今以升级到了6.0版。
VB 的重要特点之一是可视性。系统引进了窗体和控件的机制，用于设计应用程序界面。用户通过在屏幕上生成窗体，在窗体中绘制所需要的控件和按钮，设计菜单和对话框，VB 会自动生成相应的代码。
VB 的另一重要特点是事件驱动。当窗体或控件上发生一个事件时，VB 立即把控制权交给程序员。程序员不必担心如何判断事件是否已发生，只需要编写一段代码告诉计算机在事件发生以后应该做什么工作就可以了。这样，设计一个Windows 应用程序简化为用鼠标在屏幕上点击、拖拽并添加少量的代码就可以完成了，大大降低了对程序设计的要求，提高了应用程序的开发效率。
利用VB 的可视性特点，可方便的设计了程序的窗体界面，并在各个窗体中的合适位置绘制所需的每种控件。如要修改窗体或控件的某项属性，只需在相应的窗体或控件的属性窗口修改相应的参数便可达到需要的设计效果。
利用VB 的事件驱动性特点，只需在窗体或控件上的代码窗口中添加少量的代码，便可达到告诉当在相应的窗体或控件上发生某一事件时，它们在事件发生后应该做什么工作的目的。例如几个窗体上的添加、删除、返回按钮的作用，就是通过在各个相应按钮的代码窗口中输入相应的代码，来达到当在几个按钮上出现单击（Click ）事件后，相应按钮实现添加、删除、返回的功能的。
作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS 中的重要支持技术，在MIS 开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows 环境下的种类应用程序。它简单易学、效率高，且功能强大
第四章 系统实施
第一节 模块划分
基本模块与功能：
①系统维护
包括用户管理，密码管理，系统启用，期初库存录入，资料删除，以及月终结转，可以根据需要对用户限制权限，以确保数据的安全性。
②基础资料设置
部门设置：对企业的每一个部门进行登记；
员工设置：录入企业的所有员工信息情况；
物品类别设置：对仓库里货品的类别进行登记，以便快速查询；
物品设置：对仓库里已有货品、短缺的货品进行登记，以便及时采购补货并对库里超储的货品进行登记，控制库存量，减少进货；
供应商设置：对供应商的信息今夕感编辑以便能及时联系进行业务；
③单据处理
1. 入库管理
入库登记管理：能对货品的入库登记，删除，更改等；
入库期间统计：货品入库期间年度的统计；
供货单位期间供货金额统计：对货品供应的金额进行统计；
2. 出库管理
对货品出库期间的年度统计，出库登记，及收获单位金额统计等；
④统计查询
主要针对已过帐单据进行查询，其中包括采购入库单查询，其他入库单查询，出库单查询，库存调整单查询；
⑤报表输出
包括领用报表，仓库库存报表。主要功能是：对数据的查询打印；
打印与查询：可根据输入的条件，对货品的入库信息，库存信息等进行简单查询和组合查询。
⑥退出系统
按键退出
第二节 数据库设计
数据库设计的步骤主要是：
① 数据库结构定义：目前的数据库管理系统（DBMS ）有的是支持联机事务处理CLTP （负责对事务数据进行采集、处理、存储）的操作型DBMS ，有的可支持数据仓库、有联机分析处理CLAP （指为支持决策的制定对数据的一种加工操作）功能的大型DBMS ，有的数据库是关系型的、有的可支持面向对象数据库。针对选择的DBMS ，进行数据库结构定义。
② 数据表定义：数据表定义指定义数据库中数据表的结构，数据表的逻辑结构包括：属性名称、类型、表示形式、缺省值、校验规则、是否关键字、可否为空等。关系型数据库要尽量按关系规范化要求进行数据库设计，但为使效率高，规范化程度应根据应用环境和条件来决定。数据表设计不仅要满足数据存储的要求，还要增加一些如反映有关信息、操作责任、中间数据的字段或临时数据表。
③ 存储设备和存储空间组织：确定数据的存放地点、存储路径、存储设备等，备份方案，对多版本如何保证一致性和数据的完整性。
④ 数据使用权限设置：针对用户的不同使用要求，确定数据的用户使用权限，确保数据安
⑤ 数据字典设计：用数据字典描述数据库的设计，便于维护和修改。
本库存管理系统是应用在单机系统上的，所以只需建立起一个数据库，在此数据库基础上建立起表格，现将部分数据结构表描述如下：
货品信息表
入库登记表
出库登记表
仓库信息表
供货单位信息表（收货单位表）
经办人员表
用户表
另外，我们还建立了几张查询表，用以存放部分用于计算的统计信息，以便查询。 ● 入库登记统计表
入库登记_合计 入库登记_n 入库登记_w
● 货品入库年度统计表
● 供货单位年度供货金额统计表 ● 库存汇总表
库存
● 出库登记统计表 出库登记_合计 出库登记_
● 货品出库年度统计表
入库登记_w
库存汇总
出库登记_ Explicit
Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() '设置全局变量为 false '不提示失败的登录 LoginSucceeded = False Me.Hide End Sub
Private Sub cmdOK_Click() '检查正确的密码
If Not IsNull(Me.DCboUserName.SelectedItem) Then If txtPassword = Me.DCboUserName.BoundText Then '将代码放在这里传递 '成功到 calling 函数 '设置全局变量时最容易的 LoginSucceeded = True
strCurUser = Me.DCboUserName.Text Me.Hide Else
MsgBox "无效的密码，请重试!", , "登录" txtPassword.SetFocus SendKeys "{Home}+{End}" End If Else
MsgBox "请选择用户名!", , "登录" Me.DCboUserName.SetFocus
End If End Sub
系统启用源代码：
Private Sub mnuSys_start_Click() Dim strBeg As String
Dim strYear, strMonth As String Dim strSQL As String
strBeg = InputBox("请输入系统启用时间", "系统启用", CStr(Date)) If IsDate(strBeg) Then
strYear = Right(CStr(Year(CDate(strBeg))), 2) strMonth = Format(CStr(Month(CDate(strBeg))), "0#") strSQL = "alter table mat_ qty" & strYear & strMonth _ & " single"
cmSysmandText = strSQL cmSys.Execute
strSQL = "alter table mat_ price" & strYear & strMonth _ & " currency"
cmSysmandText = strSQL cmSys.Execute
strSQL = "update mat_, "系统启用" Else
MsgBox "日期格式错误！", vbCritical, "启用错误" Exit Sub End If
End Sub
仓库库存管理系统主界面源代码：
Private Sub MDIForm_Load() Dim strSQL As String
'Dim rsSys As ADODB.Recordset Dim Conjxc As ADODB.Connection Set Conjxc = New ADODB.Connection Conjxc.ConnectionString = connstring
Set cmSys = New ADODBmand
cmSys.ActiveConnection = DEjxc.Conjxc cmSysmandType = adCmdText Dim rsSys As ADODB.Recordset
Conjxc.Open 'adOpenDynamic, adLockOptimistic strSQL = "select offline from r_parameter" Set rsSys = New ADODB.Recordset
rsSys.Open strSQL, Conjxc, adOpenKeyset, adLockOptimistic 'rsSys.MoveFirst If rsSys!offline Then
Me.mnuAct_dj.Enabled = False Me.mnuSql.Enabled = False Me.mnuReport.Enabled = False Me.mnuSys_trans.Enabled = False Me.mnuSys_start.Enabled = True Me.mnuSys_begqty.Enabled = True Else
Me.mnuAct_dj.Enabled = True Me.mnuSql.Enabled = True Me.mnuReport.Enabled = True Me.mnuSys_trans.Enabled = True Me.mnuSys_start.Enabled = False Me.mnuSys_begqty.Enabled = False End If
rsSys.Close
'Set cmSys = New ADODBmand
'cmSys.ActiveConnection = DEjxc.Conjxc 'cmSysmandType = adCmdText End Sub
系统采购入库单查询源代码：
Option Explicit
Private rsPsHB As ADODB.Recordset Private rsOrdDB As ADODB.Recordset Private cmPsHB As ADODBmand Private strMaxNum As String
Private Sub CmdDep_Click(Index As Integer) Dim intAnswer As Integer
Dim strSQL As String Select Case Index Case 0
FrmSql.intNumField = 6 FrmSql.Show vbModal
Select Case FrmSql.intNumField Case -1
rsPsHB.Filter = Me.DataGrid1.Columns.Item(0).DataField & _
"''"
rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'" Case -2 Case Else
rsPsHB.Filter
Me.DataGrid1.Columns.Item(FrmSql.intNumField).DataField & _ " like '*" & FrmSql.strSqlField & "*'"
rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'" End Select Case 1 Case 2 Unload Me End Select End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'" End Sub
Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As
=