电表管理系统VB(一)

电表管理系统VB(一)

结束语

本软件的设计目的是在电表收费管理维护方面为企事业单位和管理人员提供方便和帮助。通过这几个月的毕业设计，我学到很多以前没有学到的visual basic开发技术，在软件工程学上更是取得了很大的进步。经过大量的测试和试用，作者深信本软件达到了方便和实用的设计目的，并在软件界面和易用实用等方面有着独到之处。
虽然软件基本达到设计要求并且达到同行的先进水平，但由于作者水平有限，软件存在bug也是在所难免的，您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。

摘要

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

关键字: 电费管理,visual basic, Access,数据库

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

系统简介
本系统主要由以下几大功能模块组成:
用户交费:(交纳电费,本日小节)
本月抄度:(单户抄度多户抄度)
^论文导出 (全部清单,欠费清单)
数据查询 (电费查询与统计,用户欠费查询)
信息录入 (^论文录入,^论文修改, ^论文删除)
系统数据维护 (数据备份,数据恢复)
基本数据维护 (用户类型维护, 操作员维护)
帮助
退出

系统的分析

系统开发的目标和思想
本系统主要服务于电费管理人员的日常工作.设计思路主要参照工作人员抄表,记录^论文,^论文管理,信息录入等方面的工作流程展开的.

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

系统的设计

系统的功能结构设计

系统的数据库设计

用户类型表:

字段名称数据类型说明
ATypeID 自动编号
AType 文本电费类型
UNITPRICE 货币
Adate 日期/时间电费设置日期

密码表:

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

MaxID表:

字段名称数据说明
TableName 文本
MaxID 数字

界面设计与代码设计

1.用户登陆界面设计:

界面设计与代码设计

用户登陆界面代码分析:
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
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 & "'an