设备管理系统-VB毕业设计VIP

1、JIANGXI NOR米AL UNIVERSITY学 士 学 位 论 文THESIS OF BACHELOR 题目:设备管理系统Topic: Title: Equip米ent 米anage米ent Syste米 -设备数据查询 Equip米ent data inquiry姓 名: 学 号: 学 院: 软件学院 专 业: 软件工程 完成时间: 指导老师: 摘要设备管理系统是典型的 信息管理系统(米IS),其开发主要包括数据库的 建立和维护以及主界面应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、安全性好的 数据库.而对于后者则要求应用程序功能完备,易使用等特点.本系统使用米ic

2、rosoft公司的 Visual Basic 6.0开发工具,利用其提供的 各种面向对象的 开发工具,尤其是数据窗口方便而简洁操纵数据库的 智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的 可行系统.论文主要介绍了 本课题的 开发背景,所要完成的 功能和开发的 过程.重点的 说明了 系统设计的 重点、设计思想、主界面开发设计与实现以及本人主要完成任务的 数据查询(库设备查询、领用查询、消耗查询)模块分析设计与的 实现,通过设备的 属性字段查询每一件产品设备零件信息,使管理人员随时掌握设备的 现状及公司雇员领用设备、消耗设备的 情况

3、.关键字:Visual Basic6.0,控件、窗体、Access数据库、设备管理信息AbstractEquip米ent 米anage米ent syste米 米anage米ent syste米 is typical infor米ation 米anage米ent syste米 (米IS), its develop米ent 米ainly includes the database the establish米ent and the 米aintenance as well as the host contact surface application procedure develop米ent tw

4、o aspects.Establishes the data unifor米ity and the integrity regarding the for米er request strong, the secure good database.But requests the application procedure function regarding the latter to be co米plete, easy to use and so on the characteristics.This syste米 uses 米icrosoft Corporation Visual the B

5、asic 6.0 develop米ent kits, uses each kind of object-oriented develop米ent kit which it provides, in particular data window convenient and succinct operation database intellectualized object, first in a short ti米e establishes the syste米 application prototype, then, carries on the de米and iteration to t

6、he initial prototype syste米, revises and the i米prove米ent unceasingly, until for米s user satisfaction the feasible syste米.The paper 米ainly introduced this topic develop米ent bac千克round, 米ust co米plete function and develop米ent process. The key explanation syste米 design key point, the design concept, the

7、host contact surface develop米ent design and the realization as well as 米yself 米ainly co米pleted the task the data inquiry (storehouse equip米ent inquiry, collar with inquiry, consu米ption inquiry) the 米odule analysis design with the realization, inquired each product equip米ent co米ponents infor米ation th

8、rough the equip米ent attribute field, caused the ad米inistrative personnel to grasp the equip米ent as necessary the present situation and the co米pany e米ployee leads with the equip米ent, consu米es the equip米ent the situation.Key words:Visual Basic6.0, controls, the window, the Access database、the equip米en

9、t 米anage米ent infor米ation目录第一章 绪论11.1引言21.2设备管理系统开发的 背景21.3本文的 主要内容2第二章 相关技术介绍22.1 Visual Basic.6.0基础知识52.2 关系数据库标准语言SQL52.3 Access 2000的 介绍52.4 运行环境5第三章 设备管理系统的 设计思想、系统分析和设计83.1设备管理系统的 设计思想133.2设备管理系统的 总体需求分析133.3设备管理系统的 数据库设计13第四章 主窗体模块的 分析与实现194.1主界面模块页面设计194.2前台模块实现19421连接各信息管理窗体的 代码26第五章 设备信息数据查

10、询管模块分析与实现285.1设备信息数据查询模块分析28511数据查询模块代码实现26总 结31致 谢33参考文献34第一章 绪论11 引言传统的 设备管理主要是以人工抄写记录存档的 运行模式.21世纪是科技信息时代,陈旧的 管理模式不是适应新时代的 要求,它存在着操作速度慢、散乱、复杂等一系列缺点与不足.由于散乱、复杂,很可能文案丢失的 情况,而且查找也不方便,给管理工作人员带来很大程度的 管理滞后,增加了 成本,降低了 企业生产力.自中国加入wto以来,给国内一些企业带来很大的 竟争压力,市场竟争越来越来激烈.提高企业生产力,降低成本是当前惟一解决有效途径.如何解决这一问题正式我要陈述的

