智能电表收费管理系统毕业设计.docx

1、智能电表收费管理系统毕业设计 毕业设计电表管理系统摘 要1Abstract2第一章 引言411 课题背景412 系统简介5第二章 系统的分析621 系统开发的目标和思想622 系统的可行性分析8第三章 系统的设计1831 系统的功能结构设计1832 系统的数据库设计33 界面设计与代码设计2324结束语46致谢47参考文献48摘 要 传统的电费管理都是由工作人员手工查表,抄表完成的,其中要完成用户电费的收取,每月抄度,用户购电情况查询,以及列出欠费用户的信息名单,之类的信息.其工作强度大,工作流程繁琐,由于工作人员的不细心,将会造成电费收支的出错也是经常发生的.鉴于以上原因我们有必要开发一种帮

2、作电费管理人员的软件系统,可以完成检查用户用电情况,每月抄度,信息录入以及基本数据维护的各项功能.本系统采用visual basic 6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全.矚慫润厲钐瘗睞枥庑赖。关键字: 电费管理,visual basic, Access,数据库AbstractElectricity from the traditional management staff are artisanal Chabiao, meter reading completed, which should be completed by the users of

3、 electricity per month penalty for users to buy electricity enquiries, and a list of user information channels list such information. Its work-intensive, cumbersome workflow, because staff are not careful. would result in the tariff revenue is recurring mistakes. Given the above reasons we need to d

4、evelop a management software to help make electricity system, the user can complete the inspection of electricity monthly copied degrees, Information includes basic data and the maintenance function. with the system using visual basic Microsoft Access 6.0 database. as far as possible humanization in

5、terface, data maintenance to reliable security. keyword : tariff management, visual basic, Access, the database聞創沟燴鐺險爱氇谴净。第一章 引言11 课题背景传统的电费管理都是由工作人员手工查表,抄表完成的,其中要完成用户电费的收取,每月抄度,用户购电情况查询,以及列出欠费用户的信息名单,之类的信息.其工作强度大,工作流程繁琐,由于工作人员的不细心,将会造成电费收支的出错也是经常发生的.鉴于以上原因我们有必要开发一种帮作电费管理人员的软件系统,可以完成检查用户用电情况,每月抄度,信息

6、录入以及基本数据维护的各项功能.本系统采用visual basic 6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全.残骛楼諍锩瀨濟溆塹籟。12 系统简介 本系统主要由以下几大功能模块组成:一. 用户交费:(交纳电费,本日小节)二. 本月抄度:(单户抄度 多户抄度)三. 资料导出 (全部清单,欠费清单)四. 数据查询 (电费查询与统计,用户欠费查询)五. 信息录入 (资料录入,资料修改, 资料删除)六. 系统数据维护 (数据备份,数据恢复)七. 基本数据维护 (用户类型维护, 操作员维护)八. 帮助九. 退出第二章 系统的分析21 系统开发的目标和思想 本系统主

7、要服务于电费管理人员的日常工作.设计思路主要参照工作人员抄表,记录资料,资料管理,信息录入等方面的工作流程展开的.酽锕极額閉镇桧猪訣锥。22 系统的可行性分析本系统采用visual basic6.0与微软的access作为数据库结合.在系统编写上具有可行性.经济方面:本系统可以服务电厂,电费管理单位,为企业节省人力开支.社会方面:服务于大众,方便抄表人员工作,可靠方便.第三章 系统的设计31 系统的功能结构设计退出32 系统的数据库设计1. 用户类型表:字段名称数据类型说明ATypeID自动编号AType文本电费类型UNITPRICE货币Adate日期/时间电费设置日期2. 密码表: 字段名称

8、数据类型姓名文本操作权限文本密码文本3. MaxID表:字段名称数据说明TableName文本MaxID数字33 界面设计与代码设计1.用户登陆界面设计:34 界面设计与代码设计用户登陆界面代码分析:Private Sub Command1_Click()Dim rstpchard As New ADODB.RecordsetDim reHard As StringDim getid As StringreHard = GetpcHard(getid)rstpchard.Open select * from getpchard , gCnn, adOpenKeyset, adLockBatch

