生产管理系统的设计与实现——基础信息管理与生产设备管理模块-工学学士毕业论文.doc

摘要
随着我国改革开放的不断深入，企业发展已经从面向区域市场转向面向对国内外广阔的市场，过去长期采用的传统手工或手工加微机的管理方式已无法对经营过程中多层次、多品种、多批量的生产计划进行管理，也无法对任何一种产品生产过程的动态信息进行管理。生产管理系统正是在这种背景之下，以信息技术为基础，以基本MRP理论为指导，通过对主生产计划（MPS）、物料清单（BOM）、库存信息的协调管理来实现对企业生产经营诸因素进行优化组合和合理配置，提高企业的经营质量和效率，降低企业生产成本，优化生产管理，全面增强企业的生存竞争能力。
本系统以灯饰产品的生产管理为例进行设计编写，后台数据库采用SQL Server 2000，以保证数据的安全、高效和稳定；前台采用Microsoft Visual Basic 6.0作为主要的开发工具，它可与SQL Server 2000数据库无缝链接。主要实现企业生产的基础信息管理、计划信息管理、生产设备管理、物料库存管理和用户管理以及打印相关报表等。

关键词: 生产管理系统；Visual Basic；SQL Server 2000

Abstract
With our reform and opening up unceasing developing and consummating, the enterprise development has be transformed from catering for the regional market to the vast market of domestic and overseas. The past long-term use of traditional manual or hand plus management of computer operations has been unable to administrate the multi-level , numerous in variety and the mass distribution of production plan administration during operating process, nor can manage the dynamic information in any form of a product of the production process. Production management system is in this context, based on information technology, which directed by basic MRP theory, through the master production schedule, bill of material and inventory information management to achieve the coordination of production management and to optimize the combination of various factors and rational allocation. And it can also improve the quality and efficiency of enterprise management, reduce production costs, optimize production management, and enhance the overall competitiveness to survive.
This system is designed by the sample of lighting products and accessories production management. The background partition database use SQL Server 2000, to ensure the data security, efficient and stable. For the foreground partition, which adopt Microsoft Visual Basic 6.0 as a major development tool, can be linked with SQL Server 2000 database seamlessly. The main intention of the Production Management System is to achieve based information management, planning information management, production equipment management, product inventory management and user management, and print out related report, etc.

Key words: Production Management System; Visual Basic；SQL Server 2000

