设备管理系统论文开题报告源码

《设备管理系统论文开题报告源码》由会员分享，可在线阅读，更多相关《设备管理系统论文开题报告源码（23页珍藏版）》请在装配图网上搜索。

1、.大学毕业设计论文课题设备管理信息系统姓名学科专业计算机网络 指导教师学号12日期: 20XX5月目 录前言摘要第一章 系统需求分析第二章系统设计21系统方案确定22系统功能实现第三章怎样开发一个人事工资管理系统？31 编程环境的选择32 关系型数据库的实现33 二者的结合DBA第四章 Visual basic下的控件所实现的功能41实现菜单选项42实现工具栏43帮助第五章系统总体规划51 系统功能52 流程图第六章系统具体实现6.1 用户界面的实现6.2 数据库的实现第七章结束语第八章主要参考文献第九章程序源代码、各功能模块的程序流程图-前言-设备管理信息系统是一个企事业单位不可缺少的部分,

2、它的内容对于企事业单位的决策者和管理者来说都至关重要,所以设备管理信息系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理设备的信息,这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。本论文主要介绍的是设备管理信息系统的整个设计过程。随着计算机技术的不断发展,计算机应用于各大领域,并给人们的生活带来了极大的便利,在固定管理系统亦是如此。以往设备员由于缺乏适当的软件而给其工作带来了很多不便。本论文所介绍的便是一个设备管理信息系统,以方便在设备安排和设备管理信息上的工作任务。该系统适用

3、于普通设备的管理,在使用上力求操作容易,界面美观,另外,本系统具有较高的扩展性和可维护性,可能在以后需要的时候进行软件升级。整个系统的开发过程严格遵循软件工程的要求,做到模块化分析、模块化设计和代码编写的模块化。作为计算机应用的一部分,使用计算机对设备信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高设备管理信息的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。-摘要-设备管理信息系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数

4、据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发,完成设备管理信息的全过程,包括每一物品,例如办公设备、家具、计算机及其他有价值的设备分配一个唯一的物品编码,并根据此编码在计算机中建立设备信息库,对设备的新增、领用、折旧等

5、进行管理,使管理人员可对设备的流向进行跟踪,随时掌握设备的现状及公司雇员领用设备情况,减少设备丢失现象,解决查找、盘点困难等问题,提高管理人员的工作效率。因此,开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套设备管理信息系统为例,谈谈其开发过程和所涉及到的问题及解决方法。企业要想不断提高设备的使用效率,并且在预期的时间内收回所投资金和实现预期的投资收益,就要加强设备管理信息。设备管理信息的主要内容有：设备日常管理 设备使用效率管理 设备投资规模变动的边际收入与边际成本分析 设备折旧管理论文主要介绍了本课题的开发背景,所要完成的功能和开发的过程。重点的说明了系统设计的重点、

6、设计思想、难点技术和解决方案。关键字：Visual Basic6.0,控件、窗体、数据库,设备管理信息第一章. 系统需求分析1.1现行业务系统描述设备管理信息对每个企业单位都是十分重要的工作,设备管理信息的好,可以使设备发挥最大效益,杜绝各种不良设备,反之则会造成生产资料利用率低下,甚至造成设备流失。 本管理系统是为适应于的设备管理信息而开发的软件。从设备使用的角度管理设备,协助学校建立一套完善的数据管理模型,提供全面数据的编辑、查询、系统管理等等功能,达到对设备科学管理的目的。企业以前的有关设备管理的工作都是由人工来完成的。随着企业的发展,企业设备处的设备管理信息工作量大大加重。随着计算机应

7、用的发展,很多企业急切希望能够将大部分繁琐的工作交由计算机的处理,已减轻人工的压力并提高工作效率。而计算机的普及更加快了设备管理信息系统的产生。上一代的设备管理信息系统主要采用Foxbase或FoxPro,系统开发环境也是数据库内置的开发工具。其特点是单机单用户方式,开发简单,能充分利用数据库的特性。其缺点是开发出的系统依赖性强,运行必须依托数据库环境；不容易升级与扩展；无法实现数据的共享与并行操作；代码重用性差。原有设备管理信息系统数据共享差的问题更加突出,而新需求的提出也越来越多,越来越频繁。这就要求系统在可扩展性和标准化的要求更高。而原有的系统由于其与生俱来的缺点而无法在适应现有的需求了

