还剩45页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
目录TOC\o1-3\h\z\u内容摘要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摘要企业设备信息管理系统是一个企事业单位不可缺少的部分它的内容对于企业的决策者和管理者来说都至关重要所以企业设备管理系统应该能够为用户提供充足的信息和快捷的查询手段但一直以来人们使用传统人工的方式管理设备信息,这种管理方式存在着许多缺点如:效率低、保密性差另外时间一长将产生大量的文件和数据这对于查找、更新和维护都带来了不少的困难而使用计算机对企业设备进行管理具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等这些优点能够极大地提高设备管理的效率也是企业的科学化、正规化管理的重要途径本系统针对中小型企业的设备管理业务同时考虑到开发成本和安全性的问题,采用VisualBasic
6.0作为开发工具,采用MicrosoftSQLServer2000作为后台数据库,一般可以满足中小型企业的需求关键字设备管理系统;中小型企业;VisualBasic
6.0;SQLServer2000第一章引言
1.1背景现代工业企业,随着生产规模的不断扩大设备总数逐渐增加,传统的手工管理效率低下、不准确,经常出现设备的丢失和设备账目混乱的情况,手工管理已经不能满足现代企业的发展规模和管理水平的需求而利用计算机就不同了,一个完善的企业设备管理系统可以帮你解决所有这方面的问题同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长等这些优点能够极大地提高管理的效率达到事半功倍的效果因此开发一套企业设备管理系统,协助企业更好的管理固定资产,是提高企业管理水平的重要一环
1.2目标系统目标如下
(1)提供简单方便的操作
(2)对系统提供必要的权限管理
(3)根据企业原有的设备管理业务,为企业不同管理层次的职员提供相应的功能
(4)使企业的设备管理更加科学和规范,杜绝设备的丢失和设备账目混乱的情况
(5)节约设备管理的成本
(6)对日常的设备运行情况进行管理,同时提供一些必要的报表
1.3开发意义通过本系统的开发,以设备管理业务为依托,结合科学管理的理论,设计并开发一个企业设备管理系统,改变传统的手工管理,彻底实现无纸化作业为企业实现整体信息化的其他相关系统提供必要的数据支持
1.4开发工具介绍
1.VisualBasic的简介首先,我们还从VisualBasic这个名字开始,来认识这个软件所谓“Visual”指的是开发图形用户界面GUI的方法它不需编写大量的代码去描述界面元素的外观和位置,而只要把预先建立的对象添加到屏幕上的某一位置即可如果已使用过诸如Paint之类的绘图程序,则实际上已掌握了创建用户界面的必要技巧“Basic”指的是BASICBeginnersAll-PurposeSymbolistInstructionCode语言,一种在计算技术发展历史上应用得最为广泛的编程语言VisualBasic在原有BASIC语言的基础上进一步发展,至今包含了数百条语句、函数及关键词,其中很多和WindowsGUI有直接关系专业人员可以用VisualBasic实现其它任何Windows编程语言的功能,而初学者只要掌握几个关键词就可以建立实用的应用程序VisualBasic不仅是VisualBasic编程语言VisualBasic编程系统和VBA都使用这一语言VisualBasicScriptingEditionVBScript是广泛使用的脚本语言,它是VisualBasic语言的子集这样,在学习VisualBasic中得到的经验可应用到所有这些领域中此外,VisualBasic在数据开发方面提供了十分强大的功能有自带的数据管理器(DataManager)、数据控件(DataControl)及数据访问对象DAO等一系列功能强大的工具来协助管理人员轻松地进行与数据库的连接和管理在这么多的访问接口里面微软对于ADO非常的推崇,并且下一代的数据访问技术也将是采取这样的思路,而且本身来说ADO模型简单,但是功能强大,使实现人员无须关心一些底层的操作,而把更多的经历放在业务逻辑的设计上面
2.MicrosoftSQLServer2000的简介SQLServer2000是Microsoft公司推出的SQLServer数据库管理系统的最新版本该版本继承了SQLServer
7.0版本的优点同时又比它增加了许多更先进的功能具有使用方便可伸缩性好与相关软件集成程度高等优点 其主要特点如下 1高性能设计,可充分利用WindowsNT的优势 2系统管理先进,支持Windows图形化管理工具,支持本地和远程的系统管理和配置 3强壮的事务处理功能,采用各种方法保证数据的完整性4具有自主的SQL语言第二章企业设备信息管理系统的系统分析
2.1问题分析与解决
(1)为保障系统的健壮性,对于可能发生问题的输入进行检查,同时给出合理的提示信息
(2)满足企业原有设备管理业务,能够方便的进行设备登记,设备运行管理,台帐的管理,报废管理和设备运行情况统计
(3)利用计算机管理的优势,保持设备管理数据的一致性,并尽可能提供选择输入
(4)与传统的手工管理相比,要添加基础数据的管理和用户权限的设置
2.2设计目标以中小型企业的设备管理为依托,结合科学管理的理论,设计一个计算机管理的企业设备管理信息系统,改变传统的手工管理,彻底实现无纸化作业
2.3安全性由于设备管理中的数据有一定的保密性,因此系统采用用户登陆验证,防止未经许可的用户使用系统系统的用户对账号进行管理,以保证系统的安全性
2.4可行性分析
(1)使用VisualBasic
6.0作为系统的开发环境VisualBasic
6.0作为一种面向用户的高级编程语言,提供了完善的指令流控制语句类与对象的支持及数据类型给开发高性能系统提供了保障同时,数据库处理能力较强,能对多种数据库进行操作VisualBasic
6.0支持的ADO数据访问接口是windows平台下被各类数据库广泛支持的数据接口这些数据库中包含大型数据库,如SQLServer,能够保证系统适应多种操作平台的要求
(2)VisualBasic
6.0对于类和对象的支持保证了代码的模块化要求,而代码的模块化的程度很高,有利于以后对系统的扩展与修改,符合现代信息系统开发的理念
(3)数据的存储使用SQLServer2000作为数据库,这是一个中小规模的数据库,可以满足系统的数据存储要求综上所述,该系统的设计与开发在技术及硬件上都是满足的,因此该系统的开发是可行的
2.5系统流程系统的基本流程是用户登陆→系统主控平台→选择各项子系统否是图2-1系统总流程图
2.6系统开发及运行环境系统对运行环境的要求1.硬件要求处理器INTEL奔腾3或更高内存128MB/256MB(推荐)硬盘空间30GB显卡SVGA显示适配器
2.软件环境操作系统Windows2000/XP数据库MicrosoftSQLServer2000第三章企业设备信息管理系统的系统设计
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图nnm1nmnnnmmnm图3-6整体E-R图
3.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是安购买日期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否设备类型编码EquipKinName否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欢迎使用企业设备管理系统Toolbar1VisibleTrue
4.菜单栏表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用户类型cboUserKindStyle2dgUserFillstyle1dgUserautoredrawfalse
5.
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设备编号Label5CaptionLabel6Caption设备型号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设备类型名称txtEquipKindIdTexttxtEquipKindNameTexttxtEquipKindDesTextfrmEquipStartStateautoredrawfalse
5.
4.3附属设备录入子模块
1.主要功能显示并更新附属设备,以便进行即时核对和调配
2.其实现界面如图5-7图5-7附属设备信息录入界面
3.该界面的控件属性设置如表5-8表5-8附属设备信息录入界面的控件属性设置控件名称控件属性属性值frmAffEquipCaption附属设备信息录入Label2Caption附属设备编号Label3Caption附属设备名称Label4Caption型号Label16Caption制造厂Label6Caption单位Label1Caption数量Label21Caption规格Label12Caption附属设备功能描述frmEquipStartStateautoredrawfalse
5.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)定期通过SQLSERVER软件备份数据库,以免丢失数据
(2)定期清理数据库中的无效数据,以提高运行效率
(3)对软件及运行环境进行日常维护
6.3系统的优缺点
1.优点
1、本系统根据派企业设备的实际需求和需要进行设计和开发,切合实际
2、通用性能好,实用性强,易于推广,可扩展性好,此系统可以运行在多种操作系统平台上(Windows9x/WindowsNT/Windows2000/WindowsXP)
3、功能强大综合性强
4、有机结合计算机自动处理与人工处理
5、用户界面友好,模块清晰,操作简单,使用方便,一看就懂,一学就会,设有帮助功能
6、扩充性好,发展潜力大
7、查询方便接近智能化
8、引入了身份验证模块保密工作做到了实处
2.缺点本系统基本满足了设备管理的需求,但由于各个企业性质和使用设备不尽相同,因此具体问题还要具体分析,需要在现有的系统上对某些字段进行适当的修改此外,本系统提供的报表有限,下一步可以在此基础上增加更多的报表,扩充系统的功能第七章总结从本系统开始设计到现在,共用时间近四个月到目前为止基本功能已经实现通过这段时间的毕业设计,学到了很多东西,不仅把以前所学的很多知识充分利用上了,还让我学会使用了两种软件(VisualBasic和SQLSERVER),初步了解了SQLSERVER强大的数据库开发能力,对VisualBasic开发语言上有了进一步的了解,我体会到了软件开发不仅是编程,它需要方方面面的考虑,同时也必须具备比较全面的知识就像我们生活中的每一件事都需要有始有终,认真对待我在设计过程中也见到了许多困难,在指导老师和同学的帮助下,我通过了自己的努力,完成了设计,不但培养了我们细心和耐性,树立了一种科学的态度这对我以后的工作和学习有了很大的帮助和指导同时我也认识到本身还存在很多不足的地方,还需要不断的努力来充实自己、完善自己,只有这样我才能学无止境,以求得更大的发展致谢感谢参考文献
1.刘世锋《VisualBasic程序设计》中央广播电视大学出版社2004年7月第一版
2.刘世锋《数据库基础与应用》中央广播电视大学出版社2003年12月第一版
3.黄明.梁旭《VisualBasic+SQLServer中小型信息开发实例精选》机械工业出版社2007年4月第一版
4.潘锦平《软件开发技术》西安电子科技大学出版社1999年2月第一版
5.郑人杰、殷人昆《软件工程概论》清华大学出版社2003年4月第二版源程序清单
1.登陆窗体代码OptionExplicitPublicLoginSucceededAsBoolean记录确定次数超过3退出此次登录DimmiCountAsIntegerPrivateSubcmdCancel_Click取消,则LoginSucceeded为FalseLoginSucceeded=FalseEndEndSubPrivateSubcmdOK_ClickDimtxtSQLAsStringDimrstLoginAsADODB.RecordsetDimFlagAsStringgUserId=IfTrimtxtUserId.Text=ThenMsgBox用户名不能为空!vbOKOnly+vbExclamation警告txtUserId.SetFocusElsetxtSQL=select*fromtbUserwhereUserId=txtUserId.TextFlag=ExecuteSQLtxtSQLrstLoginFalseIfrstLogin.RecordCount=0ThenMsgBox没有这个用户,请重新输入!vbOKOnly+vbExclamation警告txtUserId.SetFocustxtUserId.Text=txtUserPassword.Text=ElseIfTrimrstLogin.Fields1=TrimtxtUserPassword.TextThengUserId=TrimtxtUserId.TextgUserKind=TrimrstLogin.Fields2LoginSucceeded=TruerstLogin.CloseMe.HidefrmMain.ShowExitSubElseMsgBox密码不正确,请重新输入!vbOKOnly+vbExclamation警告txtUserPassword.SetFocustxtUserPassword.Text=EndIfEndIfEndIfmiCount=miCount+1IfmiCount=3ThenMsgBox您输入的次数已超过最多次数,系统将退出!vbOKOnly+vbExclamation警告Me.HideExitSubEndIfEndSub
2.主平台代码PrivateSubrejectManage_ClickfrmRejectManage.Show显示报废管理窗体EndSubPrivateSubsubMenuAffEquipWrite_ClickfrmAffEquip.Show显示附属设备信息录入窗体EndSubPrivateSubsubMenuClient_ClickfrmUser.Show显示用户信息管理窗体EndSubPrivateSubsubMenuEquipDataWrite_ClickfrmEquipDataWrite.Show显示设备基本信息录入窗体EndSubPrivateSubsubMenuEquipHitch_ClickfrmEquipHitch.Show显示设备故障窗体EndSubPrivateSubsubMenuEquipKind_ClickfrmEquipKind.Show显示设备类别定义窗体EndSubPrivateSubsubMenuEquipMaintain_ClickfrmEquipMaintain.Show显示设备维修记录窗体EndSubPrivateSubsubMenuEquipResource_ClickfrmEquipResource.Show显示设备耗能情况管理窗体EndSubPrivateSubsubMenuEquipRunState_ClickfrmEquipRunState.Show显示设备运行状况记录窗体EndSubPrivateSubsubMenuEquipStartState_ClickfrmEquipStartState.Show显示设备起停情况记录窗体EndSubPrivateSubsubMenuPassword_ClickfrmPassword.Show显示修改密码窗体EndSubPrivateSubinitial设置状态栏显示系统信息StatusBarUser.Panels.Add1StatusBarUser.Panels.Item
1.Width=
6201.13StatusBarUser.Panels.Add2StatusBarUser.Panels.Add3StatusBarUser.Panels.Item
1.Style=sbrTextStatusBarUser.Panels.Item
2.Style=sbrDateStatusBarUser.Panels.Item
3.Style=sbrTimeStatusBarUser.Panels.Item
1.Text=当前系统用户是+gUserId+,您是+gUserKindEndSub
3.附属设备信息录入添加按钮代码PrivateSubcmdAdd_Click检验输入值不能为空IftxtIsNulltxtAffIdThenMsgBox附属设备编号不能为空!vbOKOnly+vbExclamation警告ExitSubElseIfIsOverStringLentxtAffId.Text8ThenMsgBox附属设备编号不能超过8位!vbOKOnly+vbExclamation警告txtAffId.SetFocusExitSubEndIfEndIfIftxtIsNulltxtAffNameThenMsgBox附属设备名称不能为空!vbOKOnly+vbExclamation警告ExitSubElseIfIsOverStringLentxtAffName.Text30ThenMsgBox附属设备名称不能超过30位!vbOKOnly+vbExclamation警告txtAffName.SetFocusExitSubEndIfEndIfIfIsOverStringLentxtType.Text20ThenMsgBox型号长度不能超过20位!vbOKOnly+vbExclamation警告txtType.SetFocusExitSubEndIfIfIsOverStringLentxtManufacturer.Text50ThenMsgBox制造厂长度不能超过50位!vbOKOnly+vbExclamation警告txtManufacturer.SetFocusExitSubEndIfIfIsOverStringLentxtUnit.Text4ThenMsgBox单位不能超过4位!vbOKOnly+vbExclamation警告txtUnit.SetFocusExitSubEndIfIfTrimtxtNumber.TextAndIsNumerictxtNumber=FalseThenMsgBox数量必须为数值型!vbOKOnly+vbExclamation警告txtNumber.SetFocusExitSubEndIfIfIsOverStringLentxtSpecs.Text20ThenMsgBox规格不能超过20位!vbOKOnly+vbExclamation警告txtSpecs.SetFocusExitSubEndIfIfIsOverStringLentxtAffDes.Text100ThenMsgBox附属设备功能描述不能超过100位!vbOKOnly+vbExclamation警告txtAffDes.SetFocusExitSubEndIf检验此附属设备是否已经存在txtTest=selectAffIdfromtbAffEquipwhereAffId=+TrimtxtAffId.Text+IfDBExisttxtTest0ThenMsgBox该附属设备已经存在,请重新输入!vbOKOnly+vbExclamation警告ElsetxtSQL=insertintotbAffEquipAffIdAffNameTypeManufacturerUnitNumberSpecsAffDes+values+TrimtxtAffId.Text++TrimtxtAffName.Text++TrimtxtType.Text++TrimtxtManufacturer.Text++TrimtxtUnit.Text++TrimtxtNumber.Text++TrimtxtSpecs.Text++TrimtxtAffDes.Text+results=ExecuteSQLtxtSQLrstAffEquipTrueMsgBox添加成功!vbOKOnly+vbExclamation警告CalltxtClearCallviewDataAffEquipEndIfEndSub
4.附属设备信息录入删除代码PrivateSubcmdDel_Click检验删除记录是否选定IftxtIsNulltxtAffIdThenMsgBox请选择删除的记录!vbOKOnly+vbExclamation警告ExitSubEndIf提示警告信息str=MsgBox是否删除当前记录?vbOKCancel删除当前记录Ifstr=vbOKThentxtTest=selectAffIdfromtbAffEquipwhereAffId=+TrimtxtAffId.Text+检验该附属设备是否存在IfDBExisttxtTest=0ThenMsgBox无此附属设备!vbOKOnly+vbExclamation警告ElsetxtSQL=deletefromtbAffEquipwhereAffId=+TrimtxtAffId.Text+results=ExecuteSQLtxtSQLrstAffEquipTrueMsgBox删除成功!vbOKOnly+vbExclamation警告CalltxtClearCallviewDataAffEquipEndIfEndIfEndSub
5.附属设备信息录入修改按钮代码PrivateSubcmdModify_Click检验修改记录是否选定IftxtIsNulltxtAffIdThenMsgBox请选择需要修改的记录!vbOKOnly+vbExclamation警告ExitSubEndIfstr=MsgBox是否修改当前记录?vbOKCancel修改当前记录提示警告信息Ifstr=vbOKThentxtTest=selectAffIdfromtbAffEquipwhereAffId=+TrimtxtAffId.Text+检验该附属设备是否存在IfDBExisttxtTest=0ThenMsgBox无此附属设备,请添加或重新输入!vbOKOnly+vbExclamation警告ElseIfIsOverStringLentxtAffName.Text30OrTrimtxtAffName.Text=ThenMsgBox附属设备名称不能为空且不能超过30位!vbOKOnly+vbExclamation警告txtAffName.SetFocusExitSubEndIfIfTrimtxtNumber.TextAndIsNumerictxtNumber=FalseThenMsgBox数量必须为数值型!vbOKOnly+vbExclamation警告txtNumber.SetFocusExitSubEndIftxtSQL=updatetbAffEquipsetAffName=+TrimtxtAffName.Text+Type=+TrimtxtType.Text+Manufacturer=+TrimtxtManufacturer.Text+Unit=+TrimtxtUnit.Text+Number=+TrimtxtNumber.Text+Specs=+TrimtxtSpecs.Text+AffDes=+TrimtxtAffDes.Text+whereAffId=+TrimtxtAffId.Text+results=ExecuteSQLtxtSQLrstAffEquipTrueMsgBox修改成功!vbOKOnly+vbExclamation警告CalltxtClearCallviewDataAffEquipEndIfEndIfEndSub记录人使用单位折价价格购入价格设备名称设备台帐维修费用负责人维修日期故障时间故障类别设备耗能情况管理设备维修情况记录设备故障记录设备起停情况记录设备运行情况记录附属设备信息设备类别定义报废报废前折价购买日期型号报废原因报废时间设备名称设备报废设备基本信息修改密码用户管理报废管理台帐管理设备运行管理设备信息录入系统管理登录企业设备管理系统系统用户用户名密码用户权限基本设备设备编号设备名称型号制造厂商外观尺寸规格重量使用年限制造日期附属设备附属设备编号附属设备名称型号制造厂规格数量功能描述维修设备设备编号设备名称检修报告编号检修时间维修负责人维修费用设备耗能设备编号设备名称耗电量耗水量耗油量登录验证是否合法系统主界面修改当前用户设置各界面的操作退出废弃设备故障设备名称台帐结算设备维修设备耗能产生设备运行使用设备故障故障附属设备属于基本设备PAGE1。