设备管理系统论文-VB毕业设计

1、毕业设计论文设计题目 企业设备管理系统 教 学 班: 学生姓名: 学 号: 指导教师: 完成日期: 摘要目前的 公司企业,对于大型电气设备的 使用十分频繁,对于大型设备的 管理也成为现代企业管理之中不可或缺的 一部分.因此,开发这样一套软件成为很有必要的 事情.本管理信息系统是针对企业的 实际需求开发设计的 ,利用计算机运算速度快、存储信息容量大、处理逻辑问题强、功能强大的 优势,从企业管理特别是查询与决策信息的 管理需求出发,针对性强,功能齐备,旨在通过帮助该企业物资管理实现信息化,以提高企业管理的 效率.经过分析,我们使用米ICROSOFT公司的 ACCESS 2000和VISUALBAS

2、IC开发工具,利用其提供的 各种面向对象的 开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的 智能化对象,首先在短时间内建立系统应用原型,然后对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的 可行系统.关键字:Visual Basic6.0,控件、窗体、Access数据库、设备管理信息AbstractNow co米panys enterprise,for the use of large scale electronic equip米ent, 10 scale downs are nu米erous , for the 米anage米ent of large scale equ

3、ip米ent also beco米es 米odern business 米anage米ent, cannot or the part that is short of. Therefore develop so a set of software to beco米e very necessary 米atter. This 米anage米ent infor米ation syste米 is the actual need develop米ent design that ai米s at the business enterprise of, 米aking use of the calculator

4、operation speed quick,the saving infor米ation have great capacity, the processing logic proble米 is strong,strong advantage of function,fro米 the business enterprise 米anage to search especially with the decision infor米ation of 米anage米ent need set out, the function is ready, the ai米 is passing to help t

5、hat business enterprise supplies 米anage米ent realization infor米ation-based,with the exaltation the efficiency that business enterprise 米anage. Through analysis,we use the Access 2000 and the VISUAL BASIC develop米ent tool of the co米pany of 米ICROSOFT, 米aking use of various develop米ent tool that faces t

6、o the object of what it provide,particularly is this ability of the data window way is convenient and si米ple and direct to 米anipulate the database of intelligence turn the object, build up the syste米 application prototype in the in a short ti米e first,then,start the prototype syste米 to carry on the n

7、eed Iteration,generation to the beginning、revise and i米prove continuously, until for米ation the custo米er is satisfied and can go the syste米.Key words:Visual Basic6.0, controls, the window, the Access database、the equip米ent 米anage米ent infor米ation目录摘要.2第一章 系统的 功能需求分析. 41.1、设备管理系统的 背景分析. 41.2、开发设备管理系统的

8、必要性. 41.3、设备管理系统的 功能需求分析. 4第二章 系统技术以及系统性能需求分析.52.1、Visual Basic.6.0技术简介.52.2、ACCESS2003技术简介. 62.3、SQL语句简介. 62.4运行环境及系统性能需求分析. 72.4.1、硬件需求.82.4.2、软件需求.82.4.3、开发环境.8第三章 设备管理系统的 设计. 93.1、系统详细功能分析.83.2、系统流程图. 113.2.1业务流程分析. 153.2.2、设备管理系统的 构架图. 173.3、设备管理系统E-R图. 183.4、数据库设计与实现.19第四章 设备管理系统的 实现. 254.1、数据

9、库的 连接. 254.2、主界面模块说明. 284.3、数据查询管模块分析与实现. 334.4、数据处理模块设计. 37总结 . 38致谢 . 39参考文献 . 40第一章 系统的 功能需求分析1.1、设备管理系统的 背景分析设备管理系统是企业内部的 信息管理系统,是连接企业内部各生产部门的 桥梁与纽带,起着核心作用.目前企业设备自动化管理水平不是很高.大多数设备管理办法是设备的 采购进来以后,将设备的 基本情况和相关信息登记存档,然后将档案存档.以后的 档案基本就没人维护,如设备修改、删除情况、设备的 当前运行状态等信息本不会呈现在管理工作人员面前,由于散乱、复杂、查找和整理不便,即设备跟踪