8、。因此,使用现在的新技术,开发出适应新的需求的新系统的任务刻不容缓。1.2组织结构和设备管理信息系统由直接关系的主要是后勤管理处：是设备系统管理的主要部门,承担设备管理信息的集中管理。13业务流程分析设备管理信息系统是一个面向设备人员,为其提供服务的综合信息管理系统。设备管理信息人员通过本系统完成相关的日常工作,这些工作也是平常较为繁重的工作。由设备人员在数据编辑中完成对运行设备系统所需的基本数据的维护。包括这些信息的增加、修改、删除等,变动都将在这进行操作。系统开始投入使用时,设备管理信息人员应先根据目前企业和单位的实际情况,建立相关设备的信息,当设备情况发生变动后,设备人员要及时完成对库中

9、的信息进行维护。因为企业的设备数量会不断增多,因此特别设立了一个数据查询模块,可以进行相关设备的快速查询。1.4现行系统存在的主要问题分析现行系统的主要问题归纳起来主要有,1.单机单用户系统,随着网络的发展,原有的单机单用户系统已远远不能满足需要。同时,原有的数据库也不支持多用户的网络运行环境。2系统独立性差,原有系统一般都是使用数据库提供的开发工具编写的程序,因此收数据库的制约比较大,编写出来的程序性能也不好。特别是无法支持如Access, MS SQL Server等新的数据库。3模块性差,由于不是一个完整的编程语言,故无法做到代码的模块化,给功能的扩展带来了巨大的不便。1.5提出可能的解

10、决方案鉴于目前企业对设备管理信息系统的需求与实际情况,新系统方案的重点放在系统的可扩展性上,为了实现这一设计,新系统应具备以下几方面的要求：1新系统采用Visual Basic 6.0开发成功,充分利用该开发程序的优势,提高了工作效率。2新系统从设计到实现都应遵循模块化,是用一致的接口进行信息的传递与模块调用。模块的划分应尽量符合实际业务的划分,以保证以后新模块的加入尽可能少的影响现有功能模块的运行。3、新系统所具有的特性：通用性：用户可根据本校的需求灵活设置设备类别及其数据库结构,可满足不同层次,不同性质,不同业务工作的需求。标准化：提供了丰富完善的设备管理信息内容,为各级设备部门之间的数据

11、共享及数据交换奠定了良好的基础。先进性：采用面向对象技术开发,适应计算机网络技术发展趋势,运行在windows环境下,界面友好操作方便。实用性：具有操作简便、功能适中等特点,运行速度快。1.6可行性分析与决策对于新系统设计的几个关键技术的可行性分析如下,1新系统目前使用VB6.0自带的数据库来作为数据库,这是一个支持多用户的新型数据库,适用于中小规模的数据量需求。企业网的建设也为新系统服务器/客户端的结构提供了硬件的支持。2现在,市场上可以选购的应用开发产品很多,流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的Visual

12、Basic,Microsoft公司的Visual C,Borland公司的Delphi ,Powersoft公司的PowerBulider在目前市场上这些众多的程序开发工具中,有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高,各有各的优点和特色,也满足了不同用户的需求。然而,语言的弹性和工具的便利性是密不可分的,只有便利的工具,却没有弹性的语言作支持,许多特殊化的处理动作必需要耗费数倍的工夫来处理,使得原来所标榜的效率提高的优点失去了作用；相反,如果只强调程语言的弹性,却没有便利的工具作配合,会使一些即使非常简单的界面处理动作,也会严重地浪费程序设计师的

13、宝贵时间。作为数据库系统的开发,Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术,在MIS开发过程中,如何选择数据库管理是一个重要的问题,目前,数据库产品较多,每种产品都具有各自的特点和适用范围,因此,在选择数据库时,应考虑数据库应用的特点及适用范围,本系统选用的数据库语言Visual Basic语言,该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计,可用于开发Windows环境下的种类应用程序。它简单易学、效率高,且功能强大,可以与Windows的专业开发工具SDK相媲美,而且程序开发人员不必具有C/C+

14、编程基础。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的应用程序接口函数,以及动态链接库、动态数据交换、对象的链接与嵌入、开放式数据访问等技术,可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说,Visual Basic具有以下特点：可视化编程：用传统程序设计语言设计程序时,都是通过编写程序代码来设计用户界面,在设计过程中看不到界面的实际显示效果,必须编译后运行程序才能观察。如果对界面的效果不满意,还要回到程序中修改。有时候,这种编程-编译-修改的操作可能要反复多次,大大影响了软件开发效率。Vi

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

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

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

