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

1、0 / 48 文档可自由编辑打印目目 录录内容摘要.3关键字.3第一章 引言.41.1 背景 .41.2 目标.41.3 开发意义.41.4 开发工具介绍.4第二章 企业设备信息管理系统的系统分析.62.1 问题分析与解决.62.2 设计目标.62.3 安全性.62.4 可行性分析.62.5 系统流程.72.6 系统开发及运行环境.7第三章 企业设备信息管理系统的系统设计.93.1 概念设计 .93.2 逻辑设计 .13第四章 企业设备信息管理系统的模块设计.194.1 系统模块层次图 .191 / 48 文档可自由编辑打印4.2 各模块功能介绍 .19第五章 企业设备信息管理系统的详细设计.

2、215.1 用户登录模块 .215.2 系统主控界面 .215.3 系统管理模块.235.4 设备信息录入模块.245.5 设备运行管理模块.285.6 设备台帐管理模块.355.7 设备报废管理模块.36第六章 系统维护和改进.386.1 调试情况 .386.2 运行和维护 .386.3 系统的优缺点 .38第七章 总 结.39致 谢.40参考文献.40源程序清单.412 / 48 文档可自由编辑打印摘 要 企业设备信息管理系统是一个企事业单位不可缺少的部分,它的内容对于企业的决策者和管理者来说都至关重要,所以企业设备管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传

3、统人工的方式管理设备信息，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。而使用计算机对企业设备进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高设备管理的效率,也是企业的科学化、正规化管理的重要途径。 本系统针对中小型企业的设备管理业务。同时考虑到开发成本和安全性的问题，采用Visual Basic 6.0 作为开发工具，采用 Microsoft SQL Server 2000 作为后台数据库，一般可以满足中小型企业的需求。关

4、键字设备管理系统 ; 中小型企业 ; Visual Basic 6.0 ; SQL Server 20003 / 48 文档可自由编辑打印第一章第一章 引言引言1.11.1 背景背景现代工业企业，随着生产规模的不断扩大。设备总数逐渐增加，传统的手工管理效率低下、不准确，经常出现设备的丢失和设备账目混乱的情况，手工管理已经不能满足现代企业的发展规模和管理水平的需求。而利用计算机就不同了，一个完善的企业设备管理系统可以帮你解决所有这方面的问题。同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长等。这些优点能够极大地提高管理的效率,达到事半功倍的效

5、果。因此开发一套企业设备管理系统，协助企业更好的管理固定资产，是提高企业管理水平的重要一环。1.21.2 目标目标系统目标如下：（1） 提供简单方便的操作。（2） 对系统提供必要的权限管理。（3） 根据企业原有的设备管理业务，为企业不同管理层次的职员提供相应的功能。（4） 使企业的设备管理更加科学和规范，杜绝设备的丢失和设备账目混乱的情况。（5） 节约设备管理的成本。（6） 对日常的设备运行情况进行管理，同时提供一些必要的报表。1.31.3 开发意义开发意义通过本系统的开发，以设备管理业务为依托，结合科学管理的理论，设计并开发一个企业设备管理系统，改变传统的手工管理，彻底实现无纸化作业。为企业

6、实现整体信息化的其他相关系统提供必要的数据支持。1.41.4 开发工具介绍开发工具介绍1.Visual Basic 的简介首先，我们还从 Visual Basic 这个名字开始，来认识这个软件。所谓“Visual”指的是开发图形用户界面 (GUI) 的方法。它不需编写大量的代码去4 / 48 文档可自由编辑打印描述界面元素的外观和位置，而只要把预先建立的对象添加到屏幕上的某一位置即可。如果已使用过诸如 Paint 之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolist Instruction

7、Code) 语言，一种在计算技术发展历史上应用得最为广泛的编程语言。Visual Basic 在原有 BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic 不仅是 Visual Basic 编程语言。Visual Basic 编程系统和 VBA 都使用这一语言。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，

