仓库库存管理系统毕业设计

1、前 言上海共享网 上海为了适应日趋激烈的市场竞争，企业需要对自身的经营状况有充分的了解，并通过有效的管理不断提高效率。因此，对仓库的管理也成为提高生产经营效率的一个重要途径。 仓库库存管理系统是是典型的信息管理系统,一个企业不可缺少的部分,它的内容对于企业的决策者和管理者来说都至关重要,所以仓库库存管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理仓库中的各种物资设备，这种管理方式存在着许多缺点,如:效率低、另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。上海共享网   随着科学技术的不断提高

2、,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。共享网   作为计算机应用的一部分,使用计算机对物资信息进行管理,具有着手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。上海共享网   因此，开发这样一套仓库库存管理软件是一件很有必要的事情。上上海共享网 第一章 仓库库存管理概述上海共享网 第一节 仓库库存管理的必要性上  大多

3、数仓库库存管理理论认为，仓库库存是物理上和逻辑上库房库位的所有有形和无形物料极其价值的总和，具体包括成品、原材料、在制品、在途品、生产前物料、备品备件等。虽然持有一些仓库库存是必要的，过量的库存却非但没有用处而且占用了资金。占用的资金对于公司发展、新产品开发等都是非常需要的；减少资金占用还可以大大减少来自银行贷款的利息和风险。对那些采购量特别大、采购件市场价格有波动的物料库存，加强库存管理效果更为明显。因此，平衡公司库存投资与其它资金需求至关重要。上海共享网 上海共享网 第二节 仓库库存管理的目标上海共享网  仓库库存管理的主要目标就是通过对仓库所有入出库活动的管

4、理和控制及对库存数据有效的统计和分析，以保证企业生产中畅通的物流，使决策人员及早发现问题，采取相应措施，调整库存结构,缩短储备周期，加速资金周转，最大限度地降低库存占用，同时，通过周期性的仓库盘点，及时补救管理中的漏洞，使仓库库存管理系统实时地反映企业中各个仓库的现时情况，为各类管理人员从不同侧面提供所需信息，以便协调企业经营收到更大效益，仓库库存管理系统是协调企业生产经营的基础，其数据的准确性、方便的查询、有效的分析是整个计算机管理系统顺利运行的关键。第三节 仓库库存管理目前存在的问题仓库库存管理对企业来说是一项繁琐复杂的工作，每天要处理大量的单据数据。为及时结清每一笔业务，盘点库存和货物流

5、动情况，保证企业生产用料以及货物安全，库存管理人员要花费大量人力物力和时间来做数据记录统计工作。在世界发达国家，库存管理的计算机化水平已经很高了，尽管我国的生产企业在这方面也有了很强的意识和长足的进步，但仍存在这样、那样的一些问题。表现之一：有的企业单位的库存管理部分目前仍为手工、半手工操作。从供应单位办理入库登记开始，到使用单位输领料出库手续为止，所有操作基本上都是由仓库管理人员笔写，手理，加上算盘、计算器来完成。这不仅繁锁，效率低，而且缺乏库存管理的一些基本手段，如库存状况统计，查询经济订货量计算等，这给企业在一定程度上造成了管理上的落后，及经济利益上的损失。表现之二为：有的单位的库存管理

6、部已上了微机，但对微机的利用效率极低，有的在用它打游戏，有的仅把它当计算器或打字机来用。表现之三为：有的企业单位既有了微机同时也有了仓库库存管理软件，但硬件上去了，软件上不去。因为他们用的仓库库存管理软件，大多为自己的工作人员及其他一些非专业人员所开发的简单的管理程序，很难称得上是“仓库库存管理信息系统软件”这些程序的弱点多表现为：1) 系统开发时无科学的理论支持。2) 开发过程中调研不全面。3) 软件编写时模型不清晰完整。4) 所用开发工具落后（如Foxbase等）。上第四节 开发背景上海共享网  1.4.1 课题研究的背景计算机在管理中的应用开始于1954年，当时美国首