18、干个微小的子程序,即过程。这些过程分别面向不同的对象,由用户操作引发某个事件来驱动完成某种特定的功能,或者由事件驱动程序调用通用过程来执行指定的操作,这样可以方便编程人员,提高效率。访问数据库Visual Basic具有强大的数据库管理功能,利用数据控件和数据库管理窗口,可以直接建立或处理Microsoft Access格式的数据库,并提供了强大的数据存储和检索功能。同时,Visual Basic还能直接编辑和访问其他外部数据库,如dBASE,FoxPro,Paradox等,这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接,即ODBC功能,可

19、通过直接访问或建立连接的方式使用并操作后台大型网络数据库,如SQL Server,Oracle等。在应用程序中,可以使用结构化查询语言SQL数据标准,直接访问服务器上的数据库,并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术,为单机上运行的数据库提供了SQL网络接口,以便在分布式环境中快速而有效地实现客户/服务器方案。动态数据交换利用动态数据交换技术,可以把一种应用程序中的数据动态地链接到另一种应用程序中,使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时,可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术,可

20、以在应用程序中与其他Windows应用程序建立动态数据交换,在不同的应用程序之间进行通信。对象的链接与嵌入对象的链接与嵌入将每个应用程序都看做是一个对象,将不同的对象链接起来,再嵌入某个应用程序中,从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略,它把多个应用程序合为一体,将每个应用程序看做是一个对象进行链接和嵌入,是一种应用程序一体化的技术。利用OLE技术,可以方便地建立复合式文档,这种文档由来自多个不同应用程序的对象组成,文档中的每个对象都与原来的应用程序相联系,并可执行与原来应用程序完全相同的操作。动态链接库Visua

21、l Basic是一种高级程序设计语言,不具备低级语言的功能,对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中,可以像调用内部函数一样调用其他语言编写的函数。此外,通过动态链接库,还可以调用Windows应用程序接口函数,实现SDK所具有的功能。综上所述,新系统的设计与开发在技术上和硬件设备上的条件都是满足的,新系统的开发是可行的。第二章系统设计-系统方案设定企业在充分认识到设备管理信息的重要性下,即使在管理系统的支持下,设备标签的制定、填写或打印、粘贴、设备状态的跟踪,盘点等工作的性质和工作量并没有得到良好的改变

22、和改进。设备管理信息还是手工和计算机管理相结合。设备投资是社会维持简单再生产和扩大再生产的主要手段,适度的投资规模和合理的投资结构对于实现国家经济发展战略具有重大意义。及时、准确、完整地获得全社会投资规模、结构和效益以及前景预测的有关信息,是国家建立宏观调控机制、制定产业政策、提高决策水平、实现全社会总供给与总需求的积极平衡和社会资源合理分配的重要条件。 目前企业对设备投资的管理主要是采用书面文字记录为主、电脑 EXECL 表格统计为辅的方法,随着工作的发展,这种管理的局限性日益突出出来。主要表现在记录、检索和统计时十分不便。 为全面加强对设备投资的宏观管理和指导,企业建立设备管理信息信息系统

23、,对企业宏观经济进行快速检索和统计是必需的。 本系统是一个由多项数据组成的相互紧密关联的开放性系统,既有项目数据、又有文档数据。建设这一系统应当系统地规划设备投资管理体系,健全设备投资管理数据标准,如行业分类标准、分类总投资标准、项目文档分类标准,以及建设性质划分、项目编号标准系统实现功能设备管理信息系统是一套对设备档案、增加、折旧、维修、盘存、清理、转让等进行全面管理的系统。该系统通过采集设备日常工作中所产生的各种原始数据,根据设备管理的要求,对数据进行分类、统计、汇总、分析,建立程序化、制度化、规范化的设备计算机软件管理系统,包括了设备的一般特性、设备状态数据和设备能力数据,及时准确地报出

24、各种报表,为设备管理信息提供了一个现代化的管理手段,这一手段可以强化和规范对设备的管理。便于计划、财务、审计等管理部门的介入,形成严格的监督、约束机制。该系统集信息采集、分类、汇总、分析、查询、统计等各种处理为一体,各种操作既可以通过菜单进行,又可以通过系统的管理树导航进行。信息分类全面,树形管理方便,操作快捷简单,性能强大高效。全中文操作界面,无需计算机专业知识,使用易懂、易会。别具一格的查询统计为您提供了更多的方便！系统支持用户任意修改设计,也可让我们帮您完成。设备管理信息 第三章.Visual basic下的控件所实现的功能Windows下的Visual Basic应用程序基本的构建块是