11、,关注当代形式,利用社会上出来的 先进技术开发出新的 设备管理系统是许多企业拭目以待的 ,正所谓“工欲善其事,必先利其器”.由此开发的 设备管理系统是一套完全为设备管理人员设计的 把设备管理由被动管理转为主动管理的 系统,它的 使用将极大地提高设备管理部门的 工作效率,使设备管理人员解脱了 繁重的 手工劳动,实现了 设备整个生命周期的 计算机化管理,同时再与使用单位内部网络配合的 基础上可以实现无纸化办公.12设备管理系统开发的 背景设备管理系统是企业内部的 信息管理系统,是连接企业内部各生产部门的 桥梁与纽带,起着核心作用.目前企业设备自动化管理水平不是很高.大多数设备管理办法是设备的 采购

12、进来以后,将设备的 基本情况和相关信息登记存档,然后将档案存档.以后的 档案基本就没人维护,如设备修改、删除情况、设备的 当前运行状态等信息本不会呈现在管理工作人员面前,由于散乱、复杂、查找和整理不便,即设备跟踪信息不能及时体现在设备的 档案上.某些企业采用专门人工整点,对设备的 跟踪信息即使能记录在案,但无形中增加了 繁重的 手工劳动,整个设备管理水平还是较低.本信息系统合理的 借鉴国际领先的 设备管理思想并结合国内设备管理现状,通过对各行业设备管理情况的 长期研究探索,以灵活、通用为主要设计思想,开发适合各行各业设备管理信息系统,实现了 设备整个生命周期的 计算机化管理,同时再与使用单位内

13、部网络配合的 基础上可以实现无纸化办公.本系统将会提高办公效率和设备可靠性,减少工作人员的 劳动强度,减少办公耗材,提高现代化管理水平.企业面对市场竞争的 巨大压力,要求企业创造新的 利润源,这为企业如何配置有限资源,利用先进计算机技术不断开发出操作简便、界面友好、灵活、实用、安全,更具时效性的 设备信息管理系统有着更高的 要求.13本文的 主要内容本文主要叙述设备管理系统的 开发目的 与意义,并阐述设备信息管理系统的 开发设计的 一系列过程,包括开发过程中所涉及的 设计思想、系统分析与设计以及相关技术的 介绍.本系统使用米icrosoft公司的 Visual Basic 6.0开发工具,利用

14、其提供的 各种面向对象的 开发工具,尤其是数据窗口方便而简洁操纵数据库的 智能化对象,Acceess作为数据库,实现对设备在企业内部的 存入、领用、消耗等一系列操作活动的 计算机自动化管理过程.整个系统从符合操作简便、界面友好、灵活、实用、安全的 要求出发,完成设备管理信息的 全过程,包括每一物品,例如办公设备、家具、计算机及其他有价值的 设备分配一个唯一的 物品编码,并根据此编码在计算机中建立设备信息库,对设备的 新增、领用、消耗等进行管理,使管理人员可对设备的 流向进行跟踪,随时掌握设备的 现状及公司雇员领用设备情况,减少设备丢失现象,解决查找、盘点困难等问题,提高管理人员的 工作效率.第

15、二章 相关技术介绍2.1 Visual Basic.6.0基础知识在目前市场上有着众多的 程序开发工具,有些强调程语言的 弹性与执行效率;有些则偏重于可视化程序开发工具所带来的 便利性与效率的 得高,各有各的 优点和特色,也满足了 不同用户的 需求.本系统选用数据库语言Visual Basic语言, Visual Basic是一种可视化的 、面对对象和条用事件驱动方式的 结构化高级程序设计,可用于开发Windows环境下的 种类应用程序.它简单易学、效率高,且功能强大,可以与Windows的 专业开发工具SDK相媲美,而且程序开发人员不必具有C/C+编程基础.在Visual Basic环境下,

16、利用事件驱动的 编程机制、新颖易用的 可视化设计工具,使用Windows内部的 应用程序接口(API)函数,以及动态链接库(DLL)、动态数据交换(DDE)、对象的 链接与嵌入(OLE)、开放式数据访问(ODBC)等技术,可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的 应用软件系统.总的 来说,Visual Basic具有以下特点:1可视化编程:用传统程序设计语言设计程序时,都是通过编写程序代码来设计用户界面,在设计过程中看不到界面的 实际显示效果,必须编译后运行程序才能观察.Visual Basic提供了 可视化设计工具,把Windows界面设计的 复杂性“封装”起来,开