7、先用计算机处理工资单。40多年来，计算机在处理管理信息方面发展迅速。例如，60年代美国计算机在管理中应用项目不到300项，到了1975年达到2670项。而现在，美国在财务会计上90%的工作由计算机完成；物资管理中80100%的信息处理由计算机完成；计划管理中是8090%。据计算机应用方面发展较快的国家统计，计算机用于经济管理的约占80%；用于科技运算的占8%；用于生产过程控制的占12%。因此，经济管理是计算机应用的主要领域。当然，由于库存管理在经济管理中占重要地位，其计算机化在发达国家中也已经达到了相当高的水平。我国在全国范围内推广计算机在管理中的应用，是在70年代末开始的，虽然起步较晚，近几

8、年发展却较快，特别是微型计算机的出现和普及为信息处理提供了物美价廉的手段，对于推动我国管理信息处理的现代化起了重要的作用。当今社会为信息社会，世界已进入在计算机信息管理领域中激烈竞争的时代。信息已成为继劳动力、土地、资本之后的又一大资源，谁控制的信息越多，谁利用信息资源的效率越高，谁就会在各方面的竞争中，占有一席之地，谁就会更有优势，这一点已得到举世公认。随着WTO的加入和我国工业的迅猛发展，为了抓住机遇，在竞争中占得先机，作为生产企业的一个必不可少的重要环节库存管理的信息化、计算机化也就迫在眉睫了。开发库存管理信息系统即有宏观上的意义，那就是顺应时代信息化、现代化潮流，提高效益，促进国民经济

9、结构优化；也有微观上的意义，那就是可以提高管理的现代化程序，加强管理的信息化手段，提高工作效率，增加单位效益。1.4.2 所做课题的目的企业的库存物资管理往往是很复杂、很繁琐的。由于所掌握的物资种类众多，订货、管理、发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计报表繁多，因此仓库的库存管理必须编制一套仓库库存管理信息系统，实现计算机化操作，而且必须根据企业的具体情况制定相应的方案。  根据当前的企业管理体制，一般的库存管理系统，总是根据所掌握的物资类别，相应分成几个科室来进行物资的计划，订货，核销托收，验收入库，根据企业各个部门的需求来发送物资设备，并随时按期进行库存盘

10、点，作台帐，根据企业领导和自身管理的需要按月、季度、年度进行统计分析，产生相应报表。为了加强关键物资、设备的管理，要定期掌握其储备，消耗情况，根据计划定额和实际纤毫定额的比较，进行定额管理，使得资金使用合理，物资设备的储备最佳。上海一个完整的企业物资供应管理系统应包括采购计划管理，合同收托管理、仓库库存管理、定额管理、统计管理、财务管理等模块。其中仓库的库存管理是整个物资供应管理系统的核心。因此有必要开发一套独立的库存管理系统来提高企业工作效率, 而所使用的这套库存管理系统是企业生产经营管理活动中的核心，此系统必须可以用来控制合理的库存费用、适时适量的库存数量，使企业生产活动效率最大化。通过对

11、这些情况的仔细调查，我们开发了这个仓库库存管理系统。第二章 系统分析本系统主要完成对仓库的库存管理，它包括六个功能模块：系统维护、基础资料设置、入库单处理、出库单处理、统计查询以及报表输出六个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改、报表、打印等功能。系统的核心是入库、库存和出库三者之间的联系，每一个表的修改都将联动的影响其它的表，当完成入库或出库操作时系统会自动地完成库存的修改。查询功能也是系统的核心之一，在系统中即有单条件查询和多条件查询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码

