电表管理系统

毕业设计电表管理系统班级____姓名____学号____摘要…………………………………………………………………………1Abstract………………………………………………………………………2第一章引言…………………………………………………………………41．1课题背景……………………………………………………………………41．2系统简介……………………………………………………………………5第二章系统的分析……………………………………………………………62．1系统开发的目标和思想……………………………………………………62．2系统的可行性分析…………………………………………………………8第三章系统的设计……………………………………………………………183．1系统的功能结构设计………………………………………………………183．2系统的数据库设计3．3界面设计与代码设计……………………………………………………………………23…………………………………………………………24结束语………………………………………………………………………………46致谢…………………………………………………………………………………47参考文献……………………………………………………………………………48摘要传统的电费管理都是由工作人员手工查表,抄表完成的,其中要完成用户电费的收取,每月抄度,用户购电情况查询,以及列出欠费用户的信息名单,之类的信息.其工作强度大,工作流程繁琐,由于工作人员的不细心,将会造成电费收支的出错也是经常发生的.鉴于以上原因我们有必要开发一种帮作电费管理人员的软件系统,可以完成检查用户用电情况,每月抄度,信息录入以及基本数据维护的各项功能.本系统采用visualbasic6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全.关键字:电费管理,visualbasic,Access,数据库AbstractElectricityfromthetraditionalmanagementstaffareartisanalChabiao,meterreadingcompleted,whichshouldbecompletedbytheusersofelectricitypermonthpenaltyforuserstobuyelectricityenquiries,andalistofuserinformationchannelslistsuchinformation.Itswork-intensive,cumbersomeworkflow,becausestaffarenotcareful.wouldresultinthetariffrevenueisrecurringmistakes.Giventheabovereasonsweneedtodevelopamanagementsoftwaretohelpmakeelectricitysystem,theusercancompletetheinspectionofelectricitymonthlycopieddegrees,Informationincludesbasicdataandthemaintenancefunction.withthesystemusingvisualbasicMicrosoftAccess6.0database.asfaraspossiblehumanizationinterface,datamaintenancetoreliablesecurity.keyword:tariffmanagement,visualbasic,Access,thedatabase第一章引言1．1课题背景传统的电费管理都是由工作人员手工查表,抄表完成的,其中要完成用户电费的收取,每月抄度,用户购电情况查询,以及列出欠费用户的信息名单,之类的信息.其工作强度大,工作流程繁琐,由于工作人员的不细心,将会造成电费收支的出错也是经常发生的.鉴于以上原因我们有必要开发一种帮作电费管理人员的软件系统,可以完成检查用户用电情况,每月抄度,信息录入以及基本数据维护的各项功能.本系统采用visualbasic6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全.1．2系统简介本系统主要由以下几大功能模块组成:一.用户交费:(交纳电费,本日小节)二.本月抄度:(单户抄度多户抄度)三.资料导出(全部清单,欠费清单)四.数据查询(电费查询与统计,用户欠费查询)五.信息录入(资料录入,资料修改,资料删除)六.系统数据维护(数据备份,数据恢复)七.基本数据维护(用户类型维护,操作员维护)八.帮助九.退出第二章系统的分析2．1系统开发的目标和思想本系统主要服务于电费管理人员的日常工作.设计思路主要参照工作人员抄表,记录资料,资料管理,信息录入等方面的工作流程展开的.2．2系统的可行性分析本系统采用visualbasic6.0与微软的access作为数据库结合.在系统编写上具有可行性.经济方面:本系统可以服务电厂,电费管理单位,为企业节省人力开支.社会方面:服务于大众,方便抄表人员工作,可靠方便.第三章系统的设计3．1系统的功能结构设计3．2系统的数据库设计1.用户类型表:字段名称数据类型说明ATypeID自动编号AType文本电费类型UNITPRICE货币Adate日期/时间电费设置日期2.密码表:字段名称数据类型姓名文本操作权限文本密码文本程序登陆主界面用户交费本月抄费资料导出数据查询信息录入系统数据维护基本数据维护帮助退出3.MaxID表:字段名称数据说明TableName文本MaxID数字3．3界面设计与代码设计1.用户登陆界面设计:3．4界面设计与代码设计用户登陆界面代码分析:PrivateSubCommand1_Click()DimrstpchardAsNewADODB.RecordsetDimreHardAsStringDimgetidAsStringreHard=GetpcHard(getid)rstpchard.Openselect*fromgetpchard,gCnn,adOpenKeyset,adLockBatchOptimisticIfrstpchard.RecordCount=0Thenrstpchard.AddNewrstpchard.Fields(0)=reHardrstpchard.UpdateBatchadAffectCurrentElseIfTrim(reHard)Trim(rstpchard.Fields(0))ThenMsgBox对不起，使用不合法请与开发者联系！,vbInformationEndEndIfEndIfIfCheck1.Value=1ThenSetrec=NewADODB.Recordsetrec.Openselect*from记住密码,gCnn,3,3rec(标记)=1IfCombo2.TextThenrec(姓名)=Combo2.TextElserec(姓名)=EndIfIfCombo1.TextThenrec(权限)=Combo1.TextElserec(权限)=EndIfIfText2.TextThenrec(密码)=Text2.TextElserec(密码)=EndIfrec.Updaterec.CloseElseSetrec=NewADODB.Recordsetrec.Openselect*from记住密码,gCnn,3,3rec(标记)=0rec.Updaterec.CloseEndIfDimrec1AsADODB.RecordsetSetrec1=NewADODB.Recordsetrec1.Openselect*from登录人员,gCnn,3,3Setrec=NewADODB.Recordsetrec.Openselect*from密码表where姓名='&Combo2.Text&'and操作权限='&Combo1.Text&'and密码='&Text2.Text&',gCnn,3,3Ifrec.EOF=FalseThenIfrec(操作权限)管理员Then'FRMMAIN.XZCK.Enabled=FalseMDIme.mczy.Enabled=FalseMDIme.xtwh.Enabled=FalseMDIme.del.Enabled=False'FRMMAIN.DJGL.Enabled=False'FRMMAIN.delte.Enabled=FalseElse'Me.XZCK.Enabled=TrueMDIme.mczy.Enabled=TrueMDIme.xtwh.Enabled=TrueCreateNewKeyHKEY_CURRENT_USER,ZhiYuanTechnologeSetKeyValueHKEY_CURRENT_USER,ZhiYuanTechnologe,UserName,dlj,REG_SZSetKeyValueHKEY_CURRENT_USER,ZhiYuanTechnologe,PassWord,dlj,REG_SZ'FRMMAIN.DJGL.Enabled=True'FRMMAIN.delte.Enabled=TrueEndIfrec1(姓名)=Combo2.Textrec1.Updaterec1.CloseMe.HideGuser=Combo2.TextMDIme.ShowElseMsgBox权限或密码不正确，请重试!,vbInformationEndIfrec.CloseEndSubPrivateSubCommand11_Click()EndSubPrivateSubCommand2_Click()Combo2.Text=Text2.Text=Combo1.Text=EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubCommand4_Click()Me.HideFRMMMXG.Show1EndSubPrivateSubForm_Activate()Text2.Text=Combo1.Text=Combo2.Text=Setrec=NewADODB.Recordsetrec.Openselect*from记住密码,gCnn,3,3Ifrec(标记)=0Orrec(标记)=1ThenCheck1.Value=rec(标记)EndIfrec.CloseSetrec=NewADODB.Recordsetrec.Openselect*from记住密码,gCnn,3,3Ifrec(标记)=1ThenCombo2.Text=rec(姓名)Combo1.Text=rec(权限)Text2.Text=rec(密码)EndIfrec.CloseCommand1.SetFocusEndSubPrivateSubForm_Load()gCnn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:databasepassword=&DbPassword&;DataSource=&_App.Path&\data\dbdb.mdb;PersistSecurityInfo=FalsegCnn.CursorLocation=adUseClientgCnn.OpenSetrec=NewADODB.Recordsetrec.Openselectdistinct姓名from密码表,gCnn,3,3WithCombo2DoUntilrec.EOF.AddItemrec(姓名)rec.MoveNextLoopEndWithrec.CloseSetrec=NothingEndSubPrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)Cancel=TrueSelectCaseMsgB