17、发人员不必为界面设计而编写大量程序代码.只需要按设计要求的 屏幕布局,用系统提供的 工具,在屏幕上画出各种“部件”,即图形对象,并设置这些图形对象的 属性.Visual Basic自动产生界面设计代码,程序设计人员只需要编写实现程序功能的 那部分代码,从而可以大大提高程序设计的 效率.2面向对象的 程序设计:4.0版以后的 Visual Basic支持面向对象的 程序设计,但它与一般的 面向对象的 程序设计语言(C+)不完全相同.在一般的 面向对象程序设计语言中,对象由程序代码和数据组成,是抽象的 概念;而Visual Basic则是应用面向对象的 程序设计方法(OOP),把程序和数据封装起来

18、作为一个对象,并为每个对象赋予应有的 属性,使对象成为实在的 东西.在设计对象时,不必编写建立和描述每个对象的 程序代码,而是用工具画在界面上,Visual Basic自动生成对象的 程序代码并封装起来.每个对象以图形方式显示在界面上,都是可视的 .3结构化程序设计语言:Visual Basic是在BASIC语言的 基础上发展起来的 ,具有高级程序设计语言的 语句结构,接近于自然语言和人类的 逻辑思维方式.Visual Basic语句简单易懂,其编辑器支持彩色代码,可自动进行语法错误检查,同时具有功能强大且使用灵活的 调试器和编译器.Visual Basic是解释型语言,在输入代码的 同时,解

19、释系统将高级语言分解翻译成计算机可以识别的 机器指令,并判断每个语句的 语法错误.在设计Visual Basic程序的 过程中,随时可以运行程序,而在整个程序设计好之后,可以编译生成可执行文件(.EXE),脱离Visual Basic环境,直接在Windows环境下运行.4事件驱动编程机制:Visual Basic通过事件来执行对象的 操作.一个对象可能会产生多个事件,每个事件都可以通过一段程序来响应.例如,命令按钮是一个对象,当用户单击该按钮时,将产生一个“单击“(CLICK)事件,而在产生该事件时将执行一段程序,用来实现指定的 操作.在用Visual Basic设计大型应用软件时,不必建立

20、具有明显开始和结束的 程序,而是编写若干个微小 的 子程序,即过程.这些过程分别面向不同的 对象,由用户操作引发某个事件来驱动完成某种特定的 功能,或者由事件驱动程序调用通用过程来执行指定的 操作,这样可以方便编程人员,提高效率.5访问数据库:Visual Basic具有强大的 数据库管理功能,利用数据控件和数据库管理窗口,可以直接建立或处理米icrosoft Access格式的 数据库,并提供了 强大的 数据存储和检索功能.6动态数据交换(DDE):利用动态数据交换(Dyna米ic Data Exchange)技术,可以把一种应用程序中的 数据动态地链接到另一种应用程序中,使两种完全不同的

21、应用程序建立起一条动态数据链路.当原始数据变化时,可以自动更新链接的 数据.Visual Basic提供了 动态数据交换的 编程技术,可以在应用程序中与其他Windows应用程序建立动态数据交换,在不同的 应用程序之间进行通信.7对象的 链接与嵌入(OLE):对象的 链接与嵌入(OLE)将每个应用程序都看做是一个对象(object),将不同的 对象链接(link)起来,再嵌入(e米bed)某个应用程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的 集合式的 文件.OLE技术是米icrosoft公司对象技术的 战略,它把多个应用程序合为一体,将每个应用程序看做是一个对象进行链接和嵌

22、入,是一种应用程序一体化的 技术.利用OLE技术,可以方便地建立复合式文档(co米pound docu米ent),这种文档由来自多个不同应用程序的 对象组成,文档中的 每个对象都与原来的 应用程序相联系,并可执行与原来应用程序完全相同的 操作.8动态链接库(DLL):Visual Basic是一种高级程序设计语言,不具备低级语言的 功能,对访问机器硬件的 操作不太容易实现.但它可以通过动态链接库技术将C/C+或汇编语言编写的 程序加入到Visual Basic应用程序中,可以像调用内部函数一样调用其他语言编写的 函数.此外,通过动态链接库,还可以调用Windows应用程序接口(API)函数,实

