企业设备信息管理系统

编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第48页 共49页企业设备信息管理系统 学生姓名： 学 号班 级 ： 指导老师 ： 职 称： 学 校： 目 录内容摘要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 系统模块层次图194.2 各模块功能介绍19第五章 企业设备信息管理系统的详细设计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源程序清单41企业设备信息管理系统内容摘要 企业设备信息管理系统是一个企事业单位不可缺少的部分,它的内容对于企业的决策者和管理者来说都至关重要,所以企业设备管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理设备信息，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。而使用计算机对企业设备进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高设备管理的效率,也是企业的科学化、正规化管理的重要途径。 本系统针对中小型企业的设备管理业务。同时考虑到开发成本和安全性的问题，采用Visual Basic 6.0作为开发工具，采用Microsoft SQL Server 2000作为后台数据库，一般可以满足中小型企业的需求。关键字设备管理系统 ; 中小型企业 ; Visual Basic 6.0 ; SQL Server 2000第一章 引言1.1 背景现代工业企业，随着生产规模的不断扩大。设备总数逐渐增加，传统的手工管理效率低下、不准确，经常出现设备的丢失和设备账目混乱的情况，手工管理已经不能满足现代企业的发展规模和管理水平的需求。而利用计算机就不同了，一个完善的企业设备管理系统可以帮你解决所有这方面的问题。同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长等。这些优点能够极大地提高管理的效率,达到事半功倍的效果。因此开发一套企业设备管理系统，协助企业更好的管理固定资产，是提高企业管理水平的重要一环。1.2目标系统目标如下：（1） 提供简单方便的操作。（2） 对系统提供必要的权限管理。（3） 根据企业原有的设备管理业务，为企业不同管理层次的职员提供相应的功能。（4） 使企业的设备管理更加科学和规范，杜绝设备的丢失和设备账目混乱的情况。（5） 节约设备管理的成本。（6） 对日常的设备运行情况进行管理，同时提供一些必要的报表。1.3开发意义通过本系统的开发，以设备管理业务为依托，结合科学管理的理论，设计并开发一个企业设备管理系统，改变传统的手工管理，彻底实现无纸化作业。为企业实现整体信息化的其他相关系统提供必要的数据支持。1.4开发工具介绍1.Visual Basic的简介首先，我们还从Visual Basic这个名字开始，来认识这个软件。所谓“Visual”指的是开发图形用户界面 (GUI) 的方法。它不需编写大量的代码去描述界面元素的外观和位置，而只要把预先建立的对象添加到屏幕上的某一位置即可。如果已使用过诸如 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)强壮的事务处理功能，采用各种方法保证数据的完整性。(4)具有自主的SQL语言。 第二章 企业设备信息管理系统的系统分析2.1问题分析与解决（1）为保障系统的健壮性，对于可能发生问题的输入进行检查，同时给出合理的提示信息。（2）满足企业原有设备管理业务，能够方便的进行设备登记，设备运行管理，台帐的管理，报废管理和设备运行情况统计。（3）利用计算机管理的优势，保持设备管理数据的一致性，并尽可能提供选择输入。（4）与传统的手工管理相比，要添加基础数据的管理和用户权限的设置。2.2设计目标以中小型企业的设备管理为依托，结合科学管理的理论，设计一个计算机管理的企业设备管理信息系统，改变传统的手工管理，彻底实现无纸化作业。2.3安全性由于设备管理中的数据有一定的保密性，因此系统采用用户登陆验证，防止未经许可的用户使用系统。系统的用户对账号进行管理，以保证系统的安全性。2.4可行性分析（1）使用Visual Basic 6.0 作为系统的开发环境。Visual Basic6.0作为一种面向用户的高级编程语言，提供了完善的指令流控制语句。类与对象的支持及数据类型给开发高性能系统提供了保障。同时，数据库处理能力较强，能对多种数据库进行操作。Visual Basic6.0支持的ADO数据访问接口是windows平台下被各类数据库广泛支持的数据接口。这些数据库中包含大型数据库，如SQL Server，能够保证系统适应多种操作平台的要求。（2）Visual Basic6.0对于类和对象的支持保证了代码的模块化要求，而代码的模块化的程度很高，有利于以后对系统的扩展与修改，符合现代信息系统开发的理念。（3）数据的存储使用SQL Server2000作为数据库，这是一个中小规模的数据库，可以满足系统的数据存储要求。综上所述，该系统的设计与开发在技术及硬件上都是满足的，因此该系统的开发是可行的。2.5系统流程系统的基本流程是：用户登陆系统主控平台选择各项子系统 登录验证是否合法系统主界面修改当前用户设置各界面的操作退出否是图2-1系统总流程图2.6系统开发及运行环境系统对运行环境的要求1硬件要求 处理器：INTEL 奔腾3或更高 内存：128MB/256MB（推荐） 硬盘空间：30GB显卡：SVGA显示适配器2.软件环境 操作系统：Windows 2000/XP数据库：Microsoft SQL Server 2000第三章 企业设备信息管理系统的系统设计 3.1 概念设计1.实体描述系统用户是登录系统的个人资料，用来存放用户的密码等信息。设备实体对应管理系统中的设备资料，用来存放设备的基本信息。 设备类别实体、附属设备实体、设备运行情况实体、设备起停情况实体、设备故障维修实体、设备耗能实体等对应的是系统设备中的各个具体项目，属于设备信息的分支，用来存放设备的各种信息。2实体属性描述（1）系统用户E-R图系统用户用户名密码用户权限图3-1系统用户E-R图（2）基本设备信息E-R图基本设备设备编号设备名称型号制造厂商外观尺寸规格重量使用年限制造日期图3-2设备信息E-R图（3）附属设备E-R图附属设备附属设备编号附属设备名称型号制造厂规格数量功能描述图3-3附属设备E-R图（4）设备故障E-R图设备故障设备名称故障类别故障时间维修日期负责人维修费用图3-4设备故障E-R图（5）设备维修E-R图维修设备设备编号设备名称检修报告编号检修时间维修负责人维修费用图3-5设备维修E-R图（5）设备耗能E-R图设备耗能设备编号设备名称耗电量耗水量耗油量图3-6设备耗能E-R图（6）台帐E-R图设备台帐设备名称购入价格折价价格使用单位记录人图3-7台帐E-R图（7）设备报废E-R图设备报废设备名称报废时间报废原因型号购买日期报废前折价图3-8设备报废E-R图3. 整体E-R图基本设备属于附属设备故障设备故障使用设备运行产生设备耗能设备维修结算台帐废弃报废 n n m1 n m nn nmm n m图3-6 整体E-R图3.2 逻辑设计1.数据库设计（1）数据库名称：设备信息库标识：DBEquipment2.数据库表结构（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是安购买日期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是制造厂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是并网日期时问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否费用 (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是制造厂商BuyDate否Char8是购买日期FixDate否Char8是安装完成日期PreUseYear否Int4是预定使用年限Apperance否Varchar10是外观尺寸Specs否Varchar10是规格Weight否Varchar10是重量Parameter否Varchar100是技术参数PriceOld否Int4是购入价格PriceReject否int4是报废前折价价格第四章 企业设备信息管理系统的模块设计4.1 系统模块层次图“企业设备管理信息系统”主要分为登录、系统管理、设备信息录入、设备运行管理、台帐管理和报废管理共6大模块。系统模块层次如下图4-1所示企业设备管理系统登录系统管理设备信息录入设备运行管理台帐管理报废管理用户管理修改密码设备基本信息设备类别定义附属设备信息设备运行情况记录设备起停情况记录设备故障记录设备维修情况记录设备耗能情况管理图4-1企业设备管理信息系统模块层次图4.2 各模块功能介绍 1.登录模块 输入用户名和密码，如果正确，进入主控平台，否则提示用户明确的错误信息。 2.系统管理模块 （1）用户管理子模块：系统管理员进行用户权限设置和用户的浏览，包括用户密码和用户权限的更改，同时为保障系统健壮进行输入检验，进行必要的信息提示。一般用户不能使用该功能。 （2）修改用户密码子模块：任何用户可以自行修改自己的密码。3.设备信息录入模块设置和管理基础数据。普通用户只能浏览，无权更新，包括一下几个功能模块（1）设备基本信息子模块：显示并更新设备型号、制造厂商等基本信息。（2）设备类别定义子模块：显示并更新设备类别及其编号。（3）附属设备信息子模块：显示并更新附属设备，以便进行及时核对和调配。4.设备运行管理模块（1）设备运行情况记录子模块：现实并可更新每一次检测设备时得到的数据。（2）设备起停情况记录子模块：详细记录了设备的起停时间等信息。（3）设备故障记录子模块：显示并可更新设备的故障记录。（4）设备维修记录子模块：显示并可更新设备的维修障记录。（5）设备耗能情况管理子模块：对设备所耗的水电油等能源情况机型记录和统计。5.台帐管理模块管理设备的价值。购入日期和使用日期等相关信息。6.报废管理模块如果设备被认定需要由新产品替代，实施报废处理；宝报废的设备从相关的设备信息表中进行删除，并建立一个新表存放这些报废的设备记录。第五章 企业设备信息管理系统的详细设计5.1 用户登录模块1.主要功能用于用户登录系统，进行用户及密码的校验。2.其实现界面如图5-1 图5-1用户登陆界面3.该界面的控件属性如表5-1表5-1用户登录界面控件属性控件名称控件属性属性值frmLoginCaption企业设备管理系统登录lbLabelsCaption用户名称(&U):Caption密 码(&P): txtUserIdTexttxtUserPasswordPasswordchar*cmdOKCaption确定cmdCancelCaption退出5.2 系统主控界面1.主要功能 用于用户进入系统平台进行不同的操作。2.其实现界面如图5-2 图5-2系统主控制平台界面3.该界面的控件属性设置如表5-2表5-2系统主控制平台的控件属性设置控件名称控件属性属性值frmMainCaption企业设备管理系统Label1Caption欢迎使用企业设备管理系统Toolbar1VisibleTrue4.菜单栏表5-3菜单栏设置一级菜单二级菜单系统管理（menuSystem）用户管理（subMenuClient）修改密码（subMenuPassword）设备信息录入（menuEquipInfoWrite）设备基本信息录入（subMenuEquipDataWrite）设备类别定义（subMenuEquipKind）附属设备信息录入（subMenuAffEquipWrite）设备运行管理（menuEquipRun）设备运行状况记录（subMenuEquipRunState）设备起停状况记录（subMenuEquipStartState）设备故障记录（subMenuEquipHitch）设备维修记录（）设备耗能情况管理（subMenuEquipMaintain）台帐管理（accountManage）报废管理（rejectManage）退出（exit）5.3系统管理模块5.3.1用户管理子模块 1.主要功能系统管理员进行用户权限设置和用户的浏览，包括用户密码和权限的更改，同时为保障系统健全进行输入检查，进行必要的信息提示 2.其实现界面如图5-3图5-3用户信息管理界面3.该界面的控件属性设置如表5-4表5-4用户信息管理界面的控件属性设置控件名称控件属性属性值frmUserCaption用户信息管理frameUserCaption用户信息Label4Caption用 户 名Label5Caption密码Label6Caption用户类型cboUserKindStyle2dgUserFillstyle1dgUserautoredrawfalse5.3.2修改密码子模块 1.主要功能 任何用户可以修改自己的密码。2.其实现界面如图5-4图5-4修改密码界面3该界面的控件属性设置如表5-5表5-5修改密码界面的控件属性设置控件名称控件属性属性值frmPasswordCaption修改密码lblLabelsCaption请输入原密码Label1Caption请输入新密码lblLabelsCaption确认密码cmdOKCaption确认cmdCancelCaption取消5.4设备信息录入模块5.4.1.设备基本信息录入模块1.主要功能用于对设备的基本信息进行添加、删除和修改。2.其实现界面如图5-5图5-5设备基本信息录入界面3，该界面的控件属性设置如表5-6表5-6设备基本信息录入界面的控件属性设置控件名称控件属性属性值frmEquipDataWriteCaption设备基本信息录入Label1Caption设备编号Label5Caption设备名称Label6Caption设备型号txtEquipIdTexttxtEquipNameTexttxtTypeTextLabel4Caption设备类型编号Label16Caption制造厂商txtManufactureTextcboYearTextcboYearLabel24Caption年cboMonthTextcboMonthLabel15Caption月cboDateTextcboDateLabel11Caption日Label9Caption购买日期Label27Caption年Label26Caption月Label25Caption日Label3Caption制造日期Label14Caption预定使用年限txtPreUseYearTextLabel17Caption年Label18Caption预定维修周期txtPreSerCycTextLabel7Caption安装地点txtFixPlaceTextLabel19Caption复杂系数txtCodeTextLabel10Caption%Label20Caption外观尺寸txtApperanceTextLabel21Caption规格txtSpecsTextLabel22Caption重量Label23Caption技术参数txtParameterTextLabel12Caption使用环境说明dgAffEquipautoredrawfalsecboYear、cboMonth、cboDate为数组控件 5.4.2设备类别定义子模块 1. 主要功能显示并更新设备类型及编号。2.其实现界面如图5-6图5-6设备类别定义界面3. 该界面的控件属性设置如表5-7表5-7设备类别定义界面的控件属性设置控件名称控件属性属性值frmEquipKindCaption设备类别定义Label1Caption设备类型描述Label2Caption设备类型编码Label3Caption设备类型名称txtEquipKindIdTexttxtEquipKindNameTexttxtEquipKindDesTextfrmEquipStartStateautoredrawfalse5.4.3附属设备录入子模块1. 主要功能显示并更新附属设备，以便进行即时核对和调配。2. 其实现界面如图5-7图5-7附属设备信息录入界面3. 该界面的控件属性设置如表5-8表5-8附属设备信息录入界面的控件属性设置控件名称控件属性属性值frmAffEquipCaption附属设备信息录入Label2Caption附属设备编号Label3Caption附属设备名称Label4Caption型号Label16Caption制造厂Label6Caption单位Label1Caption数量Label21Caption规格Label12Caption附属设备功能描述frmEquipStartStateautoredrawfalse5.5设备运行管理模块5.5.1设备起停情况记录子模块1.主要功能显示并更新每一次检测设备时得到的数据2. 其实现界面如图5-8 图5-8设备起停情况记录界面3. 该界面的控件属性设置如表5-9表5-9设备起停情况记录界面的控件属性设置控件名称控件属性属性值frmEquipStartStateCaption设备起停情况记录Label5Caption设备标识cboNameTextcboNameLabel4Caption设备类别编号txtEquipKindIdTextLabel6Caption停运性质Label7Caption停运类别txtStopKindTextLabel8Caption停机日期时间Label10Caption并网日期时间Label12Caption停运分钟数txtStopMinutesTextLabel14Caption故障次数Label11Caption停运原因txtStopReasonTextLabel15Caption故障分钟Label17Caption备用次数Label18Caption备用分钟Label19Caption大中小修次数Label20Caption大中小修分钟Label21Caption临检次数Label22Caption临检分钟frmEquipStartStateautoredrawfalse*界面内年月日数组控件请参照设备基本信息界面内的设置5.5.2设备运行状况记录子模块1.主要功能显示并更新每一次检测设备时得到的数据2.其实现界面如图4-9图5-9设备运行状况记录界面3. 该界面的控件属性设置如表5-10表5-10设备运行状况记录界面的控件属性设置控件名称控件属性属性值Label5Caption设备标识cboNameTextcboNameLabel8Caption检测日期Label4Caption记 录 人txtCheckManTextLabel6Caption运行状况记录txtCheckContentTextFrame1Caption查询条件Label1Caption设备编号cboIdTextLabel2Caption检测日期cmdQueryCaption查询frmEquipStartStateautoredrawfalse*界面内年月日数组控件请参照设备基本信息界面内的设置5.5.3设备故障记录子模块1.主要功能显示并可更新设备的故障记录2.其实现界面如图5-105-10设备故障记录界面3. 该界面的控件属性设置如表5-11表5-11设备故障记录界面的控件属性设置控件名称控件属性属性值frmEquipHitchCaption设备故障记录Label5Caption设备标识Label4Caption设备故障时间Label6Caption设备故障描述Label9Caption设备编号Label10设备故障时间cmdQueryCaption查询cmdRecordCaption报表frmEquipHitchautoredrawfalse*界面内年月日数组控件请参照设备基本信息界面内的设置5.5.4设备维修记录子模块1.主要功能 显示并可更新设备的维修记录2.其实现界面如图5-11图5-11设备维修记录界面3. 该界面的控件属性设置如表5-12表5-12设备维修记录界面的控件属性设置控件名称控件属性属性值frmEquipMaintainCaption设备维修记录Label5Caption设备标识cboNameTextcboNameLabel4Caption当前时间Label7Caption检修类别cboExamineKindTextcboExamineKindLabel8Caption检修报告编号frmEquipMaintainautoredrawfalseLabel11CaptiontxtDealManLabel12Caption费 用Label16Caption维修处理描述cmdRecordCaption报表cmdQuitCaption退出*界面内年月日数组控件请参照设备基本信息界面内的设置5.5.5设备耗能情况记录子模块1.主要功能对设备的水电油等能源消耗进行记录和统计2.其实现界面如图5-12图5-12设备耗能情况界面3. 该界面的控件属性设置如表5-13表5-13设备耗能情况界面的控件属性设置控件名称控件属性属性值frmEquipResourceCaption设备耗能情况管理Label5Caption设备标识cboNameTextcboNameLabel4Caption耗电量（度）txtPowerpTextLabel6Caption耗水量（立方米）txtWaterTextLabel7Caption耗油量（升）txtOilTextLabel8$Caption记录时间Label10Caption记 录 人txtRecordManTextLabel1Caption设备编号Label2Caption记录时间cmdQueryCaption查询*界面内年月日控件请参照设备基本信息界面内的设置5.6设备台帐管理模块1.主要功能管理设备的价值、购入日期和使用日期等相关信息。2.其实现界面如图5-13图5-13台帐管理界面3. 该界面的控件属性设置如表5-14表5-14该界面的控件属性设置控件名称控件属性属性值frmAccountManageCaption设备台帐管理Label5Caption设备名称cboNameTextcboNameLabel4Caption购入价格frmEquipResourceautoredrawfalsetxtPriceOldTextLabel6Caption折价价格txtPriceNowTextLabel7Caption使用单位txtUserDepTextLabel10Caption记 录 人Label8Caption记录时间cmdRecordCaption报表cmdQuitCaption退出*界面内年月日数组控件请参照设备基本信息界面内的设置5.7设备报废管理模块1.主要功能 实施报废处理，显示所有报废的设备信息。2.其实现界面如图5-14图5-14报废管理界面3.该界面的控件属性设置如表5-15表5-15报废管理界面的控件属性设置控件名称控件属性属性值frmRejectManageCaption报废管理Label1Caption设备标识cboNameTextcboNameLabel2Caption报废时间Label6Caption报废原因txtRejectReasonTextFrame1caption查询条件Label8Caption设备编号cboIdTextcboIdLabel9Caption报废时间cmdQueryCaption查询cmdRejectCaption报废cmdRecordCaption报表frmRejectManageautoredrawfalse第六章 系统维护和改进6.1 调试情况在运行时发现无法连接数据库，经过检查发现。需要在系统ODBC数据源中添加文件DSN，并指向当前数据库才能正确连接数据库。6.2 运行和维护经过测试，本系统运行稳定，在使用和维护中应注意以下几个问题：（1）定期通过SQL SERVER软件备份数据库，以免丢失数据。（2）定期清理数据库中的无效数据，以提高运行效率。（3）对软件及运行环境进行日常维护。6.3 系统的优缺点1.优点1、本系统根据派企业设备的实际需求和需要进行设计和开发，切合实际。2、通用性能好，实用性强，易于推广，可扩展性好，此系统可以运行在多种操作系统平台上（Windows 9x/Windows NT/Windows 2000/Windows XP）。3、功能强大,综合性强。4、有机结合计算机自动处理与人工处理。 5、用户界面友好，模块清晰，操作简单，使用方便，一看就懂，一学就会，设有帮助功能。6、扩充性好，发展潜力大。7、查询方便接近智能化。8、引入了身份验证模块保密工作做到了实处。2.缺点本系统基本满足了设备管理的需求，但由于各个企业性质和使用设备不尽相同，因此具体问题还要具体分析，需要在现有的系统上对某些字段进行适当的修改。此外，本系统提供的报表有限，下一步可以在此基础上增加更多的报表，扩充系统的功能。第七章 总 结从本系统开始设计到现在，共用时间近四个月。到目前为止基本功能已经实现。通过这段时间的毕业设计，学到了很多东西，不仅把以前所学的很多知识充分利用上了，还让我学会使用了两种软件（Visual Basic和SQL SERVER），初步了解了SQL SERVER强大的数据库开发能力，对Visual Basic开发语言上有了进一步的了解，我体会到了软件开发不仅是编程，它需要方方面面的考虑，同时也必须具备比较全面的知识。就像我们生活中的每一件事都需要有始有终，认真对待。我在设计过程中也见到了许多困难，在指导老师和同学的帮助下，我通过了自己的努力，完成了设计，不但培养了我们细心和耐性，树立了一种科学的态度。这对我以后的工作和学习有了很大的帮助和指导。同时我也认识到本身还存在很多不足的地方，还需要不断的努力 来充实自己、完善自己，只有这样我才能学无止境，以求得更大的发展。致 谢 在做毕业设计的这几个月时间是我学生生涯中最有价值的一段时光。这里有治学严谨而不失亲切的老师，有互相帮助的同学，更有向上、融洽的学习生活氛围。借此论文之际，我想向所有人表示我的谢意。首先感谢指导老师。本系统是在指导老师的指导下修改完成的。在此，要对他们的细心帮助和指导表示由衷的感谢。在这段时间里，我从他们身上不仅学到了许多的专业知识，更感受到了他们工作中的兢兢业业，生活中的平易近人。此外，他们严谨的治学态度和忘我的工作精神值得我去学习。感谢几年来传授我知识的老师们，更要感谢我的家人对我学业上的支持和鼓励，感谢所有关心帮助过我的人。同时感谢大学。总之，在以后的学习生活中我将以加倍的努力作为对给予我帮助的学校、老师及同学们的回报。参考文献1. 刘世锋 Visual Basic程序设计中央广播电视大学出版社 2004年7月第一版2. 刘世锋 数据库基础与应用 中央广播电视大学出版社 2003年12月第一版3. 黄明.梁旭 Visual Basic+SQL Server中小型信息开发实例精选机械工业出版社 2007年4月第一版4. 潘锦平 软件开发技术 西安电子科技大学出版社 1999年2月第一版5. 郑人杰、殷人昆 软件工程概论 清华大学出版社 2003年4月第二版源程序清单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 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.S