毕业设计论文--库存管理系统通用设计

1、题 目：通用库存管理系统作者：学号：系（院）：计算机科学系专 业：计算机应用与维护指导者：（姓名）（专业技术职务）评阅者：（姓名）（专业技术职务）毕业设计（论文）中文摘要库存管理系统通用设计摘要：本系统针对仓库库存的工作特点，设计了管理员管理、材料管 理、入库管理、出库管理等4个子系统，这4个子系统包括了库存的 主要业务，大大减轻了工作人员的工作量，全面提高了库存材料的管 理效率及服务质量。应用本系统可以在计算机上灵活、方便地管理材料，从而大大的 提高了处理效率，使管理更加现代化。本系统是根据实际情况和具体 内容，按一定的要求、科学、合理进行系统分析，设计，具体包括菜 单设计、数据输入、查询、

2、删除、修改、打印等各种设计。从而使本系统完全能满足经济性、灵活性、系统性及可靠性的要 求。关键字：mis （管理信息系统）、文本框、数据库、dao、可行性系统毕业设计（论文）外文摘要tit i e administratibe system of the available warehouse storeabstract: system this to working characteristic of warehouse，administrator management, material management, out of warehouse management, in of ware

3、house management circulate 4 subsystems, such as message，etc.，4 subsystem these include main business lines of library，lighten library work load of staff member greatly，have improved the efficiency of management of the warehouse and service quality all-sided.use this system to manage the books flexi

4、bly and conveniently on the computer, thus big improvement punishes efficiency，make management to be further more modernized. this system is according to the actual conditions and concrete content, according to certain request，science，carrying on network analysis rationally, design, concrete includi

5、ng menu design，data entry，inquiring about, deleting，revising，typing， etc. various kinds of designs.make system this can meet economy, flexibility, systematic ness，request of dependability totally.keywords : mis，textbox，database，dao, feasibility assay.1 引言51. 1系统开发的背景及设计目标51. 2介绍管理信息系统的基础知识51. 3介绍每章内

6、容52 vb. 60的简单介绍72.1系统设计原则72.2系统开发环境及运行简介72.3系统运行环境93系统总体设计结构及功能模块划分103.1系统功能分析103. 2系统需求分析：103. 3系统总体结构113. 4系统的技术难点124数据库结构设计与实现134.1数据库需求分析134. 2数据库概念结构设计134. 3数据库的逻辑结构设计165各个主要模块设计195.1通用库存管理系统主窗体的创建195. 2创建工程项目通用库存管理系统_mis 195. 3创建的通用库存管理系统主窗体19end if 346用户使用手册396. 1系统评价39 i仑41至文w 42参考文献431引言随着科

7、学技术的飞速发展，计算机科学技术的不断提高和日渐成熟，其强大的功 能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用，企 业现代化的主要内容之一就是实现企业管理现代化，只冇将计算中心机引入企业仓库 管理，才能真正形成企业的组织形式，管理模式和运行方式，才能体现材料仓库规范 化，现代化的管理手段。1. 1系统开发的背景及设计目标近年来，随着企业规模的不断扩大，商品数量急剧增加，有关产品的各种信息量 也成倍增加，面对着庞大的信息量，传统的人工方式管理仓库库存或者用excel来管 理仓库库存已经越来越显得力不从心了，对于入库、出库、数量、产品类型带來了不 少的困难，这就需耍有一种

8、专门的系统来管理库存信息从而提高仓库管理的工作效 率，有利于提高管理效率。作为一名跨世纪的计算机人才，迫切的需要向国际尖端技术接轨。木人在大学 期间对数据库技术有扎实的理论功底，所以想在这次毕业设计中理论联系实际，利 用所学知识和a前流行的开发工具，设计一套适合广大企业仓库使用的“通用库存 管理系统”。可以做到信息的规范管理、科学统计，从而减少管理方面的工作量。1.2介绍管理信息系统的基础知识本节主要介绍了奋关管理信息系统的基础知识，管理信息系统就是我们常说的 mis,在这个强调信息的现代社会屮它变的越來越重要。mis是一门新的学科，它跨越 了若干个领域，比如管理科学、系统科学、运筹学以及计算