12、修改功能，并具备报表打印功能。系统采用microsoft office中的access 2000来设计数据库，并使用当前优秀的开发工具visual basic 6.0 ，它有着灵活的数据库结构，对数据库应用有着良好的支持。第一节 可行性分析当接受一个软件开发任务，就进入软件生命的第一个阶段，即进行可行性的研究。并不是所有问题具有简单的解决办法，许多问题不能在预定的规模之内解决。因此通过可行性的研究分析可以知道问题。 有无可行性的解决方法，进而避免人力、物力和才力的浪费。在现行系统初步调查的基础上就可以提出新系统目标，即新系统建立后所要求达到的运行指标，这是系统开发和评价的依据。系统目标应充分体

13、现，直接为仓库管理系统服务，并且，程序可以分期分批实现。但是，需要指出的是，系统目标是不可能在总体规划阶段就提得非常具体，它还将在开发过程中逐步明确和定量化。以达到更加出色的程序系统。可是，目标的提法不尽相同，例如：·提高仓库管理效率，减轻劳动强度；·提高信息处理速度和准确性；·为仓库管理者提供更方便、科学的服务项目。系统的目标确定后，就可以从以下四方面对能否实现新系统目标进行可行性分析：（1）技术可行性   根据客户提出的系统功能、性能及实现系统的各项约束条件，根据新系统目标来衡量所需的技术是否具备，本系统是一个数据库管理和查询的系统，现有的

14、技术以较为成熟，硬件、软件的性能要求、环境条件等各项条件良好，估计利用现有技术条件应完全可以达到该系统的功能目标。同时，考虑给予的开发期限也较为充裕，预计系统是可以在规定期限内完成开发。（2）经济可行性   估算新系统的成本效益分析，其中包括估计项目开发的成本，开发费用和今后的运行、维护费用，估计新系统将获得的效益，估算开发成本是否回高于项目预期的全部经费。并且，分析系统开发是否会对其它产品或利润带来一定影响。 支出：·基础投资：硬件设备： PC机配置：128兆内存，40G以上硬盘。软件设备：WINDOWS98/2000、visual basic 6.0、WORD

15、2000·其它一次性支出：软件设计和开发费用·经常性支出：软件维护费用、软件使用费用。效益：   系统的效益可以从经济效益和社会效益两方面考虑。对于仓库管理系统则应着重分析其社会效益。例如，系统投入运行后可以使仓库管理实现科学化、规范化。曾强了工作人员对仓库管理能力、提高了工作效率。（3）运行可行性   新系统的研制和开发是充分得考虑工作人员对仓库的易于管理，管理者方便查询设备信息效率。从而能完全满足使用者的要求。（4）法律可行性   新系统的研制和开发，将不会侵犯他人、集体和国家的利益，不会违反国家政策和法律。第

16、二节 用户需求分析上海共享网   用户需求分析就是在用户需求调研的基础上，确定系统的总体结构方案，完成相应的需求分析报告。在确定系统的总体结构方案过程中，包括确定应用程序的结构、系统开发环境和系统的功能模块。用户需求调研结束之后，应该立即进行用户需求分析。上海共享网 2.2.1应用程序结构确定上海共享网   从用户应用角度来看，可把应用程序系统的组成部分分成数据存储层、业务处理层和界面表示层等3个层次，而应用程序结构可归纳为：集中式应用程序结构、单用户应用程序结构、多层服务器应用程序结构、浏览器服务器应用程序结构、客户机服务器应用程序结构等5种

17、类型。上海共享网   本仓库库存管理系统就采用了当前最流行的客户机服务器应用程序结构（即C/S结构），此时，客户机提出请求，服务器对客户机的请求作出回应。通过对服务功能的分布实现了分工服务。数据存储层放在服务器上，业务处理层和界面表示层放在客户机上，因此又被称为“灵敏的客户机”结构。许多操作可以在本地的客户机上执行，只是当需要数据时，才向服务器发出请求。并使应用程序的处理更接近用户，使整个系统具有较好的性能，可以并行地处理应用程序的请求、减少了数据传输量、降低了服务器的负荷。由于条件所限，将此系统所有程序都置于一台计算机上，以便调试运行。上海共享网 2.2.2系统

