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

毕业设计(论文)说明书题 目： 通用库存管理系统 作 者： 学 号： 系 (院)： 计算机科学系 专 业： 计算机应用与维护 指导者： (姓 名) (专业技术职务)评阅者： (姓 名) (专业技术职务) 毕业设计（论文）中文摘要通用库存管理系统摘要：本系统针对仓库库存的工作特点，设计了管理员管理、材料管理、入库管理、出库管理等4个子系统，这4个子系统包括了库存的主要业务，大大减轻了工作人员的工作量，全面提高了库存材料的管理效率及服务质量。应用本系统可以在计算机上灵活、方便地管理材料，从而大大的提高了处理效率，使管理更加现代化。本系统是根据实际情况和具体内容，按一定的要求、科学、合理进行系统分析，设计，具体包括菜单设计、数据输入、查询、删除、修改、打印等各种设计。从而使本系统完全能满足经济性、灵活性、系统性及可靠性的要求。 关键字：MIS (管理信息系统) 、文本框、数据库、DAO、可行性系统。毕业设计（论文）外文摘要Title Administratibe System of the available Warehouse Store Abstract: System this to working characteristic of warehouse, administrator management, material management, out of warehouse management, in of warehouse 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 flexibly 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 including 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 引言511系统开发的背景及设计目标512 介绍管理信息系统的基础知识513介绍每章内容52 VB.60的简单介绍72.1系统设计原则72.2系统开发环境及运行简介72.3系统运行环境93系统总体设计结构及功能模块划分1031系统功能分析103.2系统需求分析：103.3系统总体结构103.4系统的技术难点114 数据库结构设计与实现134.1数据库需求分析134.2数据库概念结构设计134.3数据库的逻辑结构设计165各个主要模块设计1951通用库存管理系统主窗体的创建195.2创建工程项目-通用库存管理系统 _MIS1953创建的通用库存管理系统主窗体19End If346 用户使用手册396.1 系统评价39结 论41致 谢42参 考 文 献43二OO四届中专毕业设计（论文）说明书1 引言随着科学技术的飞速发展，计算机科学技术的不断提高和日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用，企业现代化的主要内容之一就是实现企业管理现代化，只有将计算中心机引入企业仓库管理，才能真正形成企业的组织形式，管理模式和运行方式，才能体现材料仓库规范化，现代化的管理手段。11系统开发的背景及设计目标近年来，随着企业规模的不断扩大，商品数量急剧增加，有关产品的各种信息量也成倍增加，面对着庞大的信息量，传统的人工方式管理仓库库存或者用 excel来管理仓库库存已经越来越显得力不从心了，对于入库、出库、数量、产品类型带来了不少的困难，这就需要有一种专门的系统来管理库存信息从而提高仓库管理的工作效率，有利于提高管理效率。作为一名跨世纪的计算机人才，迫切的需要向国际尖端技术接轨。本人在大学期间对数据库技术有扎实的理论功底，所以想在这次毕业设计中理论联系实际，利用所学知识和目前流行的开发工具，设计一套适合广大企业仓库使用的“通用库存管理系统”。可以做到信息的规范管理、科学统计，从而减少管理方面的工作量。12 介绍管理信息系统的基础知识 本节主要介绍了有关管理信息系统的基础知识，管理信息系统就是我们常说的MIS，在这个强调信息的现代社会中它变的越来越重要。MIS是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学、运筹学以及计算机科学。在这些学科的基础上，形成信息收集和加工的方法，从而形成了一个纵横交织的系统。在以前，通用仓库库存管理主要靠手工的记录来完成的，不但容易丢失而且不能一目了然的看到产品的信息，而传统的管理信息系统集中于信息的管理，体现在通过计算机把各种数据串接起来，储存起来，提高工作效率，以及健壮、可靠的数据存储，说到底只不过是传统手工管理方式的计算机模拟。现代社会的发展对企业自身的管理提出了更高的要求，要求快速、准确的进行仓库库存的出库和入库分析。对一个企业来说，无论它的规模的大小，每时每刻都会产生大量的库存产品信息，这些信息如此的复杂，如此的海量，使得每个企业为维护和管理这些信息而浪费了大量的人力和物力。结果还十分的低下，经常的出错，更谈不上数据的快速科学分析。另外大规模的企业仓库在管理上也同样存在着头绪繁多，管理混乱的现象。所有的这一切都是因为缺乏一种有效的、快捷的、使用方便的管理工具所致。解决这一问题的唯一办法，就是引入IMS信息管理系统。此通用仓库库存管理系统是为管理员设计的，是为了方便管理员更好的管理仓库库存信息，可以对库存产品信息实现出库、入库、保存、修改、报表等操作。此系统的数据库是用ACCESS建立的，应用VB创建应用程序，使用工程。VB创建的应用程序可以是SDI（单文档界面）和MDI（多文档界面）本系统采用MDI；这样可以使程序更加美观整齐有序。13介绍每章内容全文共六章。第一章介绍此次系统开发的背景及设计原则，并提出了本系统开发的目的；第二章介绍了系统开发及运行环境；第三章主要介绍了本次系统开发的需求分析，并对系统所要实现的功能做了介绍；第四章为数据库结构设计与实现；第五章为系统的具体实现及简介。第六章为结束语。本次毕业设计时间比较仓足，还有许多功能不够完美和完善。恳请老师和广大同学提出宝贵的意见和建议。2 VB.60的简单介绍2.1系统设计原则2.1.1实用性原则：确保系统具有良好的系统性能，友好的用户界面，较高的处理效率，便于使用和维护，并采用成熟的技术。2.1.2先进性原则：尽量采用先进而且成熟的技术，使系统具有较高的技术水平和较长的生命周期。2.1.3开放性、安全性、可靠性及可扩展性原则。2.1.4兼容性原则：对于所选硬件系统及平台，能很好地适应开发和使用的需要。2.1.5规范性原则：软件设计过程严格按照“软件工程”的规定，系统编码，文档，操作系统平台以及所采用的开发方法按照相应的国际标准和国家标准。2.2系统开发环境及运行简介2.2.1 VisualBasic 语言简介VisualBasic 是Microsoft 公司于1991年推出的基于Windows开发平台的软件发工具，它继承了Basic的简单、高效、易用易学的功能，并融入了如面各对象、设计过程可视化、事件驱动、动态数据驱动等先进的软件开发技术，从而成为目前开发Windows应用程最好、最简单的开发工具之一。VB 6.0是一个集应用程序开发、测试、查错等功能于一体的集成式开发环境，它是当前使用最广泛的开发工具之一。 Visval Basic 6.0/.net 是 Microsoft 公司最新推出的可视化编程语言，可视化编程是一种快捷、标准、高效的程序设计方法，它利用面向对象的编程方式，让程序员通过对象操作能设计出与 Windows 操作系统一致的界面。 Visual Basic6.0 适合用于图形界面设计、数据库编程、 WEB 和多媒体开发等。2.2.2VisualBasic 语言的特色及编程优势l 可视化的程序设计VisualBasic率先采用可视化（Visual）的程序设计方法。利用系统提供的大量可视化控件，可以方便地以可视化直接绘制用户图形界面，并可直观动态地调整界面的风格和样式直到满意为止，从而克服了以前必须用大量代码去描述界面的外观和位置的传统方式。用VB开发程序，就象搭积木盖房子一样，系统提供的可视化控件如同盖房子要用的钢筋、砖瓦原料，通过不同控件的搭配组合可方便地构造出所需的应用程序。l 面向对象的程序设计思想。面向对象的程序设计是伴随Windows图形界面的诞生而产生的一种新的程序设计思想，与传统的程序设计有着较大区别。VB使用了面向对象的程序设计思想。所谓对象可比作是现实生活中的一个人，每个可见的实体。同样对象在程序中所赋给它的功能是不同的，比如在图形界面上有两个命令按钮，一个用来实现数据的统计计算，另一个用来数据打印，这两个按钮就可视为两个不同的对象，为实现这两个对象各自不同的功能，接下来就应该分别针对这两个对象编写程序代码，这种编程的思想和方法，即所谓的“面向对象的程序设计”。l 事件驱动的编程机制。VB采用了事件驱动的编程机制。在VB中，对象与程序代码通过事件及事件过程来联系，对象活跃性则通过它对事件的敏感性来体现。一个对象（控件）往往可以感知和接收多个不同类型的事件，每个事件均能驱动一段程序（事件过程）完成对象响应的工作，从而实现一个预编程的功能，比如命令按钮是编程常用的一个对象若用鼠标在它上面单击一下，便会在该对象上产生一个鼠标单击事件(Click)，与此同时，VB系统就会自动调用执行命令按钮对象的click事件过程，从而实现事件驱动的功能。VB编程没有明显的主程序概念，程序员所需要做的就是面向不同的对象分别编写它们的事件过程。若希望其对象在事件发生后能做出预测，则只需在该对象的该事件过程中编写代码即可，整个VB应用程序就是由这些彼此相互独立的事件过程构成，事件过程的执行与否以及执行的顺序取决于操作时用户所引发的事件来决定。若用户未触发任何事件则系统处于等等状态。l 高度的可扩充性VB是一种高度可扩充的语言，除自身强大的功能外，还为其用户扩充其功能提供了各种途径，主要体现在以下三方面：(1)支持第三方软件商为其开发的可视化控件对象。 VB除自身带许多功能强大、实用的可视化控件以外，还支持第三方软件商为扩充其功能而开发的可视化控件，这些可视化控件对应的文件扩展名为.ocx。只要拥有控件的ocx文件就可将其加入到VB系统中，从而大大增加了VB的编程实力。(2)支持访问动态链接库（Dynamic link Library, 简称DLL）。支持多种数据库系统的访问,支持动态数据交换（DDE）、动态链接库（DLL）和对象的链接与嵌入（OLE）技术VB在对硬件的控制和低级操作方面显得力不从心，为此，VB 提供了访问动态数据库的功能。可以利用其它语言，如C+语言，将需要实现的功能编译成动态链接库(DLL)，然后提供给VB调用。 (3)支持访问应用程序接口（API）。应用程序接口（Application program interface 简称API）是Windows环境中可供任何Windows应用程序访问和调用的一组函数集合。在微软Windows操作系统中，包含了多个功能强大，经过严格测试的API函数。可大大增强的编程能力，并可实现一些本身不能实现的功能。另外，VB具有丰富的数据类型和结构化程序结构，作为一种程序设计语言，它还有如下一些特点： (1)强大的数值和字符串处理功能丰富的图形指令，可方便绘制各种图(2)提供静态和动态数组，有利于简化内存的管理 (3)过程可递归调用，使程序更为简练 (4)支持随机文件和顺序文件的访问 (5) 提供了一个可供应用程序调用的包含多种类型的图标库 (6)具有完善运行出错处理l 支持大型数据库的连接与存取操作。 VB提供了强大的数据库管理和存取操作能力，尤其是企业版的VisualBasic，利用它可轻松开发出各种大型的客户服务器应用程序。另外，还支持动态数据交换，对象的链接与嵌入等新型的编程技术。l 完备的HELP联机帮助功能 与Windows环境下的软件一样，在VB中，利用帮助菜单和F1功能键，用户可以随时方便地得到所需要的帮助信息。VB帮助窗口中显示了有关的示例代码，通过复制、粘贴操作可获取大量的示例代码，为用户的学习和使用提供了极大的方便。 2.3系统运行环境2.3.1硬件环境运行要求奔腾以上的；要求常规内存，扩展内存，最好有以上内存容量；外部存储器（硬盘）空间至少要求以上，安装本系统后剩余空至少以上，要配制一个Microsoft兼容鼠标。2.3.2软件环境需要Windows95以上的操作系统平台，应是中文版本。3系统总体设计结构及功能模块划分如同任何生物一样，软件也有一个诞生、成长、衰亡的生存过程。我们称之为软件的生存期。根据这一思想，可以得到软件生存期的六个步骤，即制定计划、需求分析，设计、程序编码、测试及运行维护。软件需求分析工作是软件生存期中重要的一步，也是决定性一步，只有通过需求分析才能把软件的功能和性能的总体要领描述为具体的软件规程说明，从而奠定软件开发的基础。31系统功能分析本次系统设计的总体任务是实现通用库存管理关系的系统化、规范化和自动化，系统需求分析是在系统开发的总体任务的基础上完成的，并从实际应用的角度考虑，应能为用户提供和实现以下功能：本系统分为四个部分：设置信息的输入、入库信息的输入、出库信息的输入、出库信息的输入l 设置信息的输入，包括员工管理信息、供应管理、客户管理、材料管理和材料分类等。（1） 员工管理信息的输入，包括姓名、电话、职务、密码信息和添加等。（2） 供应管理信息的输入，包括名称、级别、电话、地址、联系人、备注信息和添加等。（3）客户管理信息的输入，包括名称、地址、联系人、电话、产品、数量、备注信息。（4）材料管理信息的输入，包括编号、分类名称信息。（5）材料分类信息的输入，包括名称、分类、单位、分类信息。l 入库信息的输入，包括分类、名称、数量、单价、供应商、经办人和保存信息等。l 出库信息的输入，包括分类、名称、数量、服务客户、经办人和保存信息等。l 报表信息的输出出库信息的输入，包括入库信息、出库信息、意向信息、拜访信息的输出等。3.2系统需求分析：根据系统分析，该管理系统要求如下：3.2.1用户要求：库存的产品、数量情况；3.2.2系统性能要求：（1）、用户操作直观，方便，界面友好。（2）、系统使用功能齐全，可靠，稳定。（3）、更快更稳定的执行速度完成要求。（4）、便于维护与修改。3.3系统总体结构对于通用库存管理系统各项功能分别进行集中，分块。按照结构程序设计的要求进行开发。得到如下所示的系统功能模块图。通用库存管理系统系统模块重新登录退出项目模块员工管理客户管理材料分类供应管理材料管理入库模块分类名称数量单价供应商通用库存管理系统报表模块出库模块帮助模块分类名称数量打印设置打印报表关于使用帮助3.4系统的技术难点3.4.1、建立合理的表结构，避免数据冗余 各表通过特定字段实现不同表的数据连接，避免数据冗余，需要设计简洁高效的表结构。3.4.2、建立相当的系统安全性登录用户身份的验证机制的设计、操作页面的权限保护。3.4.3、建立严密的数据表操作机制同一表有可能在多个模块中被修改，所以严密的数据表操作机制的建立十分比较困难的，但也是必须的。除了设计时必须有相当程度的考虑，在编制时更应加强程序逻辑的可靠性和程序调试的全面性。4 数据库结构设计与实现4.1数据库需求分析本系统应用微软公司的Access为后台数据库，前台则是Microsoft公司强劲的开发工具Visual Basic6.0。数据库在一个信息管理中战胜非重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。数据库结构设计是指数据库中各个表结构的设计，包括信息保存在哪些表格中、各个表的结构如何以及各个表之间的关系。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有得于程序的实现。设计数据库系统时应该首先进行需求分析。在这个阶段主要收集基本数据以及数据处理的流程，为以后进一步设计打下基础。需求分析主要解决两个问题：l 内容要求。调查应用系统用户所需要操作的数据，决定在数据库中存储什么数据。l 处理要求。调查应用系统用户要求对数据据进行什么样的处理，理清数据库中各种数据间关系，而本系统用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。解决这两个问题的时候，程序编制员需要向用户详细调查，保证信息收集的完整性，否则有可能所有的工作都白费。在数据库需求分析后，应该得到一个数据字典文档。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。设计数据库系统时应首先了解用户各个方面的需求，包括现有的以及将来可能增加的需求，用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输入和输出。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。4.2数据库概念结构设计这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。本实例根据上面的设计规划出的实体有：材料实体、供应商实体、客户实体、员工实体、出库实体、入库实体。实体与实体之间的系E-R如图所示客户销售 材料员工销售出库 各个实体具体的描述E-R图如下：员工实体E-R图员工职务密码电话姓名供应商实体E-R图供应商地址级别备注电话联系人名称客户实体E-R图客户电话地址产品数量名称联系人备注材料实体E-R图材料单位分类名称备注名称编号入库材料实体E-R图入库材料库存量单价分类经手人名称数量供应商出库材料实体E-R图出库材料分类经手人数量名称库存量服务客户 4.3数据库的逻辑结构设计 现在需要将上面的数据库概念结构转化为ACCESS2000数据库所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。通用库存管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。如下表为材料入库信息表格 材料入库信息表格列名 数据类型名称Text供应商Text数量Long 单价Curryency经手人Text日期Datetime时间Datetime如下表为材料出库信息表格材料入库信息表格列名数据类型名称Text数量Int经手人Txet用途Text日期Datetime时间Datetime 如下表为材料分类信息表格 材料分类信息表格列名数据类型分类Text如下表为库存材料信息表格库存材料信息表格列名数据类型名称Text分类Text单位Text数量Long备注Text如下表为供应商信息表格 供应商信息表格列名数据类型名称Text地址Text电话Text联系人Text级别Long备注Text如下表为客户信息表格 客户信息表格列名数据类型名称Text地址Text电话Text联系人Text产品Text数量Text备注Text 如下表为员工信息表格 员工信息表格列名数据类型姓名Text职务Text电话Text密码Text5各个主要模块设计51通用库存管理系统主窗体的创建上面已经完成了有关于后台的工作，现在将通过通用库存管理系统中各个功能模块的实现，讲述如何使用VB来编写数据库系统的客户端程序.5.2创建工程项目-通用库存管理系统 _MIS为了用Visual Basic创建应用程序,应当使用工程.一个工程是用来建造应用程序的文件的集合,它包括:l 跟踪所有部件的工程文件l 每个窗体的文件l 每个窗体的二进制数据文件它含有窗体上控件的属性数据。对含有二进制属性（例如图片或图标）的任何.frm文件都是不可编辑的，这些文件都是自动产生的。l 每个类模块的一个文件（.cls）,该文件是可选项。l 每个标准块的一个文件（.bas）,该文件是可选项。l 单个资源文件（.res）,该文件是可选项。启动VB后，单击F文件/新建工程菜单，在工程模板中选择VB将自动产生一个Form窗体，属性都是缺省设置。这里我们删除着个窗体，单击菜单，将这个工程命名为通用库存管理系统。53创建的通用库存管理系统主窗体 VB创建的应用程序可以是SDI（单文档界面）和（多文档界面）。在SDI的程序中，每个窗体之间是独立的。而MDI的程序中，有一个窗体是主窗体，可以包含其他窗体，它的类型是MDI Form。这个实例采用多文档界面，这样可以使程序更加美观、整齐有序。如下图所示：单击工具栏中的“ADD MDI Form按钮，在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。状态栏控件需要在通常的属性窗口中设置一般属性，还需要在其特有的弹出式菜单中进行设置。在“General”属性页对一般属性进行设置，在“panels”属性页对各个文本框进行设置，在“font”属性页对文本字体进行设置，在“picture”属性页可以添加图片。531创建主窗体的菜单在主窗体中，单击鼠标右键，选择弹出式菜单中的“菜单编辑器”命令，创建菜单结构 5.32 用户登陆窗体的创建 系统启动后，将首先出现启动窗体，进入后将出现用户登陆窗体，用户首先选择管理员名。用户登陆窗体中放置了一个文本框，用来放置管理员名的密码；两个按钮 （commandbutton）用来确定或者取消登陆；两个标签（Label）用来标示窗体的密码信息。533添加设置窗体的创建设置信息管理模块主要实现如下功能：显示员工各种信息的代码如下：Private Sub Form_Load() MakeWindow Me AlwaysOnTop Me, TrueMe.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2asPopup5.BackColor = &HFFC0C0SSTab1.Tab = 0Combo1.AddItem 员工Combo1.AddItem 经理员工查找、保存、删除、增加等操作的代码如下：Private Sub Toolbar5_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1 前进Data5.Recordset.MovePreviousIf Data5.Recordset.BOF = True ThenData5.Recordset.MoveFirstEnd IfCase 2 后退Data5.Recordset.MoveNextIf Data5.Recordset.EOF = True ThenData5.Recordset.MoveLastEnd IfCase 4 增加On Error GoTo add_error Data5.Recordset.AddNew Data1.Recordset(建户时间) = Dateadd_error: If Err.Number = 3426 Then MsgBox 已经使用过添加记录！ 错误： & Err & ， & Err.Description, 0, 提示 Unload Me End IfToolbar5.Buttons(6).Visible = TrueToolbar5.Buttons(7).Visible = FalseCase 5 确定On Error GoTo update_errorIf Text3.Text = ThenMsgBox 必须填写售电员！, 0, 提示Exit SubEnd If 534入库窗体的创建入库管理模块主要实现如下功能：入库管理模块主要实现如下功能代码如下：Private Sub asPopup3_Click(Cancel As Boolean)If Val(Text1.Text) = 0 Then MsgBox 请输入入库数量！ Exit SubEnd IfIf DBCombo2.Text = Then MsgBox 请选择入库材料名称！ Exit SubEnd IfIf DBCombo4.Text = Then MsgBox 请选择经手人！ Exit SubEnd IfDim a As Integer a = MsgBox(*你确定此操作吗？* & vbCrLf _ & 材料名称： & DBCombo2.Text & vbCrLf _ & 原库存量： & Label4.Caption & Label5.Caption & vbCrLf _ & 本次入库： & Text1.Text & Label5.Caption & 单价： & Text2.Text & 元 & vbCrLf _ & 供应商： & DBCombo3.Text & vbCrLf _ & 经手人： & DBCombo4.Text & vbCrLf _ , vbExclamation + vbOKCancel + vbApplicationModal, 提示)If a = 1 Then Data5.Recordset.AddNew Data5.Recordset(名称) = DBCombo2.Text Data5.Recordset(供应商) = DBCombo3.Text Data5.Recordset(数量) = Text1.Text Data5.Recordset(单价) = Text2.Text Data5.Recordset(经手) = DBCombo4.Text Data5.Recordset(日期) = Date Data5.Recordset(时间) = Time Data5.UpdateRecord Data5.Recordset.Bookmark = Data5.Recordset.LastModified * Data2.Recordset.Edit Data2.Recordset(数量) = Val(Label4.Caption) + Val(Text1.Text) Data2.Recordset.Update MsgBox 入库成功！ asPopup4.Enabled = TrueEnd IfIf a = 2 Then Exit SubEnd SubPrivate Sub DBCombo2_Click(Area As Integer)If DBCombo1.Text = Then MsgBox 请先选择类别！ Exit SubEnd IfDim SQL As StringSQL = SELECT ID, 分类, 单位, 名称, 备注, 数量 FROM 库存材料表 WHERE 分类 = & CStr(DBCombo1.Text) & Data2.Visible = FalseData2.DatabaseName = App.Path & 库存管理.mdbData2.RecordSource = SQLData2.RefreshDBCombo2.RefreshTimer1.Enabled = TrueTimer1.Interval = 2000End SubPrivate Sub DBCombo3_Click(Area As Integer)Timer2.Enabled = TrueTimer2.Interval = 2000End SubPrivate Sub DBCombo4_Click(Area As Integer)Timer3.Enabled = 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 / 2Data1.DatabaseName = App.Path & 库存管理.mdbData1.Connect = ;pwd=lee1012Data1.RecordSource = 材料分类表Data1.RefreshData1.Visible = FalseData2.DatabaseName = App.Path & 库存管理.mdbData2.Connect = ;pwd=lee1012Data2.RecordSource = 库存材料表Data2.RefreshData2.Visible = FalseData3.DatabaseName = App.Path & 库存管理.mdbData3.Connect = ;pwd=lee1012Data3.RecordSource = 供应商表Data3.RefreshData3.Visible = FalseData4.DatabaseName = App.Path & 库存管理.mdbData4.Connect = ;pwd=lee1012Data4.RecordSource = 员工表Data4.RefreshData4.Visible = FalseData5.DatabaseName = App.Path & 库存管理.mdbData5.Connect = ;pwd=lee1012Data