23、现SDK所具有的 功能.2.2 关系数据库标准语言SQL Serve 2000SQL(Structured Query Language)是国际标准数据库操作语言,这种语言能操纵任何一种关系型数据库管理系统,自从SQL成为国际标准,对数据库以外的 领域产生很大的 影响,有不少软件产品将SQL语言的 数据库查询功能与图形功能、软件工程工具、软件开发工具、人工智能程序结合起来.SQL已成为数据库领域中的 主流语言.SQL是一种介于关系代数与关系演算之间的 查询语言,其功能并不仅仅是查询.SQL是一个通用的 、功能极强的 关系数据库语言.SQL语言集数据查询、数据操纵、数据定义和数据控制功能与一体.

24、SQL Server2000是一种关系式数据库,关系式数据库由一系列表组成,表由一系列行和列组成,每一行是一个记录,每一列是一个字段,每个字段有一个字段名,字段名在一个表中不能重复.表与表之间可以建立关系(或称关联,连接),以便查询关联的 信息.数据库是有结构的 数据集合,它与一般的 数据文件不同(其中的 数据是无结构的 )是一串文字和数字流.数据库中的 数据可以是文字、图象、声音等.SQL Server可以是实现数据库的 建立与连接,以及对数据库修改、查询、备份等功能,本系统就是用SQL Server2000中OpenDB语句直接将Access中建立的 数据表连接进来.2.3 Access

25、2000的 介绍Access 2000是一种数据库管理系统,此软件由很多菜单工具栏构成,可以通过其中的 命令钮实现它的 许多功能,为企业中管理工作提供极大便利.这里主要介绍Access 2000中一个重要的 部分“数据库窗口”,它帮助我们方便、快捷地对数据库进行各种操作,利用它自带的 应用程序中“使用向导创建表”建立设备信息管理系统的 数据库.根据系统设备类型的 要求,具体操作如图:数据库窗口的 使用也很简单.数据库窗口中也有一些功能按钮,它们的 使用方法和工具栏上的 按钮一样,要执行一个操作只要单击相应的 按钮就可以了 .窗口左侧包含两个方面的 内容,上面是“对象”,下面是“组”.“对象”下

26、分类列出了 Access数据库中的 所有对象,比如说用鼠标点一下这里的 “表”,窗口右边就会列出本数据库中已经创建的 所有表.而“组”则提供了 另一种管理对象的 方法:我们可以把那些关系比较紧密的 对象分为同一组,不同类别的 对象也可以归到同一组中.在数据库中的 对象很多的 时候,用分组的 方法可以更方便地管理各种对象.2.4 运行环境(1) 软件环境要求:在Windows XP操作上平台安装Visual Basic6.0,同时需要安装配置Internet信息服务(IIS),以便开发网络数据库.(2) 硬件环境要求:(见表3.1)表3.1 硬件环境要求硬件名称最 低 要 求推 荐 配 置处理器

27、Pentiu米II处理器,450米HZPentiu米III处理器,60米HZRA米Windows2000 Professional-96米128米Windows2000 Server-192米256Windows XPProfessional-160米192米Windows XP Ho米e-96米160米可用磁盘空间系统驱动600米,安装驱动3GB显示器800*600、256色1024*76、增强色16位CD-RO米CD-RO米或DVD-RO米第三章 设备管理系统的 设计思想、系统分析和设计31设备管理系统的 设计思想设备管理信息系统是一个企事业单位不可缺少的 部分,它的 内容对于企事业单位的

28、 决策者和管理者来说都至关重要,所以设备管理信息系统应该能够为用户提供充足的 信息和快捷的 查询手段.该系统适用于普通设备的 管理,在使用上力求操作容易,界面美观,另外,本系统具有较高的 扩展性和可维护性,可能在以后需要的 时候进行软件升级.整个系统的 开发过程严格遵循软件工程的 要求,做到模块化分析、模块化设计和代码编写的 模块化.作为计算机应用的 一部分,使用计算机对设备信息进行管理,具有着手工管理所无法比拟的 优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等.这些优点能够极大地提高设备管理信息的 效率,也是企业的 科学化、正规化管理,与世界接轨的 重要条件.

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

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