18、开发环境的选择  现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：microsoft公司的visual basic 6.0版microsoft公司的visual c+6.0版borland公司的delphi 6.0版由于大多数公司内部使用的计算机平台都是基于Windows环境的。为了降低系统成本，应最大程度地利用现有的资源、兼容现有的环境，可确定使用下面的开发环境：上海共享网   网络操作系统：Windows2000；数据库服务器：MicrosoftAccessr2000；上海共

19、享服务器平台：Windows2000；客户机平台：Windows9598NT2000；上海共享网前端开发工具：visualBasic6.0(企业版)；数据访问对象：ADO（本系统使用ADO控件，简化编程）。上海共享网 上海共享网 上海共享网 第三章 系统开发环境的介绍第一节 access 数据库简介数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术

20、语，象记录、域等。 建立一个数据库我们有多种选择，现在市场上有各种各样的数据库，而且每一种数据库都有其自身的特点，不能说哪一种更好，只能在其中寻找一种能更好地适应系统需求、更好地满足用户的要求以及适应开发人员的习惯。在本系统中，做为图书仓库管理系统是一个比较小的应用系统，它所产生和处理的数据量也比较小。因此，没有必要使用像sql server和oracle这样的大型数据库。我首先想到的数据库是borland公司的paradox数据库。另外，microsoft office中的access数据库在计算机上的应用比较普及，是开发小型数据库系统的比较理想的选择，所以，在本系统中我选择了access数

21、据库。access做为一个数据库管理系统，它被集成在microsoft office中。access数据库处理的基本结构，采取关系型数据库模式。与其他的数据库系统相比，access更加简单易学，一个普通的计算机用户可以很快地掌握它。access 2000的功能十分强大，利用它可以方便地实现对信息保存、维护、查询、统计、打印、交流、发布，而且它可以十分方便地与office其他组件交流数据，这些功能对一个一般用户而言已经足够了。第二节 Visual Basic简介Visual Basic（简称VB）是美国微软公司（Microsoft）于1990年推出的一套完整的Windows系统软件开发工具，可用

22、于开发Windows环境下的各类应用程序，是一种可视化、面向对象、用事件驱动方式的结构化高级程序设计语言和工具，是目前使用最广泛的编程语言之一。至今以升级到了6.0版。VB的重要特点之一是可视性。系统引进了窗体和控件的机制，用于设计应用程序界面。用户通过在屏幕上生成窗体，在窗体中绘制所需要的控件和按钮，设计菜单和对话框，VB会自动生成相应的代码。VB的另一重要特点是事件驱动。当窗体或控件上发生一个事件时，VB立即把控制权交给程序员。程序员不必担心如何判断事件是否已发生，只需要编写一段代码告诉计算机在事件发生以后应该做什么工作就可以了。这样，设计一个Windows应用程序简化为用鼠标在屏幕上点击

23、、拖拽并添加少量的代码就可以完成了，大大降低了对程序设计的要求，提高了应用程序的开发效率。利用VB的可视性特点，可方便的设计了程序的窗体界面，并在各个窗体中的合适位置绘制所需的每种控件。如要修改窗体或控件的某项属性，只需在相应的窗体或控件的属性窗口修改相应的参数便可达到需要的设计效果。利用VB的事件驱动性特点，只需在窗体或控件上的代码窗口中添加少量的代码，便可达到告诉当在相应的窗体或控件上发生某一事件时，它们在事件发生后应该做什么工作的目的。例如几个窗体上的添加、删除、返回按钮的作用，就是通过在各个相应按钮的代码窗口中输入相应的代码，来达到当在几个按钮上出现单击（Click）事件后，相应按钮实

24、现添加、删除、返回的功能的。作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大第四章 系统实施享第一节 模块划分仓库库存管理系统基础资料设置单