9、机科学。在这些学科的基 础上，形成信息收集和加工的方法，从而形成了一个纵横交织的系统。在以前，通用仓库库存管理主要靠手工的记录来完成的，不但容易丢失而且不能 一0了然的看到产品的信息，而传统的管理信息系统集中于信息的管理，体现在通过 计算机把各种数据串接起來，储存起来，提高工作效率，以及健壮、可靠的数据存储, 说到底只不过是传统手工管理方式的计算机模拟。现代社会的发展对企业自身的管理 提出了更高的要求，要求快速、准确的进行仓库库存的出库和入库分析。对一个企业来说，无论它的规模的大小，每时每刻都会产生大量的库存产品信息， 这些信息如此的复杂，如此的海量，使得每个企业为维护和管理这些信息而浪费了大

10、 量的人力和物力。结果还十分的低卜*,经常的出错，更谈不上数据的快速科学分析。 另外大规模的企业仓库在管理上也同样存在着尖绪繁多，管理混乱的现象。所有的这 一切都是因为缺乏一种有效的、快捷的、使用方便的管理工具所致。解决这一问题的 唯一办法，就是引入ims一信息管理系统。此通用仓库库存管理系统是为管理员设计的，是为了方便管理员更好的管理仓库 库存信息，可以对库存产品信息实现出库、入库、保存、修改、报表等操作。此系统的数据库是用access建立的，应用vb创建应用程序，使用工程。vb创建的应 用程序可以是sd1 （单文档界面）和md1 （多文档界面）本系统采用md1;这样可以使 程序更加美观整齐

11、有序。1. 3介绍每章内容全文共六章。第一章介绍此次系统开发的背景及设计原则，并提出了本系统开发 的目的；第二章介绍丫系统开发及运行环境；第三章主要介绍了本次系统开发的需求第5页共43页分析，并对系统所要实现的功能做了介绍；第四章为数据库结构设计与实现；第五章 为系统的具体实现及简介。第六章为结束语。本次毕业设计时间比较仓足，还有许多功能不够完美和完善。恳请老师和广大同 学提出宝贵的意见和建议。2 vb. 60的简单介绍2.1系统设计原则2.1.1实用性原则：确保系统具有良好的系统性能，友好的用户界面，较高的处理 效率，便于使用和维护，并釆用成熟的技术。2. 1.2先进性原则：尽量采用先进而i

12、i成熟的技术，使系统具有较高的技术水平和 较长的生命周期。2. 1.3开放性、安全性、可靠性及可扩展性原则。2. 1.4兼容性原则：对于所选硬件系统及平台，能很好地适应开发和使用的需要。 2.1.5规范性原则：软件设计过程严格按照“软件工程”的规定，系统编码，文档, 操作系统平台以及所采用的开发方法按照相应的国际标准和国家标准。2.2系统开发环境及运行简介2.2.1 visual basic 语言简介visualbasic是microsoft公司于1991年推出的基于windows开发平台的软件 发工具，它继承了 basic的简单、高效、易用易学的功能，并融入了如面各对象、设 计过程可视化、事

13、件驱动、动态数据驱动等先进的软件开发技术，从而成为目前开发 windows应用程最好、最简单的开发工具之一。vb 6.0是一个集应用程序开发、测试、查错等功能于一体的集成式开发环境，它 是当前使用最广泛的开发工具之一。visval basic 6. 0/. net是microsoft公司最 新推出的可视化编程语言，可视化编程是一种快捷、标准、高效的程序设计方法，它 利用面向对象的编程方式，让程序员通过对象操作能设计出与windows操作系统一 致的界面。visual basic6.0适合用于图形界面设计、数据库编程、web和多媒体 开发等。2.2.2 visualbasic语言的特色及编程优势