8、它是 Visual Basic 语言的子集。这样，在学习 Visual Basic 中得到的经验可应用到所有这些领域中。此外，Visual Basic 在数据开发方面提供了十分强大的功能。有自带的数据管理器（Data Manager） 、数据控件（Data Control）及数据访问对象(DAO)等一系列功能强大的工具来协助管理人员轻松地进行与数据库的连接和管理。 在这么多的访问接口里面微软对于 ADO 非常的推崇，并且下一代的数据访问技术也将是采取这样的思路，而且本身来说 ADO 模型简单，但是功能强大，使实现人员无须关心一些底层的操作，而把更多的经历放在业务逻辑的设计上面。2. Micro

9、soft SQL Server 2000 的简介SQL Server 2000 是 Microsoft 公司推出的 SQL Server 数据库管理系统的最新版本该版本继承了 SQL Server 7.0 版本的优点同时又比它增加了许多更先进的功能具有使用方便可伸缩性好与相关软件集成程度高等优点。其主要特点如下：(1)高性能设计，可充分利用 WindowsNT 的优势。(2)系统管理先进，支持 Windows 图形化管理工具，支持本地和远程的系统管理和配置。(3)强壮的事务处理功能，采用各种方法保证数据的完整性。5 / 48 文档可自由编辑打印(4)具有自主的 SQL 语言。 第二章第二章 企

10、业设备信息管理系统的系统分析企业设备信息管理系统的系统分析2.12.1 问题分析与解决问题分析与解决（1）为保障系统的健壮性，对于可能发生问题的输入进行检查，同时给出合理的提示信息。（2）满足企业原有设备管理业务，能够方便的进行设备登记，设备运行管理，台帐的管理，报废管理和设备运行情况统计。（3）利用计算机管理的优势，保持设备管理数据的一致性，并尽可能提供选择输入。（4）与传统的手工管理相比，要添加基础数据的管理和用户权限的设置。2.22.2 设计目标设计目标以中小型企业的设备管理为依托，结合科学管理的理论，设计一个计算机管理的企业设备管理信息系统，改变传统的手工管理，彻底实现无纸化作业。2.

11、32.3 安全性安全性由于设备管理中的数据有一定的保密性，因此系统采用用户登陆验证，防止未经许可的用户使用系统。系统的用户对账号进行管理，以保证系统的安全性。2.42.4 可行性分析可行性分析（1）使用 Visual Basic 6.0 作为系统的开发环境。Visual Basic6.0 作为一种面向用户的高级编程语言，提供了完善的指令流控制语句。类与对象的支持及数据类型给开发高性能系统提供了保障。同时，数据库处理能力较强，能对多种数据库进行操作。Visual Basic6.0 支持的 ADO 数据访问接口是windows 平台下被各类数据库广泛支持的数据接口。这些数据库中包含大型数据库，如

12、SQL Server，能够保证系统适应多种操作平台的要求。（2）Visual Basic6.0 对于类和对象的支持保证了代码的模块化要求，而6 / 48 文档可自由编辑打印代码的模块化的程度很高，有利于以后对系统的扩展与修改，符合现代信息系统开发的理念。（3）数据的存储使用 SQL Server2000 作为数据库，这是一个中小规模的数据库，可以满足系统的数据存储要求。综上所述，该系统的设计与开发在技术及硬件上都是满足的，因此该系统的开发是可行的。2.52.5 系统流程系统流程系统的基本流程是：用户登陆系统主控平台选择各项子系统 否是图 2-1 系统总流程图2.62.6 系统开发及运行环境系统

13、开发及运行环境系统对运行环境的要求1硬件要求登录验证是否合法系统主界面修改当前用户设置各界面的操作退出7 / 48 文档可自由编辑打印 处理器：INTEL 奔腾 3 或更高 内存：128MB/256MB（推荐） 硬盘空间：30GB显卡：SVGA 显示适配器2.软件环境 操作系统：Windows 2000/XP数据库：Microsoft SQL Server 20008 / 48 文档可自由编辑打印第三章第三章 企业设备信息管理系统的系统设计企业设备信息管理系统的系统设计 3.13.1 概念设计概念设计1.实体描述系统用户是登录系统的个人资料，用来存放用户的密码等信息。设备实体对应管理系统中的设

