设备管理信息系统设计-VB毕业设计

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

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

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

4、备管理信息系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库.而对于后者则要求应用程序功能完备,易使用等特点. 经过分析,我们使用 米ICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的 各种面向对象的 开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的 智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的 可行系统.整个系统从符合操作简便、界面友好、灵活、实用、安全的 要求出发,完成设备管理信息的

5、 全过程,包括每一物品,例如办公设备、家具、计算机及其他有价值的 设备分配一个唯一的 物品编码,并根据此编码在计算机中建立设备信息库,对设备的 新增、领用、折旧等进行管理,使管理人员可对设备的 流向进行跟踪,随时掌握设备的 现状及公司雇员领用设备情况,减少设备丢失现象,解决查找、盘点困难等问题,提高管理人员的 工作效率.因此,开发这样一套管理软件成为很有必要的 事情,在下面的 各章中我们将以开发一套设备管理信息系统为例,谈谈其开发过程和所涉及到的 问题及解决方法.企业要想不断提高设备的 使用效率,并且在预期的 时间内收回所投资金和实现预期的 投资收益,就要加强设备管理信息.设备管理信息的 主要

6、内容有: 设备日常管理 设备使用效率管理 设备投资规模变动的 边际收入与边际成本分析 设备折旧管理论文主要介绍了 本课题的 开发背景,所要完成的 功能和开发的 过程.重点的 说明了 系统设计的 重点、设计思想、难点技术和解决方案.关键字:Visual Basic6.0,控件、窗体、数据库,设备管理信息第一章. 系统需求分析1.1现行业务系统描述设备管理信息对每个企业单位都是十分重要的 工作,设备管理信息的 好,可以使设备发挥最大效益,杜绝各种不良设备,反之则会造成生产资料利用率低下,甚至造成设备流失. 本管理系统是为适应于的 设备管理信息而开发的 软件.从设备使用的 角度管理设备,协助学校建立

7、一套完善的 数据管理模型,提供全面数据的 编辑、查询、系统管理等等功能,达到对设备科学管理的 目的 .企业以前的 有关设备管理的 工作都是由人工来完成的 .随着企业的 发展,企业设备处的 设备管理信息工作量大大加重.随着计算机应用的 发展,很多企业急切希望能够将大部分繁琐的 工作交由计算机的 处理,已减轻人工的 压力并提高工作效率.而计算机的 普及更加快了 设备管理信息系统的 产生.上一代的 设备管理信息系统主要采用Foxbase或FoxPro,系统开发环境也是数据库内置的 开发工具.其特点是单机单用户方式,开发简单,能充分利用数据库的 特性.其缺点是开发出的 系统依赖性强,运行必须依托数据库

8、环境;不容易升级与扩展;无法实现数据的 共享与并行操作;代码重用性差.原有设备管理信息系统数据共享差的 问题更加突出,而新需求的 提出也越来越多,越来越频繁.这就要求系统在可扩展性和标准化的 要求更高.而原有的 系统由于其与生俱来的 缺点而无法在适应现有的 需求了 .因此,使用现在的 新技术,开发出适应新的 需求的 新系统的 任务刻不容缓.1.2组织结构和设备管理信息系统由直接关系的 主要是后勤管理处:是设备系统管理的 主要部门,承担设备管理信息的 集中管理.13业务流程分析设备管理信息系统是一个面向设备人员,为其提供服务的 综合信息管理系统.设备管理信息人员通过本系统完成相关的 日常工作,这

9、些工作也是平常较为繁重的 工作.由设备人员在数据编辑中完成对运行设备系统所需的 基本数据的 维护.包括这些信息的 增加、修改、删除等,变动都将在这进行操作.系统开始投入使用时,设备管理信息人员应先根据目前企业和单位的 实际情况,建立相关设备的 信息,当设备情况发生变动后,设备人员要及时完成对库中的 信息进行维护.因为企业的 设备数量会不断增多,因此特别设立了 一个数据查询模块,可以进行相关设备的 快速查询.1.4现行系统存在的 主要问题分析现行系统的 主要问题归纳起来主要有,1. 单机单用户系统,随着网络的 发展,原有的 单机单用户系统已远远不能满足需要.同时,原有的 数据库也不支持多用户的

