仓库库存管理（软件方面毕业论文）

仓库库存管理系统 第 页 共 34 页 前 言 上海共享网 上海 为了适应日趋激烈的市场竞争，企业需要对自身的经营状况有充分的了解，并通过有效的管理不断提高效率。因此，对仓库的管理也成为提高生产经营效率的一个重要途径。 仓库库存管理系统是 是典型的信息管理系统 ,一个企业不可缺少的部分 ,它的内容对于企业的决策者和管理者来说都至关重要 ,所以仓库库存管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理仓库中的各种物资设备，这种管理方式存在着许多缺点 ,如 :效率低、另外时间一长 ,将产生大量的文件和数据 ,这对 于查找、更新和维护都带来了不少的困难。 上海共享网 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。 共享网 作为计算机应用的一部分 ,使用计算机对物资信息进行管理 ,具有着手工管理所无法比拟的优点 。 例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率 ,也是企业的科学化、正规化管理 ,与世界接轨的重要条件。 上海共享网 因此，开发这样一套 仓库 库存管理软 件 是一件 很有必要的事情。 上上海共 享网 仓库库存管理系统 第 页 共 34 页 第一章 仓库 库存管理 概述 上海共享网 第一节 仓库 库存管理的必要性 上 大 多数 仓库库存 管理理论认为， 仓库库存 是物理上和逻辑上库房库位的所有有形和无形物料极其价值的总和，具体包括成品、原材料、在制品、在途品、生产前物料、备品备件等。虽然持有一些 仓库库存 是必要的，过量的库存却非但没有用处而且占用了资金。占用的资金对于公司发展、新产品开发等都是非常需要的；减少资金占用还可以大大减少来自银行贷款的利息和风险。对那些采购量特别大、 采购件市场价格有波动的物料库存，加强库存管理效果更为明显。因此，平衡公司库存投资与其它资金需求至关重要。 上海共享网 上海共享网 第二节 仓库 库存管理的目标 上海共享网 仓库 库存管理的主要目标就是通过对仓库所有入出库活动的管理和控制及对库存数据有效的统计和分析，以保证企业生产中畅通的物流，使决策人员及早发现问题，采取相应措施，调整库存结构 ,缩短储备周期，加速资金周转，最大限度地降低库存占用，同时，通过周期性的仓库盘点，及时补救管理中的漏洞，使 仓库 库存管理系统实时地反映企业中各个仓库的现时情况，为各 类管理人员从不同侧面提供所需信息，以便协调企业经营收到更大效益， 仓库 库存管理系统是协调企业生产经营的基础，其数据的准确性、方便的查询、有效的分析是整个计算机管理系统顺利运行的关键。 第三节 仓库 库存管理 目前存在的问题 仓库 库存管理对企业来说是一项繁琐复杂的工作，每天要处理大量的单据数据。为及时结清每一笔业务，盘点库存和货物流动情况，保证企业生产用料以及货物安全，库存管理人员要花费大量人力物力和时间来做数据记录统计工作。在世界发达国家，库存管理的计算机化水平已经很高了，尽管我国的生产企业在这方面也有了很强的 意识和长足的进步，但仍存在这样、那样的一些问题。表现之一：有的企业单位的库存管理部分目前仍为手工、半手工操作。从供应单位办理入库登记开始，到使用单位输领料出库手续为止，所有操作基本上都是由仓库管理人员笔写，手理，加上算盘、计算器来完成。这不仅繁锁，效率低，而且缺乏库存管理的一些基本手段，如库存状况统计，查询经济订货量计算等，这给企业在一定程度上造成了管理上的落后，及经济利益上的损失。表现之二为：有的单位的库存管理部已上了微机，但对微机的利用效率极低，有的在用它打游戏，有的仅把它当计算器或打字机来用。表现之三 为：有的企业单位既有了微机同时也有了 仓库 库存管理软件，但硬件上去了，软件上不去。因为他们用的 仓库 库存管理软件，大多为自己的工作人员及其他一些非专业人员所开发的简单的管理程序，很难称得上是 “ 仓库 库存管理信息系统软件 ” 这些程序的弱点多表现为： 仓库库存管理系统 第 页 共 34 页 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 所做课题的目的 企业的库存物资管理往往是很复杂、很繁琐的。由于所掌握的物资种类众多，订货、管理、发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计报表繁多，因此仓库的库存管理必须编制一套 仓库 库存管理信息系统，实现计算机化操作，而且必须根据企业的具体情况制定相应的方案。 仓库库存管理系统 第 页 共 34 页 根据当前的企业管理体制，一般的库存管理系统，总是根据所掌握的物资类别，相应分成几个科室来进行物资的计划，订货，核销托收，验收入库，根据企业各个部门的需求来发送物资设备，并随时按期进行库存盘点，作台帐，根据企业领导和自身管理的需要按月、季度、年度进行统计分析，产生相应报表。为了加强关键物资、设备的管理，要定期掌握其储备，消耗情况，根据计划定额和实际纤毫定额的比较，进行定额管理，使得资金使用合理，物资设备的储备最佳 。上海一个完整的企业物资供应管理系统应包括采购计划管理，合同收托管理、仓库库存管理、定额管理、统计管理、财务管理等模块。其中仓库的库存管理是整个物资供应管理系统的核心。因此有必要开发一套独立的库存管理系统来提高企业工作效率 , 而所使用的这套库存管理系统是企业生产经营管理活动中的核心，此系统必须可以用来控制合理的库存费用、适时适量的库存数量，使企业生产活动效率最大化。通过对这些情况的仔细调查，我 们 开发了 这个 仓库库存管理系统。 仓库库存管理系统 第 页 共 34 页 第 二 章 系统分析 本系统主要完 成对仓库的库存管理，它包括六个 功能模块 ：系统维护、基础资料设置、入库单处理、出库单处理、统计查询以及报表输出六个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改、报表、打印等功能。 系统的核心是入库、库存和出库三者之间的联系，每一个表的修改都将联动的影响其它的表，当完成入库或出库操作时系统会自动地完成库存的修改。查询功能也是系统的核心之一，在系统中即有单条件查询和多条件查询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。系统有完整的用户添加、 删除和密码修改功能，并具备报表打印功能。 系统采用 microsoft office中的 access 2000来设计数据库，并使用当前优秀的开发工具 visual basic 6.0 ，它有着灵活的数据库结构，对数据库应用 有着良好的支持。 第一节 可行性分析 当接受一个软件开发任务，就进入软件生命的第一个阶段，即进行可行性的研究。并不是所有问题具有简单的解决办法，许多问题不能在预定的规模之内解决。因此通过可行性的研究分析可以知道问题。 有无可行性的解决方法，进而避免人力、物力和才力的浪费。在现行系 统初步调查的基础上就可以提出新系统目标，即新系统建立后所要求达到的运行指标，这是系统开发和评价的依据。系统目标应充分体现，直接为仓库管理系统服务，并且，程序可以分期分批实现。但是，需要指出的是，系统目标是不可能在总体规划阶段就提得非常具体，它还将在开发过程中逐步明确和定量化。以达到更加出色的程序系统。可是，目标的提法不尽相同，例如： 提高仓库管理效率，减轻劳动强度； 提高信息处理速度和准确性； 为仓库管理者提供更方便、科学的服务项目。 系统的目标确定后，就可以从以下四方面对能否实现新系统目标进行可行 性分析： （ 1）技术可行性 根据客户提出的系统功能、性能及实现系统的各项约束条件，根据新系统目标来衡量所需的技术是否具备，本系统是一个数据库管理和查询的系统，现有的技术以较为成熟，硬件、软件的性能要求、环境条件等各项条件良好，估计利用现有技术条件应完全可以达到该系统的功能目标。同时，考虑给予的开发期限也较为充裕，预计系统是可以在规定期限内完成开发。 仓库库存管理系统 第 页 共 34 页 （ 2）经济可行性 估算新系统的成本效益分析，其中包括估计项目开发的成本，开发费用和今后的运行、维护费用，估计新系统将获得的效益，估算开发成 本是否回高于项目预期的全部经费。并且，分析系统开发是否会对其它产品或利润带来一定影响。 支出： 基础投资： 硬件设备： PC机 配置： 128兆内存， 40G以上硬盘。 软件设备： WINDOWS98/2000、 visual basic 6.0、 WORD2000 其它一次性支出： 软件设计和开发费用 经常性支出： 软件维护费用、软件使用费用。 效益： 系统的效益可以从经济效益和社会效益两方面考虑。对于仓库管理系统则应着重分析其社会效益。例如，系统投入运行后可以使仓库管理实现科学化、规范化。曾强了工作人员对仓库管理能力、提高了工作效率。 （ 3）运行可行性 新系统的研制和开发是充分得考虑工作人员对仓库的易于管理，管理者方便查询设备信息效率。从而能完全满足使用者的要求。 （ 4）法律可行性 新系统的研制和开发，将不会侵犯他人、集体和国家的利益，不会违反国家政策和法律。 第二节 用户需求分析 上海共享网 用户需求分析就是在用户需求调研的基础上，确定系统的总体结构方案，完成相应的需求分析报告。在确定系统的总体结构方案过程中，包括确定应用程序的结构、系统开发环境和系统的功能模块。用户 需求调研结束之后，应该立即进行用户需求分析。上海共享网 2.2.1应用程序结构确定 上海共享网 从用户应用角度来看，可把应用程序系统的组成部分分成数据存储层、业务处理层和界面表示层等 3个层次，而应用程序结构可归纳为：集中式应用程序结构、单用户应用程序结构、多层服务器应用程序结构、浏览器服务器应用程序结构、客户机服务器应用程序结构等 5 种类型。 上海共享网 本 仓库 库存管理系统就采用了当前最流行的客户机服务器应用程序结构（即 C/S仓库库存管理系统 第 页 共 34 页 结构），此时，客户机提出请求，服务器对客户机的请求 作出回应。通过对服务功能的分布实现了分工服务。数据存储层放在服务器上，业务处理层和界面表示层放在客户机上，因此又被称为 “ 灵敏的客户机 ” 结构。许多操作可以在本地的客户机上执行，只是当需要数据时，才向服务器发出请求。并使应用程序的处理更接近用户，使整个系统具有较好的性能，可以并行地处理应用程序的请求、减少了数据传输量、降低了服务器的负荷。由于条件所限，将此系统所有程序都置于一台计算机上，以便调试运行。 上海共享网 2.2.2系统开发环境 的选择 现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目 前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有： microsoft公司的 visual basic 6.0版 microsoft公司的 visual c+6.0版 borland公司的 delphi 6.0版 由于大多数公司内部使用的计算机平台都是基于 Windows环境的。为了降低系统成本，应最大程度地利用现有的资源、兼容现有的环境，可确定使用下面的开发环境： 上海共享网 网络操作系统： Windows2000； 数据库服务器： MicrosoftAccessr2000； 上海共享 服务器平台： Windows2000； 客户机平台： Windows95 98 NT 2000； 上海共享网 前端开发工具： visualBasic6.0(企业版 )； 数据访问对象： ADO（本系统使用 ADO控件，简化编程）。 上海共享网 上海共享网 上海共享网 仓库库存管理系统 第 页 共 34 页 第 三 章 系统开发环境 的介绍 第一节 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 应用程序简化为用鼠标在屏幕上点击、拖拽并添加少量的代码就可以完成了，大大降低了对程序设计的要求，提高了应用程序的开发效率。 仓库库存管理系统 第 页 共 34 页 利 用 VB 的可视性特点，可方便的设计了程序的窗体界面，并在各个窗体中的合适位置绘制所需的每种控件。如要修改窗体或控件的某项属性，只需在相应的窗体或控件的属性窗口修改相应的参数便可达到需要的设计效果。 利用 VB 的事件驱动性特点，只需在窗体或控件上的代码窗口中添加少量的代码，便可达到告诉当在相应的窗体或控件上发生某一事件时，它们在事件发生后应该做什么工作的目的。例如几个窗体上的添加、删除、返回按钮的作用，就是通过在各个相应按钮的代码窗口中输入相应的代码，来达到当在几个按钮上出现单击（ Click）事件后，相应按钮实现 添加、删除、返回的功能的。 作为数据库系统的开发， Visual Basic是一个非常理想选择。数据库是 MIS中的重要支持技术，在 MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言 Visual Basic 语言，该开发工具具有很多长处： Visual Basic 是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发 Windows环境下的种类应用程序。它简单 易学、效率高，且功能强大 仓库库存管理系统 第 页 共 34 页 第 四 章 系统实施 享 第一节 模块划分 基本模块与功能： 系统维护 包括用户管理，密码管理，系统 启用 ， 期初库存录入 ， 资料删除，以及月终结转，可以根据需要对 用户限制权限 ，以确保数据的安全性。 基础资料设置 部门设置 ：对 企业的每一个部门进行 登记； 员工设置 ： 录入企业的所有员工信息 情况； 物品类别设置 ： 对仓库里货品的类别进行登记，以便快速查询 ； 物品设置 ：对 仓库里已有货品、短缺的货品进行登 记，以便及时采购补货并对 库里超储的货品进行登记，控制库存量，减少进货； 供应商设置： 对供应商的信息今夕感编辑以便能及时联系进行业务； 仓库库存管理系统 基础资料设置 单据处理 统计查询 系统维护 报表输出 退出系统 部门设置 员工设置 物品类别设置 物品设置 入库单处理 出库单处理 库存调整单处理 已过帐单据查询 系统启用 操作员设置 资料删除 月终结算 供应商设置 库存调整单 出库单 其他入库单 采购入库单 期初库存录入 领用报表 仓库库存报表 部门领用年度汇总表 部门领用汇总表 部门领用明细表 仓库库存管理系统 第 页 共 34 页 单据处理 1.入库管理 入库登记管理：能对货品的入库登记，删除，更改等； 入库期间统计：货品入库期间年度的统计； 供货单位期间供货金额统计：对货品供应的金额进行统计； 2.出库管理 对货品出库期间的年度统计，出库登记，及收获单位金额统计等； 统计查询 主要针对已过帐单据进行查询，其中包括采购入库单查询，其他入库单查询，出库单查询，库存调整单查询 ； 报表输出 包括领用报表，仓库库存报表。 主要功能是：对数据的查询 打印； 打印与查询 ： 可根据输入的条件，对货品的入库信息，库存信息等进行简单查询和组合查询。 退出系统 按键退出 第二节 数据库设计 数据库设计的步骤主要是： 数据库结构定义：目前的数据库管理系统（ DBMS）有的是支持联机事务处理CLTP（负责对事务数据进行采集、处理、存储）的操作型 DBMS，有的可支持数据仓库、有联机分析处理 CLAP（指为支持决策的制定对数据的一种加工操作）功能的大型DBMS，有的数据库是关系型的、有的可支持面向 对象数据库。针对选择的 DBMS，进行数据库结构定义。 数据表定义：数据表定义指定义数据库中数据表的结构，数据表的逻辑结构包括：属性名称、类型、表示形式、缺省值、校验规则、是否关键字、可否为空等。关系型数据库要尽量按关系规范化要求进行数据库设计，但为使效率高，规范化程度应根据应用环境和条件来决定。数据表设计不仅要满足数据存储的要求，还要增加一些如反映有关信息、操作责任、中间数据的字段或临时数据表。 存储设备和存储空间组织：确定数据的存放地点、存储路径、存储设备等，备份方案，对多版本如何保证一致性和数据 的完整性。 数据使用权限设置：针对用户的不同使用要求，确定数据的用户使用权限，确保数据安 数据字典设计：用数据字典描述数据库的设计，便于维护和修改 。 本库存管理系统是应用在单机系统上的，所以只需建立起一个数据库，在此数据库仓库库存管理系统 第 页 共 34 页 基础上建立起表格，现将部分数据结构表描述如下： 货品信息表 字段名 数据类型 字段长度 是否为空 货品编码 文本 5 货品名称 文本 10 类别 文本 8 型号 文本 4 单位 文本 2 仓库编码 文本 5 存放仓库 文本 12 入库计划单价 货币 出库计划单价 货币 原始库存 数字 长整型 默认货位 文本 5 入库登记表 字段名 数据类型 字段长度 是否为空 入库日期 日期 /时间 入库单号 文本 10 货物编码 文本 5 数量 数字 长整型 进货价 货币 总额 货币 已付货款 货币 供货单位编码 文本 5 供货单位 文本 20 经办人编码 文本 5 经办人 文本 8 备注 备注 表 1 货品 信息表 表 2 入库登记表 仓库库存管理系统 第 页 共 34 页 出库登记表 字段名 数据类型 字段长度 是否为空 出库日期 日期 /时间 出库单号 文本 10 货物编码 文本 5 货物名称 文本 10 数量 数字 长整型 单价 货币 出货价 货币 总额 货币 已收获款 货币 收货单位编码 文本 5 收货单位 文本 20 经办人编码 文本 5 经办人 文本 8 备注 备注 仓库信息表 字段名 数据类型 字段长度 是否为空 仓库编号 文本 5 仓库名称 文本 12 存货种类 文本 2 存货价值 货币 供货单位信息表（收货单位表） 字段名 数据 类型 字段长度 是否为空 单位编号 文本 5 单位名称 文本 50 单位地址 文本 50 电话 文本 15 联系人 文本 8 表 3 货品出库表 表 4 仓库信息表 表 5 供货单位信息表 仓库库存管理系统 第 页 共 34 页 经办人员表 字段名 数据类型 字段长度 是否为空 编号 文本 5 姓名 文本 8 家庭住址 文本 50 办公电话 文本 15 家庭电话 文本 15 用户表 字段名 数据类型 字段长度 是否为空 User ID 文本 10 User PWD 文本 6 另外，我们还建立了几张查询表，用以存放部分用于计算的统 计信息，以便查询。 入库登记统计表 入库登记 _合计 货品入库年度统计表 入库登记 _n 供货单位年度供货金额统计表 入库登记 _w 库存汇总表 库存 出库登记统计表 出库登记 _合计 货品出库年度统计表 出库登记 _h 收货单位年度收货金额统计表 出库登记 _d 入库登记 _合计表与出库登记 _合计分别是以入库登记表和出库登记表为基础的，所以此处不再描述；库存汇总表主要由出库表和入库表建立关系获得。 入库登记 _n 字段名 数 据类型 字段长度 是否为空 货物名称 文本 10 入库日期 日期 /时间 年度数量 数字 长整型 表 6 经办人员表 表 7 用户表 表 8 入库登记 _n 仓库库存管理系统 第 页 共 34 页 入库登记 _w 字段名 数据类型 字段长度 是否为空 供货单位 文本 50 入库日期 日期 /时间 年度供货总额 数字 长整型 库存汇总 字段名 数据类型 字段长度 是否为空 货物编码 文本 5 入库日期 日期 /时间 货物名称 文本 10 数量（入库） 数字 长整型 进货价 货币 数量（出库） 数字 长整型 库存数量 数字 长整型 出库登记 _h 字段名 数据类型 字段长度 是否为空 货物名称 文本 10 出库日期 日期 /时间 年度数量 数字 长整型 出库登记 _d 字段名 数据类型 字段长度 是否为空 收货单位 文本 50 出库日期 日期 /时间 年度金额总额 数字 长整型 表 9 入库登记 _w 表 10 库存汇总表 表 11 出库登记 _h 表 12 出库登记 _d 仓库库存管理系统 第 页 共 34 页 第 五章 统计查询模块的 设计 第一节 程序结构 本应用程序由 29 个窗体组成，主要的分别是：主窗体，欢迎界面，登陆窗体，入库窗体，出库窗体，库存汇总，打印及查询等窗体组成。 通过运行程序首先进入欢迎界 面和登陆窗体，通过输入密码，验证身份后进入主窗体，在主窗体上有 6个菜单项，分别对应各自的功能模块窗体，包括系统维护，基础资料设置，单据处理，统计查询，报表输出，退出系统。需要哪个菜单就点哪个菜单，相对应的窗体会自动弹出。 第 二 节 系统中统计查询模块的流程图 5.2.1 统计查询模块介绍 统计查询模块在仓库库存管理系统中是一个承上启下的部分 ，它必须依托于前三个模块，只有在系统维护，基础资料设置，单据处理三个模块完成 后进行以下 步骤之后 将会被 实现： 用户管理、密码管理、 系统启用 、 期初库存录入 、 资料删 除 、 月终结转， 员工设置、部门设置、物品类别设置、物品设置、供应商设置，入库单编辑、审核、出库单编辑、审核； 主要针对已过帐单据的查询，通过对已过帐单据的查询达到对整个库存信息的了解和掌握。由于此模块针对的用户是领导层，库管员，所以我们对每件货品进行统一分类、编号并制作条形编码，这项设计大大的增加了查询的速度方便于熟悉货品编号的库管员、领导层的检阅。 本模块 包括采购入库单查询，其他入库单查询，出库单查询，库存调整单查询 ；它们的功能如下： 采购入库单查询 ：对于采购入库的物品进行分类查询审核。 其他入库单查询 ： 对除采购入库之外的任何物品进行分类查询审核。 出库单查询 ：对于出库的物品进行登记查询访问。 库存调整单查询 ：查看对 库存 进行 调整 后的单据数据。 仓库库存管理系统 第 页 共 34 页 5.2.2 仓库库 1 存管理系统统计查询模块界面 5.2.3 统计查询模块的流程图 ： N Y Y 输入所查询数据编码 列表 保存或恢复 验 证 有 此数据吗？ 开始 结束 仓库库存管理系统 第 页 共 34 页 第 三 节 程序源代码 系统登陆源代码： Option 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 将代码放在这里传递 仓库库存管理系统 第 页 共 34 页 成功到 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 仓库库存管理系统 第 页 共 34 页 系统启用源代码： 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_head add column qty & strYear & strMonth _ & single cmSys.CommandText = strSQL cmSys.Execute strSQL = alter table mat_head add column price & strYear & strMonth _ & currency cmSys.CommandText = strSQL 仓库库存管理系统 第 页 共 34 页 cmSys.Execute strSQL = update mat_head set qty & strYear & strMonth & =qty, & _ price & strYear & strMonth & =price cmSys.CommandText = strSQL cmSys.Execute strSQL = update r_parameter set pass_date=cdate( & strBeg & _ ),offline=false,monthdate=cdate( & strBeg & ) cmSys.CommandText = strSQL cmSys.Execute Me.mnuAct_dj.Enabled = True Me.mnuSql.Enabled = True Me.mnuReport.Enabled = True Me.mnuSys_trans.Enabled = True Me.mnuSys_start.Enabled = False MsgBox 系统已正式启用 !, vbInformation, 系统 启用 Else MsgBox 日期格式错误！ , vbCritical, 启用错误 Exit Sub End If End Sub 仓库库存管理系统 第 页 共 34 页 仓库库存管理系统主界面源代码： 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 ADODB.Command cmSys.ActiveConnection = DEjxc.Conjxc cmSys.CommandType = 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 仓库库存管理系统 第 页 共 34 页 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 ADODB.Command cmSys.ActiveConnection = DEjxc.Conjxc cmSys.CommandType = adCmdText End Sub 仓库库存管理系统 第 页 共 34 页 系统采购入库单查询源代码： Option Explicit Private rsPsHB As ADODB.Recordset Private rsOrdDB As ADODB.Recordset Private cmPsHB As ADODB.Command Private strMaxNum As String Private Sub CmdDep_Click(Index As Integer) Dim intAnswer As Integer Dim strSQL As String Select Case Index Case 0 FrmSNumField = 6 FrmSql.Show vbModal Select Case FrmSNumField Case -1 仓库库存管理系统 第 页 共 34 页 rsPsHB.Filter = Me.DataGrid1.Columns.Item(0).DataField & _ rsSalDB.Filter = sale_id = & Me.txtsale_id.Text & Case -2 Case Else rsSaHB.Filter = Me.DataGrid1.Columns.Item(FrmSNumField).DataField & _ like * & FrmSql.strSqlField & * rsSalDB.Filter = sale_id = & Me.txtsale_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) rsSalDB.Filter = sale_id = & Me.txtsale_id.Text & End Sub Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If CmdDep(0).Enabled = True Then LblStatus.Caption = Product_Status(DataGrid2.Columns(1).Text) End If End Sub Private Sub Form_Load() intNumWindows = OpenWindow(intNumWindows) Me.Height = 7305 Me.Width = 7845 仓库库存管理系统 第 页 共 34 页 Call SetFormStu(Me, frmMain) Set rsSaHB = DEjxc.rsComSaleHB Set rsSalDB = DEjxc.rsComSaleDB Set cmSaHB = New ADODB.Command cmSaHB.ActiveConnection = DEjxc.Conjxc cmSaHB.CommandType = adCmdText rsSalDB.Filter = sale_id = & Me.txtsale_id.Text & End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If CmdDep(2).Enabled = False Then MsgBox 请先退出编辑状态后再退出该程序 !, , 提示 Cancel = True End If End Sub Private Sub Form_Unload(Cancel As Integer) intNumWindows = Closewindow(intNumWindows) rsSaHB.Close rsSalDB.Close Set rsSaHB = Nothing Set rsSalDB = Nothing Set cmSaHB = Nothing End Sub 仓库库存管理系统 第 页 共 34 页 其它入库单查询源代码： Option Explicit Private rsOtHB As ADODB.Recordset Private rsOrdDB As ADODB.Recordset Private cmOtHB As ADODB.Command Private strMaxNum As String Private Sub CmdDep_Click(Index As Integer) Dim intAnswer As Integer Dim strSQL As String Select Case Index Case 0 FrmSNumField = 7 FrmSql.Show vbModal Select Case FrmSNumField Case -1 仓库库存管理系统 第 页 共 34 页 rsOtHB.Filter = Me.DataGrid1.Columns.Item(0).DataField & _ rsOrdDB.Filter = order_id = & Me.txtother_id.Text & Case -2 Case Else rsOtHB.Filter = Me.DataGrid1.Columns.Item(FrmSNumField).DataField & _ like * & FrmSql.strSqlField & * rsOrdDB.Filter = order_id = & Me.txtother_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.txtother_id.Text & End Sub Private Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If CmdDep(0).Enabled