25、用户所创建的对象,每一个对象都具有一些特性和行为属性、事件和方法。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。Visual Basic应用由一系列对象组成,包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等,对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。_实现菜单选项菜单是程序最重要的特性之一,大多数程序都依赖一个定义良好的菜单使程序易于使用和维护,Visual Basic也提供了强大的创建菜单功能是程序更加标准。您可以使用Visual Basic的Application Wizard也可以使用V

26、isual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单。_ 实现工具栏CoolBar控件与Office97种看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具,同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间你局可以向用户提供更好的灵活性和义用性。Toolbar 是工具条控件,是实现工具条的主体。其中的按钮可以显示图像和标题,并按功能分组或加入分隔符,还可以围棋设置鼠标停留在其上显示的提示字符。Toolbar也是一个控件容器且具有Style属性,并可以为其增加下拉按钮和平滑按钮等。选择工程下拉菜单中的部件选项,显示部件对话框。在控件选项卡

27、列表中选择Microsoft Windows Common Controls 6.0后工具相中增加改控件。其属性及对象如下：1 Align属性定义工具条在窗体中的位置2 ToolTipText属性是字符串类型,定义控件的提示字符3 Style属性定义按钮外观。4 ImageList属性定义与数据条对应的ImageList控件名,该控件定义工具条按钮显示的图像。5 HotImangeList属性设置一个ImageList控件名,该控件定义按钮获得热点时显示的图像。6 DisabledImageList属性定义工具条按钮无效时显示的图像。创建工具条包括ImageList和Toolbar控件Imag

28、eList用于为其他控件提供图像库,将ImageList控件加入到工具箱的操作于前述Toolbar控件相同。_ 帮助专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用,还是仅仅局限于公司内部有限的使用者,我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的Help Workshop4.0 是一套独立于Visual Basic 的用来协助我们创建、运行于32位Windows 操作系统下的帮助文件的工具。使用它我们可以为我们编写的应用程序生成一组帮助文件。_ 关于版本为了是程序显得更具有专业风格,首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订

29、号以及其他类似信息。Visual Basic允许你使用APP对象来保存这些信息,APP对象是一个预定义对象,不需要在程序中创建它。APP对象的大多数属性被应用程序用来提供常规的信息,通过使用这些APP提供的属性,可以在应用程序和用户之间交流重要信息,在项目属性框中可以设置它的属性。第四章.使用Access2000 实现关系型数据库数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息,简而言之,数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库flat-file和关系数据库relational。关系数据库中包含了多个数据表的信息,数据库含有各个不同部

30、分的术语,象记录、域等。_ 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库,设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1标识需要的数据；2收集被标识的字段到表中；3标识主关键字字段；4绘制一个简单的数据图表；5规范数据；6标识指定字段的信息；7创建物理表。_ 修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成,下面的章节将详细描述实现的具体方法。_ 实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表,这种表是在当用户要求从相互关联的各个不同

31、的表中获取信息时建立的,关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段,或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。第五章.系统总体规划_ 系统功能1可以进行文本操作；2添加一个数据库项目；3删除一个数据库项目；4修改一个数据库项目；5查询信息6 系统维护6.1系统数据转出 6.2系统数据转入 6.3修改系统密码 6.4数据初始化7帮助8 退出数据查询设备管理信息系统数据编辑系统维护帮

32、助退出第一个前一个系统登录下一个最后一个添加编辑删除退出搜索全部取消系统数据转出系统数据转入修改系统密码数据初始化第六章系统具体实现主界面实现：功能：对所有设备进行添加,查询,修改,删除操作,对用户密码进行修改,对每条设备信息进行打印。数据编缉界面实现功能：对于设备的编号,设备名称,设备型号,制造商,国别,购买日期,单价,数量,使用单位,使用人,管理员,放置地点,已使用年限,设备来源,报年限,等记录进行录入,删除,修改,打印操作！数据查询界面与功能简介实现对在所有的设备记录中查找某一个设备的说细信息,也可在查询完一个后点 击下一个按钮对下一条记录进行查询。第七章结束语经过一个多月的设计和开发,

33、设备管理信息系统基本开发完毕。其功能基本符合用户需求,能够实现固设备的基本信息的录入、更新、删除、打印等基本功能,从而实现设备的管理。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短,所以该系统还有许多不尽如人意的地方,比如联机文档比较少,用户界面不够美观,出错处理不够等多方面问题。这些都有待进一步改善。致谢在本次毕业设计中,我从指导老师身上学到了很多东西。老师认真负责的工作态度,严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中,都给与我很大的帮助,使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助,感谢他耐心的辅导。另外,在系统开发