1. 绪论
1.1 研究生产管理系统的重要意义
当今时代，在全球竞争激烈的大市场中，无论是流程式还是离散式的制造业，无论是单件生产、多品种小批量生产、少品种重复生产还是标准产品大量生产的制造，制造业内部管理都会遇到以下问题：企业可能拥有卓越的销售人员推销产品，但是生产线上的工人却无法如期交货，车间管理人员则抱怨说采购部门没有及时供应他们所需要的原料；实际上，如果采购部门的效率过高，仓库里囤积的某些材料很长时间都用不完，仓库库位饱和，资金周转很慢；许多公司要用6~13个星期的时间，才能计算出所需要的物料数量，所以订货周期只能为6~13个星期；订货单和采购单上的日期和缺料清单上的日期都不同，没有一个是肯定的；财务部门不信赖仓库部门的数据，不以它来计算制造成本。
不能否认，以上这些情况正是大多数企业目前所面临的一个严峻的问题，然而针对这一现象，又能有什么有效的办法来解决它呢？
为了解决这些问题，生产管理系统应运而生，解决了在生产线上各个环结互不相通所造成的各种问题，显著提高了企业的经营质量和效率；降低了生产成本，增强了市场竞争力；强化了企业资金流管理，提高了资金利用率；优化了生产管理，疏通了生产渠道；提高了生产效率。
1.2 生产管理系统的现状分析
1.2.1 生产管理系统的国外发展现状
生产管理系统随着产品复杂性的增加、市场竞争的加剧以及信息全球化而不断更新进化。本系统的指导思想MRP理论较为先进和实用，解决了企业物料供需信息集成的问题，对生产计划的控制也比较完善。但是其运行过程主要是物流的过程，并没有说明企业的经济效益，而生产的运作过程，产品从原材料的投入到成品的产出过程都伴随着企业资金的运动。针对上述问题的提出，1977年美国注明生产管理专家奥列弗·怀特（Oliver Wight）提出了一个新概念——制造资源计划（Manufacturing Resources Planning），被称为MRPⅡ。MRPⅡ以MRP为核心，与MRP的主要区别就是MRPⅡ运用管理会计的概念，用货币形式说明了执行企业“物料计划”带来的效益，实现物料信息同资金信息的集成。
20世纪90年代以来，由于经济全球化和市场国际化的发展，企业所面临的竞争更趋激烈。以客户为中心、基于时间、面向整个供应链的管理成为在新的形势下企业发展的基本动向。企业资源计划（ERP，Enterprise Resource Planning）理论与系统在MRPⅡ的基础上发展而生。ERP中的企业资源包括企业的“三流”资源，即物流资源、资金流资源和信息流资源，ERP实质上就是对着“三流”资源进行全面集成管理的管理信息系统。
从国际的情况来看，据美国权威市场预测研究机构AMR Research宣布，2008年全球ERP市场总、收入达148亿美元，全球ERP市场在近5年内将以年综合增幅37%的速度发展，到2012年这一数字将增至520亿，并且ERP的应用范围将从制造业扩展到零售业、服务业、公共事业、医疗行业等。
1.2.2 销售管理信息系统的国内发展现状
进入2000年以来，随着中央提出“以信息化带动工业化”战略，我国企业信息化与现代化发展步伐明显加快。
特别是科技部提出的“制造业信息化工程”、经贸委提出的“企业信息化”行动，带动和掀起了我国企业应用ERP的高潮。近两年，我国众多企业在积极实施ERP系统，现已有数千家企业应用ERP系统。有些早期实施MRPⅡ的企业在使其系统升级为ERP系统，并在不断深化应用，功能更加强大，集成化程度越来越高。先进的ERP管理系统提高了企业的市场竞争力，获得显著经济效益。巨大的ERP市场也刺激了国产化ERP产品应用的不断深入和我国ERP软件产业的迅速发展，现已有国产化ERP软件商数十家之多。“十五”863计划也在大力支持和推动ERP管理系统的研究，并重点支持了10个ERP软件产品的研发，对ERP应用实施和产业发展产生了较大的影响和推动作用。ERP系统应用实施的热潮正在全国各省市全面铺开，并在制造业信息化工程中发挥着积极推动作用。
1.3 本系统研究内容
本系统属于典型的数据库管理系统，是针对中小型企业的生产管理而开发设计的，可实现进一步的计算机化管理。
本系统的基本研究对象：
（1） 主生产计划
主生产计划是确定每一具体的最终产品在每一具体时间段内生产数量的计划。这里的最终产品是指对于企业来说最终完成、要出场的完成品、它要具体到产品的品种、型号。它是物料需求计划制订的一个最重要的数据来源。
（2） 产品结构与物料清单
生产管理系统要正确计算出物料需求的时间和数量，特别是相关物料需求的数量和时间，首先要使系统能够知道企业所制造的产品结构和所有要使用到的物料。产品结构列出构成成品或装配件的所有部件、组件、零件等的组成、装配关系和数量要求。它是生产管理系统产品拆零的基础。举例来说，一个大大简化了的台灯的产品结构如图1-1所示，它大体反映了台灯的构成。
台灯
灯座（1）
灯泡（1）
电线（1）
插头（1）
灯罩（1）