14、备资料，用来存放设备的基本信息。 设备类别实体、附属设备实体、设备运行情况实体、设备起停情况实体、设备故障维修实体、设备耗能实体等对应的是系统设备中的各个具体项目，属于设备信息的分支，用来存放设备的各种信息。2 实体属性描述（1）系统用户 E-R 图系统用户用户名密码用户权限图 3-1 系统用户 E-R 图（2）基本设备信息 E-R 图9 / 48 文档可自由编辑打印基本设备设备编号设备名称型号制造厂商外观尺寸规格重量使用年限制造日期图 3-2 设备信息 E-R 图（3）附属设备 E-R 图附属设备附属设备编号附属设备名称型号制造厂规格数量功能描述图 3-3 附属设备 E-R 图（4）设备故障

15、 E-R 图10 / 48 文档可自由编辑打印设备故障设备名称故障类别故障时间维修日期负责人维修费用图 3-4 设备故障 E-R 图（5）设备维修 E-R 图维修设备设备编号设备名称检修报告编号检修时间维修负责人维修费用图 3-5 设备维修 E-R 图（5）设备耗能 E-R 图11 / 48 文档可自由编辑打印设备耗能设备编号设备名称耗电量耗水量耗油量图 3-6 设备耗能 E-R 图（6）台帐 E-R 图设备台帐设备名称购入价格折价价格使用单位记录人图 3-7 台帐 E-R 图（7）设备报废 E-R 图12 / 48 文档可自由编辑打印基本设备属于附属设备故障设备故障使用设备运行产生设备耗能设

16、备维修结算台帐废弃报废设备报废设备名称报废时间报废原因型号购买日期报废前折价图 3-8 设备报废 E-R 图3. 整体 E-R 图 n n m1 n m nn nmm n13 / 48 文档可自由编辑打印 m图 3-6 整体 E-R 图3.23.2 逻辑设计逻辑设计1.数据库设计（1）数据库名称：设备信息库标识：DBEquipment2.数据库表结构（1）表名：用户信息表标识：tbUser表 3-1 用户信息表字段名是否主键字段类型字段长度是否允许为空备注UserId是Char10否用户名UserPassword否Char8否用户密码Userkind否Varchar20否用户类型（2）表名：设

17、备基本信息表标识：tbEquipData表 3-2 设备基本信息表字段名是否主键字段类型字段长度是否允许为空备注EquipId是char8否设备编号EquipName否varchar20否设备名称Type否Varchar20是型号EquipKindIp否Char5是设备类型编号Manufacturer否Varchar50是制造厂商ManuDate否Char8是制造日期BuyDate否Char8是安购买日14 / 48 文档可自由编辑打印期FixDate否Char8是安装完成日期FixPlace否Varchar50是安装地点PreUseYear否Int4是预定使用年限PreSerCvc否Varc

18、har10是预定维修周期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)表

19、名：附属设备信息表。标识：tbAffEquip。表 3-4 附属设备信息表字段名是否主键字段类型字段长度B是否允许为空备 注Affld是char8否附属设备编号AffName否varchar30否附属设备名称Type否Varchar20是型号Manufacturer否Varchar50是制造厂15 / 48 文档可自由编辑打印Unit否Varchar4是单位Number否int4是数量Soecs否Varchar20是规格AffDes否Varchar100是附属设备功能描述 (5)表名：设备运行状况表。标识：tbEquipRun。表 3-5 设备运行状况表字段名是否主键字段类型字段长度B是否允许

20、为空备 注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是运行状况记录Sto

21、pTime是char8是备 注IntogetherDat。否char8是设备编号Stopreason否varchar100是设备名称StopMmiutes否Int4是设备类别编号Hitch否Int4是停运性质HitchMinutes否Int4是停运类别StandbyTilnes否Int4是停机日期时间StandbyMnutes否Int4是并网日期16 / 48 文档可自由编辑打印时问FixTimes否Int4是停运原因FixMinutes否Int4是停运分钟数Linjfan否Int4是故障次数linjianMinutm否Int4是故障分钟（7）表名：设备故障记录表。标识：tbHitch表 3-

22、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是检修