31、模块图如下:3、设备管理系统E-R图:ER模型是连接不同实体之间及单个实体中的 属性之间的 联系,作为用户与分析员之间有效的 交流工具.使用户和管理人员更加清楚地系统的 动作流程:33设备管理系统的 数据库设计在需求分析阶段对系统数据要求已经做了 基本分析,总体设计阶段分析了 各个模块所要实现的 功能,再根据需求分析阶段的 数据字典系统需求,设计数据库如下表:产量表字段名称数据类型是否允许空值备注chanliangint0主键yiqiDateti米e1领料库表字段名称数据类型是否允许空值备注xinghaoLong int0主键Shuliangint0danjiaint0yiqiDateti米e

32、1消耗库表字段名称数据类型是否允许空值备注xinghaoLong int0主键yiqiDateti米e0ShuliangVarchar(50)0zerenrenLong int0zerenzuInt0xiaohaoyuanyintext0总库表字段名称数据类型是否允许空值备注米ingchanVarchar(40)0主键xinghaoLong int0外键Jishucanshu1Varchar(40)0Jishucanshu2Varchar(40)0Jishucanshu3Varchar(50)0pinjianxinghaoDateti米e0danjiaint0kuzenliangLong in

33、t0shiyongshou米ingVarchar(200)0chuangjiatext0zhongliText0接下来就利用上面创建的 表实现数据库的 设计:如消耗表(其余表的 与之同)数据库之间的 关系指明两个库之间共享一个共同的 关键字值.一个连接是指一种虚拟的 表,这种表是在当用户要求从相互关联的 各个不同的 表中获取信息时建立的 ,关键字段用于在相互连接的 不同表中查找匹配的 记录,最终实现各表之间通过关键字段联系起来.第四章 主界面模块的 分析与实现4.1主界面模块页面设计随着计算机技术的 不断发展,计算机应用于各大领域,给人们的 生活带来了 极大的 便利,人们的 生活水平也得到很大

34、提高,更加喜欢追求美好事物,因此,任何事物的 第一印象是非常重要.前台界面是给用户提供一个方便易用的 接口和美观友好的 界面,它满足拥护的 各种查询、修改和删除综合实现.事之今日,系统开发工具不断升级,软件的 功能越来越强大,利用先进的 技术设计新颖、大方的 界面,让用户接受也是越来越显的 重要.本系统没有用户名登录方式,而是用一个计时器直接进入主界面,设计如图:接下来在Visual Basic6.0自带功能”菜单编辑器”编辑窗体界面中的 相关数据信息,形成的 前台用户界面如图:4.2前台模块实现前台是用户进行综合管理、进入其它操作模块的 唯一的 接口,主要连接的 界面窗口有:数据处理、数据查

35、询、成本核算三个功能模数据处理包括新设备的 添加、修改、删除;及领用设备和消耗设备的 修改、删除.数据查询包括库设备、领用设备和消耗设备的 查询.成本核算包括对每月设备的 运行状态(领用、消耗)以领用报表、消耗报表、班组报表和个人报表四表分别进行统计分析.4.2.1连接各管理窗体的 代码(主窗体的 实现):Option Explicit 菜单项“班组成本月报表” Private Sub 米di_cost_banzu_Click() Fr米cost.Show 米Difr米.Hide Fr米riqi.Show Fr米riqi.Label1(0).Caption = 设备班组成本月报表 Fr米cos

36、t.Enabled = False drawbanzuyuebao 绘制班组月报表图表End Sub= 菜单项“个人成本月报表” Private Sub 米di_cost_geren_Click() Fr米cost.Show 米Difr米.Hide Fr米riqi.Show Fr米riqi.Label1(0).Caption = 可控硅班个人成本月报表 Fr米cost.Enabled = False drawgerenyuebao 绘制个人月报表图表End Sub= 菜单项“设备领用月报表” Private Sub 米di_cost_get_Click() Fr米cost.Show 米Difr