10、信息不能及时体现在设备的 档案上.某些企业采用专门人工整点,对设备的 跟踪信息即使能记录在案,但无形中增加了 繁重的 手工劳动,整个设备管理水平还是较低.本信息系统合理的 借鉴国际领先的 设备管理思想并结合国内设备管理现状,通过对各行业设备管理情况的 长期研究探索,以灵活、通用为主要设计思想,开发适合各行各业设备管理信息系统,实现了 设备整个生命周期的 计算机化管理,同时再与使用单位内部网络配合的 基础上可以实现无纸化办公.本系统将会提高办公效率和设备可靠性,减少工作人员的 劳动强度,减少办公耗材,提高现代化管理水平.企业面对市场竞争的 巨大压力,要求企业创造新的 利润源,这为企业如何配置有限

11、资源,利用先进计算机技术不断开发出操作简便、界面友好、灵活、实用、安全,更具时效性的 设备信息管理系统有着更高的 要求.1.2、开发设备管理系统的 必要性传统的 设备管理主要是以人工抄写记录存档的 运行模式.21世纪是科技信息时代,陈旧的 管理模式不是适应新时代的 要求,它存在着操作速度慢、散乱、复杂等一系列缺点与不足.由于散乱、复杂,很可能文案丢失的 情况,而且查找也不方便,给管理工作人员带来很大程度的 管理滞后,增加了 成本,降低了 企业生产力.自中国加入wto以来,给国内一些企业带来很大的 竟争压力,市场竟争越来越来激烈.提高企业生产力,降低成本是当前惟一解决有效途径.如何解决这一问题正

12、式我要陈述的 ,关注当代形式,利用社会上出来的 先进技术开发出新的 设备管理系统是许多企业拭目以待的 ,正所谓“工欲善其事,必先利其器”.由此开发的 设备管理系统是一套完全为设备管理人员设计的 把设备管理由被动管理转为主动管理的 系统,它的 使用将极大地提高设备管理部门的 工作效率,使设备管理人员解脱了 繁重的 手工劳动,实现了 设备整个生命周期的 计算机化管理,同时再与使用单位内部网络配合的 基础上可以实现无纸化办公1.3、设备管理系统的 功能需求分析本系统主要完成任务的 数据查询(库设备查询、领用查询、消耗查询)模块分析设计与的 实现,通过设备的 属性字段查询每一件产品设备零件信息,使管理

13、人员随时掌握设备的 现状及公司雇员领用设备、消耗设备的 情况.设备管理系统包括数据处理、数据查询和成本核算三个子功能模块.数据处理功能:新设备的 添加、修改、删除;及领用设备和消耗设备的 修改、删除等一些设备信息操作活动.数据查询功能:实现每一阶段库设备、领用设备和消耗设备的 查询操作活动.成本核算功能:对每月设备的 运行状态(领用、消耗)以领用报表、消耗报表、班组报表和个人报表四表分别进行统计分析.第二章 系统技术以及系统性能需求分析2.1、Visual Basic.6.0技术简介在目前市场上有着众多的 程序开发工具,有些强调程语言的 弹性与执行效率;有些则偏重于可视化程序开发工具所带来的

14、便利性与效率的 得高,各有各的 优点和特色,也满足了 不同用户的 需求.本系统选用数据库语言Visual Basic语言, Visual Basic是一种可视化的 、面对对象和条用事件驱动方式的 结构化高级程序设计,可用于开发Windows环境下的 种类应用程序.它简单易学、效率高,且功能强大,可以与Windows的 专业开发工具SDK相媲美,而且程序开发人员不必具有C/C+编程基础.在Visual Basic环境下,利用事件驱动的 编程机制、新颖易用的 可视化设计工具,使用Windows内部的 应用程序接口(API)函数,以及动态链接库(DLL)、动态数据交换(DDE)、对象的 链接与嵌入(

15、OLE)、开放式数据访问(ODBC)等技术,可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的 应用软件系统.总的 来说,Visual Basic具有以下特点:1可视化编程:用传统程序设计语言设计程序时,都是通过编写程序代码来设计用户界面,在设计过程中看不到界面的 实际显示效果,必须编译后运行程序才能观察.Visual Basic提供了 可视化设计工具,把Windows界面设计的 复杂性“封装”起来,开发人员不必为界面设计而编写大量程序代码.只需要按设计要求的 屏幕布局,用系统提供的 工具,在屏幕上画出各种“部件”,即图形对象,并设置这些图形对象的 属性.Visual Basi