25、据处理统计查询系统维护报表输出退出系统部门设置员工设置物品类别设置物品设置入库单处理出库单处理库存调整单处理已过帐单据查询系统启用操作员设置资料删除月终结算供应商设置库存调整单出库单其他入库单采购入库单期初库存录入领用报表仓库库存报表部门领用年度汇总表部门领用汇总表部门领用明细表基本模块与功能：系统维护包括用户管理，密码管理，系统启用，期初库存录入，资料删除，以及月终结转，可以根据需要对用户限制权限，以确保数据的安全性。基础资料设置部门设置：对企业的每一个部门进行登记；员工设置：录入企业的所有员工信息情况；物品类别设置：对仓库里货品的类别进行登记，以便快速查询；物品设置：对仓库里已有货品、短缺

26、的货品进行登记，以便及时采购补货并对库里超储的货品进行登记，控制库存量，减少进货；供应商设置：对供应商的信息今夕感编辑以便能及时联系进行业务；单据处理1.入库管理入库登记管理：能对货品的入库登记，删除，更改等；入库期间统计：货品入库期间年度的统计；供货单位期间供货金额统计：对货品供应的金额进行统计；2.出库管理对货品出库期间的年度统计，出库登记，及收获单位金额统计等；统计查询主要针对已过帐单据进行查询，其中包括采购入库单查询，其他入库单查询，出库单查询，库存调整单查询；报表输出 包括领用报表，仓库库存报表。主要功能是：对数据的查询打印； 打印与查询：可根据输入的条件，对货品的入库信息，库存信息

27、等进行简单查询和组合查询。退出系统 按键退出第二节 数据库设计数据库设计的步骤主要是：  数据库结构定义：目前的数据库管理系统（DBMS）有的是支持联机事务处理CLTP（负责对事务数据进行采集、处理、存储）的操作型DBMS，有的可支持数据仓库、有联机分析处理CLAP（指为支持决策的制定对数据的一种加工操作）功能的大型DBMS，有的数据库是关系型的、有的可支持面向对象数据库。针对选择的DBMS，进行数据库结构定义。 数据表定义：数据表定义指定义数据库中数据表的结构，数据表的逻辑结构包括：属性名称、类型、表示形式、缺省值、校验规则、是否关键字、可否为空等。关系型数据库

28、要尽量按关系规范化要求进行数据库设计，但为使效率高，规范化程度应根据应用环境和条件来决定。数据表设计不仅要满足数据存储的要求，还要增加一些如反映有关信息、操作责任、中间数据的字段或临时数据表。 存储设备和存储空间组织：确定数据的存放地点、存储路径、存储设备等，备份方案，对多版本如何保证一致性和数据的完整性。 数据使用权限设置：针对用户的不同使用要求，确定数据的用户使用权限，确保数据安 数据字典设计：用数据字典描述数据库的设计，便于维护和修改。本库存管理系统是应用在单机系统上的，所以只需建立起一个数据库，在此数据库基础上建立起表格，现将部分数据结构表描述如下：货品信

29、息表字段名数据类型字段长度是否为空货品编码文本5货品名称文本10类别文本8型号文本4单位文本2仓库编码文本5存放仓库文本12入库计划单价货币出库计划单价货币原始库存数字长整型默认货位文本5表1货品信息表入库登记表字段名数据类型字段长度是否为空入库日期日期/时间入库单号文本10货物编码文本5数量数字长整型进货价货币总额货币已付货款货币供货单位编码文本5供货单位文本20经办人编码文本5经办人文本8备注备注表2入库登记表出库登记表字段名数据类型字段长度是否为空出库日期日期/时间出库单号文本10货物编码文本5货物名称文本10数量数字长整型单价货币出货价货币总额货币已收获款货币收货单位编码文本5收货单位

30、文本20经办人编码文本5经办人文本8备注备注表3货品出库表仓库信息表字段名数据类型字段长度是否为空仓库编号文本5仓库名称文本12存货种类文本2存货价值货币表4仓库信息表供货单位信息表（收货单位表）字段名数据类型字段长度是否为空单位编号文本5单位名称文本50单位地址文本50电话文本15联系人文本8表5供货单位信息表经办人员表字段名数据类型字段长度是否为空编号文本5姓名文本8家庭住址文本50办公电话文本15家庭电话文本15表6经办人员表用户表字段名数据类型字段长度是否为空User ID文本10User PWD文本6表7用户表另外，我们还建立了几张查询表，用以存放部分用于计算的统计信息，以便查询。

