智能电表收费管理系统样本Word下载.docx

资源描述

智能电表收费管理系统样本Word下载.docx

《智能电表收费管理系统样本Word下载.docx》由会员分享，可在线阅读，更多相关《智能电表收费管理系统样本Word下载.docx（47页珍藏版）》请在冰豆网上搜索。

智能电表收费管理系统样本Word下载.docx

3．2系统数据库设计

3．3界面设计与代码设计……………………………………………………………………23

…………………………………………………………24

结束语………………………………………………………………………………46

道谢…………………………………………………………………………………47

参照文献……………………………………………………………………………48

摘要

老式电费管理都是由工作人员手工查表,抄表完毕,其中要完毕顾客电费收取,每月抄度,顾客购电状况查询,以及列出欠费顾客信息名单,之类信息.其工作强度大,工作流程繁琐,由于工作人员不细心,将会导致电费收支出错也是经常发生.鉴于以上因素咱们有必要开发一种帮作电费管理人员软件系统,可以完毕检查顾客用电状况,每月抄度,信息录入以及基本数据维护各项功能.本系统采用visualbasic6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全.

核心字：

电费管理,visualbasic，Access,数据库

Abstract

ElectricityfromthetraditionalmanagementstaffareartisanalChabiao，meterreadingcompleted，whichshouldbecompletedbytheusersofelectricitypermonthpenaltyforuserstobuyelectricityenquiries，andalistofuserinformationchannelslistsuchinformation.Itswork-intensive，cumbersomeworkflow，becausestaffarenotcareful.wouldresultinthetariffrevenueisrecurringmistakes.Giventheabovereasonsweneedtodevelopamanagementsoftwaretohelpmakeelectricitysystem，theusercancompletetheinspectionofelectricitymonthlycopieddegrees，Informationincludesbasicdataandthemaintenancefunction.withthesystemusingvisualbasicMicrosoftAccess6.0database.asfaraspossiblehumanizationinterface，datamaintenancetoreliablesecurity.

keyword：

tariffmanagement，visualbasic，Access，thedatabase

第一章引言

1．1课题背景

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.Recordset

DimreHardAsString

DimgetidAsString

reHard=GetpcHard（getid）

rstpchard.Open"

select*fromgetpchard"

，gCnn，adOpenKeyset，adLockBatchOptimistic

Ifrstpchard.RecordCount=0Then

rstpchard.AddNew

rstpchard.Fields（0）=reHard

rstpchard.UpdateBatchadAffectCurrent

Else

IfTrim（reHard）<

Trim（rstpchard.Fields（0））Then

MsgBox"

对不起，使用不合法请与开发者联系！

，vbInformation

End

EndIf

IfCheck1.Value=1Then

Setrec=NewADODB.Recordset

rec.Open"

select*from记住密码"

，gCnn，3，3

rec（"

标记"

）="

IfCombo2.Text<

Then

姓名"

）=Combo2.Text

IfCombo1.Text<

权限"

）=Combo1.Text

IfText2.Text<

密码"

）=Text2.Text

rec.Update

rec.Close

Dimrec1AsADODB.Recordset

Setrec1=NewADODB.Recordset

rec1.Open"

select*from登录人员"

select*from密码表where姓名='

Combo2.Text&

and操作权限='

Combo1.Text&

and密码='

Text2.Text&

Ifrec.EOF=FalseThen

Ifrec（"

操作权限"

）<

管理员"

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

CreateNewKeyHKEY_CURRENT_USER，"

ZhiYuanTechnologe"

SetKeyValueHKEY_CURRENT_USER，"

，"

UserName"

，dlj，REG_SZ

PassWord"

FRMMAIN.DJGL.Enabled=True

FRMMAIN.delte.Enabled=True

rec1（"

rec1.Update

rec1.Close

Me.Hide

Guser=Combo2.Text

MDIme.Show

权限或密码不对的，请重试!

EndSub

PrivateSubCommand11_Click（）

PrivateSubCommand2_Click（）

Combo2.Text="

Text2.Text="

Combo1.Text="

PrivateSubCommand3_Click（）

End

PrivateSubCommand4_Click（）

Me.Hide

FRMMMXG.Show1

展开阅读全文