VB电表管理信息系统 第3页
第二章 系统的分析
2．1 系统开发的目标和思想
   本系统主要服务于电费管理人员的日常工作.设计思路主要参照工作人员抄表,记录资料,资料管理,信息录入等方面的工作流程展开的.
2．2 系统的可行性分析
本系统采用visual basic6.0与微软的access作为数据库结合.在系统编写上具有可行性.
经济方面:本系统可以服务电厂,电费管理单位,为企业节省人力开支.
社会方面:服务于大众,方便抄表人员工作,可靠方便.
第三章 系统的设计
3．1 系统的功能结构设计
3．2 系统的数据库设计
1. 用户类型表:
字段名称 数据类型 说明
ATypeID 自动编号 
AType 文本 电费类型
UNITPRICE 货币 
Adate 日期/时间 电费设置日期
2. 密码表:
字段名称 数据类型
姓名 文本
操作权限 文本
密码 文本
3. MaxID表:
字段名称 数据说明
TableName 文本
MaxID 数字
3．3 界面设计与代码设计
1.用户登陆界面设计:
3．4 界面设计与代码设计
用户登陆界面代码分析:
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 & "'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

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>