图1-1 简化了的台灯产品结构图
（3） 库存信息
库存信息是保存企业所有产品、零部件、在制品、原材料等存在状态的数据库。在生产管理系统中，将产品、零部件、在制品、原材料甚至工装工具等统称为“物料”或“项目”。为便于计算机识别，必须对物料进行编码，物料编码是生产管理系统识别物料的唯一标识。
本系统的研究内容主要有：
（1） 能够控制物料的基本信息及物料的出/入库操作，能查询出任何时间的物料出/入库情况。
（2） 生产过程中能够对生产订单进行管理，随时掌握生产的进度情况。
（3） 能够计算生产产品所需各种物料的数量，控制物料库存。
（4） 能够设置生产设备的基本信息及摊销期限，能查询每样生产设备的所属车间部门。
（5） 能够对生产设备进行报废、维修的管理，能查询每样生产设备的类型和状态
（6） 以上所有的功能模块都需要打印出各种各样的报表，用于会计查账或审核。
1.4 系统分工
本系统由区思恩、刘伟仙、林炽坚3人分工完成，系统由基础信息管理、计划信息管理、生产设备管理、产品库存管理、系统维护5个模块组成。系统详细分工如下：
区思恩负责基础信息管理模块和生产设备管理模块的窗体设计和代码设计。
刘伟仙负责产品库存管理功能模块和系统主界面、登录模块的窗体设计和代码设计。
林炽坚负责计划信息管理模块和系统维护模块的窗体设计和代码设计。
2. 总体设计
2.1 系统总体功能
生产管理系统是一个典型的数据库开发应用程序，由基础信息管理模块、计划信息管理模块、生产设备管理模块、产品库存管理模块、系统维护模块等5个功能模块组成，规划系统功能模块如下：
（1） 基础信息管理模块
该模块主要包括产品基础信息、物料基本信息、设备状态设置、设备类型设置、设备摊销时间设置、车间部门设置6部分组成。
（2） 计划信息管理模块
该模块主要包括生产计划单管理、生产计划单查询、物料需求计划、物料需求查询4部分。
（3） 生产设备管理模块
该模块主要由生产设备档案、生产设备查询、生产设备报废、生产设备报废查询、生产设备维修、生产设备维修查询6部分组成。
（4） 产品库存管理模块
该模块主要由产品完工入库、产品入库查询、物料入库、物料入库查询、生产领料、生产领料查询、物料库存信息查询7部分组成。
（5） 系统维护模块
该模块主要由操作员设置、密码修改、操作权限设置、数据清理、数据备份与恢复、设置主窗口图片6部分组成。

生产管理系统
基础信息管理
计划信息管理
生产设备管理
产品库存管理
系统维护
产品基础信息
物料基本信息
设备状态设置
设备摊销时间设置
车间部门设置
生产计划单管理
生产计划单查询
物料需求计划
物料需求查询
生产设备档案
生产设备查询
生产设备报废
生产设备报废查询
生产设备维修
生产设备维修查询
产品完工入库
产品入库查询
物料入库
物料入库查询
生产领料
生产领料查询
物料库存信息查询
操作员设查询
密码修改
操作权限设置

图2-1 生产管理系统功能架构图

2.2 系统流程图
本系统主要有两大管理功能，分别是生产设备管理和生产计划单管理。系统流程图分别独立介绍这两大管理功能的操作流程。

图2-2生产设备管理系统流程图 图2-3生产计划单管理系统流程图

2.3 系统数据流程图
配料
生产管理
生产
车间
系统维护
计划管理
计划
部门
仓库
部门
设备管理
成品
设备档案文件
设备报废文件
设备维修文件
参数设置文件
操作权限设置
入库文件
生产计划单
物料需求计划单
领料文件