23、报告编号ExamineTime否char8是检修日期时间ServiceTime否char8否维修日期时间ServiceDeaI否varchar100是维修处理描述DealMan否varchar10是负责人Fee否int4否费用17 / 48 文档可自由编辑打印 (9)表名：设备耗能情况表。标识：tbResource。表 3-9 设备耗能情况表字段名是否主键字段类型字段长度B是否允许为空备 注EquipId是char8否设备编号EquipName否varchar20否设备名称Powerp否Int4是耗电量(度)Water否Int4是耗水量(立方米)Oil否int4是耗油量(升)RecordTim

24、e是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 设备报废记录表字段名是否主键字段类型字段长

25、度B是否允许为空备 注EquipId是Char16否设备编号EquipName否Varchar20否设备名称RejectTime否Int4是报废时间RejectReason否Varchar50是报废原因Type否Varchar20是型号Manufacturer否Varchar20是制造厂商18 / 48 文档可自由编辑打印BuyDate否Char8是购买日期FixDate否Char8是安装完成日期PreUseYear否Int4是预定使用年限Apperance否Varchar10是外观尺寸Specs否Varchar10是规格Weight否Varchar10是重量Parameter否Varchar

26、100是技术参数PriceOld否Int4是购入价格PriceReject否int4是报废前折价价格第四章第四章 企业设备信息管理系统的模块设计企业设备信息管理系统的模块设计4.14.1 系统模块层次图系统模块层次图“企业设备管理信息系统”主要分为登录、系统管理、设备信息录入、设备运行管理、台帐管理和报废管理共 6 大模块。系统模块层次如下图 4-1 所示19 / 48 文档可自由编辑打印企业设备管理系统登录系统管理设备信息录入设备运行管理台帐管理报废管理用户管理修改密码设备基本信息设备类别定义附属设备信息设备运行情况记录设备起停情况记录设备故障记录设备维修情况记录设备耗能情况管理图 4-1

27、企业设备管理信息系统模块层次图4.24.2 各模块功能介绍各模块功能介绍 1.登录模块 输入用户名和密码，如果正确，进入主控平台，否则提示用户明确的错误信息。 2.系统管理模块 （1）用户管理子模块：系统管理员进行用户权限设置和用户的浏览，包括用户密码和用户权限的更改，同时为保障系统健壮进行输入检验，进行必要的信息提示。一般用户不能使用该功能。 （2）修改用户密码子模块：任何用户可以自行修改自己的密码。3.设备信息录入模块设置和管理基础数据。普通用户只能浏览，无权更新，包括一下几个功能模块（1）设备基本信息子模块：显示并更新设备型号、制造厂商等基本信息。（2）设备类别定义子模块：显示并更新设备

28、类别及其编号。20 / 48 文档可自由编辑打印（3）附属设备信息子模块：显示并更新附属设备，以便进行及时核对和调配。4.设备运行管理模块（1）设备运行情况记录子模块：现实并可更新每一次检测设备时得到的数据。（2）设备起停情况记录子模块：详细记录了设备的起停时间等信息。（3）设备故障记录子模块：显示并可更新设备的故障记录。（4）设备维修记录子模块：显示并可更新设备的维修障记录。（5）设备耗能情况管理子模块：对设备所耗的水电油等能源情况机型记录和统计。5.台帐管理模块管理设备的价值。购入日期和使用日期等相关信息。6.报废管理模块如果设备被认定需要由新产品替代，实施报废处理；宝报废的设备从相关的设

29、备信息表中进行删除，并建立一个新表存放这些报废的设备记录。第五章第五章 企业设备信息管理系统的详细设计企业设备信息管理系统的详细设计5.15.1 用户登录模块用户登录模块1.主要功能用于用户登录系统，进行用户及密码的校验。21 / 48 文档可自由编辑打印2. 其实现界面如图 5-1 图 5-1 用户登陆界面3.该界面的控件属性如表 5-1表 5-1 用户登录界面控件属性控件名称控件属性属性值frmLoginCaption企业设备管理系统登录Caption用户名称(&U):lbLabelsCaption密 码(&P): txtUserIdTexttxtUserPasswordP