14、可视化的程序设计visualbasic率先釆用可视化（visual）的程序设计方法。利用系统提供的 人量可视化控件，可以方便地以可视化直接绘制用户图形界面，并可直观动态地调 整界面的风格和样式直到满意为止，从而克服y以前必须用大量代码去描述界面的 外观和位置的传统方式。用vb开发程序，就象搭积木盖房子一样，系统提供的可视化控件如同盖房子 要用的钢筋、砖瓦原料，通过不同控件的搭配组合可方便地构造出所需的应用程序。面向对象的程序设计思想。面向对象的程序设计是伴随windows图形界面的诞生而产生的一种新的程序设 计思想，与传统的程序设计有着较大区别。vb使用了面向对象的程序设计思想。所 谓对象可比

15、作是现实生活中的一个人，每个可见的实体。同样对象在程序中所赋给 它的功能是不同的，比如在图形界面上有两个命令按钮，一个用来实现数据的统计 计算，另一个用来数据打印，这两个按钮就可视为两个不同的对象，为实现这两个 对象各不同的功能，接下来就应该分别针对这两个对象编写程序代码，这种编程 的思想和方法，即所谓的“面向对象的程序设计”。事件驱动的编程机制。vb采用了事件驱动的编程机制。在vb中，对象与程序代码通过事件及事件过 程来联系，对象活跃性则通过它对事件的敏感性来体现。一个对象(控件)往往可 以感知和接收多个不同类型的事件，每个事件均能驱动一段程序(事件过程)完成 对象响应的工作，从而实现一个预

16、编程的功能，比如命令按钮是编程常用的一个对 象若用鼠标在它上面单击一下，便会在该对象上产生一个鼠标单击事件(click), 与此同吋，vb系统就会自动调用执行命令按钮对象的click事件过程，从而实现事 件驱动的功能。vb编程没有明显的主程序概念，程序员所需耍做的就是面向不同的对象分别编 写它们的事件过程。若希望其对象在事件发生后能做出预测，则只需在该对象的该 事件过程中编写代码即可，整个vb应用程序就是由这些彼此相互独立的事件过程 构成，事件过程的执行与否以及执行的顺序取决于操作时用户所引发的事件来决 定。若用户未触发任何事件则系统处于等等状态。 高度的可扩充性vb是一种高度可扩充的语言，除

17、自身强大的功能外，还为其用户扩充其功能提 供了各种途径，主要体现在以下三方面：(1) 支持第三方软件商为其开发的可视化控件对象。vb除自身带许多功能强大、实用的可视化控件以外，还支持第三方软件商为扩 充其功能而开发的可视化控件，这些可视化控件对应的文件扩展名为.ocx。只耍拥 有控件的ocx文件就可将其加入到vb系统中，从而大大增加了 vb的编程实力。(2) 支持访问动态链接库(dynamic link library,简称dll)。支持多种数据库 系统的访问，支持动态数据交换(dde)、动态链接库(dll)和对象的链接与嵌入(ole) 技术vb在对硬件的控制和低级操作方面显得力不从心，为此，

18、vb提供了访问动态数 据库的功能。可以利用其它语言，如c+语言，将需要实现的功能编译成动态链接 库(dll)，然后提供给vb调用。(3) 支持访问应用程序接口(apt)。应用程序接门(application program interface 简称 api)是 windows 环境 中可供任何windows应用程序访问和调用的一组函数集合。在微软windows操作系 统中，包含了 1 0 0 0多个功能强大，经过严格测试的api函数。可大大增强vb 的编程能力，并可实现一些vb木身不能实现的功能。另外，vb具有丰富的数据类型和结构化程序结构，作为一种程序设计语言，它 还有如卜一些特点:(1)

