电表管理系统模板Word文件下载.docx
《电表管理系统模板Word文件下载.docx》由会员分享,可在线阅读,更多相关《电表管理系统模板Word文件下载.docx(50页珍藏版)》请在冰点文库上搜索。
![电表管理系统模板Word文件下载.docx](https://file1.bingdoc.com/fileroot1/2023-5/7/da77f07f-f28c-4bac-b907-a0f520f1e4dd/da77f07f-f28c-4bac-b907-a0f520f1e4dd1.gif)
参考文
献
……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课题背景
传统的电费管理都是由工作人员手工查表,抄表完成的,其中
要完成用户电费的收取,每月抄度,用户购电情况查询,以及列出欠费用户的信息名单,之类的信息.其工作强度大,工作流程繁琐,由于工作人员的不细心,将会造成电费收支的出错也是经常发生的.鉴于以上原因我们有必要开发一种帮作电费管理人员的软件系统,能够
完成检查用户用电情况,每月抄度,信息录入以及基本数据维护的各项功能.本系统采用visualbasic6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全.
1.2系统简介
本系统主要由以下几大功能模块组成:
一.用户交费:
(交纳电费,本日小节)
2.本月抄度:
(单户抄度多户抄度)
3.资料导出(全部清单,欠费清单)
4.数据查询(电费查询与统计,用户欠费查询)五.信息录入(资料录入,资料修改,资料删除)六.系统数据维护(数据备份,数据恢复)
七.基本数据维护(用户类型维护,操作员维护)八.帮助
九.退出
第二章系统的分析
2.1系统开发的目标和思想
本系统主要服务于电费管理人员的日常工作.设计思路主要参照
工作人员抄表,记录资料,资料管理,信息录入等方面的工作流程展开的.
2.2系统的可行性分析
本系统采用visualbasic6.0与微软的access作为数据库结合在系统编写上具有可行性.
经济方面:
本系统能够服务电厂,电费管理单位,为企业节省人力开支.
社会方面:
服务于大众,方便抄表人员工作,可靠方便.
第三章系统的设计
3.1系统的功能结构设计
3.2系统的数据库设计
1.用户类型表
字段名称
数据类型
说明
ATypelD
自动编号
AType
文本
:
电费类型
UNITPRICE
货币
Adate
日期/时间
电费设置日期
2.密码表:
姓名
操作权限
密码
3.MaxID表:
数据说明
TableName
MaxID
数字
3.3界面设计与代码设计
1•用户登陆界面设计:
用户登陆界面代码分析:
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"
对不起,使用不合法请与开发者联系!
"
vbInformationEnd
EndIf
IfCheck1.Value=1Then
Setrec=NewADODB.Recordset
rec.Open"
select*from记住密码"
gCnn,3,3
rec("
标记"
)="
1"
IfCombo2.Text<
"
Then
姓名"
)=Combo2.Text
IfCombo1.Text<
权限”)=Combol.Text
权限"
IfText2.Text<
密码”)=Text2.Text
密码"
rec.Update
rec.Close
0"
rec.Updaterec.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
Me.XZCK.Enabled=True
MDIme.mczy.Enabled=True
MDIme.xtwh.Enabled=True
CreateNewKeyHKEY_CURRENT_USER,"
ZhiYuanTechnologe"
SetKeyValueHKEY_CURRENT_USER,"
"
UserName"
dlj,REG_SZ
PassWord"
dlj,REG_SZ'
FRMMAIN.DJGL.Enabled=True
FRMMAIN.delte.Enabled=True
rec1("
rec1.Update
rec1.Close
Me.Hide
Guser=Combo2.Text
MDIme.Show
权限或密码不正确,请重试!
vbInformationEndIf
EndSub
PrivateSubCommand11_Click()
PrivateSubCommand2_Click()
Combo2.Text="
Text2.Text="
Combo1.Text="
PrivateSubCommand3_Click()
End
PrivateSubCommand4_Click()
FRMMMXG.Show1
PrivateSubForm_Activate()
Ifrec(”标记"
Orrec(”标记"
Check1.Value=rec("
标记"
)
标记”)=1Then
Combo2.Text=rec("
姓名"
Combo1.Text=rec("
权限"
Text2.Text=rec("
密码"
Command1.SetFocus
PrivateSubForm_Load()
gCnn.ConnectionString="
Provider=Microsoft.Jet.OLEDB.4.0;
JetOLEDB:
databasepassword="
DbPassword&
;
DataSource="
App.Path&
\data\dbdb.mdb;
PersistSecurityInfo=False"
gCnn.CursorLocation=adUseClient
gCnn.Open
selectdistinct姓名from密码表"
gCnn,3,3WithCombo2
DoUntilrec.EOF
.AddItemrec("
rec.MoveNext
Loop
EndWith
Setrec=Nothing
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAs
Integer)
Cancel=True
SelectCaseMsgBox("
此操作将退出本系统,继续吗?
vbYesNo,"
警告"
CasevbYes
Cancel=False
CaseElse
Cancel=True
EndSelect
2•主界面设计
甬q交畫唱丰口拱隹①费*49出⑺密磅兰谊尅洁左录入1匸1果極据龍护I町左$営据鮭a©
wabFji)堆出
主界面代码设计:
PrivateSuballlm_Click()frmList.qfFIg=False
frmList.Show
PrivateSubbackup_Click()
frmbeifen.Show
PrivateSubbenrixiaojie_Click()
frmCount.Show
frameFee.Visible=False
PrivateSubcmdQuery_Click()
DimrstAsNewADODB.Recordset
rst.Open"
select*frompanelinfowhereholder='
Me.txtUser
&
anddelflag<
true"
gCnn,adOpenStatic,adLockBatchOptimistic
Ifrst.RecordCount<
0Then
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(rst.Fields!
bmoney,"
txtUserName(6)=Format(rst.Fields!
lsFee,"
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!
lightScale/100)+rst.Fields!
nowecount*rst.Fields!
bmoney*(1-rst.Fields!
lightScale/100),"
txtUserName(8)=rst.Fields(9)
txtUserName(7)=Format(Val(txtUserName(5))+Val(txtUserName(6)),"
####0.00"
dcNum.Text=rst.Fields
(1)
没有查询到数据!
vbInformation
rst.Close
Setrst=Nothing
PrivateSubdcNum_Click(AreaAsInteger)
select*frompanelinfowhereholderid='
dcNum.Text
anddelflag<
IfNotrst.EOFThen
txtUserName(6)=Format(rst.Fields(8),"
txtUserName(5)=Format(txtUserName
(1)*txtUserName(3)*(rst.Fields!
txtUserName(7)=Format(Val(txtUserName(5))+
Val(txtUserName(6)),"
PrivateSubdcvalue_Click(AreaAsInteger)
dcvalue.BoundText&
lMoney(rst.Fields!
PrivateSubdcvalue_KeyPress(KeyAsciiAsInteger)
KeyAscii=0
PrivateSubdel_Click()
frmdel.Show
PrivateSubdhcb_Click()
usrcopyP.Show
PrivateSubdhcp_Click()frmCopyP.Show
PrivateSubduohu_Click()frmCuifei.muser1=2frmCuifei.Show
PrivateSubedit_Click()frmEdit.Show
PrivateSubexit_Click()
PrivateSubinsert_Click()
frmInsert.Show1
PrivateSubjiaonadianfei_Click()frmFee.Show
PrivateSubM_USERYTPE_Click()
FRMUSERTYPE.Show1
Private