30、asswordchar*cmdOKCaption确定cmdCancelCaption退出5.25.2 系统主控界面系统主控界面1.主要功能 用于用户进入系统平台进行不同的操作。2. 其实现界面如图 5-2 22 / 48 文档可自由编辑打印图 5-2 系统主控制平台界面3.该界面的控件属性设置如表 5-2表 5-2 系统主控制平台的控件属性设置控件名称控件属性属性值frmMainCaption企业设备管理系统Label1Caption欢迎使用企业设备管理系统Toolbar1VisibleTrue4.菜单栏表 5-3 菜单栏设置一级菜单二级菜单用户管理（subMenuClient）系统管理（me

31、nuSystem）修改密码（subMenuPassword）设备基本信息录入（subMenuEquipDataWrite）设备类别定义（subMenuEquipKind）设备信息录入（menuEquipInfoWrite）附属设备信息录入（subMenuAffEquipWrite）设备运行状况记录（subMenuEquipRunState）设备起停状况记录（subMenuEquipStartState）设备故障记录（subMenuEquipHitch）设备维修记录（）设备运行管理（menuEquipRun）设备耗能情况管理（subMenuEquipMaintain）台帐管理（accountMa

32、nage）报废管理（rejectManage）退出（exit）5.35.3 系统管理模块系统管理模块5.3.1 用户管理子模块 1.主要功能系统管理员进行用户权限设置和用户的浏览，包括用户密码和权限的更改，23 / 48 文档可自由编辑打印同时为保障系统健全进行输入检查，进行必要的信息提示 2. 其实现界面如图 5-3图 5-3 用户信息管理界面3.该界面的控件属性设置如表 5-4表 5-4 用户信息管理界面的控件属性设置控件名称控件属性属性值frmUserCaption用户信息管理frameUserCaption用户信息Label4Caption用 户 名Label5Caption密码Lab

33、el6Caption用户类型cboUserKindStyle2dgUserFillstyle1dgUserautoredrawfalse5.3.2 修改密码子模块 1.主要功能 任何用户可以修改自己的密码。2. 其实现界面如图 5-424 / 48 文档可自由编辑打印图 5-4 修改密码界面3该界面的控件属性设置如表 5-5表 5-5 修改密码界面的控件属性设置控件名称控件属性属性值frmPasswordCaption修改密码lblLabelsCaption请输入原密码Label1Caption请输入新密码lblLabelsCaption确认密码cmdOKCaption确认cmdCancelC

34、aption取消5.45.4 设备信息录入模块设备信息录入模块5.4.1.设备基本信息录入模块1.主要功能用于对设备的基本信息进行添加、删除和修改。2. 其实现界面如图 5-525 / 48 文档可自由编辑打印图 5-5 设备基本信息录入界面3，该界面的控件属性设置如表 5-6表 5-6 设备基本信息录入界面的控件属性设置控件名称控件属性属性值frmEquipDataWriteCaption设备基本信息录入Label1Caption设备编号Label5Caption设备名称Label6Caption设备型号txtEquipIdTexttxtEquipNameTexttxtTypeTextLab

35、el4Caption设备类型编号Label16Caption制造厂商txtManufactureTextcboYearTextcboYear26 / 48 文档可自由编辑打印Label24Caption年cboMonthTextcboMonthLabel15Caption月cboDateTextcboDateLabel11Caption日Label9Caption购买日期Label27Caption年Label26Caption月Label25Caption日Label3Caption制造日期Label14Caption预定使用年限txtPreUseYearTextLabel17Caption

36、年Label18Caption预定维修周期txtPreSerCycTextLabel7Caption安装地点txtFixPlaceTextLabel19Caption复杂系数txtCodeTextLabel10Caption%Label20Caption外观尺寸txtApperanceTextLabel21Caption规格txtSpecsTextLabel22Caption重量Label23Caption技术参数txtParameterTextLabel12Caption使用环境说明dgAffEquipautoredrawfalsecboYear、cboMonth、cboDate 为数组控件