19、强大的数值和字符串处理功能丰富的阁形指令，可方便绘制各种阁(2)提供 静态和动态数组，有利于简化内存的管理(3)过程可递归调用，使程序更为简练(4) 支持随机文件和顺序文件的访问(5)提供了一个可供应用程序调用的包含多种类 型的图标库(6)具有完善运行出错处理 支持大型数据库的连接与存取操作。vb提供了强大的数据库管理和存取操作能力，尤其是企业版的visualbasic, 利用它可轻松开发出各种大型的客户/服务器应用程序。另外，vb还支持动态数据 交换，对象的链接与嵌入等新型的编程技术。完备的help联机帮助功能与windows环境下的软件一样，在vb中，利用帮 助菜单和f1功能键，用户可以随

20、时方便地得到所需要的帮助信息。vb帮助窗 口中显示了有关的示例代码，通过复制、粘贴操作可获取大量的示例代码， 为用户的学习和使用提供了极大的方便。2.3系统运行环境2. 3.1硬件环境运行要求奔腾1 6 6 m h z以上的cpu；要求常规内存6 4 0 kb, 1 6 mb扩展内存，最好有3 2 mb以上内存容量; 外部存储器（硬盘）空间至少要求1 gb以上，安装本系统后剩余空至少1 0 0 mb以上，要配制一个microsoft兼容鼠标。2. 3.2软件环境需要windows95以上的操作系统平台，应是中文版本。3系统总体设计结构及功能模块划分如同任何生物一样，软件也有一个诞生、成长、衰亡

21、的生存过程。我们称之为 软件的生存期。根据这一思想，可以得到软件生存期的六个步骤，即制定计划、需 求分析，设计、程序编码、测试及运行维护。软件需求分析工作是软件生存期中重要的一步，也是决定性一步，只有通过需 求分析冰能把软件的功能和性能的总体耍领描述为具体的软件规程说明，从而奠定 软件开发的基础。3. 1系统功能分析本次系统设计的总体任务是实现通用库存管理关系的系统化、规范化和自动化， 系统需求分析是在系统开发的总体任务的基础上完成的，并从实际应用的角度考虑， 应能为用户提供和实现以下功能：本系统分为四个部分：设罝信息的输入、入库信息的输入、出库信息的输入、出 库信息的输入设置信息的输入，包括

22、员工管理信息、供应管理、客户管理、材料管理和材 料分类等。(1) 员工管理信息的输入，包括姓名、电话、职务、密码信息和添加等。(2) 供应管理信息的输入，包括名称、级别、电话、地址、联系人、备注信息和 添加等。(3) 客户管理信息的输入，包括名称、地址、联系人、电话、产品、数量、备注信息。(4) 材料管理信息的输入，包括编号、分类名称信息。(5) 材料分类信息的输入，包括名称、分类、单位、分类信息。入库信息的输入，包括分类、名称、数量、单价、供应商、经办人和保存信 息等。出库信息的输入，包括分类、名称、数量、服务客户、经办人和保存信息等。报表信息的输出出库信息的输入，包括入库信息、出库信息、意

23、向信息、拜 访信息的输出等。3. 2系统需求分析:根据系统分析，该管理系统要求如下：3.2. 1用户要求：库存的产品、数量情况；3. 2. 2系统性能要求：(1) 、用户操作直观，方便，界面友好。(2) 、系统使用功能齐全，可靠，稳定。(3) 、更快更稳定的执行速度完成要求。(4) 、便于维护与修改。3.3系统总体结构对于通用库存管理系统各项功能分别进行集中，分块。按照结构程序设计的要求 进行开发。得到如下所示的系统功能模块图。通用库存管理系统退出系统模块重新登录入库模块供应商单价数fi名称分类通用库存管理系统使用帮助帮助模块i关于打印报表报表模块i打印设置数龍名称出库模块 分类3.4系统的技

