资源目录
压缩包内文档预览：(预览前20页/共29页)
编号：58772719
类型：共享资源
大小：1.92MB
格式：RAR
上传时间：2020-03-17
上传人：qq77****057
认证信息
个人认证
李**（实名认证）
江苏
IP属地：江苏
7.2
积分
- 关 键 词：
-
vb
设备管理
系统
- 资源描述：
-
vb设备管理系统,vb,设备管理,系统
- 内容简介：
-
JIANGXI NORMAL UNIVERSITY学 士 学 位 论 文THESIS OF BACHELOR（20042008）题目：设备管理系统Topic: Title: Equipment Management System -设备数据查询 Equipment data inquiry姓 名： 郭锦华 学 号： 0368110182 学 院： 软件学院 专 业： 软件工程 完成时间： 2008年3月 指导老师： 刘媛春 摘要设备管理系统是典型的信息管理系统(MIS),其开发主要包括数据库的建立和维护以及主界面应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、安全性好的数据库。而对于后者则要求应用程序功能完备,易使用等特点。本系统使用Microsoft公司的Visual Basic 6.0开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、主界面开发设计与实现以及本人主要完成任务的数据查询（库设备查询、领用查询、消耗查询）模块分析设计与的实现，通过设备的属性字段查询每一件产品设备零件信息，使管理人员随时掌握设备的现状及公司雇员领用设备、消耗设备的情况。关键字：Visual Basic6.0，控件、窗体、Access数据库、设备管理信息AbstractEquipment management system management system is typical information management system (MIS), its development mainly includes the database the establishment and the maintenance as well as the host contact surface application procedure development two aspects.Establishes the data uniformity and the integrity regarding the former request strong, the secure good database.But requests the application procedure function regarding the latter to be complete, easy to use and so on the characteristics.This system uses Microsoft Corporation Visual the Basic 6.0 development kits, uses each kind of object-oriented development kit which it provides, in particular data window convenient and succinct operation database intellectualized object, first in a short time establishes the system application prototype, then, carries on the demand iteration to the initial prototype system, revises and the improvement unceasingly, until forms user satisfaction the feasible system.The paper mainly introduced this topic development background, must complete function and development process. The key explanation system design key point, the design concept, the host contact surface development design and the realization as well as myself mainly completed the task the data inquiry (storehouse equipment inquiry, collar with inquiry, consumption inquiry) the module analysis design with the realization, inquired each product equipment components information through the equipment attribute field, caused the administrative personnel to grasp the equipment as necessary the present situation and the company employee leads with the equipment, consumes the equipment the situation.Key words:Visual Basic6.0, controls, the window, the Access database、the equipment management information目录第一章 绪论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第五章 设备信息数据查询管模块分析与实现285.1设备信息数据查询模块分析28511数据查询模块代码实现26总 结31致 谢33参考文献34第一章 绪论11 引言传统的设备管理主要是以人工抄写记录存档的运行模式。21世纪是科技信息时代,陈旧的管理模式不是适应新时代的要求,它存在着操作速度慢、散乱、复杂等一系列缺点与不足。由于散乱、复杂，很可能文案丢失的情况，而且查找也不方便，给管理工作人员带来很大程度的管理滞后，增加了成本，降低了企业生产力。自中国加入wto以来，给国内一些企业带来很大的竟争压力，市场竟争越来越来激烈。提高企业生产力，降低成本是当前惟一解决有效途径。如何解决这一问题正式我要陈述的，关注当代形式，利用社会上出来的先进技术开发出新的设备管理系统是许多企业拭目以待的，正所谓“工欲善其事，必先利其器”。由此开发的设备管理系统是一套完全为设备管理人员设计的把设备管理由被动管理转为主动管理的系统，它的使用将极大地提高设备管理部门的工作效率，使设备管理人员解脱了繁重的手工劳动，实现了设备整个生命周期的计算机化管理，同时再与使用单位内部网络配合的基础上可以实现无纸化办公。12设备管理系统开发的背景设备管理系统是企业内部的信息管理系统,是连接企业内部各生产部门的桥梁与纽带,起着核心作用。目前企业设备自动化管理水平不是很高。大多数设备管理办法是设备的采购进来以后，将设备的基本情况和相关信息登记存档，然后将档案存档。以后的档案基本就没人维护，如设备修改、删除情况、设备的当前运行状态等信息本不会呈现在管理工作人员面前，由于散乱、复杂、查找和整理不便，即设备跟踪信息不能及时体现在设备的档案上。某些企业采用专门人工整点，对设备的跟踪信息即使能记录在案，但无形中增加了繁重的手工劳动，整个设备管理水平还是较低。本信息系统合理的借鉴国际领先的设备管理思想并结合国内设备管理现状，通过对各行业设备管理情况的长期研究探索，以灵活、通用为主要设计思想，开发适合各行各业设备管理信息系统，实现了设备整个生命周期的计算机化管理，同时再与使用单位内部网络配合的基础上可以实现无纸化办公。本系统将会提高办公效率和设备可靠性，减少工作人员的劳动强度，减少办公耗材，提高现代化管理水平。企业面对市场竞争的巨大压力，要求企业创造新的利润源，这为企业如何配置有限资源，利用先进计算机技术不断开发出操作简便、界面友好、灵活、实用、安全，更具时效性的设备信息管理系统有着更高的要求。13本文的主要内容本文主要叙述设备管理系统的开发目的与意义，并阐述设备信息管理系统的开发设计的一系列过程，包括开发过程中所涉及的设计思想、系统分析与设计以及相关技术的介绍。本系统使用Microsoft公司的Visual Basic 6.0开发工具,利用其提供的各种面向对象的开发工具，尤其是数据窗口方便而简洁操纵数据库的智能化对象，Acceess作为数据库,实现对设备在企业内部的存入、领用、消耗等一系列操作活动的计算机自动化管理过程。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成设备管理信息的全过程，包括每一物品，例如办公设备、家具、计算机及其他有价值的设备分配一个唯一的物品编码，并根据此编码在计算机中建立设备信息库，对设备的新增、领用、消耗等进行管理，使管理人员可对设备的流向进行跟踪，随时掌握设备的现状及公司雇员领用设备情况，减少设备丢失现象，解决查找、盘点困难等问题，提高管理人员的工作效率。第二章 相关技术介绍2.1 Visual Basic.6.0基础知识在目前市场上有着众多的程序开发工具，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。本系统选用数据库语言Visual Basic语言, Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：1可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。2面向对象的程序设计：4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。3结构化程序设计语言：Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。4事件驱动编程机制：Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。5访问数据库：Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。6动态数据交换(DDE)：利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。7对象的链接与嵌入(OLE)：对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。8动态链接库(DLL)：Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。2.2 关系数据库标准语言SQL Serve 2000SQL（Structured Query Language）是国际标准数据库操作语言，这种语言能操纵任何一种关系型数据库管理系统，自从SQL成为国际标准，对数据库以外的领域产生很大的影响，有不少软件产品将SQL语言的数据库查询功能与图形功能、软件工程工具、软件开发工具、人工智能程序结合起来。SQL已成为数据库领域中的主流语言。SQL是一种介于关系代数与关系演算之间的查询语言，其功能并不仅仅是查询。SQL是一个通用的、功能极强的关系数据库语言。SQL语言集数据查询、数据操纵、数据定义和数据控制功能与一体。SQL Server2000是一种关系式数据库，关系式数据库由一系列表组成，表由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接），以便查询关联的信息。数据库是有结构的数据集合，它与一般的数据文件不同（其中的数据是无结构的）是一串文字和数字流。数据库中的数据可以是文字、图象、声音等。SQL Server可以是实现数据库的建立与连接，以及对数据库修改、查询、备份等功能,本系统就是用SQL Server2000中OpenDB语句直接将Access中建立的数据表连接进来。2.3 Access 2000的介绍Access 2000是一种数据库管理系统，此软件由很多菜单工具栏构成，可以通过其中的命令钮实现它的许多功能，为企业中管理工作提供极大便利。这里主要介绍Access 2000中一个重要的部分“数据库窗口”，它帮助我们方便、快捷地对数据库进行各种操作，利用它自带的应用程序中“使用向导创建表”建立设备信息管理系统的数据库。根据系统设备类型的要求，具体操作如图：数据库窗口的使用也很简单。数据库窗口中也有一些功能按钮，它们的使用方法和工具栏上的按钮一样，要执行一个操作只要单击相应的按钮就可以了。窗口左侧包含两个方面的内容，上面是“对象”，下面是“组”。“对象”下分类列出了Access数据库中的所有对象，比如说用鼠标点一下这里的“表”，窗口右边就会列出本数据库中已经创建的所有表。而“组”则提供了另一种管理对象的方法：我们可以把那些关系比较紧密的对象分为同一组，不同类别的对象也可以归到同一组中。在数据库中的对象很多的时候，用分组的方法可以更方便地管理各种对象。2.4 运行环境(1) 软件环境要求：在Windows XP操作上平台安装Visual Basic6.0，同时需要安装配置Internet信息服务（IIS），以便开发网络数据库。(2) 硬件环境要求：（见表3.1）表3.1 硬件环境要求硬件名称最 低 要 求推 荐 配 置处理器PentiumII处理器，450MHZPentiumIII处理器，60MHZRAMWindows2000 Professional-96M128MWindows2000 Server-192M256Windows XPProfessional-160M192MWindows XP Home-96M160M可用磁盘空间系统驱动600M，安装驱动3GB显示器800*600、256色1024*76、增强色16位CD-ROMCD-ROM或DVD-ROM第三章 设备管理系统的设计思想、系统分析和设计31设备管理系统的设计思想设备管理信息系统是一个企事业单位不可缺少的部分,它的内容对于企事业单位的决策者和管理者来说都至关重要,所以设备管理信息系统应该能够为用户提供充足的信息和快捷的查询手段。该系统适用于普通设备的管理，在使用上力求操作容易，界面美观，另外，本系统具有较高的扩展性和可维护性，可能在以后需要的时候进行软件升级。整个系统的开发过程严格遵循软件工程的要求，做到模块化分析、模块化设计和代码编写的模块化。作为计算机应用的一部分,使用计算机对设备信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高设备管理信息的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。32设备管理系统的总体需求分析设备管理系统包括数据处理、数据查询和成本核算三个子功能模块。数据处理功能：新设备的添加、修改、删除；及领用设备和消耗设备的修改、删除等一些设备信息操作活动。数据查询功能：实现每一阶段库设备、领用设备和消耗设备的查询操作活动。成本核算功能：对每月设备的运行状态（领用、消耗）以领用报表、消耗报表、班组报表和个人报表四表分别进行统计分析。设备管理信息系统是一个面向设备人员，为其提供服务的综合信息管理系统。设备管理信息人员通过本系统完成相关的日常工作，这些工作也是平常较为繁重的工作。想要把收集到的信息（如文件、图表、票据、笔记等）转化为下一设计阶段可用形式的信息，必须对需求信息做分析整理工作。1、业务流程分析：业务流程分析的目的是获得业务流程及业务与数据联系的形式描述。下图是本系统的业务流图： 下面是设备管理数据库系统设计的业务流程分析，原始的数据是设备的基本信息，系统要求统计设备的信息，并根据信息统计的结果由及时对设备进行检修和更换，其数据流图如下图：产生报表输出处理输入处理信息清单 统计整理 报表清单 更换清单 存储文件图2.2 设备统计的数据流2、设备管理系统的构架图:本系统主要用数据处理、数据查询、成本核算三个功能模块对设备信息进行综合的管理过程，让管理人员随时掌握设备的运行动态，以进行操作与管理工作，功能模块图如下：3、设备管理系统E-R图：ER模型是连接不同实体之间及单个实体中的属性之间的联系，作为用户与分析员之间有效的交流工具。使用户和管理人员更加清楚地系统的动作流程：33设备管理系统的数据库设计在需求分析阶段对系统数据要求已经做了基本分析，总体设计阶段分析了各个模块所要实现的功能，再根据需求分析阶段的数据字典系统需求，设计数据库如下表：产量表字段名称数据类型是否允许空值备注chanliangint0主键yiqiDatetime1领料库表字段名称数据类型是否允许空值备注xinghaoLong int0主键Shuliangint0danjiaint0yiqiDatetime1消耗库表字段名称数据类型是否允许空值备注xinghaoLong int0主键yiqiDatetime0ShuliangVarchar(50)0zerenrenLong int0zerenzuInt0xiaohaoyuanyintext0总库表字段名称数据类型是否允许空值备注mingchanVarchar(40)0主键xinghaoLong int0外键Jishucanshu1Varchar(40)0Jishucanshu2Varchar(40)0Jishucanshu3Varchar(50)0pinjianxinghaoDatetime0danjiaint0kuzenliangLong int0shiyongshoumingVarchar(200)0chuangjiatext0zhongliText0接下来就利用上面创建的表实现数据库的设计:如消耗表(其余表的与之同)数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录,最终实现各表之间通过关键字段联系起来。第四章 主界面模块的分析与实现4.1主界面模块页面设计随着计算机技术的不断发展，计算机应用于各大领域，给人们的生活带来了极大的便利，人们的生活水平也得到很大提高，更加喜欢追求美好事物，因此，任何事物的第一印象是非常重要。前台界面是给用户提供一个方便易用的接口和美观友好的界面，它满足拥护的各种查询、修改和删除综合实现。事之今日，系统开发工具不断升级，软件的功能越来越强大，利用先进的技术设计新颖、大方的界面，让用户接受也是越来越显的重要。本系统没有用户名登录方式，而是用一个计时器直接进入主界面，设计如图：接下来在Visual Basic6.0自带功能”菜单编辑器”编辑窗体界面中的相关数据信息，形成的前台用户界面如图：4.2前台模块实现前台是用户进行综合管理、进入其它操作模块的唯一的接口，主要连接的界面窗口有：数据处理、数据查询、成本核算三个功能模数据处理包括新设备的添加、修改、删除；及领用设备和消耗设备的修改、删除。数据查询包括库设备、领用设备和消耗设备的查询。成本核算包括对每月设备的运行状态（领用、消耗）以领用报表、消耗报表、班组报表和个人报表四表分别进行统计分析。4.2.1连接各管理窗体的代码(主窗体的实现):Option Explicit 菜单项“班组成本月报表” Private Sub mdi_cost_banzu_Click() Frmcost.Show MDifrm.Hide Frmriqi.Show Frmriqi.Label1(0).Caption = 设备班组成本月报表 Frmcost.Enabled = False drawbanzuyuebao 绘制班组月报表图表End Sub= 菜单项“个人成本月报表” Private Sub mdi_cost_geren_Click() Frmcost.Show MDifrm.Hide Frmriqi.Show Frmriqi.Label1(0).Caption = 可控硅班个人成本月报表 Frmcost.Enabled = False drawgerenyuebao 绘制个人月报表图表End Sub= 菜单项“设备领用月报表” Private Sub mdi_cost_get_Click() Frmcost.Show MDifrm.Hide Frmriqi.Show Frmriqi.Label1(0).Caption = 设备领用月报表 Frmcost.Enabled = False drawgetyuebao 绘制月报表图表End Sub= 菜单项“设备消耗月报表” Private Sub mdi_cost_used_Click() Frmcost.Show MDifrm.Hide Frmriqi.Show Frmriqi.Label1(0).Caption = 设备消耗月报表 Frmcost.Enabled = False drawusedyuebao 绘制月报表图表End Sub= 菜单项“删除已领用设备” Private Sub mdi_data_del_geted_Click() Frmdata.Show MDifrm.Hide setFramusedrepairdelEnd Sub= 菜单项“删除库设备” Private Sub mdi_data_del_ku_Click() Frmdata.Show MDifrm.Hide setFramrepairEnd Sub= 菜单项“删除已消耗设备” Private Sub mdi_data_del_used_Click() Frmdata.Show MDifrm.Hide setFramusedrepairEnd Sub= 菜单项“领用新设备” Private Sub mdi_data_new_get_Click() Frmdata.Show MDifrm.Hide setFramgetgetgetEnd Sub= 菜单项“使用新设备” Private Sub mdi_data_new_ku_Click() Frmdata.Show MDifrm.Hide setFramkugetEnd Sub= 菜单项“新消耗设备” Private Sub mdi_data_new_use_Click() Frmdata.Show MDifrm.Hide setFramgetgetEnd Sub= 菜单项“领用设备修改” Private Sub mdi_data_repair_geted_Click() Frmdata.Show MDifrm.Hide setFramusedrepairgetEnd Sub= 菜单项“库设备修改” Private Sub mdi_data_repair_ku_Click() Frmdata.Show MDifrm.Hide setFramrepairrepairEnd Sub= 菜单项“消耗设备修改” =Private Sub mdi_data_repair_used_Click() Frmdata.Show MDifrm.Hide setFramusedrepairusedEnd Sub= 菜单项“退出” Private Sub mdi_file_exit_Click() EndEnd Sub= 菜单项“领用查询” Private Sub mdi_select_get_Click() Frmselect.Show MDifrm.Hide Frmselect.Frakuchaxun.Visible = False Frmselect.Fralingyong.Visible = True Frmselect.Fraxiaohao.Visible = FalseEnd Sub= 菜单项“库设备查询” Private Sub mdi_select_ku_Click() Frmselect.Show MDifrm.Hide Frmselect.Frakuchaxun.Visible = True Frmselect.Fralingyong.Visible = False Frmselect.Fraxiaohao.Visible = FalseEnd Sub= 菜单项“消耗查询” Private Sub mdi_select_used_Click() Frmselect.Show MDifrm.Hide Frmselect.Frakuchaxun.Visible = False Frmselect.Fralingyong.Visible = False Frmselect.Fraxiaohao.Visible = TrueEnd Sub= 窗体调用 Private Sub MDIForm_Load() mdi_file_view.Enabled = False mdi_file_print.Enabled = False opendb 打开数据库End Sub= 点击工具栏 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case 退出系统 End Case 数据处理 Frmdata.Show MDifrm.Hide Case 成本核算 Frmcost.Show MDifrm.Hide Case 查询 Frmselect.Show MDifrm.Hide End SelectEnd Sub第五章 设备信息数据查询管模块分析与实现5.1设备信息数据查询模块分析与实现本人完成的任务是设备信息数据查询，数据查询包括库设备查询、领用查询、消耗查询三部分，不同的查询模块有不同的查询方式，库设备查询、消耗查询都是以设备的属性进行查找，而领用查询以设备在每一阶段的运动情况进行查找的，同时还分别以详细列表、与汇总表两种方式显示在ListView框格中，下图是库设备查询的显示：5.1.1数据查询模块代码实现实现的代码过程如下：Option Explicit= 消耗查询的条件选择 Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 If Check1(0).Value = 1 Then Combo1(0).Enabled = True Combo1(0).BackColor = &H80000005 Else Combo1(0).Enabled = False Combo1(0).BackColor = &H8000000F End If Case 1 If Check1(1).Value = 1 Then Combo1(1).Enabled = True Combo1(1).BackColor = &H80000005 Else Combo1(1).Enabled = False Combo1(1).BackColor = &H8000000F End If Case 2 If Check1(2).Value = 1 Then Combo1(2).Enabled = True Combo1(2).BackColor = &H80000005 Else Combo1(2).Enabled = False Combo1(2).BackColor = &H8000000F End If Case 3 If Check1(3).Value = 1 Then Combo1(3).Enabled = True Combo1(3).BackColor = &H80000005 Else Combo1(3).Enabled = False Combo1(3).BackColor = &H8000000F End If End SelectEnd Sub= 总库查询的条件选择 Private Sub Check2_Click(Index As Integer) Select Case Index Case 0 If Check2(0).Value = 1 Then Combo2(0).Enabled = True Combo2(0).BackColor = &H80000005 Else Combo2(0).Enabled = False Combo2(0).BackColor = &H8000000F End If Case 1 If Check2(1).Value = 1 Then Combo2(1).Enabled = True Combo2(1).BackColor = &H80000005 Else Combo2(1).Enabled = False Combo2(1).BackColor = &H8000000F End If Case 2 If Check2(2).Value = 1 Then Combo2(2).Enabled = True Combo2(2).BackColor = &H80000005 Else Combo2(2).Enabled = False Combo2(2).BackColor = &H8000000F End If Case 3 If Check2(3).Value = 1 Then Combo2(3).Enabled = True Combo2(3).BackColor = &H80000005 Else Combo2(3).Enabled = False Combo2(3).BackColor = &H8000000F End If Case 4 If Check2(4).Value = 1 Then Combo3.Enabled = True Combo3.BackColor = &H80000005 Text2(0).Enabled = True Text2(0).BackColor = &H80000005 Else Combo3.Enabled = False Combo3.BackColor = &H8000000F Text2(0).Enabled = False Text2(0).BackColor = &H8000000F End If Case 5 If Check2(5).Value = 1 Then Combo4.Enabled = True Combo4.BackColor = &H80000005 Text2(1).Enabled = True Text2(1).BackColor = &H80000005 Else Combo4.Enabled = False Combo4.BackColor = &H8000000F Text2(1).Enabled = False Text2(1).BackColor = &H8000000F End 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 Combo2(7).Enabled = True Combo2(7).BackColor = &H80000005 Else Combo2(7).Enabled = False Combo2(7).BackColor = &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).BackColor = &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).Enabled = 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).Enabled = 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 = &H8000000F Cobriqi1(17).Enabled = False Cobriqi1(17).BackColor = &H8000000F Cobriqi1(21).Enabled = False Cobriqi1(21).BackColor = &H8000000F Cobriqi1(22).Enabled = False Cobriqi1(22).BackColor = &H8000000F Cobriqi1(23).Enabled = False Cobriqi1(23).BackColor = &H8000000F End If End SelectEnd Sub= 按钮“开始查询” Private Sub Comdstartselect_Click() If Fraxiaohao.Visible = True Then chaxunxiaohao 消耗查询 ElseIf Fralingyong.Visible = True Then chaxunlingyong 领用查询 ElseIf Frakuchaxun.Visible = True Then chaxunku 总库查询 End IfEnd Sub= 窗体调用 Private Sub Form_Load() select_file_printview.Enabled = False select_file_print.Enabled = False setfraxiaohao 设置消耗查询窗体 setlingyongchanxun 设置领用查询窗体 setkuchaxun 设置总库查询窗体 Frakuchaxun.Visible = True Fralingyong.Visible = False Fraxiaohao.Visible = FalseEnd Sub= 菜单项“班组成本月报表” Private Sub select_cost_banzu_Click() Frmcost.Show Frmselect.Hide Frmriqi.Show Frmriqi.Label1(0).Caption = 设备班组成本月报表 Frmcost.Enabled = False drawbanzuyuebao 绘制班组月报表图表End Sub= 菜单项“个人成本月报表” Private Sub select_cost_geren_Click() Frmcost.Show Frmselect.Hide Frmriqi.Show Frmriqi.Label1(0).Caption = 可控硅班个人成本月报表 Frmcost.Enabled = False drawgerenyuebao 绘制个人月报表图表End Sub= 菜单项“设备领用月报表” Private Sub select_cost_get_Click() Frmcost.Show Frmselect.Hide Frmriqi.Show Frmriqi.Label1(0).Caption = 设备领用月报表 Frmcost.Enabled = False drawgetyuebao 绘制月报表图表End Sub= 菜单项“设备消耗月报表” Private Sub select_cost_used_Click() Frmcost.Show Frmselect.Hide Frmriqi.Show Frmriqi.Label1(0).Caption = 设备消耗月报表 Frmcost.Enabled = False drawusedyuebao 绘制月报表图表End Sub= 菜单项“删除已领用设备” Private Sub select_data_del_get_Click() Frmdata.Show Frmselect.Hide setFramusedrepairdelEnd Sub= 菜单项“删除已消耗设备” Private Sub select_data_del_used_Click() Frmdata.Show Frmselect.Hide setFramusedrepairEnd Sub= 菜单项“删除库设备” Private Sub select_data_del_zk_Click() Frmdata.Show Frmselect.Hide setFramrepairEnd Sub= 菜单项“领用新设备” Private Sub select_data_new_get_Click() Frmdata.Show Frmselect.Hide setFramgetgetgetEnd Sub= 菜单项“新消耗设备” Private Sub select_data_new_used_Click() Frmdata.Show Frmselect.Hide setFramgetgetEnd Sub= 菜单项“使用新设备” Private Sub select_data_new_zk_Click() Frmdata.Show Frmselect.Hide setFramkugetEnd Sub= 菜单项“领用设备修改” Private Sub select_data_repair_get_Click() Frmdata.Show Frmselect.Hide setFramusedrepairgetEnd Sub= 菜单项“消耗设备修改” Private Sub select_data_repair_used_Click() Frmdata.Show Frmselect.Hide setFramusedrepairusedEnd Sub= 菜单项“库设备修改” Private Sub select_data_repair_zk_Click() Frmdata.Show Frmselect.Hide setFramrepairrepairEnd Sub= 菜单项“退出” Private Sub select_file_exit_Click() MDifrm.Show Frmselect.HideEnd Sub= 菜单项“领用查询” Private Sub select_select_get_Click() Fralingyong.Visible = True Fraxiaohao.Visible = False Frakuchaxun.Visible = FalseEnd Sub= 菜单项“消耗查询” Private Sub select_select_used_Click() Fralingyong.Visible = False Frakuchaxun.Visible = False Fraxiaohao.Visible = TrueEnd Sub= 菜单项“库设备查询” Private Sub select_select_zu_Click() Frakuchaxun.Visible = True Fralingyong.Visible = False Fraxiaohao.Visible = FalseEnd Sub= 菜单条选择 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case 设备查询
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号