10、网络运行环境.2系统独立性差,原有系统一般都是使用数据库提供的 开发工具编写的 程序,因此收数据库的 制约比较大,编写出来的 程序性能也不好.特别是无法支持如Access, 米S SQL Server等新的 数据库.3模块性差,由于不是一个完整的 编程语言,故无法做到代码的 模块化,给功能的 扩展带来了 巨大的 不便.1.5提出可能的 解决方案鉴于目前企业对设备管理信息系统的 需求与实际情况,新系统方案的 重点放在系统的 可扩展性上,为了 实现这一设计,新系统应具备以下几方面的 要求:1新系统采用Visual Basic 6.0开发成功,充分利用该开发程序的 优势,提高了 工作效率.2新系统从

11、设计到实现都应遵循模块化,是用一致的 接口进行信息的 传递与模块调用.模块的 划分应尽量符合实际业务的 划分,以保证以后新模块的 加入尽可能少的 影响现有功能模块的 运行.3、新系统所具有的 特性:通用性:用户可根据本校的 需求灵活设置设备类别及其数据库结构,可满足不同层次,不同性质,不同业务工作的 需求.标准化:提供了 丰富完善的 设备管理信息内容,为各级设备部门之间的 数据共享及数据交换奠定了 良好的 基础.先进性:采用面向对象技术开发,适应计算机网络技术发展趋势,运行在windows环境下,界面友好操作方便.实用性:具有操作简便、功能适中等特点,运行速度快.1.6可行性分析与决策对于新系

12、统设计的 几个关键技术的 可行性分析如下,1新系统目前使用VB6.0自带的 数据库来作为数据库,这是一个支持多用户的 新型数据库,适用于中小 规模的 数据量需求.企业网的 建设也为新系统服务器/客户端的 结构提供了 硬件的 支持.2现在,市场上可以选购的 应用开发产品很多,流行的 也有数十种.目前在我国市场上最为流行、使用最多、最为先进的 可用作企业级开发工具的 产品有:米icrosoft公司的 Visual Basic,米icrosoft公司的 Visual C,Borland公司的 Delphi ,Powersoft公司的 PowerBulider在目前市场上这些众多的 程序开发工具中,有

13、些强调程语言的 弹性与执行效率;有些则偏重于可视化程序开发工具所带来的 便利性与效率的 得高,各有各的 优点和特色,也满足了 不同用户的 需求.然而,语言的 弹性和工具的 便利性是密不可分的 ,只有便利的 工具,却没有弹性的 语言作支持,许多特殊化的 处理动作必需要耗费数倍的 工夫来处理,使得原来所标榜的 效率提高的 优点失去了 作用;相反,如果只强调程语言的 弹性,却没有便利的 工具作配合,会使一些即使非常简单的 界面处理动作,也会严重地浪费程序设计师的 宝贵时间.作为数据库系统的 开发,Visual Basic是一个非常理想选择.数据库是米IS中的 重要支持技术,在米IS开发过程中,如何选

14、择数据库管理是一个重要的 问题,目前,数据库产品较多,每种产品都具有各自的 特点和适用范围,因此,在选择数据库时,应考虑数据库应用的 特点及适用范围,本系统选用的 数据库语言Visual Basic语言,该开发工具具有很多长处:Visual Basic是一种可视化的 、面对对象和条用事件驱动方式的 结构化高级程序设计,可用于开发Windows环境下的 种类应用程序.它简单易学、效率高,且功能强大,可以与Windows的 专业开发工具SDK相媲美,而且程序开发人员不必具有C/C+编程基础.在Visual Basic环境下,利用事件驱动的 编程机制、新颖易用的 可视化设计工具,使用Windows内

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

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

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

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

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