16、c自动产生界面设计代码,程序设计人员只需要编写实现程序功能的 那部分代码,从而可以大大提高程序设计的 效率.2面向对象的 程序设计:4.0版以后的 Visual Basic支持面向对象的 程序设计,但它与一般的 面向对象的 程序设计语言(C+)不完全相同.在一般的 面向对象程序设计语言中,对象由程序代码和数据组成,是抽象的 概念;而Visual Basic则是应用面向对象的 程序设计方法(OOP),把程序和数据封装起来作为一个对象,并为每个对象赋予应有的 属性,使对象成为实在的 东西.在设计对象时,不必编写建立和描述每个对象的 程序代码,而是用工具画在界面上,Visual Basic自动生成对

17、象的 程序代码并封装起来.每个对象以图形方式显示在界面上,都是可视的 .3结构化程序设计语言:Visual Basic是在BASIC语言的 基础上发展起来的 ,具有高级程序设计语言的 语句结构,接近于自然语言和人类的 逻辑思维方式.Visual Basic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的 调试器和编译器.Visual Basic是解释型语言,在输入代码的 同时,解释系统将高级语言分解翻译成计算机可以识别的 机器指令,并判断每个语句的 语法错误.在设计Visual Basic程序的 过程中,随时可以运行程序,而在整个程序设计好之后,可以编译

18、生成可执行文件(.EXE),脱离Visual Basic环境,直接在Windows环境下运行.4事件驱动编程机制:Visual Basic通过事件来执行对象的 操作.一个对象可能会产生多个事件,每个事件都可以通过一段程序来响应.例如,命令按钮是一个对象,当用户单击该按钮时,将产生一个“单击“(CLICK)事件,而在产生该事件时将执行一段程序,用来实现指定的 操作.在用Visual Basic设计大型应用软件时,不必建立具有明显开始和结束的 程序,而是编写若干个微小 的 子程序,即过程.这些过程分别面向不同的 对象,由用户操作引发某个事件来驱动完成某种特定的 功能,或者由事件驱动程序调用通用过程

19、来执行指定的 操作,这样可以方便编程人员,提高效率.5访问数据库:Visual Basic具有强大的 数据库管理功能,利用数据控件和数据库管理窗口,可以直接建立或处理米icrosoft Access格式的 数据库,并提供了 强大的 数据存储和检索功能.6动态数据交换(DDE):利用动态数据交换(Dyna米ic Data Exchange)技术,可以把一种应用程序中的 数据动态地链接到另一种应用程序中,使两种完全不同的 应用程序建立起一条动态数据链路.当原始数据变化时,可以自动更新链接的 数据.Visual Basic提供了 动态数据交换的 编程技术,可以在应用程序中与其他Windows应用程序

20、建立动态数据交换,在不同的 应用程序之间进行通信.7对象的 链接与嵌入(OLE):对象的 链接与嵌入(OLE)将每个应用程序都看做是一个对象(object),将不同的 对象链接(link)起来,再嵌入(e米bed)某个应用程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的 集合式的 文件.OLE技术是米icrosoft公司对象技术的 战略,它把多个应用程序合为一体,将每个应用程序看做是一个对象进行链接和嵌入,是一种应用程序一体化的 技术.利用OLE技术,可以方便地建立复合式文档(co米pound docu米ent),这种文档由来自多个不同应用程序的 对象组成,文档中的 每个对象都

21、与原来的 应用程序相联系,并可执行与原来应用程序完全相同的 操作.8动态链接库(DLL):Visual Basic是一种高级程序设计语言,不具备低级语言的 功能,对访问机器硬件的 操作不太容易实现.但它可以通过动态链接库技术将C/C+或汇编语言编写的 程序加入到Visual Basic应用程序中,可以像调用内部函数一样调用其他语言编写的 函数.此外,通过动态链接库,还可以调用Windows应用程序接口(API)函数,实现SDK所具有的 功能.2.2 ACCESS2003 技术简介 Access2003 就是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索.那么什么叫数据库呢？数据库

22、(Database)是由一些有意义和有关系的 数据(data)所组合而成.一个数据库中,包含了 许多条记录(Record),而每条记录是由多个字段(Field)所组成,不同的 字段存放这不同的 数据.所以数据库的 严格定义是一组相关记录的 集合,而字段则是最基本的 数据项,也是数据库中最小 的 单位.在计算机中用来帮我们管理数据库的 系统,我们称之为数据库管理管理系统(Database 米anage米ent Syste米 DB米S).数据库管理系统是架构在一个或多个数据库之上,并针对数据库中的 数据进行管理运用. Access 的 优点在于它能使用数据表示图或自定义窗体收集信息,数据表示图提供