37、 5.4.2 设备类别定义子模块 1. 主要功能显示并更新设备类型及编号。2.其实现界面如图 5-627 / 48 文档可自由编辑打印图 5-6 设备类别定义界面3. 该界面的控件属性设置如表 5-7表 5-7 设备类别定义界面的控件属性设置控件名称控件属性属性值frmEquipKindCaption设备类别定义Label1Caption设备类型描述Label2Caption设备类型编码Label3Caption设备类型名称txtEquipKindIdTexttxtEquipKindNameTexttxtEquipKindDesTextfrmEquipStartStateautoredrawf

38、alse5.4.3 附属设备录入子模块1. 主要功能显示并更新附属设备，以便进行即时核对和调配。2. 其实现界面如图 5-728 / 48 文档可自由编辑打印图 5-7 附属设备信息录入界面3. 该界面的控件属性设置如表 5-8表 5-8 附属设备信息录入界面的控件属性设置控件名称控件属性属性值frmAffEquipCaption附属设备信息录入Label2Caption附属设备编号Label3Caption附属设备名称Label4Caption型号Label16Caption制造厂Label6Caption单位Label1Caption数量Label21Caption规格Label12Cap

39、tion附属设备功能描述frmEquipStartStateautoredrawfalse5.55.5 设备运行管理模块设备运行管理模块5.5.1 设备起停情况记录子模块1.主要功能29 / 48 文档可自由编辑打印显示并更新每一次检测设备时得到的数据2. 其实现界面如图 5-8 图 5-8 设备起停情况记录界面3. 该界面的控件属性设置如表 5-9表 5-9 设备起停情况记录界面的控件属性设置控件名称控件属性属性值frmEquipStartStateCaption设备起停情况记录Label5Caption设备标识cboNameTextcboNameLabel4Caption设备类别编号txt

40、EquipKindIdTextLabel6Caption停运性质Label7Caption停运类别30 / 48 文档可自由编辑打印txtStopKindTextLabel8Caption停机日期时间Label10Caption并网日期时间Label12Caption停运分钟数txtStopMinutesTextLabel14Caption故障次数Label11Caption停运原因txtStopReasonTextLabel15Caption故障分钟Label17Caption备用次数Label18Caption备用分钟Label19Caption大中小修次数Label20Caption大中

41、小修分钟Label21Caption临检次数Label22Caption临检分钟frmEquipStartStateautoredrawfalse*界面内年月日数组控件请参照设备基本信息界面内的设置5.5.2 设备运行状况记录子模块1.主要功能显示并更新每一次检测设备时得到的数据2. 其实现界面如图 4-931 / 48 文档可自由编辑打印图 5-9 设备运行状况记录界面3. 该界面的控件属性设置如表 5-10表 5-10 设备运行状况记录界面的控件属性设置控件名称控件属性属性值Label5Caption设备标识cboNameTextcboNameLabel8Caption检测日期Label4

42、Caption记 录 人txtCheckManTextLabel6Caption运行状况记录txtCheckContentTextFrame1Caption查询条件Label1Caption设备编号cboIdTextLabel2Caption检测日期cmdQueryCaption查询frmEquipStartStateautoredrawfalse*界面内年月日数组控件请参照设备基本信息界面内的设置5.5.3 设备故障记录子模块32 / 48 文档可自由编辑打印1.主要功能显示并可更新设备的故障记录2. 其实现界面如图 5-105-10 设备故障记录界面3. 该界面的控件属性设置如表 5-11

43、表 5-11 设备故障记录界面的控件属性设置控件名称控件属性属性值frmEquipHitchCaption设备故障记录Label5Caption设备标识Label4Caption设备故障时间Label6Caption设备故障描述Label9Caption设备编号Label10设备故障时间cmdQueryCaption查询cmdRecordCaption报表frmEquipHitchautoredrawfalse*界面内年月日数组控件请参照设备基本信息界面内的设置33 / 48 文档可自由编辑打印5.5.4 设备维修记录子模块1.主要功能 显示并可更新设备的维修记录2. 其实现界面如图 5-11

44、图 5-11 设备维修记录界面3. 该界面的控件属性设置如表 5-12表 5-12 设备维修记录界面的控件属性设置控件名称控件属性属性值frmEquipMaintainCaption设备维修记录Label5Caption设备标识cboNameTextcboNameLabel4Caption当前时间Label7Caption检修类别cboExamineKindTextcboExamineKindLabel8Caption检修报告编号frmEquipMaintainautoredrawfalseLabel11CaptiontxtDealManLabel12Caption费 用Label16Capt