24、术难点3.4.1、建立合理的表结构，避免数据冗余各表通过特定字段实现不同表的数据连接，避免数据冗余，需要设计简洁高效的 表结构。3.4.2、建立相当的系统安全性登录用户身份的验证机制的设计、操作页面的权限保护。3.4.3、建立严密的数据表操作机制同一表有可能在多个模块中被修改，所以严密的数据表操作机制的建立十分比较 困难的，但也是必须的。除了设计时必须有相当程度的考虑，在编制时更应加强程序 逻辑的可靠性和程序调试的全而性。4数据库结构设计与实现4.1数据库需求分析木系统应用微软公司的access为后台数据库，前台则是microsoft公司强劲的 开发工具 visual basic6. 0。数据

25、库在一个信息管理中战胜非重要的地位，数据库结构设计的好坏将直接对应 用系统的效率以及实现的效果产生影响。数据库结构设计是指数据库屮各个表结构的 设计，包括信息保存在哪些表格中、各个表的结构如何以及各个表之间的关系。合理 的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。同时，合理的 数据库结构也将有得于程序的实现。设计数据库系统时应该首先进行需求分析。在这个阶段主耍收集基本数据以及数 据处理的流程，为以后进一步设计打t基础。需求分析主要解决两个问题：内容要求。调查应用系统用户所需要操作的数据，决定在数据库中存储什么数据。处理要求。调杳应用系统用户要求对数据据进行什么样的处理，理清数

26、据库中各种数据间 关系，而本系统用户的需求具体体现在各种信息的提供、保存、更新和查询，这就 要求数据库结构能充分满足各种信息的输出和输入。解决这两个问题的时候，程序编制员需要向用户详细调查，保证信息收集的完 整性，否则有可能所有的工作都白费。在数据库需求分析后，应该得到一个数据字典文档。收集基本数据、数据结构 以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。设计数据库系统吋应首先了解用户各个方面的需求，包括现冇的以及将来可能增 加的需求，用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数 据库结构能充分满足各种信息的输入和输出。收集基本数据、数据结构以及数据

27、处理 的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。4.2数据库概念结构设计这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。木实例根据上面的设计规划出的实体有：材料实体、供应商实体、客户实体、员工实体、出库实体、入库实体。实体与实体之间的系e-r如图所示各个实体具体的描述e-r图如下：员工实体e-r图客户实体e-k阁材料实体e-k阁入库材料实体e-r图出库材料实体e-r图出库材料4.3数据库的逻辑结构设计现在需要将上面的数据库概念结构转化为access2000数据库所支持的实际数据 模型，也就是数据库的逻辑结构。

28、在上面的实体以及实体之间关系的基础上，形成数 据库中的表格以及各个表格之间的关系。通用库存管理系统数据库中各个表格的设计结果如下面的儿个表格所示。每个表 格表示在数据库中的一个表。如下表为材料入库信息表格材料入库信总表格列名数裾类型名称text供应商text数量long单价curryency经手人text日期datetime时间datetime如下表为材料出库信息表格材料入库信息表格列名数据类型名称text数量int经手人txet用途text日期datetime吋间datetime如丁表为材料分类信息表格材料分类信息表格列名数裾类型分类text如1表为库存材料信息表格库存材料信息表格列名数裾类

29、型名称text分类text单位text数量long备注text如下表为供应商信息表格供应商信息表格列名数据类型名称text地址text电话text联系人text级别long备注text如下表为客户信息表格客户信息表格列名数据类型名称text地址text电话text联系人text产品text数量text备注text如下表为员工信总表格员工信息表格列名数据类型姓名text职务text电话text密码text5各个主要模块设计5. 1通用库存管理系统主窗体的创建上面己经完成了有关于后台的工作，现在将通过通用库存管理系统中各个功能模 块的实现，讲述如何使用vb来编写数据库系统的客户端程序.5. 2创建

