毕业设计论文-通用库存管理系统.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 引言 5
1．1系统开发的背景及设计目标 5
1．2 介绍管理信息系统的基础知识 5
1．3介绍每章内容 5
2 VB.60的简单介绍 7
2.1系统设计原则 7
2.2系统开发环境及运行简介 7
2.3系统运行环境 9
3系统总体设计结构及功能模块划分 10
3．1系统功能分析 10
3.2系统需求分析： 10
3.3系统总体结构 10
3.4系统的技术难点 11
4 数据库结构设计与实现 13
4.1数据库需求分析 13
4.2数据库概念结构设计 13
4.3数据库的逻辑结构设计 16
5各个主要模块设计 19
5．1通用库存管理系统主窗体的创建 19
5.2创建工程项目----通用库存管理系统 _MIS 19
5．3创建的通用库存管理系统主窗体 19
End If 34
6 用户使用手册 39
6.1 系统评价 39
结 论 41
致 谢 42
参 考 文 献 43

二OO四届中专毕业设计（论文）说明书
1 引言

随着科学技术的飞速发展，计算机科学技术的不断提高和日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用，企业现代化的主要内容之一就是实现企业管理现代化，只有将计算中心机引入企业仓库管理，才能真正形成企业的组织形式，管理模式和运行方式，才能体现材料仓库规范化，现代化的管理手段。
1．1系统开发的背景及设计目标
近年来，随着企业规模的不断扩大，商品数量急剧增加，有关产品的各种信息量也成倍增加，面对着庞大的信息量，传统的人工方式管理仓库库存或者用 excel来管理仓库库存已经越来越显得力不从心了，对于入库、出库、数量、产品类型带来了不少的困难，这就需要有一种专门的系统来管理库存信息从而提高仓库管理的工作效率，有利于提高管理效率。
作为一名跨世纪的计算机人才，迫切的需要向国际尖端技术接轨。本人在大学期间对数据库技术有扎实的理论功底，所以想在这次毕业设计中理论联系实际，利用所学知识和目前流行的开发工具，设计一套适合广大企业仓库使用的“通用库存管理系统”。可以做到信息的规范管理、科学统计，从而减少管理方面的工作量。
1．2 介绍管理信息系统的基础知识
本节主要介绍了有关管理信息系统的基础知识，管理信息系统就是我们常说的MIS，在这个强调信息的现代社会中它变的越来越重要。MIS是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学、运筹学以及计算机科学。在这些学科的基础上，形成信息收集和加工的方法，从而形成了一个纵横交织的系统。
在以前，通用仓库库存管理主要靠手工的记录来完成的，不但容易丢失而且不能一目了然的看到产品的信息，而传统的管理信息系统集中于信息的管理，体现在通过计算机把各种数据串接起来，储存起来，提高工作效率，以及健壮、可靠的数据存储，说到底只不过是传统手工管理方式的计算机模拟。现代社会的发展对企业自身的管理提出了更高的要求，要求快速、准确的进行仓库库存的出库和入库分析。
对一个企业来说，无论它的规模的大小，每时每刻都会产生大量的库存产品信息，这些信息如此的复杂，如此的海量，使得每个企业为维护和管理这些信息而浪费了大量的人力和物力。结果还十分的低下，经常的出错，更谈不上数据的快速科学分析。另外大规模的企业仓库在管理上也同样存在着头绪繁多，管理混乱的现象。所有的这一切都是因为缺乏一种有效的、快捷的、使用方便的管理工具所致。解决这一问题的唯一办法，就是引入IMS——信息管理系统。
此通用仓库库存管理系统是为管理员设计的，是为了方便管理员更好的管理仓库库存信息，可以对库存产品信息实现出库、入库、保存、修改、报表等操作。
此系统的数据库是用ACCESS建立的，应用VB创建应用程序，使用工程。VB创建的应用程序可以是SDI（单文档界面）和MDI（多文档界面）本系统采用MDI；这样可以使程序更加美观整齐有序。
1．3介绍每章内容
全文共六章。第一章介绍此次系统开发的背景及设计原则，并提出了本系统开发的目的；第二章介绍了系统开发及运行环境；第三章主要介绍了本次系统开发的需求分析，并对系统所要实现的功能做了介绍；第四章为数据库结构设计与实现；第五章为系统的具体实现及简介。第六章为结束语。
本次毕业设计时间比较仓足，还有许多功能不够完美和完善。恳请老师和广大同学提出宝贵的意见和建议。
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.2　VisualBasic 语言的特色及编程优势
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系统总体设计结构及功能模块划分

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