图2-2 生产管理系统数据流程图
2.4 编码设计
本系统的内部信息编码采用了统一的编码方式。
（1） 产品编码
产品编号为英文字母“CP”和3位数字编码的组合。例如：CP001。
（2） 物料编号
物料编号为英文字母“WL”和3位数字编码的组合。例如：WL001。
（3） 设备状态编号
设备状态编号为英文字母“ZT”和3位数字编码的组合。例如：ZT001。
（4） 生产计划单编号
生产计划单编号为英文字母“JH”加系统日期加3位数字编码的组合。例如：JH20110417001。
（5） 物料需求计划单编号
物料需求计划单编号为英文字母“WLXQ”加系统日期加3位数字编码的组合。例如：WLXQ20110417001。
（6） 设备档案编号
设备档案编号为英文字母“Sb”加系统日期加英文字母“D”加3位数字编码的组合。例如：Sb20110417D001。
（7） 物料入库单编号
物料入库单编号为英文字母“WLRK”加系统日期加英文字母“D”加3位数字编码的组合。例如：WLRK20110417D001。
（8） 生产领料单编号
生产领料单编号为英文字母“SCLL”加系统日期加英文字母“d”加3位数字编码的组合。例如：SCLL20110417d001。
3. 具体系统实现功能介绍
3.1 基础信息管理
“基础信息管理”功能模块用于设置生产管理设计的基础数据。基础数据管理是产品制造系统的基础，基础数据的管理质量提现企业管理水平的高低，同时也是MRP系统应用效果的重要衡量标准。“基础信息管理”功能模块主要包括：产品基础信息管理、物料基本信息管理、设备状态设置、设备摊销时间设置、车间部门设置5个部分。
3.1.1 产品基础信息管理
产品基础信息管理包括产品编号、产品名称、产品规格、计量单位、备注信息属性，能对产品基础信息进行增加、删除、修改操作。窗体中有产品基础信息列表，显示系统已有产品的基础信息。
3.1.2 物料基本信息
物料基本信息管理包括物料编号、物料名称、物料规格、计量单位、产品编号、产品名称、产品规格、备注信息、物料数量/单位产品属性，能对物料基本信息进行增加、删除、修改操作。窗体中有物料基本信息列表，显示系统已有物料的基本信息。
3.1.3 设备状态设置
设备状态设置包括设备状态编号、设备状态名称属性，能对设备状态信息进行增加、删除、修改、查询操作。窗体中有设备状态信息列表，显示系统已有的设备状态信息或查询结果。
3.1.4 设备类型设置
设备类型设置包括设备类型编号、设备类型名称属性，能对设备类型信息进行增加、删除、修改、查询操作。窗体中有设备类型信息列表，显示系统已有的设备状态信息或查询结果。
3.1.5 设备摊销时间设置
设备摊销时间设置包括设备摊销编号、设备摊销年限属性，能对设备摊销年限信息进行增加、删除、修改、查询操作。窗体中有设备摊销年限信息列表，显示系统已有的设备摊销年限信息或查询结果。
3.1.6 车间部门设置
车间部门设置包括车间编号、车间名称属性，能对车间部门信息进行增加、删除、修改、查询操作。窗体中有车间部门信息列表，显示系统已有的车间部门信息或查询结果。
3.2 生产设备管理
“生产设备管理”功能模块用于设置生产设备的基本信息，管理生产设备的使用情况。生产设备是产品生产基本工具，是整个生产车间的灵魂，合理管理生产设备，实时监测生产设备的使用状况，及时维修损坏设备是产品顺利生产的重要保证。“生产设备管理”功能模块主要包括：生产设备档案、生产设备查询、生产设备报废、生产设备报废查询、生产设备维修、生产设备维修查询6个部分。
3.2.1 生产设备档案
生产设备档案包括设备编号、设备名称、使用部门、设备类型、设备状态、设备启用日期、设备购买价值、摊销时间、备注信息属性，能对生产设备信息进行增加、删除、修改、查询操作。窗体中有生产设备信息列表，显示系统已有的生产设备基本信息或查询结果。
3.2.2 生产设备查询
生产设备查询可以按设备编号、设备名称、使用部门、设备类型、设备状态、设备启用日期、设备购买价值、摊销时间为查询条件，查询出相应的记录，并打印报表，显示打印时间，合计购买价值。
3.2.3 生产设备报废
生产设备报废包括设备报废编号、设备编号、设备名称、使用部门、设备类型、设备启用日期、设备报废日期、备注信息属性，能对生产设备报废信息进行增加、删除、修改、查询操作。窗体中有生产设备报废信息列表，显示系统已有的生产设备报废信息或查询结果。
3.2.4 生产设备报废查询
生产设备报废查询可以按设备报废编号、设备编号、设备名称、使用部门、设备类型、设备启用日期、设备报废日期、备注信息为查询条件，查询出相应的记录，并打印报表，显示打印时间。
3.2.5 生产设备维修
生产设备维修包括设备维修编号、设备编号、设备名称、使用部门、设备类型、维修起始日期、维修截止日期、备注信息属性，能对生产设备报废信息进行增加、删除、修改、查询操作。窗体中有生产设备维修信息列表，显示系统已有的生产设备维修信息或查询结果。
3.2.6 生产设备维修查询
生产设备维修查询可以按设备维修编号、设备编号、设备名称、使用部门、设备类型、维修起始日期、维修截止日期、备注信息为查询条件，查询出相应的记录，并打印报表，显示打印时间。
4. 数据库各库、表及其作用
4.1 库的建立