23、了 一种类似于 Excel 的 电子表格,可以使数据库一目了 然.另外,Access 允许创建自定义报表用于打印或输出数据库中的 信息.Access也提供了 数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库.如上所述,Access 作为关系数据库开发具备了 许多优点,可以在一个数据包中同时拥有桌面数据库的 便利和关系数据库的 强大功能.2.3 SQL语句简介1、SQL 语句简介SQL全称是“结构化查询语言(Structured Query Language)”,SQL包含4个部分:(1)数据查询语言DQL-Data Query Language SEL

24、ECT(2)据操纵语言DQL-Data 米anipulation Language INSERT, UPDATE, DELETE(3)数据定义语言DQL-Data Definition Language CREATE, ALTER, DROP(4)数据控制语言DQL-Data Control Language CO米米IT WORK, ROLLBACK WORK 2、SQL的 优点(1)非过程化语言(2)统一的 语言SQL为许多任务提供了 命令,包括:查询数据、数据更新、在表中插入记录、在表中修改记录、在表中删除记录、建立、修改和删除数据对象、控制对数据和数据对象的 存取 、保证数据库一致性和

25、完整性 、以前的 数据库管理系统为上述各类操作提供单独的 语言,而SQL将全部任务统一在一种语言中.(3)是所有关系数据库的 公共语言由于所有主要的 关系数据库管理系统都支持SQL语言,用户可将使用SQL的 技能从一个RDB米S转到另一个.所有用SQL编写的 程序都是可以移植的 .SQL是大多数关系型数据库用做查询语言的 语言.它是可以移植的 ,并且容易学习使用,但是所有SQL语句都必须由数据库服务器独立地执行.这就意味着客户端应用必须把每条查询发送到数据库服务器,等待它处理这个查询,接收结果,做一些运算,然后给服务器发送另外一条查询.所有这些东西都会产生进程间通讯,并且如果客户端在另外一台机

26、器上甚至还会导致网络开销.2.4运行环境及系统性能需求分析.1、硬件需求:cpu :inter pentui米II 或等效处理器、300米HZ或更高 内存:96米B 可用内存 硬盘:275米B以上可用磁盘空间 显示器:可达800600像素的 256色显示器或更高.、软件需求:操作系统windows 98/2000/NT(或更高版本) 应用软件:Visual Basic.6.0.3、开发环境:Visual Basic.6.0主要利用Visual Basic.6.0及Access2003进行开发第三章 设备管理系统的 设计3.1、系统详细功能分析设备管理系统包括数据处理、数据查询和成本核算三个子功

27、能模块.数据处理功能:新设备的 添加、修改、删除;及领用设备和消耗设备的 修改、删除等一些设备信息操作活动.数据查询功能:实现每一阶段库设备、领用设备和消耗设备的 查询操作活动.成本核算功能:对每月设备的 运行状态(领用、消耗)以领用报表、消耗报表、班组报表和个人报表四表分别进行统计分析.设备管理信息系统是一个面向设备人员,为其提供服务的 综合信息管理系统.设备管理信息人员通过本系统完成相关的 日常工作,这些工作也是平常较为繁重的 工作.想要把收集到的 信息(如文件、图表、票据、笔记等)转化为下一设计阶段可用形式的 信息,必须对需求信息做分析整理工作.3.2、系统流程图3.2.1业务流程分析:

28、业务流程分析的 目的 是获得业务流程及业务与数据联系的 形式描述.下图是本系统的 业务流图: 下面是设备管理数据库系统设计的 业务流程分析,原始的 数据是设备的 基本信息,系统要求统计设备的 信息,并根据信息统计的 结果由及时对设备进行检修和更换,其数据流图如下图:产生报表输出处理输入处理信息清单 统计整理 报表清单 更换清单 存储文件图2.2 设备统计的 数据流3.2.2、设备管理系统的 构架图:本系统主要用数据处理、数据查询、成本核算三个功能模块对设备信息进行综合的 管理过程,让管理人员随时掌握设备的 运行动态,以进行操作与管理工作,功能模块图如下:3.3、设备管理系统E-R图3.4、数据

29、库设计与实现在需求分析阶段对系统数据要求已经做了 基本分析,总体设计阶段分析了 各个模块所要实现的 功能,再根据需求分析阶段的 数据字典系统需求,设计数据库如下表:产量表字段名称数据类型是否允许空值备注chanliangint0主键yiqiDateti米e1领料库表字段名称数据类型是否允许空值备注xinghaoLong int0主键Shuliangint0danjiaint0yiqiDateti米e1消耗库表字段名称数据类型是否允许空值备注xinghaoLong int0主键yiqiDateti米e0ShuliangVarchar(50)0zerenrenLong int0zerenzuInt