31、入库登记统计表 入库登记_合计 货品入库年度统计表入库登记_n 供货单位年度供货金额统计表入库登记_w 库存汇总表 库存 出库登记统计表出库登记_合计 货品出库年度统计表出库登记_h 收货单位年度收货金额统计表出库登记_d入库登记_合计表与出库登记_合计分别是以入库登记表和出库登记表为基础的，所以此处不再描述；库存汇总表主要由出库表和入库表建立关系获得。入库登记_n字段名数据类型字段长度是否为空货物名称文本10入库日期日期/时间年度数量数字长整型表8 入库登记_n入库登记_w字段名数据类型字段长度是否为空供货单位文本50入库日期日期/时间年度供货总额数字长整型表9 入库登记_w库存汇总字段名数

32、据类型字段长度是否为空货物编码文本5入库日期日期/时间货物名称文本10数量（入库）数字长整型进货价货币数量（出库）数字长整型库存数量数字长整型表10 库存汇总表出库登记_h字段名数据类型字段长度是否为空货物名称文本10出库日期日期/时间年度数量数字长整型表11 出库登记_h出库登记_d字段名数据类型字段长度是否为空收货单位文本50出库日期日期/时间年度金额总额数字长整型表12 出库登记_d第五章 统计查询模块的设计第一节 程序结构本应用程序由29个窗体组成，主要的分别是：主窗体，欢迎界面，登陆窗体，入库窗体，出库窗体，库存汇总，打印及查询等窗体组成。通过运行程序首先进入欢迎界面和登陆窗体，通过

33、输入密码，验证身份后进入主窗体，在主窗体上有6个菜单项，分别对应各自的功能模块窗体，包括系统维护，基础资料设置，单据处理，统计查询，报表输出，退出系统。需要哪个菜单就点哪个菜单，相对应的窗体会自动弹出。第二节 系统中统计查询模块的流程图5.2.1 统计查询模块介绍统计查询模块在仓库库存管理系统中是一个承上启下的部分，它必须依托于前三个模块，只有在系统维护，基础资料设置，单据处理三个模块完成后进行以下步骤之后将会被实现： 用户管理、密码管理、系统启用、期初库存录入、资料删除、月终结转，员工设置、部门设置、物品类别设置、物品设置、供应商设置，入库单编辑、审核、出库单编辑、审核； 主要针对已过帐单据

34、的查询，通过对已过帐单据的查询达到对整个库存信息的了解和掌握。由于此模块针对的用户是领导层，库管员，所以我们对每件货品进行统一分类、编号并制作条形编码，这项设计大大的增加了查询的速度方便于熟悉货品编号的库管员、领导层的检阅。本模块包括采购入库单查询，其他入库单查询，出库单查询，库存调整单查询；它们的功能如下：采购入库单查询：对于采购入库的物品进行分类查询审核。其他入库单查询：对除采购入库之外的任何物品进行分类查询审核。出库单查询：对于出库的物品进行登记查询访问。库存调整单查询：查看对库存进行调整后的单据数据。5.2.2 仓库库1存管理系统统计查询模块界面5.2.3 统计查询模块的流程图：输入所

35、查询数据编码列表保存或恢复验证有此数据吗？开始结束 N YY第三节 程序源代码系统登陆源代码：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() '设置全局变量为 false '不提示失败的登录 LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() '检查正确的密码 If Not IsNull(Me.DCboUserName.SelectedItem) Then If txtPassword = M