图4-1生产管理系统概念模型
数据库是管理系统的核心内容，数据表结构设计是否合理将直接影响到能否正确存取数据。本数据库在SQL server 2000 中创建。创建过程如下：
（1） 打开SQL server 2000企业管理器，新建一个新的数据库。
（2） 为数据库取名db_SCGL，然后保存。
（3） 右键点击“数据库”出来一个菜单，再右键“新建表”就可以了。
（4） 使用相同的方法再创建其他表，这里不再赘述。
（5） 以后可以直接对数据库进行修改或删除。
4.2 库介绍
生产管理系统数据库由16个数据库表组成，分别是： 车间部门信息表、产品入库信息表、产品信息表、设备报废信息表、设备类型信息表、设备摊销时间表、设备维修信息表、设备状态信息表、生产计划单信息表、生产领料信息表、生产设备信息表、物料库存信息表、物料需求信息表、物料需求信息表、物料信息表、用户信息表。

图4-2数据表树型结构图
4.3 表的设计
表4-1 产品入库表
字段名
数据类型
长度
描述
备注
允许为空
cprk_id
varchar
20
入库编号
主键
N
cprk_cpbh
varchar
50
产品编号

N
cprk_cpmc
varchar
50
产品名称

N
cprk_cpgg
varchar
50
产品规格

N
cprk_jldw
varchar
50
计量单位

N
cprk_rksl
numeric
9
入库数量

N
cprk_rkrq
varchar
50
入库日期

N
cprk_ddbh
varchar
30
订单编号

N
cprk_bz
varchar
100
备注信息

Y

表4-2 产品信息表
字段名
数据类型
长度
描述
备注
允许为空
cpxx_id
varchar
30
产品编号
主键
N
cpxx_cpmc
varchar
50
产品名称

N
cpxx_cpgg
varchar
50
产品规格

N
cpxx_jldw
varchar
50
产品计量单位

N
cpxx_bz
varchar
50
备注信息

Y

表4-3 生产计划单表
字段名
数据类型
长度
描述
备注
允许为空
scjhd_id
varchar
30
生产计划单编号
主键
N
scjhd_cpbh
varchar
50
产品编号

N
scjhd_cpmc
varchar
50
产品名称

N
scjhd_cpgg
varchar
50
产品规格

N
scjhd_jldw
varchar
50
计量单位

N
scjhd_jhsl
numeric
9
计划数量

N
scjhd_tcrq
varchar
50
计划投产日期

N
scjhd_wgrq
varchar
50
完工日期

N
scjhd_wcf
varchar
10
是否完成