34、过程中助手同学也给于我很大的帮助,帮助解决了不少的难点,使得系统能及时开发完成,还有同组的同学同样给与我不少帮助,这里一并表示感谢。第八章主要参考文献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 2000 24学时教程作者：Craig Eddy ,Ti

35、mothy Buchanan出版社：机械工业出版社九 程序源代码、各功能模块的程序流程图登录界面源代码：Private Sub Command1_ClickIf Trim = Trim And Trim = Trim ThenForm2.ShowUnload MeElseFor X = 1 To 1If A1.Recordset.EOF = True ThenMsgBox 您输入的用户名和密码有误,请重新输入！, 16, 出错：Text1.Text = Text2.Text = A1.Recordset.AbsolutePosition = 1Else If Trim = Trim And T

36、rim = Trim Then MDIForm1.Show MDIForm1.Print Command1.Tag MDIForm1.Tag = Text1.Text Unload Me Else X = X - 1 End IfEnd IfNext XEnd IfEnd SubPrivate Sub Command2_ClickUnload MeEnd SubPrivate Sub Form_LoadIf A1.Recordset.EOF = True And A1.Recordset.BOF = True ThenMsgBox 您是第一次使用本程序,请设置超级用户！, 32, 设置：For

37、m2.ShowUnload MeEnd IfEnd Sub系统主界面代码：Private Sub gycx_ClickfrmAbout.ShowEnd SubPrivate Sub sjbj_ClickForm3.ShowEnd SubPrivate Sub sjcx_ClickForm5.ShowEnd SubPrivate Sub sjdy_ClickForm4.ShowEnd SubPrivate Sub tc_ClickUnload MeEnd SubPrivate Sub Toolbar1_ButtonClickSelect Case Button.Index Case 1 Form

38、3.Show Case 2 Form5.Show Case 3 Form2.Show Case 4 Form4.Show Case 5 frmAbout.Show Case 6 Unload MeEnd SelectEnd Sub设备信息代码Private Sub Command1_ClickIf Command1.Tag = True ThenIf Command1.Caption = 输入新记录 Thenr = 1 If A1.Recordset.BOF = True And A1.Recordset.EOF = True Then Else End IfFor X = 1 To 1 If

39、 A1.Recordset.EOF = True Then A1.Tag = Y Exit For Else End IfX = X - 1r = r + 1Next XLabel3.Caption = rCommand1.Caption = 输入完毕Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseForm3.Height = 8220Form3.Top = 300F1.Visible = TrueElse If t3.Text = Then MsgB

40、ox 设备不能为空！, 16, 出错： t3.Text = 123 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 LenTrimt3.Text 200 Then MsgBox 字符不能超过200个！, 16,

41、 出错： Exit Sub End If Next X 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_Cli

42、ckFor X = 0 To 6If A1.Recordset.EOF = True ThenMsgBox 您已经位于最后一条记录, 32, 提示：Exit SubElseEnd IfNext XEnd SubPrivate Sub Command11_ClickForm10.ShowUnload MeEnd SubPrivate Sub Command2_ClickIf Command2.Tag = True ThenIf A1.Recordset.EOF = True And A1.Recordset.BOF = True ThenMsgBox 您的数据库中没有记录！, 16, 出错：El

43、seIf Command2.Caption = 查询 Then Command8.Caption = 显示信息Form3.Top = 700Form3.Height = 5670Command2.Caption = 结束查询F3.Visible = TrueCommand1.Enabled = FalseCommand4.Enabled = FalseCommand3.Enabled = FalseElseCommand2.Caption = 查询Command8.Caption = 打印Form3.Top = 1500Form3.Height = 5728Form3.Left = 600Co

44、mmand1.Enabled = TrueCommand4.Enabled = TrueCommand3.Enabled = TrueF3.Visible = FalseEnd IfEnd IfElseMsgBox 您没有这个权限！, 16, 出错：End IfEnd SubPrivate Sub Command3_ClickIf Command1.Tag = True ThenIf A1.Recordset.EOF = True And A1.Recordset.BOF = True ThenMsgBox 您的数据库中没有记录！, 16, 出错：ElseIf Command3.Caption

45、 = 修改记录 ThenCommand3.Caption = 修改完毕Command2.Enabled = FalseCommand1.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseForm3.Height = 8220Form3.Top = 300F1.Visible = TrueF1.Caption = 修改记录：ElseIf t3.Text = ThenMsgBox 设备不能为空！, 16, 出错：Else For X = 11 To 13 If LenTrimt3.Text 200 Then MsgBox