9、Optimistic彈贸摄尔霁毙攬砖卤庑。If rstpchard.RecordCount = 0 Then rstpchard.AddNew rstpchard.Fields(0) = reHard rstpchard.UpdateBatch adAffectCurrentElse If Trim(reHard) Trim(rstpchard.Fields(0) Then MsgBox 对不起，使用不合法请与开发者联系！ , vbInformation End End IfEnd IfIf Check1.Value = 1 ThenSet rec = New ADODB.Recordsetr

10、ec.Open select * from 记住密码, gCnn, 3, 3rec(标记) = 1If Combo2.Text Thenrec(姓名) = Combo2.TextElserec(姓名) = End IfIf Combo1.Text Thenrec(权限) = Combo1.TextElserec(权限) = End IfIf Text2.Text Thenrec(密码) = Text2.TextElserec(密码) = End Ifrec.Updaterec.CloseElseSet rec = New ADODB.Recordsetrec.Open select * fro

11、m 记住密码, gCnn, 3, 3rec(标记) = 0rec.Updaterec.CloseEnd IfDim rec1 As ADODB.RecordsetSet rec1 = New ADODB.Recordsetrec1.Open select * from 登录人员, gCnn, 3, 3Set rec = New ADODB.Recordsetrec.Open select * from 密码表 where 姓名= & Combo2.Text & and 操作权限= & Combo1.Text & and 密码= & Text2.Text & , gCnn, 3, 3謀荞抟箧飆鐸

12、怼类蒋薔。If rec.EOF = False Then If rec(操作权限) 管理员 Then FRMMAIN.XZCK.Enabled = False MDIme.mczy.Enabled = False MDIme.xtwh.Enabled = False MDIme.del.Enabled = False FRMMAIN.DJGL.Enabled = False FRMMAIN.delte.Enabled = False Else Me.XZCK.Enabled = True MDIme.mczy.Enabled = True MDIme.xtwh.Enabled = True C

13、reateNewKey HKEY_CURRENT_USER, ZhiYuanTechnologe厦礴恳蹒骈時盡继價骚。 SetKeyValue HKEY_CURRENT_USER, ZhiYuanTechnologe, UserName, dlj, REG_SZ茕桢广鳓鯡选块网羈泪。 SetKeyValue HKEY_CURRENT_USER, ZhiYuanTechnologe, PassWord, dlj, REG_SZ鹅娅尽損鹌惨歷茏鴛賴。 FRMMAIN.DJGL.Enabled = True FRMMAIN.delte.Enabled = True End If rec1(姓名) =

14、 Combo2.Text rec1.Update rec1.Close Me.Hide Guser = Combo2.Text MDIme.ShowElse MsgBox 权限或密码不正确，请重试!, vbInformationEnd Ifrec.CloseEnd SubPrivate Sub Command11_Click()End SubPrivate Sub Command2_Click()Combo2.Text = Text2.Text = Combo1.Text = End Sub Private Sub Command3_Click()EndEnd SubPrivate Sub C

15、ommand4_Click()Me.HideFRMMMXG.Show 1End Sub Private Sub Form_Activate()Text2.Text = Combo1.Text = Combo2.Text = Set rec = New ADODB.Recordsetrec.Open select * from 记住密码, gCnn, 3, 3If rec(标记) = 0 Or rec(标记) = 1 ThenCheck1.Value = rec(标记)End Ifrec.CloseSet rec = New ADODB.Recordsetrec.Open select * fr

16、om 记住密码, gCnn, 3, 3If rec(标记) = 1 ThenCombo2.Text = rec(姓名)Combo1.Text = rec(权限)Text2.Text = rec(密码)End Ifrec.CloseCommand1.SetFocusEnd SubPrivate Sub Form_Load()gCnn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= & DbPassword & ;Data Source= & _籟丛妈羥为贍偾蛏练淨。App.Path

17、& datadbdb.mdb;Persist Security Info=False預頌圣鉉儐歲龈讶骅籴。gCnn.CursorLocation = adUseClientgCnn.OpenSet rec = New ADODB.Recordsetrec.Open select distinct 姓名 from 密码表, gCnn, 3, 3With Combo2Do Until rec.EOF.AddItem rec(姓名)rec.MoveNextLoopEnd Withrec.CloseSet rec = NothingEnd SubPrivate Sub Form_QueryUnload

18、(Cancel As Integer, UnloadMode As Integer)渗釤呛俨匀谔鱉调硯錦。Cancel = TrueSelect Case MsgBox(此操作将退出本系统，继续吗？, vbYesNo, 警告)铙誅卧泻噦圣骋贶頂廡。Case vbYesCancel = FalseEndCase ElseCancel = TrueEnd SelectEnd Sub2.主界面设计:主界面代码设计:Private Sub alllm_Click()frmList.qfFlg = FalsefrmList.ShowEnd SubPrivate Sub backup_Click() fr

19、mbeifen.ShowEnd SubPrivate Sub benrixiaojie_Click()frmCount.ShowEnd SubPrivate Sub Command1_Click()frameFee.Visible = FalseEnd SubPrivate Sub cmdQuery_Click() Dim rst As New ADODB.Recordset rst.Open select * from panelinfo where holder= & Me.txtUser & and delflagtrue , gCnn, adOpenStatic, adLockBatc

20、hOptimistic擁締凤袜备訊顎轮烂蔷。 If rst.RecordCount 0 Then dcvalue.Text = rst.Fields(2) txtUserName(0) = rst.Fields(1) txtUserName(1) = rst.Fields!nowecount txtUserName(2) = rst.Fields!cendcode dtpwdate.Value = rst.Fields(4) txtUserName(3) = Format(rst.Fields!lMoney, #0.00)贓熱俣阃歲匱阊邺镓騷。 txtUserName(4) = Format(

21、rst.Fields!bmoney, #0.00)坛摶乡囂忏蒌鍥铃氈淚。 txtUserName(6) = Format(rst.Fields!lsFee, #0.00)蜡變黲癟報伥铉锚鈰赘。 txtUserName(5) = txtUserName(1) * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 - rst.Fields!lightScale / 100)買鲷鴯譖昙膚遙闫撷凄。 txtUserName(5) = Format(txtUserName(1)

22、 * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + rst.Fields!nowecount * rst.Fields!bmoney * (1 - rst.Fields!lightScale / 100), #0.00)綾镝鯛駕櫬鹕踪韦辚糴。 txtUserName(8) = rst.Fields(9) txtUserName(7) = Format(Val(txtUserName(5) + Val(txtUserName(6), #0.00)驅踬髏彦浃绥譎饴憂锦。 dcNum.Text = rst.Fields(1) Else Msg

23、Box 没有查询到数据! , vbInformation End If rst.Close Set rst = NothingEnd SubPrivate Sub dcNum_Click(Area As Integer) Dim rst As New ADODB.Recordset rst.Open select * from panelinfo where holderid= & dcNum.Text & and delflagtrue , gCnn, adOpenKeyset, adLockBatchOptimistic猫虿驢绘燈鮒诛髅貺庑。 If Not rst.EOF Then dcv

24、alue.Text = rst.Fields(2) txtUserName(0) = rst.Fields(1) txtUserName(1) = rst.Fields!nowecount txtUserName(2) = rst.Fields!cendcode dtpwdate.Value = rst.Fields(4) txtUserName(3) = Format(rst.Fields!lMoney, #0.00)锹籁饗迳琐筆襖鸥娅薔。 txtUserName(4) = Format(rst.Fields!bmoney, #0.00)構氽頑黉碩饨荠龈话骛。 txtUserName(6)

25、= Format(rst.Fields(8), #0.00) txtUserName(5) = Format(txtUserName(1) * txtUserName(3) * (rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 - rst.Fields!lightScale / 100), #0.00)輒峄陽檉簖疖網儂號泶。 txtUserName(8) = rst.Fields(9) txtUserName(7) = Format(Val(txtUserName(5) + Val(txtUserName(

26、6), #0.00)尧侧閆繭絳闕绚勵蜆贅。 End If rst.CloseEnd SubPrivate Sub dcvalue_Click(Area As Integer) Dim rst As New ADODB.Recordset rst.Open select * from panelinfo where holderid= & dcvalue.BoundText & and delflagtrue , gCnn, adOpenStatic, adLockBatchOptimistic识饒鎂錕缢灩筧嚌俨淒。 If Not rst.EOF Then dcvalue.Text = rst.

27、Fields(2) txtUserName(0) = rst.Fields(1) txtUserName(1) = rst.Fields!nowecount txtUserName(2) = rst.Fields!cendcode dtpwdate.Value = rst.Fields(4) txtUserName(3) = Format(rst.Fields!lMoney, #0.00)凍鈹鋨劳臘锴痫婦胫籴。 txtUserName(4) = Format(rst.Fields!bmoney, #0.00)恥諤銪灭萦欢煬鞏鹜錦。 txtUserName(6) = Format(rst.Fie

28、lds!lsFee, #0.00)鯊腎鑰诎褳鉀沩懼統庫。 txtUserName(5) = txtUserName(1) * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + txtUserName(1) * txtUserName(4) * (1 - rst.Fields!lightScale / 100)硕癘鄴颃诌攆檸攜驤蔹。 txtUserName(5) = Format(txtUserName(1) * rst.Fields!lMoney * (rst.Fields!lightScale / 100) + rst.Fields!nowecount * rst.Fields!bmoney * (1 - rst.Fields!lightScale / 100), #0.00)阌擻輳嬪諫迁择楨秘騖。 txtUserName(8) = rst.Fields(9) txtUserName(7) = Format(Val(txtUserName(5) + Val(txtUserName(6), #0.00)氬嚕躑竄贸恳彈瀘颔澩。 dcNum.Text = rst.Fields(1) End If rst.C