电表管理系统

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

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

第二章 系统的分析

think58.com

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

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

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

2．2 系统的可行性分析
本系统采用visual basic6.0与微软的access作为数据库结合.在系统编写上具有可行性.
经济方面:本系统可以服务电厂,电费管理单位,为企业节省人力开支.
社会方面:服务于大众,方便抄表人员工作,可靠方便.
用户登陆界面代码分析:
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 本文来自think58 [资料来源：www.THINK58.com]
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 & "'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 think58好，好think58 [版权所有：http://think58.com]
       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 本文来自think58

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

    End If
    rec1("姓名") = Combo2.Text
    rec1.Update
    rec1.Close
    Me.Hide
    Guser = Combo2.Text
    MDIme.Show
Else
    MsgBox "权限或密码不正确，请重试!", vbInformation
End If
rec.Close
End Sub

本文来自think58

[资料来源：THINK58.com]

Private Sub Command11_Click() copyright think58

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

End Sub 内容来自think58 [资料来源：www.THINK58.com]

Private Sub Command2_Click()
Combo2.Text = ""
Text2.Text = ""
Combo1.Text = ""
End Sub think58

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

Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Me.Hide
FRMMMXG.Show 1
End Sub think58.com [来源：http://www.think58.com]

Private Sub Form_Activate()

本文来自think58

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.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
本文来自think58 [资料来源：http://THINK58.com]