30、工程项目通用库存管理系统_mis为了用visual basic创建应用程序，应当使用工程.一个工程是用来建造应用程序的 文件的集合，它包括：跟踪所有部件的工程文件 每个窗体的文件每个窗体的二进制数据文件它含有窗体上控件的属性数据。对含有二进制属 性（例如图片或图标）的任何.frm文件都是不可编辑的，这些文件都是自动 产生的。每个类模块的一个文件ccls），该文件是可选项。每个标准块的一个文件（.bas）,该文件是可选项。单个资源文件（.res）,该文件是可选项。启动vb后，单击f文件/新建工程菜单，在工程模板中选择vb将自动产生一个 form窗体，属性都是缺省设置。这里我们删除着个窗体，单击菜

31、单，将这个工程 命名为通用库存管理系统。5. 3创建的通用库存管理系统主窗体vb创建的应用程序可以是sdt （单文档界面）和（多文档界面）。在sdt的程 序中，每个窗体之间是独立的。而mdi的程序中，有一个窗体是主窗体，可以毡 含其他窗体，它的类型是mdi form。这个实例采用多文档界面，这样可以使程序 更加美观、整齐有序。如下图所示：单击工具栏中的“add md1 form按钮，在主窗体中加入状态栏控件，可以实 时反映系统屮的各个状态的变化。状态栏控件需要在通常的属性窗口屮设置一般 属性，还需要在其特有的弹出式菜单中进行设置。在“general”属性页对一般属 性进行设置，在“panels

32、”属性页对各个文木框进行设置，在“font”属性页对 文本字体进行设罝，在“picture”属性页可以添加图片。5. 3. 1创建主窗体的菜单在主窗体屮，单击鼠标右键，选择弹出式菜单屮的“菜单编辑器”命令，创建菜单结构5.3. 2用户登陆窗体的创建系统启动后，将首先出现启动窗体，进入后将出现用户登陆窗体，用户首先选择 管理员名。用户登陆窗体中放置了一个文本桐，用来放置管理员名的密码；两个按钮 (commandbutton)用来确定或者取消登陆；两个标签(label)用来标示窗体的密码 信息。5. 3. 3添加设置窗体的创建设置信总管理模块主要实现如下功能:厍荇管理囲eib项目入厍出厍报表系统关

33、于退aj设查入库出厍报表系统退出芫成指导老师：周立东实；3生：粱磊20:2204-6-7显示员工各种信息的代码如下：private sub formload()makewindow mealwaysontop me, trueme.top = mdtfrmmain.height / 2 - me. height / 2 - 1000me. left = mdifrmmain. width / 2 - me. width / 2aspopup5. backcolor = &hffcocosstabl.tab = 0combol. addltcm 员工combol. addltem 经理&

34、quot;i:i:员工查找、保存、删除、增加等操作的代码如下：private sub toolbar5_buttonclick(byval button as mscomctllib.button) select case button. tndex case 1 前进data5. recordset. movepreviousif data5. recordset. bof = true thendata5. recordset. movefirstend ifcase 2 后退data5. recordset. movenextif data5. recordset. eof = true

35、 thendata5. recordset. movelastend ifcase 4 增加on error goto adderrordata5. recordset. addnew datal. recordset (建户时间)=dateadd_error:if err. number = 3426 then& err. description,msgbox 已经使用过添加记录！错误： & err & ，0,"提示"unload meend ifi:i:!toolbar5. buttons (6).visible = truetoolbar5.

36、buttons (7).visible = falsecase 5 确定on error goto updatc_crrortf text3.text = thenmsgbox 必须填写售电员！ "，0，提示exit subend if5. 3. 4入库窗体的创建入库管理模块主要实现如下功能:庠存笤理he3d项目入库出庠报表系统关于退出芫成指忌老师：周立东生：粱s20:29| 04-6-7入库管理模块主要实现如下功能代码如下：private sub aspopup3_ci i ck (cancei as boolean)if val (textl.text) <= 0 then