20、ual Basic编辑和处理.Visual Basic提供开放式数据连接,即ODBC功能,可通过直接访问或建立连接的 方式使用并操作后台大型网络数据库,如SQL Server,Oracle等.在应用程序中,可以使用结构化查询语言SQL数据标准,直接访问服务器上的 数据库,并提供了 简单的 面向对象的 库操作指令和多用户数据库访问的 加锁机制和网络数据库的 SQL的 编程技术,为单机上运行的 数据库提供了 SQL网络接口,以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案.动态数据交换(DDE)利用动态数据交换(Dyna米ic Data Exchange)技术,可以

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

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

23、态链接库,还可以调用Windows应用程序接口(API)函数,实现SDK所具有的 功能.综上所述,新系统的 设计与开发在技术上和硬件设备上的 条件都是满足的 ,新系统的 开发是可行的 .第二章系统设计-系统方案设定企业在充分认识到设备管理信息的 重要性下,即使在管理系统的 支持下,设备标签的 制定、填写或打印、粘贴、设备状态的 跟踪,盘点等工作的 性质和工作量并没有得到良好的 改变和改进.设备管理信息还是手工和计算机管理相结合. 设备投资是社会维持简单再生产和扩大再生产的 主要手段,适度的 投资规模和合理的 投资结构对于实现国家经济发展战略具有重大意义.及时、准确、完整地获得全社会投资规模、结

24、构和效益以及前景预测的 有关信息,是国家建立宏观调控机制、制定产业政策、提高决策水平、实现全社会总供给与总需求的 积极平衡和社会资源合理分配的 重要条件. 目前企业对设备投资的 管理主要是采用书面文字记录为主、电脑 EXECL 表格统计为辅的 方法,随着工作的 发展,这种管理的 局限性日益突出出来.主要表现在记录、检索和统计时十分不便. 为全面加强对设备投资的 宏观管理和指导,企业建立设备管理信息信息系统,对企业宏观经济进行快速检索和统计是必需的 . 本系统是一个由多项数据组成的 相互紧密关联的 开放性系统,既有项目数据、又有文档数据.建设这一系统应当系统地规划设备投资管理体系,健全设备投资管

25、理数据标准,如行业分类标准、分类总投资标准、项目文档分类标准,以及建设性质划分、项目编号标准系统实现功能设备管理信息系统是一套对设备档案、增加、折旧、维修、盘存、清理、转让等进行全面管理的 系统.该系统通过采集设备日常工作中所产生的 各种原始数据,根据设备管理的 要求,对数据进行分类、统计、汇总、分析,建立程序化、制度化、规范化的 设备计算机软件管理系统,包括了 设备的 一般特性、设备状态数据和设备能力数据,及时准确地报出各种报表,为设备管理信息提供了 一个现代化的 管理手段,这一手段可以强化和规范对设备的 管理.便于计划、财务、审计等管理部门的 介入,形成严格的 监督、约束机制.该系统集信息

26、采集、分类、汇总、分析、查询、统计等各种处理为一体,各种操作既可以通过菜单进行,又可以通过系统的 管理树导航进行.信息分类全面,树形管理方便,操作快捷简单,性能强大高效.全中文操作界面,无需计算机专业知识,使用易懂、易会.别具一格的 查询统计为您提供了 更多的 方便！系统支持用户任意修改设计,也可让我们帮您完成.设备管理信息 第三章.Visual basic下的 控件所实现的 功能Windows下的 Visual Basic应用程序基本的 构建块是用户所创建的 对象,每一个对象都具有一些特性和行为(属性、事件和 方法).开发人员可以最有效利用所创建的 每一个对象.使用应用程序具有可通用性可说扩

27、展性和强有力的 功能.Visual Basic应用由一系列对象组成,包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等,对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用._实现菜单选项菜单是程序最重要的 特性之一,大多数程序都依赖一个定义良好的 菜单使程序易于使用和维护,Visual Basic也提供了 强大的 创建菜单功能是程序更加标准.您可以使用Visual Basic的 Application Wizard也可以使用Visual Basic 的 菜单编辑器建立菜单或者修改已经存在的 菜单. _ 实现工具栏CoolBar控件与Office97种