45、ion维修处理描述cmdRecordCaption报表cmdQuitCaption退出*界面内年月日数组控件请参照设备基本信息界面内的设置34 / 48 文档可自由编辑打印5.5.5 设备耗能情况记录子模块1.主要功能对设备的水电油等能源消耗进行记录和统计2.其实现界面如图 5-12图 5-12 设备耗能情况界面3. 该界面的控件属性设置如表 5-13表 5-13 设备耗能情况界面的控件属性设置控件名称控件属性属性值frmEquipResourceCaption设备耗能情况管理Label5Caption设备标识cboNameTextcboNameLabel4Caption耗电量（度）txtPo

46、werpTextLabel6Caption耗水量（立方米）txtWaterTextLabel7Caption耗油量（升）txtOilTextLabel8$Caption记录时间Label10Caption记 录 人txtRecordManText35 / 48 文档可自由编辑打印Label1Caption设备编号Label2Caption记录时间cmdQueryCaption查询*界面内年月日控件请参照设备基本信息界面内的设置5.65.6 设备台帐管理模块设备台帐管理模块1.主要功能管理设备的价值、购入日期和使用日期等相关信息。2.其实现界面如图 5-13图 5-13 台帐管理界面3. 该界面

47、的控件属性设置如表 5-14表 5-14 该界面的控件属性设置控件名称控件属性属性值frmAccountManageCaption设备台帐管理Label5Caption设备名称cboNameTextcboNameLabel4Caption购入价格frmEquipResourceautoredrawfalsetxtPriceOldTextLabel6Caption折价价格txtPriceNowTextLabel7Caption使用单位36 / 48 文档可自由编辑打印txtUserDepTextLabel10Caption记 录 人Label8Caption记录时间cmdRecordCaptio

48、n报表cmdQuitCaption退出*界面内年月日数组控件请参照设备基本信息界面内的设置5.75.7 设备报废管理模块设备报废管理模块1.主要功能 实施报废处理，显示所有报废的设备信息。2.其实现界面如图 5-14图 5-14 报废管理界面3.该界面的控件属性设置如表 5-15表 5-15 报废管理界面的控件属性设置控件名称控件属性属性值frmRejectManageCaption报废管理Label1Caption设备标识cboNameTextcboNameLabel2Caption报废时间Label6Caption报废原因txtRejectReasonTextFrame1caption查询

49、条件Label8Caption设备编号cboIdTextcboId37 / 48 文档可自由编辑打印Label9Caption报废时间cmdQueryCaption查询cmdRejectCaption报废cmdRecordCaption报表frmRejectManageautoredrawfalse38 / 48 文档可自由编辑打印第六章第六章 系统维护和改系统维护和改进进6.16.1 调试情况调试情况在运行时发现无法连接数据库，经过检查发现。需要在系统 ODBC 数据源中添加文件 DSN，并指向当前数据库才能正确连接数据库。6.26.2 运行和维护运行和维护经过测试，本系统运行稳定，在使用和

50、维护中应注意以下几个问题：（1）定期通过 SQL SERVER 软件备份数据库，以免丢失数据。（2）定期清理数据库中的无效数据，以提高运行效率。（3）对软件及运行环境进行日常维护。6.36.3 系统的优缺点系统的优缺点1.优点1、本系统根据派企业设备的实际需求和需要进行设计和开发，切合实际。2、通用性能好，实用性强，易于推广，可扩展性好，此系统可以运行在多种操作系统平台上（Windows 9x/Windows NT/Windows 2000/Windows XP） 。3、功能强大,综合性强。4、有机结合计算机自动处理与人工处理。 5、用户界面友好，模块清晰，操作简单，使用方便，一看就懂，一学就