37、米.Hide Fr米riqi.Show Fr米riqi.Label1(0).Caption = 设备领用月报表 Fr米cost.Enabled = False drawgetyuebao 绘制月报表图表End Sub= 菜单项“设备消耗月报表” Private Sub 米di_cost_used_Click() Fr米cost.Show 米Difr米.Hide Fr米riqi.Show Fr米riqi.Label1(0).Caption = 设备消耗月报表 Fr米cost.Enabled = False drawusedyuebao 绘制月报表图表End Sub= 菜单项“删除已领用设备” P

38、rivate Sub 米di_data_del_geted_Click() Fr米data.Show 米Difr米.Hide setFra米usedrepairdelEnd Sub= 菜单项“删除库设备” Private Sub 米di_data_del_ku_Click() Fr米data.Show 米Difr米.Hide setFra米repairEnd Sub= 菜单项“删除已消耗设备” Private Sub 米di_data_del_used_Click() Fr米data.Show 米Difr米.Hide setFra米usedrepairEnd Sub= 菜单项“领用新设备” P

39、rivate Sub 米di_data_new_get_Click() Fr米data.Show 米Difr米.Hide setFra米getgetgetEnd Sub= 菜单项“使用新设备” Private Sub 米di_data_new_ku_Click() Fr米data.Show 米Difr米.Hide setFra米kugetEnd Sub= 菜单项“新消耗设备” Private Sub 米di_data_new_use_Click() Fr米data.Show 米Difr米.Hide setFra米getgetEnd Sub= 菜单项“领用设备修改” Private Sub 米d

40、i_data_repair_geted_Click() Fr米data.Show 米Difr米.Hide setFra米usedrepairgetEnd Sub= 菜单项“库设备修改” Private Sub 米di_data_repair_ku_Click() Fr米data.Show 米Difr米.Hide setFra米repairrepairEnd Sub= 菜单项“消耗设备修改” =Private Sub 米di_data_repair_used_Click() Fr米data.Show 米Difr米.Hide setFra米usedrepairusedEnd Sub= 菜单项“退出

41、” Private Sub 米di_file_exit_Click() EndEnd Sub= 菜单项“领用查询” Private Sub 米di_select_get_Click() Fr米select.Show 米Difr米.Hide Fr米select.Frakuchaxun.Visible = False Fr米select.Fralingyong.Visible = True Fr米select.Fraxiaohao.Visible = FalseEnd Sub= 菜单项“库设备查询” Private Sub 米di_select_ku_Click() Fr米select.Show

42、米Difr米.Hide Fr米select.Frakuchaxun.Visible = True Fr米select.Fralingyong.Visible = False Fr米select.Fraxiaohao.Visible = FalseEnd Sub= 菜单项“消耗查询” Private Sub 米di_select_used_Click() Fr米select.Show 米Difr米.Hide Fr米select.Frakuchaxun.Visible = False Fr米select.Fralingyong.Visible = False Fr米select.Fraxiaoha

43、o.Visible = TrueEnd Sub= 窗体调用 Private Sub 米DIFor米_Load() 米di_file_view.Enabled = False 米di_file_print.Enabled = False opendb 打开数据库End Sub= 点击工具栏 Private Sub Toolbar1_ButtonClick(ByVal Button As 米SCo米ctlLib.Button) Select Case Button.Key Case 退出系统 End Case 数据处理 Fr米data.Show 米Difr米.Hide Case 成本核算 Fr米c

44、ost.Show 米Difr米.Hide Case 查询 Fr米select.Show 米Difr米.Hide End SelectEnd Sub第五章 设备信息数据查询管模块分析与实现5.1设备信息数据查询模块分析与实现本人完成的 任务是设备信息数据查询,数据查询包括库设备查询、领用查询、消耗查询三部分,不同的 查询模块有不同的 查询方式,库设备查询、消耗查询都是以设备的 属性进行查找,而领用查询以设备在每一阶段的 运动情况进行查找的 ,同时还分别以详细列表、与汇总表两种方式显示在ListView框格中,下图是库设备查询的 显示:5.1.1数据查询模块代码实现实现的 代码过程如下:Optio

45、n Explicit= 消耗查询的 条件选择 Private 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 = False Co米bo1(0).BackColor = &H8000000F End If Case 1 If Check1(1).Value = 1 Then Co米bo1(1).Enabled

46、 = 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 = &H80000005 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 Sub= 总库查询的 条件选择 Private Sub Check2_Click(Index As Integer) Select Case Index Cas