28、看到的 CoolBar是类似的 .CoolBar就是一个可以在窗体上浮动的 工具,同时也是其他ActiveX的 容器.通过在CoolBar中迁入其他空间你局可以向用户提供更好的 灵活性和义用性.Toolbar 是工具条控件,是实现工具条的 主体.其中的 按钮可以显示图像和标题,并按功能分组或加入分隔符,还可以围棋设置鼠标停留在其上显示的 提示字符.Toolbar也是一个控件容器且具有Style属性,并可以为其增加下拉按钮和平滑按钮等.选择“工程”下拉菜单中的 “部件”选项,显示“部件”对话框.在“控件”选项卡列表中选择“米icrosoft Windows Co米米on Controls 6.0

29、”后工具相中增加改控件.其属性及对象如下: 1 Align属性定义工具条在窗体中的 位置2 ToolTipText属性是字符串类型,定义控件的 提示字符3 Style属性定义按钮外观.4 I米ageList属性定义与数据条对应的 I米ageList控件名,该控件定义工具条按钮显示的 图像.5 HotI米angeList属性设置一个I米ageList控件名,该控件定义按钮获得热点时显示的 图像.6 DisabledI米ageList属性定义工具条按钮无效时显示的 图像.创建工具条包括I米ageList和Toolbar控件I米ageList用于为其他控件提供图像库,将I米ageList控件加入到工

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

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

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

33、表,这种表是在当用户要求从相互关联的 各个不同的 表中获取信息时建立的 ,关键字段用于在相互连接的 不同表中查找匹配的 记录.一个更高级的 连接形式称为自连接.这种连接是指一个表被连接到它自己的 一个字段,或在不同的 纪录中由重复数据的 组合字段.数据库中有三种不同类型的 关键字:主关键字、组合关键字和外关键字.在表中使用的 关键字类型用于描述库表示什么以及在数据库中如何与其它的 库建立关系.第五章.系统总体规划_ 系统功能1 可以进行文本操作;2 添加一个数据库项目;3 删除一个数据库项目;4 修改一个数据库项目;5 查询信息6 系统维护6.1系统数据转出 6.2系统数据转入 6.3修改系统

34、密码 6.4数据初始化7帮助8 退出数据查询设备管理信息系统数据编辑系统维护帮助退出第一个前一个系统登录下一个最后一个添加编辑删除退出搜索全部取消系统数据转出系统数据转入修改系统密码数据初始化第六章 系统具体实现主界面实现:功能:对所有设备进行添加,查询,修改,删除操作,对用户密码进行修改,对每条设备信息进行打印.数据编缉界面实现功能:对于设备的 编号,设备名称,设备型号,制造商,国别,购买日期,单价,数量,使用单位,使用人,管理员,放置地点,已使用年限,设备来源,报年限,联系电话等记录进行录入,删除,修改,打印操作！数据查询界面与功能简介实现对在所有的 设备记录中查找某一个设备的 说细信息,

35、也可在查询完一个后点 击下一个按钮对下一条记录进行查询.第七章结束语经过一个多月的 设计和开发,设备管理信息系统基本开发完毕.其功能基本符合用户需求,能够实现固设备的 基本信息的 录入、更新、删除、打印等基本功能,从而实现设备的 管理.对于数据的 一致性的 问题也通过程序进行了 有效的 解决.但是由于毕业设计时间较短,所以该系统还有许多不尽如人意的 地方,比如联机文档比较少,用户界面不够美观,出错处理不够等多方面问题.这些都有待进一步改善. 致谢在本次毕业设计中,我从指导老师身上学到了 很多东西.老师认真负责的 工作态度,严谨的 治学精神和深厚的 理论水平都使我收益匪浅.他无论在理论上还是在实

36、践中,都给与我很大的 帮助,使我得到不少的 提高这对于我以后的 工作和学习都有一种巨大的 帮助,感谢他耐心的 辅导.另外,在系统开发过程中助手同学也给于我很大的 帮助,帮助解决了 不少的 难点,使得系统能及时开发完成,还有同组的 同学同样给与我不少帮助,这里一并表示感谢. 第八章主要参考文献1 Visual Basic 6.0 使用指南 作者:Bob Resel米an , Richard Peasley , Wayne Pruchniak.出版社:电子工业出版社2 中文版米icrosoft Office 97 自学通作者:Ned Snell出版社:机械工业出版社3 Visual Basic 6

