全套毕业设计设备管理信息系统论文模板.doc

大学毕业设计论文课题 设备管理信息系统姓 名 学 科 专 业 计算机网络 指 导 教 师 学 号 12日期: 5月目 录序言摘要第一章 系统需求分析第二章系统设计21系统方案确定22系统功效实现第三章 怎样开发一个人事工资管理系统？31 编程环境选择32 关系型数据库实现33 二者结合（DBA）第四章 Visual basic下控件所实现功效41实现菜单选项42 实现工具栏43 帮助第五章 系统总体计划51 系统功效52 步骤图第六章 系统具体实现6.1 用户界面实现6.2 数据库实现第七章 结束语第八章 关键参考文件第九章 程序源代码、各功效模块程序步骤图-序言-设备管理信息系统是一个企机关不可缺乏部分,它内容对于企机关决议者和管理者来说全部至关关键,所以设备管理信息系统应该能够为用户提供充足信息和快捷查询手段。但一直以来大家使用传统人工方法管理设备信息，这种管理方法存在着很多缺点,如:效率低、保密性差,另外时间一长,将产生大量文件和数据,这对于查找、更新和维护全部带来了不少困难。本论文关键介绍是设备管理信息系统整个设计过程。伴随计算机技术不停发展，计算机应用于各大领域，并给大家生活带来了极大便利，在固定管理系统亦是如此。以往设备员因为缺乏合适软件而给其工作带来了很多不便。本论文所介绍便是一个设备管理信息系统，以方便在设备安排和设备管理信息上工作任务。该系统适适用于一般设备管理，在使用上努力争取操作轻易，界面美观，另外，本系统含有较高扩展性和可维护性，可能在以后需要时候进行软件升级。整个系统开发过程严格遵照软件工程要求，做到模块化分析、模块化设计和代码编写模块化。作为计算机应用一部分,使用计算机对设备信息进行管理,含有着手工管理所无法比拟优点.比如:检索快速、查找方便、可靠性高、存放量大、保密性好、寿命长、成本低等。这些优点能够极大地提升设备管理信息效率,也是企业科学化、正规化管理,和世界接轨关键条件。-摘要-设备管理信息系统是经典信息管理系统(MIS),其开发关键包含后台数据库建立和维护和前端应用程序开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好库。而对于后者则要求应用程序功效完备,易使用等特点。 经过分析,我们使用 MICROSOFT企业 VISUAL BASIC开发工具,利用其提供多种面向对象开发工具,尤其是数据窗口这一能方便而简练操纵数据库智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不停修正和改善,直到形成用户满意可行系统。整个系统从符合操作简便、界面友好、灵活、实用、安全要求出发，完成设备管理信息全过程，包含每一物品，比如办公设备、家俱、计算机及其它有价值设备分配一个唯一物品编码，并依据此编码在计算机中建立设备信息库，对设备新增、领用、折旧等进行管理，使管理人员可对设备流向进行跟踪，随时掌握设备现实状况及企业雇员领用设备情况，降低设备丢失现象，处理查找、盘点困难等问题，提升管理人员工作效率。所以，开发这么一套管理软件成为很有必需事情,在下面各章中我们将以开发一套设备管理信息系统为例,谈谈其开发过程和所包含到问题及处理方法。企业要想不停提升设备使用效率，而且在预期时间内收回所投资金和实现预期投资收益，就要加强设备管理信息。设备管理信息关键内容有： 设备日常管理 设备使用效率管理 设备投资规模变动边际收入和边际成本分析 设备折旧管理论文关键介绍了本课题开发背景，所要完成功效和开发过程。关键说明了系统设计关键、设计思想、难点技术和处理方案。关键字：Visual Basic6.0，控件、窗体、数据库，设备管理信息第一章. 系统需求分析1.1现行业务系统描述设备管理信息对每个企业单位全部是十分关键工作，设备管理信息好，能够使设备发挥最大效益，杜绝多种不良设备，反之则会造成生产资料利用率低下，甚至造成设备流失。 本管理系统是为适应于设备管理信息而开发软件。从设备使用角度管理设备，帮助学校建立一套完善数据管理模型，提供全方面数据编辑、查询、系统管理等等功效，达成对设备科学管理目标。企业以前相关设备管理工作全部是由人工来完成。伴随企业发展，企业设备处设备管理信息工作量大大加重。伴随计算机应用发展，很多企业急切期望能够将大部分繁琐工作交由计算机处理，已减轻人工压力并提升工作效率。而计算机普及愈加紧了设备管理信息系统产生。上一代设备管理信息系统关键采取Foxbase或FoxPro,系统开发环境也是数据库内置开发工具。其特点是单机单用户方法，开发简单，能充足利用数据库特征。其缺点是开发出系统依靠性强，运行必需依靠数据库环境；不轻易升级和扩展；无法实现数据共享和并行操作；代码重用性差。原有设备管理信息系统数据共享差问题愈加突出，而新需求提出也越来越多，越来越频繁。这就要求系统在可扩展性和标准化要求更高。而原有系统因为其和生俱来缺点而无法在适应现有需求了。所以，使用现在新技术，开发出适应新需求新系统任务刻不容缓。1.2组织结构和设备管理信息系统由直接关系关键是后勤管理处：是设备系统管理关键部门，负担设备管理信息集中管理。13业务步骤分析设备管理信息系统是一个面向设备人员，为其提供服务综合信息管理系统。设备管理信息人员经过本系统完成相关日常工作，这些工作也是日常较为繁重工作。由设备人员在数据编辑中完成对运行设备系统所需基础数据维护。包含这些信息增加、修改、删除等，变动全部将在这进行操作。系统开始投入使用时，设备管理信息人员应先依据现在企业和单位实际情况，建立相关设备信息，当设备情况发生变动后，设备人员要立即完成对库中信息进行维护。因为企业设备数量会不停增多，所以尤其设置了一个数据查询模块，能够进行相关设备快速查询。1.4现行系统存在关键问题分析现行系统关键问题归纳起来关键有，1. 单机单用户系统，伴随网络发展，原有单机单用户系统已远远不能满足需要。同时，原有数据库也不支持多用户网络运行环境。2系统独立性差，原有系统通常全部是使用数据库提供开发工具编写程序，所以收数据库制约比较大，编写出来程序性能也不好。尤其是无法支持如Access, MS SQL Server等新数据库。3模块性差，因为不是一个完整编程语言，故无法做到代码模块化，给功效扩展带来了巨大不便。1.5提出可能处理方案鉴于现在企业对设备管理信息系统需求和实际情况，新系统方案关键放在系统可扩展性上，为了实现这一设计，新系统应含有以下几方面要求：1新系统采取Visual Basic 6.0开发成功，充足利用该开发程序优势，提升了工作效率。2新系统从设计到实现全部应遵照模块化，是用一致接口进行信息传输和模块调用。模块划分应尽可能符合实际业务划分，以确保以后新模块加入尽可能少影响现有功效模块运行。3、新系统所含有特征：通用性：用户可依据本校需求灵活设置设备类别及其数据库结构，可满足不一样层次，不一样性质，不一样业务工作需求。标准化：提供了丰富完善设备管理信息内容，为各级设备部门之间数据共享及数据交换奠定了良好基础。优异性：采取面向对象技术开发，适应计算机网络技术发展趋势，运行在windows环境下，界面友好操作方便。实用性：含有操作简便、功效适中等特点，运行速度快。1.6可行性分析和决议对于新系统设计多个关键技术可行性分析以下，1新系统现在使用VB6.0自带数据库来作为数据库，这是一个支持多用户新型数据库，适适用于中小规模数据量需求。企业网建设也为新系统服务器/用户端结构提供了硬件支持。2现在，市场上能够选购应用开发产品很多，流行也有数十种。现在在中国市场上最为流行、使用最多、最为优异可用作企业级开发工具产品有：Microsoft企业Visual Basic，Microsoft企业Visual C，Borland企业Delphi ，Powersoft企业PowerBulider在现在市场上这些众多程序开发工具中，有些强调程语言弹性和实施效率；有些则偏重于可视化程序开发工具所带来便利性和效率得高，各有各优点和特色，也满足了不一样用户需求。然而，语言弹性和工具便利性是密不可分，只有便利工具，却没有弹性语言作支持，很多特殊化处理动作必需要花费数倍工夫来处理，使得原来所标榜效率提升优点失去了作用；相反，假如只强调程语言弹性，却没有便利工具作配合，会使部分即使很简单界面处理动作，也会严重地浪费程序设计师宝贵时间。作为数据库系统开发，Visual Basic是一个很理想选择。数据库是MIS中关键支持技术，在MIS开发过程中，怎样选择数据库管理是一个关键问题，现在，数据库产品较多，每种产品全部含有各自特点和适用范围，所以，在选择数据库时，应考虑数据库应用特点及适用范围，本系统选择数据库语言Visual Basic语言，该开发工具含有很多优点：Visual Basic是一个可视化、面对对象和条用事件驱动方法结构化高级程序设计，可用于开发Windows环境下种类应用程序。它简单易学、效率高，且功效强大，能够和Windows专业开发工具SDK相媲美，而且程序开发人员无须含有C/C+编程基础。在Visual Basic环境下，利用事件驱动编程机制、新奇易用可视化设计工具，使用Windows内部应用程序接口(API)函数，和动态链接库(DLL)、动态数据交换(DDE)、对象链接和嵌入(OLE)、开放式数据访问(ODBC)等技术，能够高效、快速地开发出Windows环境下功效强大、图形界面丰富应用软件系统。总来说，Visual Basic含有以下特点：可视化编程：用传统程序设计语言设计程序时，全部是经过编写程序代码来设计用户界面，在设计过程中看不到界面实际显示效果，必需编译后运行程序才能观察。假如对界面效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改操作可能要反复数次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计复杂性“封装”起来，开发人员无须为界面设计而编写大量程序代码。只需要按设计要求屏幕布局，用系统提供工具，在屏幕上画出多种“部件”，即图形对象，并设置这些图形对象属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功效那部分代码，从而能够大大提升程序设计效率。面向对象程序设计4.0版以后Visual Basic支持面向对象程序设计，但它和通常面向对象程序设计语言(C+)不完全相同。在通常面向对象程序设计语言中，对象由程序代码和数据组成，是抽象概念；而Visual Basic则是应用面向对象程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象给予应有属性，使对象成为实在东西。在设计对象时，无须编写建立和描述每个对象程序代码，而是用工具画在界面上，Visual Basic自动生成对象程序代码并封装起来。每个对象以图形方法显示在界面上，全部是可视。结构化程序设计语言Visual Basic是在BASIC语言基础上发展起来，含有高级程序设计语言语句结构，靠近于自然语言和人类逻辑思维方法。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检验，同时含有功效强大且使用灵活调试器和编译器。Visual Basic是解释型语言，在输入代码同时，解释系统将高级语言分解翻译成计算机能够识别机器指令，并判定每个语句语法错误。在设计Visual Basic程序过程中，随时能够运行程序，而在整个程序设计好以后，能够编译生成可实施文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。事件驱动编程机制Visual Basic经过事件来实施对象操作。一个对象可能会产生多个事件，每个事件全部能够经过一段程序来响应。比如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将实施一段程序，用来实现指定操作。在用Visual Basic设计大型应用软件时，无须建立含有显著开始和结束程序，而是编写若干个微小子程序，即过程。这些过程分别面向不一样对象，由用户操作引发某个事件来驱动完成某种特定功效，或由事件驱动程序调用通用过程来实施指定操作，这么能够方便编程人员，提升效率。访问数据库Visual Basic含有强大数据库管理功效，利用数据控件和数据库管理窗口，能够直接建立或处理Microsoft Access格式数据库，并提供了强大数据存放和检索功效。同时，Visual Basic还能直接编辑和访问其它外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式全部能够用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功效，可经过直接访问或建立连接方法使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，能够使用结构化查询语言SQL数据标准，直接访问服务器上数据库，并提供了简单面向对象库操作指令和多用户数据库访问加锁机制和网络数据库SQL编程技术，为单机上运行数据库提供了SQL网络接口，方便在分布式环境中快速而有效地实现用户/服务器(client/server)方案。动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，能够把一个应用程序中数据动态地链接到另一个应用程序中，使两种完全不一样应用程序建立起一条动态数据链路。当原始数据改变时，能够自动更新链接数据。Visual Basic提供了动态数据交换编程技术，能够在应用程序中和其它Windows应用程序建立动态数据交换，在不一样应用程序之间进行通信。对象链接和嵌入(OLE)对象链接和嵌入(OLE)将每个应用程序全部看做是一个对象(object)，将不一样对象链接(link)起来，再嵌入(embed)某个应用程序中，从而能够得到含有声音、影像、图像、动画、文字等多种信息集合式文件。OLE技术是Microsoft企业对象技术战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一个应用程序一体化技术。利用OLE技术，能够方便地建立复合式文档(compound document)，这种文档由来自多个不一样应用程序对象组成，文档中每个对象全部和原来应用程序相联络，并可实施和原来应用程序完全相同操作。动态链接库(DLL)Visual Basic是一个高级程序设计语言，不含有低级语言功效，对访问机器硬件操作不太轻易实现。但它能够经过动态链接库技术将C/C+或汇编语言编写程序加入到Visual Basic应用程序中，能够像调用内部函数一样调用其它语言编写函数。另外，经过动态链接库，还能够调用Windows应用程序接口(API)函数，实现SDK所含有功效。总而言之，新系统设计和开发在技术上和硬件设备上条件全部是满足，新系统开发是可行。第二章系统设计-系统方案设定企业在充足认识到设备管理信息关键性下，即使在管理系统支持下，设备标签制订、填写或打印、粘贴、设备状态跟踪，盘点等工作性质和工作量并没有得到良好改变和改善。设备管理信息还是手工和计算机管理相结合。 设备投资是社会维持简单再生产和扩大再生产关键手段，适度投资规模和合理投资结构对于实现国家经济发展战略含有重大意义。立即、正确、完整地取得全社会投资规模、结构和效益和前景估计相关信息，是国家建立宏观调控机制、制订产业政策、提升决议水平、实现全社会总供给和总需求主动平衡和社会资源合理分配关键条件。 现在企业对设备投资管理关键是采取书面文字统计为主、电脑 EXECL 表格统计为辅方法，伴随工作发展，这种管理不足日益突出出来。关键表现在统计、检索和统计时十分不便。 为全方面加强对设备投资宏观管理和指导，企业建立设备管理信息信息系统，对企业宏观经济进行快速检索和统计是必需。 本系统是一个由多项数据组成相互紧密关联开放性系统，现有项目数据、又有文档数据。建设这一系统应该系统地计划设备投资管理体系，健全设备投资管理数据标准，如行业分类标准、分类总投资标准、项目文档分类标准，和建设性质划分、项目编号标准系统实现功效设备管理信息系统是一套对设备档案、增加、折旧、维修、盘存、清理、转让等进行全方面管理系统。该系统经过采集设备日常工作中所产生多种原始数据，依据设备管理要求，对数据进行分类、统计、汇总、分析，建立程序化、制度化、规范化设备计算机软件管理系统，包含了设备通常特征、设备状态数据和设备能力数据，立即正确地报出多种报表，为设备管理信息提供了一个现代化管理手段，这一手段能够强化和规范对设备管理。便于计划、财务、审计等管理部门介入，形成严格监督、约束机制。该系统集信息采集、分类、汇总、分析、查询、统计等多种处理为一体，多种操作既能够经过菜单进行，又能够经过系统管理树导航进行。信息分类全方面，树形管理方便，操作快捷简单，性能强大高效。全汉字操作界面，无需计算机专业知识，使用易懂、易会。别具一格查询统计为您提供了更多方便！系统支持用户任意修改设计，也可让我们帮您完成。设备管理信息 第三章.Visual basic下控件所实现功效Windows下Visual Basic应用程序基础构建块是用户所创建对象，每一个对象全部含有部分特征和行为（属性、事件和 方法）。开发人员能够最有效利用所创建每一个对象。使用应用程序含有可通用性可说扩展性和强有力功效。Visual Basic应用由一系列对象组成，包含有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件全部可在很多应用中反复使用。_实现菜单选项菜单是程序最关键特征之一，大多数程序全部依靠一个定义良好菜单使程序易于使用和维护，Visual Basic也提供了强大创建菜单功效是程序愈加标准。您能够使用Visual BasicApplication Wizard也能够使用Visual Basic 菜单编辑器建立菜单或修改已经存在菜单。 _ 实现工具栏CoolBar控件和Office97种看到CoolBar是类似。CoolBar就是一个能够在窗体上浮动工具，同时也是其它ActiveX容器。经过在CoolBar中迁入其它空间你局能够向用户提供愈加好灵活性和义用性。Toolbar 是工具条控件，是实现工具条主体。其中按钮能够显示图像和标题，并按功效分组或加入分隔符，还能够围棋设置鼠标停留在其上显示提醒字符。Toolbar也是一个控件容器且含有Style属性，并能够为其增加下拉按钮和平滑按钮等。选择“工程”下拉菜单中“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其属性及对象以下： 1 Align属性定义工具条在窗体中位置2 ToolTipText属性是字符串类型，定义控件提醒字符3 Style属性定义按钮外观。4 ImageList属性定义和数据条对应ImageList控件名，该控件定义工具条按钮显示图像。5 HotImangeList属性设置一个ImageList控件名，该控件定义按钮取得热点时显示图像。6 DisabledImageList属性定义工具条按钮无效时显示图像。创建工具条包含ImageList和Toolbar控件ImageList用于为其它控件提供图像库，将ImageList控件加入到工具箱操作于前述Toolbar控件相同。_ 帮助专业水平软件通常全部带有联机帮助功效。不管写出来程序是要给大量用户使用，还是仅仅局限于企业内部有限使用者，我们全部应该为用户提供具体、易于了解联机帮助文档。微软Help Workshop4.0 是一套独立于Visual Basic 用来帮助我们创建、运行于32位Windows 操作系统下帮助文件工具。使用它我们能够为我们编写应用程序生成一组帮助文件。_ 相关版本为了是程序显得更含有专业风格，首先能够在其中加入通常应用程序信息。这些信息包含企业名称、版本号、修订号和其它类似信息。Visual Basic许可你使用APP对象来保留这些信息，APP对象是一个预定义对象，不需要在程序中创建它。APP对象大多数属性被应用程序用来提供常规信息，经过使用这些APP提供属性，能够在应用程序和用户之间交流关键信息，在项目属性框中能够设置它属性。第四章.使用Access 实现关系型数据库数据库概念数据库是一个存放数据并对数据进行操作工具。数据库作用在于组织和表示信息，简而言之，数据库就是信息集合。计算机数据库能够分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表信息，数据库含有各个不一样部分术语，象统计、域等。 _ 新建一个数据库创建任何一个数据库第一步是仔细计划数据库，设计必需是灵活、有逻辑。创建一个数据库结构过程被认为是数据模型设计。1 标识需要数据；2 搜集被标识字段到表中；3 标识主关键字字段；4 绘制一个简单数据图表；5 规范数据；6 标识指定字段信息；7 创建物理表。_ 修改已建数据库数据库修改分为：添加、编辑和删除统计。这三种操作均可由Visual Basic 创建程序来完成，下面章节将具体描述实现具体方法。_ 实现数据库之间联络数据库之间关系指明两个库之间共享一个共同关键字值。一个连接是指一个虚拟表，这种表是在当用户要求从相互关联各个不一样表中获取信息时建立，关键字段用于在相互连接不一样表中查找匹配统计。一个更高级连接形式称为自连接。这种连接是指一个表被连接到它自己一个字段，或在不一样纪录中由反复数据组合字段。数据库中有三种不一样类型关键字：主关键字、组合关键字和外关键字。在表中使用关键字类型用于描述库表示什么和在数据库中怎样和其它库建立关系。第五章.系统总体计划_ 系统功效1 能够进行文本操作；2 添加一个数据库项目；3 删除一个数据库项目；4 修改一个数据库项目；5 查询信息6 系统维护6.1系统数据转出 6.2系统数据转入 6.3修改系统密码 6.4数据初始化7帮助8 退出数据查询设备管理信息系统数据编辑系统维护帮助退出第一个前一个系统登录下一个最终一个添加编辑删除退出搜索全部取消系统数据转出系统数据转入修改系统密码数据初始化第六章 系统具体实现主界面实现：功效：对全部设备进行添加，查询，修改，删除操作，对用户密码进行修改，对每条设备信息进行打印。数据编缉界面实现功效：对于设备编号，设备名称，设备型号，制造商，国别，购置日期，单价，数量，使用单位，使用人，管理员，放置地点，已使用年限，设备起源，报年限，联络电话等统计进行录入，删除，修改，打印操作！数据查询界面和功效介绍实现对在全部设备统计中查找某一个设备说细信息，也可在查询完一个后点 击下一个按钮对下一条统计进行查询。第七章结束语经过一个多月设计和开发，设备管理信息系统基础开发完成。其功效基础符适用户需求，能够实现固设备基础信息录入、更新、删除、打印等基础功效，从而实现设备管理。对于数据一致性问题也经过程序进行了有效处理。不过因为毕业设计时间较短，所以该系统还有很多不尽如人意地方，比如联机文档比较少，用户界面不够美观，犯错处理不够等多方面问题。这些全部有待深入改善。 致谢在此次毕业设计中，我从指导老师身上学到了很多东西。老师认真负责工作态度，严谨治学精神和深厚理论水平全部使我收益匪浅。她不管在理论上还是在实践中，全部给和我很大帮助，使我得到不少提升这对于我以后工作和学习全部有一个巨大帮助，感谢她耐心教导。另外，在系统开发过程中助手同学也给于我很大帮助，帮助处理了不少难点，使得系统能立即开发完成，还有同组同学一样给和我不少帮助，这里一并表示感谢。 第八章关键参考文件1 Visual Basic 6.0 使用指南 作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：电子工业出版社2 汉字版Microsoft Office 97 自学通作者：Ned Snell出版社：机械工业出版社3 Visual Basic 6.0 汉字版控件大全作者：Microsoft出版社；电子工业出版社4 汉字Access 24课时教程 作者：Craig Eddy ，Timothy Buchanan出版社：机械工业出版社九 程序源代码、各功效模块程序步骤图登录界面源代码：Private Sub Command1_Click()If Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) ThenForm2.ShowUnload MeElseFor X = 1 To 1If A1.Recordset.EOF = True ThenMsgBox 您输入用户名和密码有误，请重新输入！, 16, 犯错：Text1.Text = Text2.Text = A1.Recordset.AbsolutePosition = 1Else If Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) Then MDIForm1.Show MDIForm1.Print Command1.Tag MDIForm1.Tag = Text1.Text Unload Me Else X = X - 1 A1.Recordset.MoveNext End IfEnd IfNext XEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()If A1.Recordset.EOF = True And A1.Recordset.BOF = True ThenMsgBox 您是第一次使用本程序，请设置超级用户！, 32, 设置：Form2.ShowUnload MeEnd IfEnd Sub系统主界面代码：Private Sub gycx_Click()frmAbout.ShowEnd SubPrivate Sub sjbj_Click()Form3.ShowEnd SubPrivate Sub sjcx_Click()Form5.ShowEnd SubPrivate Sub sjdy_Click()Form4.ShowEnd SubPrivate Sub tc_Click()Unload MeEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 Form3.Show Case 2 Form5.Show Case 3 Form2.Show Case 4 Form4.Show Case 5 frmAbout.Show Case 6 Unload Me End SelectEnd Sub设备信息代码Private Sub Command1_Click()If Command1.Tag = True ThenIf Command1.Caption = 输入新统计 Thenr = 1 If A1.Recordset.BOF = True And A1.Recordset.EOF = True Then Else A1.Recordset.MoveFirst End IfFor X = 1 To 1 If A1.Recordset.EOF = True Then A1.Tag = Y Exit For Else A1.Recordset.MoveNext End IfX = X - 1r = r + 1Next XA1.Recordset.AddNewLabel3.Caption = rCommand1.Caption = 输入完成Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseForm3.Height = 8220Form3.Top = 300F1.Visible = TrueElse If t3(0).Text = Then MsgBox 设备不能为空！, 16, 犯错： t3(0).Text = 123 A1.Recordset.Delete Command1.Caption = 输入新统计 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Form3.Height = 5728 Form3.Left = 600 Form3.Top = 1500 F1.Visible = False Else For X = 11 To 13 If Len(Trim(t3(X).Text) 200 Then MsgBox 字符不能超出200个！, 16, 犯错： Exit Sub End If Next X A1.Recordset.MovePrevious A1.Recordset.MoveNext Command1.Caption = 输入新统计 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Form3.Height = 5728 F1.Visible = False Form3.Left = 600 Form3.Top = 1500 End IfEnd IfElseMsgBox 您没有这个权限！, 16, 犯错：End IfEnd SubPrivate Sub Command10_Click()For X = 0 To 6If A1.Recordset.EOF = True ThenMsgBox 您已经在最终一条统计, 32, 提醒：A1.Recordset.MovePreviousExit SubElseA1.Recordset.MoveNextEnd IfNext XEnd SubPrivate Sub Command11_Click()Form10.ShowUnload MeEnd SubPrivate Sub Command2_Click()If Command2.Tag = True ThenIf A1.Recordset.EOF = True And A1.Recordset.BOF = True ThenMsgBox 您数据库中没有统计！, 16, 犯错：ElseIf Command2.Caption = 查询 Then Command8.Caption = 显示信息Form3.Top = 700Form3.Height = 5670Command2.Caption = 结束查询F3.Visible = TrueCommand1.Enabled = FalseCommand4.Enabled = FalseCommand3.Enabled = FalseElseA1.Recordset.MoveFirstCommand2.Caption = 查询Command8.Caption = 打印Form3.Top = 1500Form3.Height = 5728Form3.Left = 600Command1.Enabled = TrueCommand4.Enabled = TrueCommand3.Enabled = TrueF3.Visible = FalseEnd IfEnd IfElseMsgBox 您没有这个权限！, 16, 犯错：End IfEnd SubPrivate Sub Command3_Click()If Command1.Tag = True ThenIf A1.Recordset.EOF = True And A1.Recordset.BOF = Tr