36、e.DCboUserName.BoundText Then '将代码放在这里传递 '成功到 calling 函数 '设置全局变量时最容易的 LoginSucceeded = True strCurUser = Me.DCboUserName.Text Me.Hide Else MsgBox "无效的密码，请重试!", , "登录" txtPassword.SetFocus SendKeys "Home+End" End If Else MsgBox "请选择用户名!", , "登录

37、" Me.DCboUserName.SetFocus End IfEnd 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) str

38、Month = 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

39、_ & " currency" cmSys.CommandText = strSQL cmSys.Execute strSQL = "update mat_head set qty" & strYear & strMonth & "=qty," & _ " price" & strYear & strMonth & "=price" cmSys.CommandText = strSQL cmSys.Execute strSQL =

40、"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.mnuS

41、ys_trans.Enabled = True Me.mnuSys_start.Enabled = False MsgBox "系统已正式启用!", vbInformation, "系统启用" Else MsgBox "日期格式错误！", vbCritical, "启用错误" Exit Sub End IfEnd Sub仓库库存管理系统主界面源代码：Private Sub MDIForm_Load() Dim strSQL As String 'Dim rsSys As ADODB.Recordset Di

42、m 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 of

43、fline 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.Enable

44、d = 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.ActiveConnec

45、tion = DEjxc.Conjxc 'cmSys.CommandType = adCmdTextEnd Sub系统采购入库单查询源代码：Option ExplicitPrivate rsPsHB As ADODB.RecordsetPrivate rsOrdDB As ADODB.RecordsetPrivate cmPsHB As ADODB.CommandPrivate strMaxNum As StringPrivate Sub CmdDep_Click(Index As Integer) Dim intAnswer As Integer Dim strSQL As Stri

46、ng Select Case Index Case 0 FrmSNumField = 6 FrmSql.Show vbModal Select Case FrmSNumField Case -1 rsPsHB.Filter = Me.DataGrid1.Columns.Item(0).DataField & _ "<>''" rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'" Case

47、 -2 Case Else rsPsHB.Filter = Me.DataGrid1.Columns.Item(FrmSNumField).DataField & _ " like '*" & FrmSql.strSqlField & "*'" rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'" End Select Case 1 Case 2 Unload Me End

48、SelectEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'"End SubPrivate Sub DataGrid2_RowColChange(LastRow As Variant, ByVal LastCol As Integer) If CmdDep(0).Enabled = True

49、 Then LblStatus.Caption = Product_Status(DataGrid2.Columns(1).Text) End IfEnd SubPrivate Sub Form_Load() intNumWindows = OpenWindow(intNumWindows) Me.Height = 7305 Me.Width = 7845 Call SetFormStu(Me, frmMain) Set rsPsHB = DEjxc.rsComPsHB Set rsOrdDB = DEjxc.rsComOrdDB Set cmPsHB = New ADODB.Command

50、cmPsHB.ActiveConnection = DEjxc.Conjxc cmPsHB.CommandType = adCmdText rsOrdDB.Filter = "order_id ='" & Me.txtps_id.Text & "'"End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If CmdDep(2).Enabled = False Then MsgBox "请先退出编辑状态后再退出该程

51、序!", , "提示" Cancel = True End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)intNumWindows = Closewindow(intNumWindows)rsPsHB.ClosersOrdDB.CloseSet rsPsHB = NothingSet rsOrdDB = NothingSet cmPsHB = NothingEnd Sub系统出库单查询源代码：Option ExplicitPrivate rsSaHB As ADODB.RecordsetPrivate rs

52、SalDB As ADODB.RecordsetPrivate cmSaHB As ADODB.CommandPrivate strMaxNum As StringPrivate Sub CmdDep_Click(Index As Integer) Dim intAnswer As Integer Dim strSQL As String Select Case Index Case 0 FrmSNumField = 8 FrmSql.Show vbModal Select Case FrmSNumField Case -1 rsSaHB.Filter = Me.DataGrid1.Columns.Item(0).DataField & _ "<>''" rsSalDB.Filter = "sale_id ='" & Me.txtsale_id.Text & "'" Ca