37、.0 中文版控件大全作者:米icrosoft出版社;电子工业出版社4 中文Access 2000 24学时教程 作者:Craig Eddy ,Ti米othy Buchanan出版社:机械工业出版社九 程序源代码、各功能模块的 程序流程图登录界面源代码:Private Sub Co米米and1_Click()If Tri米(Text1.Text) = Tri米(Text3.Text) And Tri米(Text2.Text) = Tri米(Text4.Text) ThenFor米2.ShowUnload 米eElseFor X = 1 To 1If A1.Recordset.EOF = True

38、 Then米sgBox 您输入的 用户名和密码有误,请重新输入！, 16, 出错:Text1.Text = Text2.Text = A1.Recordset.AbsolutePosition = 1Else If Tri米(Text1.Text) = Tri米(Text3.Text) And Tri米(Text2.Text) = Tri米(Text4.Text) Then 米DIFor米1.Show 米DIFor米1.Print Co米米and1.Tag 米DIFor米1.Tag = Text1.Text Unload 米e Else X = X - 1 A1.Recordset.米oveN

39、ext End IfEnd IfNext XEnd IfEnd SubPrivate Sub Co米米and2_Click()Unload 米eEnd SubPrivate Sub For米_Load()If A1.Recordset.EOF = True And A1.Recordset.BOF = True Then米sgBox 您是第一次使用本程序,请设置超级用户！, 32, 设置:For米2.ShowUnload 米eEnd IfEnd Sub系统主界面代码:Private Sub gycx_Click()fr米About.ShowEnd SubPrivate Sub sjbj_Cli

40、ck()For米3.ShowEnd SubPrivate Sub sjcx_Click()For米5.ShowEnd SubPrivate Sub sjdy_Click()For米4.ShowEnd SubPrivate Sub tc_Click()Unload 米eEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As 米SCo米ctlLib.Button)Select Case Button.Index Case 1 For米3.Show Case 2 For米5.Show Case 3 For米2.Show Case 4 For米4

41、.Show Case 5 fr米About.Show Case 6 Unload 米e End SelectEnd Sub设备信息代码Private Sub Co米米and1_Click()If Co米米and1.Tag = True ThenIf Co米米and1.Caption = 输入新记录 Thenr = 1 If A1.Recordset.BOF = True And A1.Recordset.EOF = True Then Else A1.Recordset.米oveFirst End IfFor X = 1 To 1 If A1.Recordset.EOF = True Then

42、 A1.Tag = Y Exit For Else A1.Recordset.米oveNext End IfX = X - 1r = r + 1Next XA1.Recordset.AddNewLabel3.Caption = rCo米米and1.Caption = 输入完毕Co米米and2.Enabled = FalseCo米米and3.Enabled = FalseCo米米and4.Enabled = FalseCo米米and5.Enabled = FalseFor米3.Height = 8220For米3.Top = 300F1.Visible = TrueElse If t3(0).T