37、msgbox "请输入入库数量！"exit subend ifif dbcombo2.text = thenmsgbox ”请选择入库材料名称！”exit subend ifif dbcombo4. text = "" thenmsgbox "请选择经手人！"exit subend ifdim a as integera二msgbox ("*林林林*你确定此操作吗？林林林林林"& vbcrlf _& "材料名称："& dbcombo2. text & vbcrlf

38、 _& "原库存量："& labe 14. caption & labe 15. caption & vbcrlf _第23贝共43贝& n本次入库："& textl. text & labe 15. caption & ” 单价："& text2. text & "元, & vbcrlf _& "供应商："& dbcombo3. text & vbcrlf _& "经手人："&

39、 dbcombo4. text & vbcrlf _,vbexclamat ion + vbokcance i + vbapp i icat ionmoda i，"提示"）if a = 1 thendata5.recordset. addnew data5. recordset （"名称"）=dbcombo2. text data5. recordset （"供应商"）二 dbcombo3. text data5. recordset （"数量"）二 textl. text data5. recordset

40、 （"单价"）二 text2. text data5. recordset （n经手）= dbcombo4. text data5. recordset （日期"）=date data5. recordset （"时间"）=time data5. updaterecorddata5. recordset. bookmark 二 data5. recordset.lastmod i f i ed,data2. recordset. editdata2. recordset （"数量"）=vai （labe14. caption

41、） + vai （textl. text）data2. recordset.update msgbox "入库成功！" aspopup4. enabied = trueend ifif a 二 2 then exit subend subprivate sub dbcombo2_ci ick （area as integer）if dbcombol. text = 1111 thenmsgbox ”请先选择类别！ ”exit subend ifdim sql as stringsql = "select id,分类，单位，名称，备注，数量from库存材料表wher

42、e分类= & cstr(dbcombol.text) &data2. visible = falsedata2. databasename = app. path & "库存管理.mdb"data2.recordsource = sqldata2.refreshdbcombo2.refreshtimerl.enabied 二 truetimerl. interval 二 2000end subprivate sub dbcombo3_ci ick(area as integer)timer2.enabied 二 truetimer2. interva

43、l 二 2000end subprivate sub dbcombo4_ci ick (area as integer)timer3.enabied 二 truetimer3. interval 二 2000end subprivate sub form_load()makewindow me'alwaysontop me, trueme. top 二 mdifrmmain. height / 2 - me.height / 2 - 1000me. left = mdifrmmain. width / 2 - me. width / 2datal. databasename = app

44、. path & "库存管理.mdb" datal.connect = "pwd=lee1012n datal. recordsource = n材料分类表"datal. refreshdatal. visible = falsedata2. databasename = app. path & "库存管理.mdb" data2.connect = "pwd=lee1012n data2. recordsource = n库存材料表n data2.refreshdata2.visible = falsedat

45、a3. databasename = app. path & "库存管理.mdb" data3.connect = "pwd=lee1012n data3. recordsource = n供应商表”data3.refreshdata3.visible = falsedata4. databasename = app. path & "库存管理.mdb" data4. connect = "pwd=lee1012n data4. recordsource = n员工表n data4. refreshdata4. vis

46、ible = falsedata5. databasename = app. path & "库存管理.mdb" data5.connect = "pwd=lee1012n data5. recordsource = n入库表n data5.refreshdata5. visible = falseaspopup4. enabied = falseend subprivate sub t imerl timer ()data2. recordset. fi ndfi rst "名称=l" & dbcombo2. text &am

47、p; if data2. recordset. nomatch = true thenmsgbox "err", 0, n提示n timerl.enabied 二 falseexit subt imer1.enabied=falseend iflabe 14. caption二 data2. recordset （"数量"）labe 15.caption二 data2. recordset （"单位"）t imerl.enabled=falseend subprivate sub t imer2_t imer 0if dbcombo3

48、.text = "" thenmsgbox "没有选择供应商！"t imer2.enabied = falseexit subend ifdata3. recordset. fi ndfi rst "名称='"& dbcombo3. text &if data3. recordset. nomatch = true then msgbox "err", 0,"提示"timer2. enabied 二 falseexit subend ifdim mystr as stri

49、ngmystr = gstr （data3. recordset （"名称"）& 地址："& cstr （data3. recordset （" 地址"）& "联系人："& cstr （data3. recordset （联系人"）& "电话："& cstr （data3. recordset （"电话"）& "备注："& cstr （data3. recordset （"备注&qu

50、ot;）timer2.enabied 二 falseend subprivate sub timer3_timer（）if dbcombo4. text = "" thenmsgbox "没有选择供应商！"t imer3.enabied = falseexit subend ifdata4. recordset. fi ndfi rst "姓名='"& dbcombo4. text &if data4. recordset. nomatch = true then msgbox "err",

51、 0,"提示"timer3. enabied 二 falseexit subend ifdim mystr as stringmy st r 二 gstr （data4. recordset （"姓名"）& "职务："& cstr （data4. recordset （" 职务"）& "电话："& cstr （data4. recordset （"电话"）mdifrmmain. movingtextl. msgchar = mystrtimer

52、2. enabied 二 falseend sub5. 3. 5出库管理模块的创建出库管理模块主要实现如下功能：库存管理项目入库出库报表系统关于退出完成指导老师：周立东实3生：梁磊20:4504-6-8设罝入库出库报表系统退出出库賴分类：名称：|12d数呈：库存星：服务客尸12d%经手人：1出库各种代码如下:private sub aspopup3_click(cancel as boolean)if val(label4.caption) - val(textl. text) < 0 then msgbox 库存量不够！请及时采购。exit subend ifif dbcombo2.t

53、ext = then msgbox 请选择出库材料名称！exit subend tfif dbcombod. text = then msgbox 请选择经手人！"exit subend ifdim a as integera = msgbox (*林林林*你确定此操作吗?林林林林林"& vbcrlf& 材料名称： & dbcombo2. text & vbcrlf _& "原库存量："& label4. caption & label5. caption & vbcrlf _ &

54、本次出库：& textl. text & label5. caption & vbcrlf & 服务客户： & dbcombo3. text & vbcrlf _& "经手人：& dbcombo4. text & vbcrlf，vbexclamation + vbokcancel + vbapp 1 icationmodal, 提示) if a = 1 thendata5.recordset. addnew data5. recordset ("名称")=dbcombo2. text data

55、5. recordset ("用途")=dbcombo3. text data5. recordset (数量")=textl. text data5. recordset (经手人)=dbcombo4. text data5. recordset (日期")=date data5. recordset ("时间")=time data5. updatcrccorddata5. recordset. bookmark = data5. recordset. lastmodified，data2. recordset. editdata

56、2. recordset ("数量")=val (label4. caption) - val (textl. text) data2. recordset. update msgbox 出库完成！" aspopupd. enabled = trueend ifend subprivate sub aspopup4 click (cancel as boolean)datareportl. showdatareportl. sections (2). controls (label 1") caption = 出库单据datareportl. secti

57、ons(2). controls("label2") caption = cstr(dbcombo2. text) datareportl. sections (2). controls (z，labcl3，z). caption = 数量：&cstr(textl. text)datareportl. sections (2). controls (，zlabel4/z). caption = 用途：&cstr(dbcombo3.text)datareportl. sections (2). controls (，zlabel5，z). caption =

58、datareportl. sections (2). controls (z/labcl6，z). caption = 经手人：& cstr(dbcombo4.text)datareportl. sections (2). controls (，label7/，). caption = 时间： & cstr (date) & & cstr(time) & & cstr (data5. recordset("id)aspopup4. enabled = falseend subprivate sub dbcombo2_click(area as integer)if dbcombo