5各个主要模块设计
5．1通用库存管理系统主窗体的创建
上面已经完成了有关于后台的工作，现在将通过通用库存管理系统中各个功能模块的实现，讲述如何使用VB来编写数据库系统的客户端程序.
5.2创建工程项目----通用库存管理系统 _MIS
为了用Visual Basic创建应用程序,应当使用工程.一个工程是用来建造应用程序的文件的集合,它包括:
l 跟踪所有部件的工程文件
l 每个窗体的文件
l 每个窗体的二进制数据文件它含有窗体上控件的属性数据。对含有二进制属性（例如图片或图标）的任何.frm文件都是不可编辑的，这些文件都是自动产生的。
l 每个类模块的一个文件（.cls）,该文件是可选项。
l 每个标准块的一个文件（.bas）,该文件是可选项。
l 单个资源文件（.res）,该文件是可选项。
启动VB后，单击F文件/新建工程菜单，在工程模板中选择VB将自动产生一个Form窗体，属性都是缺省设置。这里我们删除着个窗体，单击菜单，将这个工程命名为通用库存管理系统。
5．3创建的通用库存管理系统主窗体
VB创建的应用程序可以是SDI（单文档界面）和（多文档界面）。在SDI的程序中，每个窗体之间是独立的。而MDI的程序中，有一个窗体是主窗体，可以包含其他窗体，它的类型是MDI Form。这个实例采用多文档界面，这样可以使程序更加美观、整齐有序。如下图所示：

单击工具栏中的“ADD MDI Form按钮，在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。状态栏控件需要在通常的属性窗口中设置一般属性，还需要在其特有的弹出式菜单中进行设置。在“General”属性页对一般属性进行设置，在“panels”属性页对各个文本框进行设置，在“font”属性页对文本字体进行设置，在“picture”属性页可以添加图片。
5．3．1创建主窗体的菜单
在主窗体中，单击鼠标右键，选择弹出式菜单中的“菜单编辑器”命令，创
建菜单结构
5.3．2 用户登陆窗体的创建
系统启动后，将首先出现启动窗体，进入后将出现用户登陆窗体，用户首先选择管理员名。用户登陆窗体中放置了一个文本框，用来放置管理员名的密码；两个按钮 （commandbutton）用来确定或者取消登陆；两个标签（Label）用来标示窗体的密码信息。
5．3．3添加设置窗体的创建
设置信息管理模块主要实现如下功能：

显示员工各种信息的代码如下：
Private Sub Form_Load()
MakeWindow Me
AlwaysOnTop Me, True
Me.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000
Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2
asPopup5.BackColor = &HFFC0C0
SSTab1.Tab = 0
Combo1.AddItem "员工"
Combo1.AddItem "经理"
┋
┋
员工查找、保存、删除、增加等操作的代码如下：
Private Sub Toolbar5_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data5.Recordset.MovePrevious
If Data5.Recordset.BOF = True Then
Data5.Recordset.MoveFirst
End If
Case 2 ''后退
Data5.Recordset.MoveNext
If Data5.Recordset.EOF = True Then
Data5.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
Data5.Recordset.AddNew
'Data1.Recordset("建户时间") = Date
add_error:
If Err.Number = 3426 Then
MsgBox "已经使用过添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
┋
┋
Toolbar5.Buttons(6).Visible = True
Toolbar5.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
If Text3.Text = "" Then
MsgBox "必须填写售电员！", 0, "提示"
Exit Sub
End If

5．3．4入库窗体的创建
入库管理模块主要实现如下功能：

入库管理模块主要实现如下功能代码如下：
Private Sub asPopup3_Click(Cancel As Boolean)
If Val(Text1.Text) <= 0 Then
MsgBox "请输入入库数量！"
Exit Sub
End If
If DBCombo2.Text = "" Then
MsgBox "请选择入库材料名称！"
Exit Sub
End If
If DBCombo4.Text = "" Then
MsgBox "请选择经手人！"
Exit Sub
End If
Dim 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 = True
End If
If a = 2 Then Exit Sub
End Sub

┋
┋
Private Sub DBCombo2_Click(Area As Integer)
If DBCombo1.Text = "" Then
MsgBox "请先选择类别！"
Exit Sub
End If
Dim SQL As String
SQL = "SELECT ID, 分类, 单位, 名称, 备注, 数量 FROM 库存材料表 WHERE 分类 = '" & CStr(DBCombo1.Text) & "'"
Data2.Visible = False
Data2.DatabaseName = App.Path & "\库存管理.mdb"
Data2.RecordSource = SQL
Data2.Refresh
DBCombo2.Refresh
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub

Private Sub DBCombo3_Click(Area As Integer)
Timer2.Enabled = True
Timer2.Interval = 2000
End Sub

Private Sub DBCombo4_Click(Area As Integer)
Timer3.Enabled = True
Timer3.Interval = 2000
End Sub

Private Sub Form_Load()
MakeWindow Me
' AlwaysOnTop Me, True
Me.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000
Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2
Data1.DatabaseName = App.Path & "\库存管理.mdb"
Data1.Connect = ";pwd=lee1012"
Data1.RecordSource = "材料分类表"
Data1.Refresh
Data1.Visible = False
Data2.DatabaseName = App.Path & "\库存管理.mdb"
Data2.Connect = ";pwd=lee1012"
Data2.RecordSource = "库存材料表"
Data2.Refresh
Data2.Visible = False
Data3.DatabaseName = App.Path & "\库存管理.mdb"
Data3.Connect = ";pwd=lee1012"
Data3.RecordSource = "供应商表"
Data3.Refresh
Data3.Visible = False
Data4.DatabaseName = App.Path & "\库存管理.mdb"
Data4.Connect = ";pwd=lee1012"
Data4.RecordSource = "员工表"
Data4.Refresh
Data4.Visible = False
Data5.DatabaseName = App.Path & "\库存管理.mdb"
Data5.Connect = ";pwd=lee1012"
Data