精品毕业论文企业设备信息管理系统设计

0 目目 录录 内容摘要3 关键字3 第一章 引言.4 1.1 背景 4 1.2 目标.4 1.3 开发意义.4 1.4 开发工具介绍.4 第二章 企业设备信息管理系统的系统分析.6 2.1 问题分析与解决.6 2.2 设计目标.6 2.3 安全性.6 2.4 可行性分析.6 2.5 系统流程.7 2.6 系统开发及运行环境.7 第三章 企业设备信息管理系统的系统设计.9 3.1 概念设计 9 3.2 逻辑设计 .13 第四章 企业设备信息管理系统的模块设计19 4.1 系统模块层次图 .19 1 4.2 各模块功能介绍 .19 第五章 企业设备信息管理系统的详细设计21 5.1 用户登录模块 .21 5.2 系统主控界面 .21 5.3 系统管理模块23 5.4 设备信息录入模块24 5.5 设备运行管理模块28 5.6 设备台帐管理模块35 5.7 设备报废管理模块36 第六章 系统维护和改进38 6.1 调试情况 .38 6.2 运行和维护 .38 6.3 系统的优缺点 .38 第七章 总 结.39 致 谢.40 参考文献.40 源程序清单.41 2 摘 要 企业设备信息管理系统是一个企事业单位不可缺少的部分,它的内容对于企业的决策 者和管理者来说都至关重要,所以企业设备管理系统应该能够为用户提供充足的信息和快捷 的查询手段。但一直以来人们使用传统人工的方式管理设备信息，这种管理方式存在着许 多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新 和维护都带来了不少的困难。而使用计算机对企业设备进行管理,具有手工管理所无法比拟 的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。 这些优点能够极大地提高设备管理的效率,也是企业的科学化、正规化管理的重要途径。 本系统针对中小型企业的设备管理业务。同时考虑到开发成本和安全性的问题，采用 Visual Basic 6.0 作为开发工具，采用 Microsoft SQL Server 2000 作为后台数据库，一 般可以满足中小型企业的需求。 关键字 设备管理系统 ; 中小型企业 ; Visual Basic 6.0 ; SQL Server 2000 3 第一章第一章 引言引言 1.11.1 背景背景 现代工业企业，随着生产规模的不断扩大。设备总数逐渐增加，传统的手 工管理效率低下、不准确，经常出现设备的丢失和设备账目混乱的情况，手工 管理已经不能满足现代企业的发展规模和管理水平的需求。而利用计算机就不 同了，一个完善的企业设备管理系统可以帮你解决所有这方面的问题。同时计 算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、 存储量大、保密性好、寿命长等。这些优点能够极大地提高管理的效率,达到事 半功倍的效果。因此开发一套企业设备管理系统，协助企业更好的管理固定资 产，是提高企业管理水平的重要一环。 1.21.2 目标目标 系统目标如下： （1） 提供简单方便的操作。 （2） 对系统提供必要的权限管理。 （3） 根据企业原有的设备管理业务，为企业不同管理层次的职员提供相 应的功能。 （4） 使企业的设备管理更加科学和规范，杜绝设备的丢失和设备账目混 乱的情况。 （5） 节约设备管理的成本。 （6） 对日常的设备运行情况进行管理，同时提供一些必要的报表。 1.31.3 开发意义开发意义 通过本系统的开发，以设备管理业务为依托，结合科学管理的理论，设计 并开发一个企业设备管理系统，改变传统的手工管理，彻底实现无纸化作业。 为企业实现整体信息化的其他相关系统提供必要的数据支持。 1.41.4 开发工具介绍开发工具介绍 1.Visual Basic 的简介 首先，我们还从 Visual Basic 这个名字开始，来认识这个软件。所谓 “Visual”指的是开发图形用户界面 (GUI) 的方法。它不需编写大量的代码去 4 描述界面元素的外观和位置，而只要把预先建立的对象添加到屏幕上的某一位 置即可。如果已使用过诸如 Paint 之类的绘图程序，则实际上已掌握了创建用 户界面的必要技巧。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolist Instruction Code) 语言，一种在计算技术发展历史上应用得最为 广泛的编程语言。Visual Basic 在原有 BASIC 语言的基础上进一步发展，至 今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。 专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初 学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic 不仅是 Visual Basic 编程语言。Visual Basic 编程系统和 VBA 都使用这一语言。 Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集。这样，在学习 Visual Basic 中得到的经验可应用 到所有这些领域中。 此外，Visual Basic 在数据开发方面提供了十分强大的功能。有自带的 数据管理器（Data Manager） 、数据控件（Data Control）及数据访问对象(DAO)等 一系列功能强大的工具来协助管理人员轻松地进行与数据库的连接和管理。 在这么多的访问接口里面微软对于 ADO 非常的推崇，并且下一代的数据访 问技术也将是采取这样的思路，而且本身来说 ADO 模型简单，但是功能强大， 使实现人员无须关心一些底层的操作，而把更多的经历放在业务逻辑的设计上 面。 2. Microsoft SQL Server 2000 的简介 SQL Server 2000 是 Microsoft 公司推出的 SQL Server 数据库管理 系统的最新版本该版本继承了 SQL Server 7.0 版本的优点同时又比它增加 了许多更先进的功能具有使用方便可伸缩性好与相关软件集成程度高等优点。 其主要特点如下： (1)高性能设计，可充分利用 WindowsNT 的优势。 (2)系统管理先进，支持 Windows 图形化管理工具，支持本地和远程的 系统管理和配置。 (3)强壮的事务处理功能，采用各种方法保证数据的完整性。 5 (4)具有自主的 SQL 语言。 第二章第二章 企业设备信息管理系统的系统分析企业设备信息管理系统的系统分析 2.12.1 问题分析与解决问题分析与解决 （1）为保障系统的健壮性，对于可能发生问题的输入进行检查，同时给出 合理的提示信息。 （2）满足企业原有设备管理业务，能够方便的进行设备登记，设备运行管 理，台帐的管理，报废管理和设备运行情况统计。 （3）利用计算机管理的优势，保持设备管理数据的一致性，并尽可能提供 选择输入。 （4）与传统的手工管理相比，要添加基础数据的管理和用户权限的设置。 2.22.2 设计目标设计目标 以中小型企业的设备管理为依托，结合科学管理的理论，设计一个计算机 管理的企业设备管理信息系统，改变传统的手工管理，彻底实现无纸化作业。 2.32.3 安全性安全性 由于设备管理中的数据有一定的保密性，因此系统采用用户登陆验证，防 止未经许可的用户使用系统。系统的用户对账号进行管理，以保证系统的安全 性。 2.42.4 可行性分析可行性分析 （1）使用 Visual Basic 6.0 作为系统的开发环境。Visual Basic6.0 作 为一种面向用户的高级编程语言，提供了完善的指令流控制语句。类与对象的 支持及数据类型给开发高性能系统提供了保障。同时，数据库处理能力较强， 能对多种数据库进行操作。Visual Basic6.0 支持的 ADO 数据访问接口是 windows 平台下被各类数据库广泛支持的数据接口。这些数据库中包含大型数 据库，如 SQL Server，能够保证系统适应多种操作平台的要求。 （2）Visual Basic6.0 对于类和对象的支持保证了代码的模块化要求，而 6 代码的模块化的程度很高，有利于以后对系统的扩展与修改，符合现代信息系 统开发的理念。 （3）数据的存储使用 SQL Server2000 作为数据库，这是一个中小规模的 数据库，可以满足系统的数据存储要求。 综上所述，该系统的设计与开发在技术及硬件上都是满足的，因此该系统 的开发是可行的。 2.52.5 系统流程系统流程 系统的基本流程是：用户登陆系统主控平台选择各项子系统 否 是 图 2-1 系统总流程图 2.62.6 系统开发及运行环境系统开发及运行环境 系统对运行环境的要求 1硬件要求 登录验证 是否 合法 系统主界面修改当前用户设置 各界面 的操作 退出 7 处理器：INTEL 奔腾 3 或更高 内存：128MB/256MB（推荐） 硬盘空间：30GB 显卡：SVGA 显示适配器 2.软件环境 操作系统：Windows 2000/XP 数据库：Microsoft SQL Server 2000 8 第三章第三章 企业设备信息管理系统的系统设计企业设备信息管理系统的系统设计 3.13.1 概念设计概念设计 1.实体描述 系统用户是登录系统的个人资料，用来存放用户的密码等信息。 设备实体对应管理系统中的设备资料，用来存放设备的基本信息。 设备类别实体、附属设备实体、设备运行情况实体、设备起停情况实体、 设备故障维修实体、设备耗能实体等对应的是系统设备中的各个具体项目，属 于设备信息的分支，用来存放设备的各种信息。 2 实体属性描述 （1）系统用户 E-R 图 系统用户 用户名 密码 用户 权限 图 3-1 系统用户 E-R 图 （2）基本设备信息 E-R 图 9 基本设备 设 备 编 号 设 备 名 称 型 号 制 造 厂 商 外 观 尺 寸 规 格 重 量 使 用 年 限 制 造 日 期 图 3-2 设备信息 E-R 图 （3）附属设备 E-R 图 附属设备 附 属 设 备 编 号 附 属 设 备 名 称 型 号 制 造 厂 规 格 数 量 功 能 描 述 图 3-3 附属设备 E-R 图 （4）设备故障 E-R 图 10 设备故障 设 备 名 称 故 障 类 别 故 障 时 间 维 修 日 期 负 责 人 维 修 费 用 图 3-4 设备故障 E-R 图 （5）设备维修 E-R 图 维修设备 设 备 编 号 设 备 名 称 检 修 报 告 编 号 检 修 时 间 维 修 负 责 人 维 修 费 用 图 3-5 设备维修 E-R 图 （5）设备耗能 E-R 图 11 设备耗能 设 备 编 号 设 备 名 称 耗 电 量 耗 水 量 耗 油 量 图 3-6 设备耗能 E-R 图 （6）台帐 E-R 图 设备台帐 设 备 名 称 购 入 价 格 折 价 价 格 使 用 单 位 记 录 人 图 3-7 台帐 E-R 图 （7）设备报废 E-R 图 12 基本设备 属于 附属设备 故障 设备故障 使用 设备运行 产生 设备耗能 设备维修 结算 台帐 废弃 报废 设备报废 设 备 名 称 报 废 时 间 报 废 原 因 型 号 购 买 日 期 报 废 前 折 价 图 3-8 设备报废 E-R 图 3. 整体 E-R 图 n n m 1 n m n n n m m n 13 m 图 3-6 整体 E-R 图 3.23.2 逻辑设计逻辑设计 1.数据库设计 （1）数据库名称：设备信息库 标识：DBEquipment 2.数据库表结构 （1）表名：用户信息表 标识：tbUser 表 3-1 用户信息表 字段名是否主键字段类型字段长度是否允许 为空 备注 UserId 是 Char10 否用户名 UserPassword 否 Char8 否用户密码 Userkind 否 Varchar20 否用户类型 （2）表名：设备基本信息表 标识：tbEquipData 表 3-2 设备基本信息表 字段名是否主键字段类型字段长度是否允许 为空 备注 EquipId 是 char8 否设备编号 EquipName 否 varchar20 否设备名称 Type 否 Varchar20 是型号 EquipKindIp 否 Char5 是设备类型 编号 Manufacturer 否 Varchar50 是制造厂商 ManuDate 否 Char8 是制造日期 BuyDate 否 Char8 是安购买日 14 期 FixDate 否 Char8 是安装完成 日期 FixPlace 否 Varchar50 是安装地点 PreUseYear 否 Int4 是预定使用 年限 PreSerCvc 否 Varchar10 是预定维修 周期 Code 否 Int4 是复杂系数 Apperance 否 Varchar10 是外观尺寸 specs 否 Varchar10 是规格 Weight 否 Varchar10 是重量 Parameter 否 Varchar100 是技术参数 Condition 否 Varchar100 是使用环境 说明 (3)表名：设备类型信息表。 标识：tbEquipKind。 表 3-3 设备类型信息表 字段名是否主键字段类型字段长度 B 是否允许 为空 备 注 EquipKindId 是 char5 否设备类型 编码 EquipKin&Name 否 varchar20 否设备类型 名称 EquipKindDes 否 varchar100 是设备类型 描述 (4)表名：附属设备信息表。 标识：tbAffEquip。 表 3-4 附属设备信息表 字段名是否主键字段类型字段长度 B 是否允许 为空 备 注 Affld 是 char8 否附属设备 编号 AffName 否 varchar30 否附属设备 名称 Type 否 Varchar20 是型号 Manufacturer 否 Varchar50 是制造厂 15 Unit 否 Varchar4 是单位 Number 否 int4 是数量 Soecs 否 Varchar20 是规格 AffDes 否 Varchar100 是附属设备 功能描述 (5)表名：设备运行状况表。 标识：tbEquipRun。 表 3-5 设备运行状况表 字段名是否主键字段类型字段长度 B 是否允许 为空 备 注 EqmpId 是 Char8 否设备编号 EquipName 否 Varchar20 否设备名称 CheckDate 是 Char8 是检测日期 CheckMan 否 Varchar30 是记录人 CheckContent 否 Varchar100 是运行状况 记录 (6)表名：设备起停情况表。 标识：tbStart 表 3-6 设备起停情况表 字段名是否主键字段类型字段长度 B 是否允许 为空 备 注 EquipId 是 char8 否设备编号 EquipName 否 varchar20 否设备名称 EquipKindId 否 char5 是检测日期 StopProperty 否 varchar20 是记录人 StopKind 否 varchar20 是运行状况 记录 StopTime 是 char8 是备 注 IntogetherDat。否 char8 是设备编号 Stopreason 否 varchar100 是设备名称 StopMmiutes 否 Int4 是设备类别 编号 Hitch 否 Int4 是停运性质 HitchMinutes 否 Int4 是停运类别 StandbyTilnes 否 Int4 是停机日期 时间 StandbyMnutes 否 Int4 是并网日期 16 时问 FixTimes 否 Int4 是停运原因 FixMinutes 否 Int4 是停运分钟 数 Linjfan 否 Int4 是故障次数 linjianMinutm 否 Int4 是故障分钟 （7）表名：设备故障记录表。 标识：tbHitch 表 3-7 设备故障记录表 字段名是否主键字段类型字段长度 B 是否允许为 空 备 注 EquipId 是 varchar8 否设备编号 EquipName 否 varchar20 否设备名称 HitchTime 是 varchar8 否设备故障时 间 HitchDes 否 varchar50 是设备故障描 述 (8)表名：设备维修记录表。 标识：tbService。 表 3-8 设备维修记录表 字段名是否主键字段类 型 字段长度 B 是否允许 为空 备 注 Equipld 是 char8 否设备编号 EquipName 否 varchar20 否设备名称 NowTime 是 char8 否当前时间 ExamineKind 否 varchar8 是检修类别 Exanfineld 否 rchar8 是检修报告 编号 ExamineTime 否 char8 是检修日期 时间 ServiceTime 否 char8 否维修日期 时间 ServiceDeaI 否 varchar100 是维修处理 描述 DealMan 否 varchar10 是负责人 Fee 否 int4 否费用 17 (9)表名：设备耗能情况表。 标识：tbResource。 表 3-9 设备耗能情况表 字段名是否主键字段类型字段长度 B 是否允许为 空 备 注 EquipId 是 char8 否设备编号 EquipName 否 varchar20 否设备名称 Powerp 否 Int4 是耗电量(度) Water 否 Int4 是耗水量(立 方米) Oil 否 int4 是耗油量(升) RecordTime 是 char8 否记录时间 RecordMan 否 varchar20 是记录人 (10)表名：设备台帐记录表。 标识：tbAccount。 表 3-10 设备台帐记录表 字段名是否主键字段类型字段长度 B 是否允许为 空 备 注 EquipId 是 char8 否设备编号 EquipName 否 char20 否设备名称 PriceOld 否 int4 是购人价格 PriceNow 否 Int4 是折价价格 UserDep 否 varchar20 是使用单位 RecordTime 是 char8 否记录时间 RecordMan 否 varchar20 是记录人 (11)表名：设备报废记录表。 标识：tbReject。 表 3-11 设备报废记录表 字段名是否主键字段类 型 字段长度 B 是否允许 为空 备 注 EquipId 是 Char16 否设备编号 EquipName 否 Varchar20 否设备名称 RejectTime 否 Int4 是报废时间 RejectReason 否 Varchar50 是报废原因 Type 否 Varchar20 是型号 Manufacturer 否 Varchar20 是制造厂商 18 BuyDate 否 Char8 是购买日期 FixDate 否 Char8 是安装完成 日期 PreUseYear 否 Int4 是预定使用 年限 Apperance 否 Varchar10 是外观尺寸 Specs 否 Varchar10 是规格 Weight 否 Varchar10 是重量 Parameter 否 Varchar100 是技术参数 PriceOld 否 Int4 是购入价格 PriceReject 否 int4 是报废前折 价价格 第四章第四章 企业设备信息管理系统的模块设计企业设备信息管理系统的模块设计 4.14.1 系统模块层次图系统模块层次图 “企业设备管理信息系统”主要分为登录、系统管理、设备信息录入、设 备运行管理、台帐管理和报废管理共 6 大模块。系统模块层次如下图 4-1 所示 19 企业设备管理系统 登 录 系 统 管 理 设 备 信 息 录 入 设 备 运 行 管 理 台 帐 管 理 报 废 管 理 用 户 管 理 修 改 密 码 设 备 基 本 信 息 设 备 类 别 定 义 附 属 设 备 信 息 设 备 运 行 情 况 记 录 设 备 起 停 情 况 记 录 设 备 故 障 记 录 设 备 维 修 情 况 记 录 设 备 耗 能 情 况 管 理 图 4-1 企业设备管理信息系统模块层次图 4.24.2 各模块功能介绍各模块功能介绍 1.登录模块 输入用户名和密码，如果正确，进入主控平台，否则提示用户明确的错误信 息。 2.系统管理模块 （1）用户管理子模块：系统管理员进行用户权限设置和用户的浏览，包括 用户密码和用户权限的更改，同时为保障系统健壮进行输入检验，进行必要的 信息提示。一般用户不能使用该功能。 （2）修改用户密码子模块：任何用户可以自行修改自己的密码。 3.设备信息录入模块 设置和管理基础数据。普通用户只能浏览，无权更新，包括一下几个功能 模块 （1）设备基本信息子模块：显示并更新设备型号、制造厂商等基本信息。 （2）设备类别定义子模块：显示并更新设备类别及其编号。 20 （3）附属设备信息子模块：显示并更新附属设备，以便进行及时核对和调 配。 4.设备运行管理模块 （1）设备运行情况记录子模块：现实并可更新每一次检测设备时得到的数 据。 （2）设备起停情况记录子模块：详细记录了设备的起停时间等信息。 （3）设备故障记录子模块：显示并可更新设备的故障记录。 （4）设备维修记录子模块：显示并可更新设备的维修障记录。 （5）设备耗能情况管理子模块：对设备所耗的水电油等能源情况机型记录 和统计。 5.台帐管理模块 管理设备的价值。购入日期和使用日期等相关信息。 6.报废管理模块 如果设备被认定需要由新产品替代，实施报废处理；宝报废的设备从相关的 设备信息表中进行删除，并建立一个新表存放这些报废的设备记录。 第五章第五章 企业设备信息管理系统的详细设计企业设备信息管理系统的详细设计 5.15.1 用户登录模块用户登录模块 1.主要功能 用于用户登录系统，进行用户及密码的校验。 21 2. 其实现界面如图 5-1 图 5-1 用户登陆界面 3.该界面的控件属性如表 5-1 表 5-1 用户登录界面控件属性 控件名称控件属性属性值 frmLoginCaption 企业设备管理系统登录 Caption 用户名称(&U): lbLabels Caption 密 码(&P): txtUserIdText txtUserPasswordPasswordchar* cmdOKCaption 确定 cmdCancelCaption 退出 5.25.2 系统主控界面系统主控界面 1.主要功能 用于用户进入系统平台进行不同的操作。 2. 其实现界面如图 5-2 22 图 5-2 系统主控制平台界面 3.该界面的控件属性设置如表 5-2 表 5-2 系统主控制平台的控件属性设置 控件名称控件属性属性值 frmMainCaption 企业设备管理系统 Label1Caption 欢迎使用企业设备管理 系统 Toolbar1VisibleTrue 4.菜单栏 表 5-3 菜单栏设置 一级菜单二级菜单 用户管理（subMenuClient）系统管理（menuSystem） 修改密码 （subMenuPassword） 设备基本信息录入 （subMenuEquipDataWrite） 设备类别定义 （subMenuEquipKind） 设备信息录入 （menuEquipInfoWrite） 附属设备信息录入 （subMenuAffEquipWrite） 设备运行状况记录 （subMenuEquipRunState） 设备起停状况记录 （subMenuEquipStartState） 设备故障记录 （subMenuEquipHitch） 设备维修记录（） 设备运行管理 （menuEquipRun） 设备耗能情况管理 （subMenuEquipMaintain） 台帐管理 （accountManage） 报废管理 （rejectManage） 退出（exit） 5.35.3 系统管理模块系统管理模块 5.3.1 用户管理子模块 1.主要功能 系统管理员进行用户权限设置和用户的浏览，包括用户密码和权限的更改， 23 同时为保障系统健全进行输入检查，进行必要的信息提示 2. 其实现界面如图 5-3 图 5-3 用户信息管理界面 3.该界面的控件属性设置如表 5-4 表 5-4 用户信息管理界面的控件属性设置 控件名称控件属性属性值 frmUserCaption 用户信息管理 frameUserCaption 用户信息 Label4Caption 用 户 名 Label5Caption 密码 Label6Caption 用户类型 cboUserKindStyle2 dgUserFillstyle1 dgUserautoredrawfalse 5.3.2 修改密码子模块 1.主要功能 任何用户可以修改自己的密码。 2. 其实现界面如图 5-4 24 图 5-4 修改密码界面 3该界面的控件属性设置如表 5-5 表 5-5 修改密码界面的控件属性设置 控件名称控件属性属性值 frmPasswordCaption 修改密码 lblLabelsCaption 请输入原密码 Label1Caption 请输入新密码 lblLabelsCaption 确认密码 cmdOKCaption 确认 cmdCancelCaption 取消 5.45.4 设备信息录入模块设备信息录入模块 5.4.1.设备基本信息录入模块 1.主要功能 用于对设备的基本信息进行添加、删除和修改。 2. 其实现界面如图 5-5 25 图 5-5 设备基本信息录入界面 3，该界面的控件属性设置如表 5-6 表 5-6 设备基本信息录入界面的控件属性设置 控件名称控件属性属性值 frmEquipDataWriteCaption 设备基本信息录入 Label1Caption 设备编号 Label5Caption 设备名称 Label6Caption 设备型号 txtEquipIdText txtEquipNameText txtTypeText Label4Caption 设备类型编号 Label16Caption 制造厂商 txtManufactureText cboYearTextcboYear 26 Label24Caption 年 cboMonthTextcboMonth Label15Caption 月 cboDateTextcboDate Label11Caption 日 Label9Caption 购买日期 Label27Caption 年 Label26Caption 月 Label25Caption 日 Label3Caption 制造日期 Label14Caption 预定使用年限 txtPreUseYearText Label17Caption 年 Label18Caption 预定维修周期 txtPreSerCycText Label7Caption 安装地点 txtFixPlaceText Label19Caption 复杂系数 txtCodeText Label10Caption% Label20Caption 外观尺寸 txtApperanceText Label21Caption 规格 txtSpecsText Label22Caption 重量 Label23Caption 技术参数 txtParameterText Label12Caption 使用环境说明 dgAffEquipautoredrawfalse cboYear、cboMonth、cboDate 为数组控件 5.4.2 设备类别定义子模块 1. 主要功能 显示并更新设备类型及编号。 2.其实现界面如图 5-6 27 图 5-6 设备类别定义界面 3. 该界面的控件属性设置如表 5-7 表 5-7 设备类别定义界面的控件属性设置 控件名称控件属性属性值 frmEquipKindCaption 设备类别定义 Label1Caption 设备类型描述 Label2Caption 设备类型编码 Label3Caption 设备类型名称 txtEquipKindIdText txtEquipKindNameText txtEquipKindDesText frmEquipStartStateautoredrawfalse 5.4.3 附属设备录入子模块 1. 主要功能 显示并更新附属设备，以便进行即时核对和调配。 2. 其实现界面如图 5-7 28 图 5-7 附属设备信息录入界面 3. 该界面的控件属性设置如表 5-8 表 5-8 附属设备信息录入界面的控件属性设置 控件名称控件属性属性值 frmAffEquipCaption 附属设备信息录入 Label2Caption 附属设备编号 Label3Caption 附属设备名称 Label4Caption 型号 Label16Caption 制造厂 Label6Caption 单位 Label1Caption 数量 Label21Caption 规格 Label12Caption 附属设备功能描述 frmEquipStartStateautoredrawfalse 5.55.5 设备运行管理模块设备运行管理模块 5.5.1 设备起停情况记录子模块 1.主要功能 29 显示并更新每一次检测设备时得到的数据 2. 其实现界面如图 5-8 图 5-8 设备起停情况记录界面 3. 该界面的控件属性设置如表 5-9 表 5-9 设备起停情况记录界面的控件属性设置 控件名称控件属性属性值 frmEquipStartStateCaption 设备起停情况记录 Label5Caption 设备标识 cboNameTextcboName Label4Caption 设备类别编号 txtEquipKindIdText Label6Caption 停运性质 Label7Caption 停运类别 30 txtStopKindText Label8Caption 停机日期时间 Label10Caption 并网日期时间 Label12Caption 停运分钟数 txtStopMinutesText Label14Caption 故障次数 Label11Caption 停运原因 txtStopReasonText Label15Caption 故障分钟 Label17Caption 备用次数 Label18Caption 备用分钟 Label19Caption 大中小修次数 Label20Caption 大中小修分钟 Label21Caption 临检次数 Label22Caption 临检分钟 frmEquipStartStateautoredrawfalse *界面内年月日数组控件请参照设备基本信息界面内的设置 5.5.2 设备运行状况记录子模块 1.主要功能 显示并更新每一次检测设备时得到的数据 2. 其实现界面如图 4-9 31 图 5-9 设备运行状况记录界面 3. 该界面的控件属性设置如表 5-10 表 5-10 设备运行状况记录界面的控件属性设置 控件名称控件属性属性值 Label5Caption 设备标识 cboNameTextcboName Label8Caption 检测日期 Label4Caption 记 录 人 txtCheckManText Label6Caption 运行状况记录 txtCheckContentText Frame1Caption 查询条件 Label1Caption 设备编号 cboIdText Label2Caption 检测日期 cmdQueryCaption 查询 frmEquipStartStateautoredrawfalse *界面内年月日数组控件请参照设备基本信息界面内的设置 5.5.3 设备故障记录子模块 32 1.主要功能 显示并可更新设备的故障记录 2. 其实现界面如图 5-10 5-10 设备故障记录界面 3. 该界面的控件属性设置如表 5-11 表 5-11 设备故障记录界面的控件属性设置 控件名称控件属性属性值 frmEquipHitchCaption 设备故障记录 Label5Caption 设备标识 Label4Caption 设备故障时间 Label6Caption 设备故障描述 Label9Caption 设备编号 Label10 设备故障时间 cmdQueryCaption 查询 cmdRecordCaption 报表 frmEquipHitchautoredrawfalse *界面内年月日数组控件请参照设备基本信息界面内的设置 33 5.5.4 设备维修记录子模块 1.主要功能 显示并可更新设备的维修记录 2. 其实现界面如图 5-11 图 5-11 设备维修记录界面 3. 该界面的控件属性设置如表 5-12 表 5-12 设备维修记录界面的控件属性设置 控件名称控件属性属性值 frmEquipMaintainCaption 设备维修记录 Label5Caption 设备标识 cboNameTextcboName Label4Caption 当前时间 Label7Caption 检修类别 cboExamineKindTextcboExamineKind Label8Caption 检修报告编号 frmEquipMaintainautoredrawfalse Label11CaptiontxtDealMan Label12Caption 费 用 Label16Caption 维修处理描述 cmdRecordCaption 报表 cmdQuitCaption 退出 *界面内年月日数组控件请参照设备基本信息界面内的设置 34 5.5.5 设备耗能情况记录子模块 1.主要功能 对设备的水电油等能源消耗进行记录和统计 2.其实现界面如图 5-12 图 5-12 设备耗能情况界面 3. 该界面的控件属性设置如表 5-13 表 5-13 设备耗能情况界面的控件属性设置 控件名称控件属性属性值 frmEquipResourceCaption 设备耗能情况管理 Label5Caption 设备标识 cboNameTextcboName Label4Caption 耗电量（度） txtPowerpText Label6Caption 耗水量（立方米） txtWaterText Label7Caption 耗油量（升） txtOilText Label8$Caption 记录时间 Label10Caption 记 录 人 txtRecordManText 35 Label1Caption 设备编号 Label2Caption 记录时间 cmdQueryCaption 查询 *界面内年月日控件请参照设备基本信息界面内的设置 5.65.6 设备台帐管理模块设备台帐管理模块 1.主要功能 管理设备的价值、购入日期和使用日期等相关信息。 2.其实现界面如图 5-13 图 5-13 台帐管理界面 3. 该界面的控件属性设置如表 5-14 表 5-14 该界面的控件属性设置 控件名称控件属性属性值 frmAccountManageCaption 设备台帐管理 Label5Caption 设备名称 cboNameTextcboName Label4Caption 购入价格 frmEquipResourceautoredrawfalse txtPriceOldText Label6Caption 折价价格 txtPriceNowText Label7Caption 使用单位 36 txtUserDepText Label10Caption 记 录 人 Label8Caption 记录时间 cmdRecordCaption 报表 cmdQuitCaption 退出 *界面内年月日数组控件请参照设备基本信息界面内的设置 5.75.7 设备报废管理模块设备报废管理模块 1.主要功能 实施报废处理，显示所有报废的设备信息。 2.其实现界面如图 5-14 图 5-14 报废管理界面 3.该界面的控件属性设置如表 5-15 表 5-15 报废管理界面的控件属性设置 控件名称控件属性属性值 frmRejectManageCaption 报废管理 Label1Caption 设备标识 cboNameTextcboName Label2Caption 报废时间 Label6Caption 报废原因 txtRejectReasonText Frame1caption 查询条件 Label8Caption 设备编号 cboIdTextcboId 37 Label9Caption 报废时间 cmdQueryCaption 查询 cmdRejectCaption 报废 cmdRecordCaption 报表 frmRejectManageautoredrawfalse 38 第六章第六章 系统维护和改系统维护和改进进 6.16.1 调试情况调试情况 在运行时发现无法连接数据库，经过检查发现。需要在系统 ODBC 数据源中 添加文件 DSN，并指向当前数据库才能正确连接数据库。 6.26.2 运行和维护运行和维护 经过测试，本系统运行稳定，在使用和维护中应注意以下几个问题： （1）定期通过 SQL SERVER 软件备份数据库，以免丢失数据。 （2）定期清理数据库中的无效数据，以提高运行效率。 （3）对软件及运行环境进行日常维护。 6.36.3 系统的优缺点系统的优缺点 1.优点 1、本系统根据派企业设备的实际需求和需要进行设计和开发，切合实际。 2、通用性能好，实用性强，易于推广，可扩展性好，此系统可以运行在 多种操作系统平台上（Windows 9x/Windows NT/Windows 2000/Windows XP） 。 3、功能强大,综合性强。 4、有机结合计算机自动处理与人工处理。 5、用户界面友好，模块清晰，操作简单，使用方便，一看就懂，一学就 会，设有帮助功能。 6、扩充性好，发展潜力大。 7、查询方便接近智能化。 8、引入了身份验证模块保密工作做到了实处。 2.缺点 本系统基本满足了设备管理的需求，但由于各个企业性质和使用设备不尽 相同，因此具体问题还要具体分析，需要在现有的系统上对某些字段进行适当 的修改。此外，本系统提供的报表有限，下一步可以在此基础上增加更多的报 39 表，扩充系统的功能。 第七章第七章 总总 结结 从本系统开始设计到现在，共用时间近四个月。到目前为止基本功能已经 实现。通过这段时间的毕业设计，学到了很多东西，不仅把以前所学的很多知 识充分利用上了，还让我学会使用了两种软件（Visual Basic 和 SQL SERVER） ， 初步了解了 SQL SERVER 强大的数据库开发能力，对 Visual Basic 开发语言上 有了进一步的了解，我体会到了软件开发不仅是编程，它需要方方面面的考虑， 同时也必须具备比较全面的知识。就像我们生活中的每一件事都需要有始有终， 认真对待。 我在设计过程中也见到了许多困难，在指导老师和同学的帮助下，我通过 了自己的努力，完成了设计，不但培养了我们细心和耐性，树立了一种科学的 态度。这对我以后的工作和学习有了很大的帮助和指导。同时我也认识到本身 还存在很多不足的地方，还需要不断的努力 来充实自己、完善自己，只有这样 我才能学无止境，以求得更大的发展。 40 致致 谢谢 感谢 。 。 。 。 。 。 。 41 参考文献参考文献 1. 刘世锋 Visual Basic 程序设计中央广播电视大学出版社 2004 年 7 月第一 版 2. 刘世锋 数据库基础与应用 中央广播电视大学出版社 2003 年 12 月第一版 3. 黄明.梁旭 Visual Basic+SQL Server 中小型信息开发实例精选机械工业出版社 2007 年 4 月第一版 4. 潘锦平 软件开发技术 西安电子科技大学出版社 1999 年 2 月第一版 5. 郑人杰、殷人昆 软件工程概论 清华大学出版社 2003 年 4 月第二版 42 源程序清单源程序清单 1. 登陆窗体代码 Option Explicit Public LoginSucceeded As Boolean 记录确定次数,超过 3,退出此次登录 Dim miCount As Integer Private Sub cmdCancel_Click() 取消，则 LoginSucceeded 为 False LoginSucceeded = False End End Sub Private Sub cmdOK_Click() Dim txtSQL As String Dim rstLogin As ADODB.Recordset Dim Flag As String gUserId = “ If Trim(txtUserId.Text = “) Then MsgBox “用户名不能为空!“, vbOKOnly + vbExclamation, “警告“ txtUserId.SetFocus Else txtSQL = “select * from tbUser where UserId = “ & txtUserId.Text & “ Flag = ExecuteSQL(txtSQL, rstLogin, False) If rstLogin.RecordCount = 0 Then MsgBox “没有这个用户，请重新输入!“, vbOKOnly + vbExclamation, “警告“ txtUserId.SetFocus txtUserId.Text = “ txtUserPassword.Text = “ Else If Trim(rstLogin.Fields(1) = Trim(txtUserPassword.Text) Then gUserId = Trim(txtUserId.Text) gUserKind = Trim(rstLogin.Fields(2) LoginSucceeded = True rstLogin.Close Me.Hide frmMain.Show 43 Exit Sub Else MsgBox “密码不正确，请重新输入!“, vbOKOnly + vbExclamation, “警告“ txtUserPassword.SetFocus txtUserPassword.Text = “ End If End If End If miCount = miCount + 1 If miCount = 3 Then MsgBox “您输入的次数已超过最多次数，系统将退出!“, vbOKOnly + vbExclamation, “警告“ Me.Hide Exit Sub End If End Su