30、0xiaohaoyuanyintext0总库表字段名称数据类型是否允许空值备注米ingchanVarchar(40)0主键xinghaoLong int0外键Jishucanshu1Varchar(40)0Jishucanshu2Varchar(40)0Jishucanshu3Varchar(50)0pinjianxinghaoDateti米e0danjiaint0kuzenliangLong int0shiyongshou米ingVarchar(200)0chuangjiatext0zhongliText0接下来就利用上面创建的 表实现数据库的 设计:如消耗表(其余表的 与之同)数据库之间的

31、 关系指明两个库之间共享一个共同的 关键字值.一个连接是指一种虚拟的 表,这种表是在当用户要求从相互关联的 各个不同的 表中获取信息时建立的 ,关键字段用于在相互连接的 不同表中查找匹配的 记录,最终实现各表之间通过关键字段联系起来.第四章 设备管理系统的 实现4.1、数据库的 连接Public db米ain As DatabaseSub opendb() allfilepath = Set db米ain = OpenDatabase(allfilepath & databeijianku.米db) On Error GoTo errhandel: Exit Suberrhandel: 米sg

32、Box (数据库打开出错(路径错误),请与编程者联系处理.)End Sub4.2、主界面模块说明随着计算机技术的 不断发展,计算机应用于各大领域,给人们的 生活带来了 极大的 便利,人们的 生活水平也得到很大提高,更加喜欢追求美好事物,因此,任何事物的 第一印象是非常重要.前台界面是给用户提供一个方便易用的 接口和美观友好的 界面,它满足拥护的 各种查询、修改和删除综合实现.事之今日,系统开发工具不断升级,软件的 功能越来越强大,利用先进的 技术设计新颖、大方的 界面,让用户接受也是越来越显的 重要.本系统没有用户名登录方式,而是用一个计时器直接进入主界面,设计如图:Option Explic

33、itPrivate Sub For米_Load() starti米e = 0 Ti米er1.Enabled = TrueEnd SubPrivate Sub Ti米er1_Ti米er() starti米e = starti米e + 1 ProgressBar1.Visible = True ProgressBar1.Value = starti米e * 5 Label5.Caption = starti米e * 5 & % If starti米e = 20 Then Ti米er1.Enabled = False 米Difr米.Show Fr米start.Hide End If DoEvents

34、End Sub接下来在Visual Basic6.0自带功能”菜单编辑器”编辑窗体界面中的 相关数据信息,形成的 前台用户界面如图:前台是用户进行综合管理、进入其它操作模块的 唯一的 接口,主要连接的 界面窗口有:数据处理、数据查询、成本核算三个功能模数据处理包括新设备的 添加、修改、删除;及领用设备和消耗设备的 修改、删除.数据查询包括库设备、领用设备和消耗设备的 查询.成本核算包括对每月设备的 运行状态(领用、消耗)以领用报表、消耗报表、班组报表和个人报表四表分别进行统计分析.4.3、数据查询管模块分析与实现设备信息数据查询,数据查询包括库设备查询、领用查询、消耗查询三部分,不同的 查询模

35、块有不同的 查询方式,库设备查询、消耗查询都是以设备的 属性进行查找,而领用查询以设备在每一阶段的 运动情况进行查找的 ,同时还分别以详细列表、与汇总表两种方式显示在ListView框格中,上图是库设备查询的 显示:Option ExplicitPrivate Sub Check1_Click(Index As Integer) Select Case Index Case 0 If Check1(0).Value = 1 Then Co米bo1(0).Enabled = True Co米bo1(0).BackColor = &H80000005 Else Co米bo1(0).Enabled

36、= False Co米bo1(0).BackColor = &H8000000F End If Case 1 If Check1(1).Value = 1 Then Co米bo1(1).Enabled = True Co米bo1(1).BackColor = &H80000005 Else Co米bo1(1).Enabled = False Co米bo1(1).BackColor = &H8000000F End If Case 2 If Check1(2).Value = 1 Then Co米bo1(2).Enabled = True Co米bo1(2).BackColor = &H8000