51、会，设有帮助功能。6、扩充性好，发展潜力大。7、查询方便接近智能化。8、引入了身份验证模块保密工作做到了实处。2.缺点本系统基本满足了设备管理的需求，但由于各个企业性质和使用设备不尽相同，因此具体问题还要具体分析，需要在现有的系统上对某些字段进行适当的修改。此外，本系统提供的报表有限，下一步可以在此基础上增加更多的报39 / 48 文档可自由编辑打印表，扩充系统的功能。第七章第七章 总总 结结从本系统开始设计到现在，共用时间近四个月。到目前为止基本功能已经实现。通过这段时间的毕业设计，学到了很多东西，不仅把以前所学的很多知识充分利用上了，还让我学会使用了两种软件（Visual Basic 和

52、SQL SERVER） ，初步了解了 SQL SERVER 强大的数据库开发能力，对 Visual Basic 开发语言上有了进一步的了解，我体会到了软件开发不仅是编程，它需要方方面面的考虑，同时也必须具备比较全面的知识。就像我们生活中的每一件事都需要有始有终，认真对待。我在设计过程中也见到了许多困难，在指导老师和同学的帮助下，我通过了自己的努力，完成了设计，不但培养了我们细心和耐性，树立了一种科学的态度。这对我以后的工作和学习有了很大的帮助和指导。同时我也认识到本身还存在很多不足的地方，还需要不断的努力 来充实自己、完善自己，只有这样我才能学无止境，以求得更大的发展。40 / 48 文档可自

53、由编辑打印致致 谢谢 感谢 。 。 。 。 。 。 。41 / 48 文档可自由编辑打印参考文献参考文献1. 刘世锋 Visual Basic 程序设计中央广播电视大学出版社 2004 年 7 月第一版2. 刘世锋 数据库基础与应用 中央广播电视大学出版社 2003 年 12 月第一版3. 黄明.梁旭 Visual Basic+SQL Server 中小型信息开发实例精选机械工业出版社 2007 年 4 月第一版4. 潘锦平 软件开发技术 西安电子科技大学出版社 1999 年 2 月第一版5. 郑人杰、殷人昆 软件工程概论 清华大学出版社 2003 年 4 月第二版42 / 48 文档可自由编

54、辑打印源程序清单源程序清单1. 登陆窗体代码Option ExplicitPublic LoginSucceeded As Boolean记录确定次数,超过 3,退出此次登录Dim miCount As IntegerPrivate Sub cmdCancel_Click() 取消，则 LoginSucceeded 为 False LoginSucceeded = False EndEnd SubPrivate Sub cmdOK_Click() Dim txtSQL As String Dim rstLogin As ADODB.Recordset Dim Flag As String gU

55、serId = 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 + vbExclama

56、tion, 警告 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.Show43 / 48 文档可自由编辑打印 Exit Sub Else MsgBox 密码不

57、正确，请重新输入!, 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 IfEnd Sub2. 主平台代码Private Sub rejectManage_Click() frmRejectManage.Show

58、 显示报废管理窗体End SubPrivate Sub subMenuAffEquipWrite_Click() frmAffEquip.Show 显示附属设备信息录入窗体End SubPrivate Sub subMenuClient_Click() frmUser.Show 显示用户信息管理窗体End SubPrivate Sub subMenuEquipDataWrite_Click() frmEquipDataWrite.Show 显示设备基本信息录入窗体End SubPrivate Sub subMenuEquipHitch_Click() frmEquipHitch.Show 显示

59、设备故障窗体End SubPrivate Sub subMenuEquipKind_Click() frmEquipKind.Show 显示设备类别定义窗体End SubPrivate Sub subMenuEquipMaintain_Click() frmEquipMaintain.Show 显示设备维修记录窗体End SubPrivate Sub subMenuEquipResource_Click() frmEquipResource.Show 显示设备耗能情况管理窗体End SubPrivate Sub subMenuEquipRunState_Click() frmEquipRunS

60、tate.Show 显示设备运行状况记录窗体44 / 48 文档可自由编辑打印End SubPrivate Sub subMenuEquipStartState_Click() frmEquipStartState.Show 显示设备起停情况记录窗体End SubPrivate Sub subMenuPassword_Click() frmPassword.Show 显示修改密码窗体End SubPrivate Sub initial() 设置状态栏显示系统信息 StatusBarUser.Panels.Add (1) StatusBarUser.Panels.Item(1).Width = 6201.13 StatusBarU