46、字符不能超过200个！, 16, 出错： Exit Sub End If Next XCommand3.Caption = 修改记录Command2.Enabled = TrueCommand1.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueForm3.Height = 5728Form3.Left = 600Form3.Top = 1500F1.Visible = FalseF1.Caption = 数据输入：End IfEnd IfEnd IfElseMsgBox 您没有这个权限！, 16, 出错：End IfEnd

47、 SubPrivate Sub Command4_ClickUnload MeEnd SubPrivate Sub Command5_ClickIf Command1.Tag = True ThenIf A1.Recordset.EOF = True Or A1.Recordset.BOF = True ThenMsgBox 您的数据库中没有记录可以删除！, 16, 出错：ElseY = 1For X = 1 To 1 If A1.Recordset.EOF = True Then If A1.Recordset.BOF = True Then Else End If Exit For Els

48、e Label3.Caption = Y Y = Y + 1 X = X - 1 End IfNext XEnd IfElseMsgBox 您没有这个权限！, 16, 出错：End IfEnd SubPrivate Sub Command6_ClickFor X = 0 To 7 If t17.Text = Then Else Command6.Tag = t17.Text Command7.Tag = X Call cx Exit Sub End IfNext XMsgBox 您没有输入要查询的值！, 16, 出错：End SubSub cxFor X = 1 To 1 If Trim =

49、Trimt3Val.Text Then Exit Sub Else If A1.Recordset.EOF = True Then Else End If If A1.Recordset.EOF = True Then MsgBox 没有找你到要查询的记录！, 32, 提示： Exit Sub Else X = X - 1 End If End IfNext XEnd SubPrivate Sub Command7_ClickFor X = 0 To 7 If t17.Text = Then Else Command6.Tag = t17.Text Command7.Tag = X If A1

50、.Recordset.EOF = True Then Else End If Call cx Exit Sub End IfNext XMsgBox 您没有输入要查询的值！, 16, 出错：End SubPrivate Sub Command8_ClickForm4.ShowEnd SubPrivate Sub Command9_ClickFor X = 0 To 6If A1.Recordset.BOF = True ThenMsgBox 您已经位于第一条记录, 32, 提示：Exit SubElseEnd IfNext XEnd SubPrivate Sub F3_DragDropEnd

51、SubPrivate Sub Form_UnloadIf Command4.Enabled = True ThenCancel = 0ElseMsgBox 请编辑完这条记录再退出！, 64, 提示： Cancel = 1End IfEnd Sub设备查询源代码：Private Sub Command2_ClickIf A1.Recordset.EOF = True And A1.Recordset.BOF = True ThenMsgBox 您的数据库中没有记录！, 16, 出错：ElseIf Command2.Caption = 查询 Then Command8.Caption = 显示信息

52、Form3.Top = 700Form3.Height = 5670Command2.Caption = 结束查询F3.Visible = TrueCommand4.Enabled = FalseElseCommand2.Caption = 查询Command8.Caption = 打印Form3.Top = 1500Form3.Height = 5728Form3.Left = 600Command4.Enabled = TrueF3.Visible = FalseEnd IfEnd IfEnd SubPrivate Sub Command4_ClickUnload MeEnd SubSub

53、 cxFor X = 1 To 1 If Trim = Trimt3Val.Text Then Exit Sub Else If A1.Recordset.EOF = True Then Else End If If A1.Recordset.EOF = True Then MsgBox 没有找你到要查询的记录！, 32, 提示： Exit Sub Else X = X - 1 End If End IfNext XEnd SubPrivate Sub Command6_ClickFor X = 0 To 7 If t17.Text = Then Else Command6.Tag = t17

54、.Text Command7.Tag = X Call cx Exit Sub End IfNext XMsgBox 您没有输入要查询的值！, 16, 出错：End SubPrivate Sub Command8_ClickForm4.ShowEnd SubPrivate Sub Command9_ClickFor X = 0 To 6If A1.Recordset.BOF = True ThenMsgBox 您已经位于第一条记录, 32, 提示：Exit SubElseviousEnd IfNext XEnd SubPrivate Sub D1_ClickEnd SubPrivate Sub Form_UnloadIf Command4.Enabled = True ThenCancel = 0ElseMsgBox 请编辑完这条记录再退出！, 64, 提示： Cancel = 1End IfEnd Sub.