设备管理信息系统论文.docx

精品文档就在这里
-------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------------
--------------------------------------------------------------------------------------------------------------------------------------------

大学毕业设计论文

课题 设备管理信息系统

姓 名
学 科 专 业 计算机网络
指 导 教 师

学 号 12

日期: 2004年5月

目 录
前言―――――――――――――――――――――――
摘要―――――――――――――――――――――――
第一章 系统需求分析
第二章　系统设计
2．1系统方案确定
2．2系统功能实现
第三章 怎样开发一个人事工资管理系统？
3．1 编程环境的选择
3．2 关系型数据库的实现
3．3 二者的结合（DBA）
第四章 Visual basic下的控件所实现的功能
4．1实现菜单选项
4．2 实现工具栏
4．3 帮助
第五章 系统总体规划
5．1 系统功能
5．2 流程图
第六章 系统具体实现
6.1 用户界面的实现
6.2 数据库的实现
第七章 结束语

第八章 主要参考文献

第九章 程序源代码、各功能模块的程序流程图

--------------前言--------------
设备管理信息系统是一个企事业单位不可缺少的部分,它的内容对于企事业单位的决策者和管理者来说都至关重要,所以设备管理信息系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理设备的信息，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。本论文主要介绍的是设备管理信息系统的整个设计过程。
随着计算机技术的不断发展，计算机应用于各大领域，并给人们的生活带来了极大的便利，在固定管理系统亦是如此。以往设备员由于缺乏适当的软件而给其工作带来了很多不便。本论文所介绍的便是一个设备管理信息系统，以方便在设备安排和设备管理信息上的工作任务。
该系统适用于普通设备的管理，在使用上力求操作容易，界面美观，另外，本系统具有较高的扩展性和可维护性，可能在以后需要的时候进行软件升级。
整个系统的开发过程严格遵循软件工程的要求，做到模块化分析、模块化设计和代码编写的模块化。
作为计算机应用的一部分,使用计算机对设备信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高设备管理信息的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
--------------摘要--------------
设备管理信息系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成设备管理信息的全过程，包括每一物品，例如办公设备、家具、计算机及其他有价值的设备分配一个唯一的物品编码，并根据此编码在计算机中建立设备信息库，对设备的新增、领用、折旧等进行管理，使管理人员可对设备的流向进行跟踪，随时掌握设备的现状及公司雇员领用设备情况，减少设备丢失现象，解决查找、盘点困难等问题，提高管理人员的工作效率。因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套设备管理信息系统为例,谈谈其开发过程和所涉及到的问题及解决方法。
企业要想不断提高设备的使用效率，并且在预期的时间内收回所投资金和实现预期的投资收益，就要加强设备管理信息。设备管理信息的主要内容有：
• 设备日常管理
• 设备使用效率管理
• 设备投资规模变动的边际收入与边际成本分析
• 设备折旧管理
论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。
关键字：Visual Basic6.0，控件、窗体、数据库，设备管理信息
第一章. 系统需求分析
1.1现行业务系统描述
设备管理信息对每个企业单位都是十分重要的工作，设备管理信息的好，可以使设备发挥最大效益，杜绝各种不良设备，反之则会造成生产资料利用率低下，甚至造成设备流失。
本管理系统是为适应于的设备管理信息而开发的软件。从设备使用的角度管理设备，协助学校建立一套完善的数据管理模型，提供全面数据的编辑、查询、系统管理等等功能，达到对设备科学管理的目的。
企业以前的有关设备管理的工作都是由人工来完成的。随着企业的发展，企业设备处的设备管理信息工作量大大加重。随着计算机应用的发展，很多企业急切希望能够将大部分繁琐的工作交由计算机的处理，已减轻人工的压力并提高工作效率。而计算机的普及更加快了设备管理信息系统的产生。
上一代的设备管理信息系统主要采用Foxbase或FoxPro,系统开发环境也是数据库内置的开发工具。其特点是单机单用户方式，开发简单，能充分利用数据库的特性。其缺点是开发出的系统依赖性强，运行必须依托数据库环境；不容易升级与扩展；无法实现数据的共享与并行操作；代码重用性差。
原有设备管理信息系统数据共享差的问题更加突出，而新需求的提出也越来越多，越来越频繁。这就要求系统在可扩展性和标准化的要求更高。而原有的系统由于其与生俱来的缺点而无法在适应现有的需求了。
因此，使用现在的新技术，开发出适应新的需求的新系统的任务刻不容缓。
1.2组织结构
和设备管理信息系统由直接关系的主要是后勤管理处：
是设备系统管理的主要部门，　承担设备管理信息的集中管理。
1．3业务流程分析
设备管理信息系统是一个面向设备人员，为其提供服务的综合信息管理系统。设备管理信息人员通过本系统完成相关的日常工作，这些工作也是平常较为繁重的工作。
由设备人员在数据编辑中完成对运行设备系统所需的基本数据的维护。包括这些信息的增加、修改、删除等，变动都将在这进行操作。系统开始投入使用时，设备管理信息人员应先根据目前企业和单位的实际情况，建立相关设备的信息，当设备情况发生变动后，设备人员要及时完成对库中的信息进行维护。因为企业的设备数量会不断增多，因此特别设立了一个数据查询模块，可以进行相关设备的快速查询。
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 Basic的Application 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提供的属性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以设置它的属性。