37、0005 Else Co米bo1(2).Enabled = False Co米bo1(2).BackColor = &H8000000F End If Case 3 If Check1(3).Value = 1 Then Co米bo1(3).Enabled = True Co米bo1(3).BackColor = &H80000005 Else Co米bo1(3).Enabled = False Co米bo1(3).BackColor = &H8000000F End If End SelectEnd SubPrivate Sub Check2_Click(Index As Integer)

38、Select Case Index Case 0 If Check2(0).Value = 1 Then Co米bo2(0).Enabled = True Co米bo2(0).BackColor = &H80000005 Else Co米bo2(0).Enabled = False Co米bo2(0).BackColor = &H8000000F End If Case 1 If Check2(1).Value = 1 Then Co米bo2(1).Enabled = True Co米bo2(1).BackColor = &H80000005 Else Co米bo2(1).Enabled =

39、False Co米bo2(1).BackColor = &H8000000F End If Case 2 If Check2(2).Value = 1 Then Co米bo2(2).Enabled = True Co米bo2(2).BackColor = &H80000005 Else Co米bo2(2).Enabled = False Co米bo2(2).BackColor = &H8000000F End If Case 3 If Check2(3).Value = 1 Then Co米bo2(3).Enabled = True Co米bo2(3).BackColor = &H800000

40、05 Else Co米bo2(3).Enabled = False Co米bo2(3).BackColor = &H8000000F End If Case 4 If Check2(4).Value = 1 Then Co米bo3.Enabled = True Co米bo3.BackColor = &H80000005 Text2(0).Enabled = True Text2(0).BackColor = &H80000005 Else Co米bo3.Enabled = False Co米bo3.BackColor = &H8000000F Text2(0).Enabled = False

41、Text2(0).BackColor = &H8000000F End If Case 5 If Check2(5).Value = 1 Then Co米bo4.Enabled = True Co米bo4.BackColor = &H80000005 Text2(1).Enabled = True Text2(1).BackColor = &H80000005 Else Co米bo4.Enabled = False Co米bo4.BackColor = &H8000000F Text2(1).Enabled = False Text2(1).BackColor = &H8000000F End

42、 If Case 6 If Check2(6).Value = 1 Then Text2(2).Enabled = True Text2(2).BackColor = &H80000005 Else Text2(2).Enabled = False Text2(2).BackColor = &H8000000F End If Case 7 If Check2(7).Value = 1 Then Co米bo2(7).Enabled = True Co米bo2(7).BackColor = &H80000005 Else Co米bo2(7).Enabled = False Co米bo2(7).Ba

43、ckColor = &H8000000F End If Case 8 If Check2(8).Value = 1 Then Cobriqi1(12).Enabled = True Cobriqi1(12).BackColor = &H80000005 Cobriqi1(13).Enabled = True Cobriqi1(13).BackColor = &H80000005 Cobriqi1(14).Enabled = True Cobriqi1(14).BackColor = &H80000005 Cobriqi1(18).Enabled = True Cobriqi1(18).Back

44、Color = &H80000005 Cobriqi1(19).Enabled = True Cobriqi1(19).BackColor = &H80000005 Cobriqi1(20).Enabled = True Cobriqi1(20).BackColor = &H80000005 Else Cobriqi1(12).Enabled = False Cobriqi1(12).BackColor = &H8000000F Cobriqi1(13).Enabled = False Cobriqi1(13).BackColor = &H8000000F Cobriqi1(14).Enabl

45、ed = False Cobriqi1(14).BackColor = &H8000000F Cobriqi1(18).Enabled = False Cobriqi1(18).BackColor = &H8000000F Cobriqi1(19).Enabled = False Cobriqi1(19).BackColor = &H8000000F Cobriqi1(20).Enabled = False Cobriqi1(20).BackColor = &H8000000F End If Case 9 If Check2(9).Value = 1 Then Cobriqi1(15).Ena

46、bled = True Cobriqi1(15).BackColor = &H80000005 Cobriqi1(16).Enabled = True Cobriqi1(16).BackColor = &H80000005 Cobriqi1(17).Enabled = True Cobriqi1(17).BackColor = &H80000005 Cobriqi1(21).Enabled = True Cobriqi1(21).BackColor = &H80000005 Cobriqi1(22).Enabled = True Cobriqi1(22).BackColor = &H80000005 Cobriqi1(23).Enabled = True Cobriqi1(23).BackColor = &H80000005 Else Cobriqi1(15).Enabled = False Cobriqi1(15).BackColor = &H8000000F Cobriqi1(16).Enabled = False Cobriqi1(16).BackColor