VB+access电表管理系统-参考资料.docVIP

系统的设计 系统的功能结构设计 系统的数据库设计 用户类型表: 字段名称 数据类型 说明 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 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