第四章.使用Access2000 实现关系型数据库
数据库的概念
数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（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 2000 24学时教程
作者：Craig Eddy ，Timothy Buchanan
出版社：机械工业出版社
九． 程序源代码、各功能模块的程序流程图
――――登录界面源代码：

Private Sub Command1_Click()
If Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) = Trim(Text4.Text) Then
Form2.Show
Unload Me
Else
For X = 1 To 1
If A1.Recordset.EOF = True Then
MsgBox "您输入的用户名和密码有误，请重新输入！", 16, "出错："
Text1.Text = ""
Text2.Text = ""
A1.Recordset.AbsolutePosition = 1
Else
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 If
End If
Next X
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then
MsgBox "您是第一次使用本程序，请设置超级用户！", 32, "设置："
Form2.Show
Unload Me
End If
End Sub
――――系统主界面代码：

Private Sub gycx_Click()
frmAbout.Show
End Sub

Private Sub sjbj_Click()
Form3.Show
End Sub

Private Sub sjcx_Click()
Form5.Show
End Sub

Private Sub sjdy_Click()
Form4.Show
End Sub

Private Sub tc_Click()
Unload Me
End Sub

Private 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 Select

End Sub

――――设备信息代码

Private Sub Command1_Click()
If Command1.Tag = "True" Then
If Command1.Caption = "输入新记录" Then
r = 1
If A1.Recordset.BOF = True And A1.Recordset.EOF = True Then
Else
A1.Recordset.MoveFirst
End If
For X = 1 To 1
If A1.Recordset.EOF = True Then
A1.Tag = Y
Exit For
Else
A1.Recordset.MoveNext
End If
X = X - 1
r = r + 1
Next X
A1.Recordset.AddNew
Label3.Caption = r
Command1.Caption = "输入完毕"
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Form3.Height = 8220
Form3.Top = 300
F1.Visible = True
Else
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 If
End If
Else
MsgBox "您没有这个权限！", 16, "出错："
End If
End Sub

Private Sub Command10_Click()
For X = 0 To 6
If A1.Recordset.EOF = True Then
MsgBox "您已经位于最后一条记录", 32, "提示："
A1.Recordset.MovePrevious
Exit Sub
Else
A1.Recordset.MoveNext
End If
Next X
End Sub

Private Sub Command11_Click()
Form10.Show
Unload Me
End Sub

Private Sub Command2_Click()
If Command2.Tag = "True" Then
If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then
MsgBox "您的数据库中没有记录！", 16, "出错："
Else
If Command2.Caption = "查询" Then