N
scjhd_bz
text
16
备注信息

Y

表4-4 生产设备表
字段名
数据类型
长度
描述
备注
允许为空
scsb_sbbh
varchar
50
设备编号
主键
N
scsb_sbmc
varchar
50
设备名称

N
scsb_sybm
varchar
50
使用部门

N
scsb_sblx
varchar
50
设备类型

N
scsb_sbzt
varchar
50
设备状态

N
scsb_syrq
varchar
50
启用日期

N
scsb_gmjz
numeric
9
设备购买价值

N
scsb_txsj
numeric
9
摊销时间

N
scsb_bz
text
16
备注信息

Y

表4-5 生产领料表
字段名
数据类型
长度
描述
备注
允许为空
scll_id
varchar
50
领料单号
主键
N
scll_scjhd
varchar
50
生产计划单

Y
scll_cpbh
varchar
50
产品编号

Y
scll_cpmc
varchar
50
产品名称

Y
scll_cpgg
varchar
50
产品规格

Y
scll_cpdw
varchar
50
产品单位

Y
scll_cpsl
numeric
9
产品数量

Y
scll_wlbh
varchar
50
物料编号

Y
scll_wlmc
varchar
50
物料名称

Y
scll_wlgg
varchar
50
物料规格

Y
scll_wldw
varchar
50
物料单位

Y
scll_dwsl
numeric
9
每单位产品所需的物料数量

Y
scll_wlsl
numeric
9
物料数量

Y
scll_ylsl
numeric
9
已领数量

Y
scll_llsl
numeric
9
领料数量

Y
scll_sysl
numeric
9
剩余未领数量

Y
scll_llrq
varchar
50
领料日期

Y
scll_bz
varchar
50
备注信息

Y

表4-6 生产设备表
字段名
数据类型
长度
描述
备注
允许为空
scsb_sbbh
varchar
50
设备编号
主键
N
scsb_sbmc
varchar
50
设备名称

N
scsb_sybm
varchar
50
使用部门

N
scsb_sblx
varchar
50
设备类型

N
scsb_sbzt
varchar
50
设备状态

N
scsb_syrq
varchar
50
启用日期

N
scsb_gmjz
numeric
9
设备购买价值

N
scsb_txsj
numeric
9
摊销时间

N
scsb_bz
text
16
备注信息

Y

表4-7 物料库存表
字段名
数据类型
长度
描述
备注
允许为空
wlkc_wlbh
varchar
50
物料编号
主键
N
wlkc_wlmc
varchar
50
物料名称

Y
wlkc_wlgg
varchar
50
物料规格

Y
wlkc_wldw
varchar
50
物料单位

Y
wlkc_kcsl
numeric
9
库存数量

Y

表4-7 物料入库表
字段名
数据类型
长度
描述
备注
允许为空
wlrk_rkid
varchar
30
入库编号
主键
N
wlrk_wlbh
varchar
50
物料编号

N
wlrk_wlmc
varchar
50
物料名称

Y
wlrk_wlgg
varchar
50
物料规格

Y
wlrk_jldw
varchar
50
物料单位

Y
wlrk_rksl
varchar
50
入库数量

Y
wlrk_rkrq
varchar
50
入库时间

N
wrk_bz
text
16
备注信息

Y

5. 详细设计
5.1 设计工具选取
数据库管理系统软件采用SQL Server 2000，以保证数据的安全、高效和稳定。
开发工具采用Microsoft Visual Basic 6.0，它能与SQL Server 2000数据库无缝链接，且界面亲切，语法简单直观，容易掌握。
5.2 窗体设计和代码设计
5.2.1 物料信息设置
“物料信息设置”窗体可以用于对本企业所需要的物料信息进行增加、删除、修改、查询等操作，并可以通过下面的列表浏览所有的物料信息。“物料信息设置”窗体的运行结果如图5-1所示。