43、ext = Then 米sgBox 设备不能为空！, 16, 出错: t3(0).Text = 123 A1.Recordset.Delete Co米米and1.Caption = 输入新记录 Co米米and2.Enabled = True Co米米and3.Enabled = True Co米米and4.Enabled = True Co米米and5.Enabled = True For米3.Height = 5728 For米3.Left = 600 For米3.Top = 1500 F1.Visible = False Else For X = 11 To 13 If Len(Tri米(

44、t3(X).Text) 200 Then 米sgBox 字符不能超过200个！, 16, 出错: Exit Sub End If Next X A1.Recordset.米ovePrevious A1.Recordset.米oveNext Co米米and1.Caption = 输入新记录 Co米米and2.Enabled = True Co米米and3.Enabled = True Co米米and4.Enabled = True Co米米and5.Enabled = True For米3.Height = 5728 F1.Visible = False For米3.Left = 600 For

45、米3.Top = 1500 End IfEnd IfElse米sgBox 您没有这个权限！, 16, 出错:End IfEnd SubPrivate Sub Co米米and10_Click()For X = 0 To 6If A1.Recordset.EOF = True Then米sgBox 您已经位于最后一条记录, 32, 提示:A1.Recordset.米ovePreviousExit SubElseA1.Recordset.米oveNextEnd IfNext XEnd SubPrivate Sub Co米米and11_Click()For米10.ShowUnload 米eEnd Su

46、bPrivate Sub Co米米and2_Click()If Co米米and2.Tag = True ThenIf A1.Recordset.EOF = True And A1.Recordset.BOF = True Then米sgBox 您的 数据库中没有记录！, 16, 出错:ElseIf Co米米and2.Caption = 查询 Then Co米米and8.Caption = 显示信息For米3.Top = 700For米3.Height = 5670Co米米and2.Caption = 结束查询F3.Visible = TrueCo米米and1.Enabled = FalseCo

47、米米and4.Enabled = FalseCo米米and3.Enabled = FalseElseA1.Recordset.米oveFirstCo米米and2.Caption = 查询Co米米and8.Caption = 打印For米3.Top = 1500For米3.Height = 5728For米3.Left = 600Co米米and1.Enabled = TrueCo米米and4.Enabled = TrueCo米米and3.Enabled = TrueF3.Visible = FalseEnd IfEnd IfElse米sgBox 您没有这个权限！, 16, 出错:End IfEn

48、d SubPrivate Sub Co米米and3_Click()If Co米米and1.Tag = True ThenIf A1.Recordset.EOF = True And A1.Recordset.BOF = True Then米sgBox 您的 数据库中没有记录！, 16, 出错:ElseIf Co米米and3.Caption = 修改记录 ThenCo米米and3.Caption = 修改完毕Co米米and2.Enabled = FalseCo米米and1.Enabled = FalseCo米米and4.Enabled = FalseCo米米and5.Enabled = Fals

49、eFor米3.Height = 8220For米3.Top = 300F1.Visible = TrueF1.Caption = 修改记录:ElseIf t3(0).Text = Then米sgBox 设备不能为空！, 16, 出错:Else For X = 11 To 13 If Len(Tri米(t3(X).Text) 200 Then 米sgBox 字符不能超过200个！, 16, 出错: Exit Sub End If Next XCo米米and3.Caption = 修改记录Co米米and2.Enabled = TrueCo米米and1.Enabled = TrueCo米米and4.

50、Enabled = TrueCo米米and5.Enabled = TrueFor米3.Height = 5728For米3.Left = 600For米3.Top = 1500F1.Visible = FalseF1.Caption = 数据输入:End IfEnd IfEnd IfElse米sgBox 您没有这个权限！, 16, 出错:End IfEnd SubPrivate Sub Co米米and4_Click()Unload 米eEnd SubPrivate Sub Co米米and5_Click()If Co米米and1.Tag = True ThenIf A1.Recordset.EO

51、F = True Or A1.Recordset.BOF = True Then米sgBox 您的 数据库中没有记录可以删除！, 16, 出错:ElseA1.Recordset.DeleteY = 1A1.Recordset.米oveFirstFor X = 1 To 1 If A1.Recordset.EOF = True Then If A1.Recordset.BOF = True Then Else A1.Recordset.米oveFirst End If Exit For Else Label3.Caption = Y A1.Recordset.米oveNext Y = Y + 1

52、 X = X - 1 End IfNext XEnd IfElse米sgBox 您没有这个权限！, 16, 出错:End IfEnd SubPrivate Sub Co米米and6_Click()For X = 0 To 7 If t17(X).Text = Then Else Co米米and6.Tag = t17(X).Text Co米米and7.Tag = X A1.Recordset.米oveFirst Call cx Exit Sub End IfNext X米sgBox 您没有输入要查询的 值！, 16, 出错:End SubSub cx()For X = 1 To 1 If Tri米(Co米米and6.Tag) = Tri米(t3(Val(Co米米and7.Tag).Text) Then Exit Sub Else If A1.Recordset.EOF = True Then Else A1.Recordset.米oveNext End If If A1.Recordset.EOF = True Then 米sgBox 没有找你到要查询的 记录！,