VB电表管理信息系统 第13页
第一章 系统的设计
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

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] 下一页