vb电表管理系统vb+access

摘  要…………………………………………………………………………1
Abstract………………………………………………………………………2
第一章  引言…………………………………………………………………4
1．1  课题背景……………………………………………………………………4
1．2  系统简介……………………………………………………………………5
第二章 系统的分析……………………………………………………………6
2．1  系统开发的目标和思想……………………………………………………6
2．2  系统的可行性分析…………………………………………………………8
第三章  系统的设计……………………………………………………………18
3．1  系统的功能结构设计………………………………………………………18
3．2  系统的数据库设计
3．3  界面设计与代码设计……………………………………………………………………23
…………………………………………………………24
结束语………………………………………………………………………………46
致谢…………………………………………………………………………………47

think58好，好think58 [资料来源：THINK58.com]

参考文献……………………………………………………………………………48 [来源：http://www.think58.com]

摘  要 [版权所有：http://think58.com]

      传统的电费管理都是由工作人员手工查表,抄表完成的,其中要完成用户电费的收取,每月抄度,用户购电情况查询,以及列出欠费用户的信息名单,之类的信息.其工作强度大,工作流程繁琐,由于工作人员的不细心,将会造成电费收支的出错也是经常发生的.鉴于以上原因我们有必要开发一种帮作电费管理人员的软件系统,可以完成检查用户用电情况,每月抄度,信息录入以及基本数据维护的各项功能.本系统采用visual basic 6.0与微软Access数据库方式.界面尽量做到人性化,数据维护方面做到可靠安全. think58 [资料来源：www.THINK58.com]

关键字: 电费管理,visual basic, Access,数据库 内容来自think58

1．2 系统简介
  本系统主要由以下几大功能模块组成:
一. 用户交费:(交纳电费,本日小节)
二. 本月抄度:(单户抄度 多户抄度)
三. 资料导出 (全部清单,欠费清单)
四. 数据查询  (电费查询与统计,用户欠费查询)
五. 信息录入 (资料录入,资料修改, 资料删除)
六. 系统数据维护 (数据备份,数据恢复)
七. 基本数据维护 (用户类型维护, 操作员维护)
八. 帮助
九. 退出 本文来自think58 [来源：http://www.think58.com]

第二章 系统的分析 think58好，好think58

[资料来源：http://www.THINK58.com]

2．1 系统开发的目标和思想
   本系统主要服务于电费管理人员的日常工作.设计思路主要参照工作人员抄表,记录资料,资料管理,信息录入等方面的工作流程展开的. 内容来自think58 [来源：http://think58.com]

2．2 系统的可行性分析
本系统采用visual basic6.0与微软的access作为数据库结合.在系统编写上具有可行性.
经济方面:本系统可以服务电厂,电费管理单位,为企业节省人力开支.
社会方面:服务于大众,方便抄表人员工作,可靠方便.

think58.com

[来源：http://www.think58.com]

[资料来源：http://think58.com]

第三章 系统的设计 think58

[版权所有：http://think58.com]

3．1 系统的功能结构设计 本文来自think58 [资料来源：http://think58.com]

 

copyright think58

[资料来源：http://THINK58.com]

[来源：http://think58.com]

3．2 系统的数据库设计 [来源：http://think58.com]

1. 用户类型表:

think58.com

[来源：http://think58.com]

字段名称 数据类型 说明
ATypeID 自动编号 
AType 文本 电费类型
UNITPRICE 货币 
Adate 日期/时间 电费设置日期 think58好，好think58 [资料来源：THINK58.com]

2. 密码表:

copyright think58

[资料来源：http://think58.com]

[资料来源：www.THINK58.com]

字段名称 数据类型
姓名 文本
操作权限 文本
密码 文本

3. MaxID表:

think58.com [来源：http://think58.com]

字段名称 数据说明
TableName 文本
MaxID 数字 本文来自think58 [资料来源：http://think58.com]

3．3 界面设计与代码设计 本文来自think58

1.用户登陆界面设计: [资料来源：http://THINK58.com]

3．4 界面设计与代码设计 think58.com

用户登陆界面代码分析:
Private Sub Command1_Click()
Dim rstpchard As New ADODB.Recordset
Dim reHard As String
Dim getid As String
reHard = GetpcHard(getid)
rstpchard.Open "select * from getpchard ", gCnn, adOpenKeyset, adLockBatchOptimistic
If rstpchard.RecordCount = 0 Then
   rstpchard.AddNew
   rstpchard.Fields(0) = reHard
   rstpchard.UpdateBatch adAffectCurrent
Else
 If Trim(reHard) <> Trim(rstpchard.Fields(0)) Then
    MsgBox " 对不起，使用不合法请与开发者联系！ ", vbInformation
    End
 End If
End If
If Check1.Value = 1 Then
Set rec = New ADODB.Recordset
rec.Open "select * from 记住密码", gCnn, 3, 3
rec("标记") = "1"
If Combo2.Text <> "" Then
rec("姓名") = Combo2.Text
Else
rec("姓名") = ""
End If
If Combo1.Text <> "" Then
rec("权限") = Combo1.Text
Else
rec("权限") = ""
End If
If Text2.Text <> "" Then
rec("密码") = Text2.Text

内容来自think58 [资料来源：http://think58.com]

Else
rec("密码") = ""
End If
rec.Update
rec.Close
Else
Set rec = New ADODB.Recordset
rec.Open "select * from 记住密码", gCnn, 3, 3
rec("标记") = "0"
rec.Update
rec.Close
End If
Dim rec1 As ADODB.Recordset
Set rec1 = New ADODB.Recordset
rec1.Open "select * from 登录人员", gCnn, 3, 3
Set rec = New ADODB.Recordset
rec.Open "select * from 密码表 where 姓名='" & Combo2.Text & "'and 操作权限='" & Combo1.Text & "'and 密码='" & Text2.Text & "'", gCnn, 3, 3
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
           CreateNewKey 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("姓名") = Combo2.Text
    rec1.Update
    rec1.Close
    Me.Hide copyright think58 [来源：http://www.think58.com]
    Guser = Combo2.Text
    MDIme.Show
Else
    MsgBox "权限或密码不正确，请重试!", vbInformation
End If
rec.Close
End Sub

copyright think58 [资料来源：www.THINK58.com]

[资料来源：www.THINK58.com]

Private Sub Command11_Click()

think58好，好think58

[资料来源：http://www.THINK58.com]

End Sub

think58

[来源：http://www.think58.com]

[资料来源：http://www.THINK58.com]

Private Sub Command2_Click()
Combo2.Text = ""
Text2.Text = ""
Combo1.Text = ""
End Sub think58好，好think58 [来源：http://think58.com]

Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Me.Hide
FRMMMXG.Show 1
End Sub

Private Sub Form_Activate() 内容来自think58 [资料来源：http://think58.com]

Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Set rec = New ADODB.Recordset
rec.Open "select * from 记住密码", gCnn, 3, 3
If rec("标记") = "0" Or rec("标记") = "1" Then
Check1.Value = rec("标记")
End If
rec.Close
Set rec = New ADODB.Recordset
rec.Open "select * from 记住密码", gCnn, 3, 3
If rec("标记") = 1 Then
Combo2.Text = rec("姓名")
Combo1.Text = rec("权限")
Text2.Text = rec("密码")
End If
rec.Close
Command1.SetFocus
End Sub
Private Sub Form_Load()
gCnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password= " & DbPassword & " ;Data Source= " & _
App.Path & "\data\dbdb.mdb;Persist Security Info=False"
gCnn.CursorLocation = adUseClient
gCnn.Open 内容来自think58

[资料来源：http://think58.com]

Set rec = New ADODB.Recordset
rec.Open "select distinct 姓名 from 密码表", gCnn, 3, 3
With Combo2
Do Until rec.EOF
.AddItem rec("姓名")
rec.MoveNext
Loop
End With
rec.Close
Set rec = Nothing
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
Select Case MsgBox("此操作将退出本系统，继续吗？", vbYesNo, "警告")
Case vbYes
Cancel = False
End
Case Else
Cancel = True
End Select
End Sub copyright think58

2.主界面设计:
参 考 文 献

think58.com

[来源：http://think58.com]

[来源：http://www.think58.com]

1陈明 . 软件工程学教程 .科技出版社，2002
2 萨师煊，王珊 . 数据库系统概论 . 第三版 . 高等教育出版社，2000
3 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，2003
4 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002
5 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，302
6 Steve Teixeira，Xaviver Pacheco著，龙劲松，王瑜，谢尚书译 . visual basic 6.0开发人员指南 . 机械工业出版社 .2003
内容来自think58

[资料来源：THINK58.com]