图5-1 “物料信息设置”窗体运行结果
在程序运行时，数据的增加、删除、修改、查询等操作都是通过“ToolBar”控件上的按钮来实现的。其实现的关键代码如下：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key

Case "add" '添加
blnAdd = True '设置变量，如果为True，则在【保存】按钮中作插入操作
tlbState Toolbar1, True '调用模块中的过程
'打开数据集连接
rs1.Open "select * from tb_SCGL_wlxx order by wlxx_id", cnn, adOpenStatic
If rs1.RecordCount > 0 Then '如果数据记录大于零
rs1.MoveLast '移至最后一条记录
Text1(0) = "WL" + Format(Val(Right(Trim(rs1.Fields("wlxx_id")), 3)) + 1, "###000") '编号自动加1
Else '如果没有记录
Text1(0) = "WL001"
End If
rs1.Close '关闭数据对象
For i = 1 To Text1.UBound
Text1(i) = ""
Text1(i).Locked = False
Next i
Cbx_Cpbh.Locked = False
For i = 1 To Text1.UBound
Text1(i).Enabled = True
Next i
Cbx_Cpbh.Enabled = True : Text1(1).SetFocus

Case "modify" '修改
If Adodc1.Recordset.RecordCount > 0 Then
blnAdd = False '设置变量，如果为False，则在“保存”按钮中作修改操作
tlbState Toolbar1, True '调用模块中的过程
For i = 1 To Text1.UBound
Text1(i).Locked = False
Next i
Cbx_Cpbh.Locked = False
view_data '调用自定义的过程
mybookmark = Dgr_Wlxx.Bookmark
For i = 1 To Text1.UBound
Text1(i).Enabled = True
Next i
Cbx_Cpbh.Enabled = True
Else
MsgBox "系统没有要修改的数据！", , "提示窗口"
End If

Case "delete" '删除
If Adodc1.Recordset.RecordCount > 0 Then
'查询其他表中是否有相关的信息正在使用，如果有这不能删除该信息
Dim rs2 As New ADODB.Recordset
rs2.Open "select * from tb_SCGL_wlxq where wlxq_wlbh='" + Adodc1.Recordset.Fields("wlxx_id") + "'", cnn, adOpenKeyset
If rs2.RecordCount > 0 Then
MsgBox "该信息正在使用，不能删除！", , "信息提示"
Exit Sub
Else
Adodc1.Recordset.Delete
Adodc1.Refresh
For i = 0 To Text1.UBound
Text1(i).Text = ""
Next i
Cbx_Cpbh.Text = ""
Call view_data '调用数据显示自定义过程
Call Dgr_Title '调用设置表头的字定义过程
End If
Else
MsgBox "系统没有要删除的数据！", , "提示窗口"
End If

Case "save" '保存
On Error GoTo SaveErr '错误处理
If Text1(1).Text = "" Then
MsgBox "系统不允许" & Label2 & "为空！", , "提示窗口"
Exit Sub
End If
If blnAdd = True Then '添加新记录
cnn.Execute ("insert into tb_SCGL_wlxx(wlxx_id,wlxx_wlmc,wlxx_wlgg,wlxx_wldw,wlxx_cpbh,wlxx_cpmc,wlxx_cpgg,wlxx_bz,wlxx_wlsl) values('" + Text1(0) + "','" + Text1(1) + "','" + Text1(2) + "','" + Text1(3) + "','" + Cbx_Cpbh.Text + "','" + Text1(4).Text + "','" + Text1(5).Text + "','" + Text1(6) + "','" + Text1(7) + "')")
Unload Me
Frm_Jcxx_Wlxx.Show 1 : tlbState Toolbar1, False
For i = 1 To Text1.UBound
Text1(i).Locked = True
Next i
Cbx_Cpbh.Locked = True
Else '修改原有记录
cnn.Execute ("update tb_SCGL_wlxx set wlxx_wlmc ='" + Text1