资源描述：
《VB+access电表管理系统参考资料.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第一章系统的设计3．1系统的功能结构设计程序登陆主界面用户交费本月抄费资料导出数据查询信息录入系统数据维护基本数据维护帮助退出3．2系统的数据库设计1.用户类型表:字段名称数据类型说明ATypeID自动编号AType文本电费类型UNITPRICE货币Adate日期/时间电费设置日期1.密码表:字段名称数据类型姓名文本操作权限文本密码文本2.MaxID表:字段名称数据说明TableName文本MaxID数字3．1界面设计与代码设计1.用户登陆界面设计:3．2界面设计与代码设计用户登陆界面代码分析:Pr
2、ivateSubCommand1_Click()DimrstpchardAsNewADODB.RecordsetDimreHardAsStringDimgetidAsStringreHard=GetpcHard(getid)rstpchard.Open"select*fromgetpchard",gCnn,adOpenKeyset,adLockBatchOptimisticIfrstpchard.RecordCount=0Thenrstpchard.AddNewrstpchard.Fields(0)
3、=reHardrstpchard.UpdateBatchadAffectCurrentElseIfTrim(reHard)<>Trim(rstpchard.Fields(0))ThenMsgBox"对不起，使用不合法请与开发者联系！",vbInformationEndEndIfEndIfIfCheck1.Value=1ThenSetrec=NewADODB.Recordsetrec.Open"select*from记住密码",gCnn,3,3rec("标记")="1"IfCombo2.Text<>"
4、"Thenrec("姓名")=Combo2.TextElserec("姓名")=""EndIfIfCombo1.Text<>""Thenrec("权限")=Combo1.TextElserec("权限")=""EndIfIfText2.Text<>""Thenrec("密码")=Text2.TextElserec("密码")=""EndIfrec.Updaterec.CloseElseSetrec=NewADODB.Recordsetrec.Open"select*from记住密码",gCnn,3,
5、3rec("标记")="0"rec.Updaterec.CloseEndIfDimrec1AsADODB.RecordsetSetrec1=NewADODB.Recordsetrec1.Open"select*from登录人员",gCnn,3,3Setrec=NewADODB.Recordsetrec.Open"select*from密码表where姓名='"&Combo2.Text&"'and操作权限='"&Combo1.Text&"'and密码='"&Text2.Text&"'",gCnn,3,
6、3Ifrec.EOF=FalseThenIfrec("操作权限")<>"管理员"Then'FRMMAIN.XZCK.Enabled=FalseMDIme.mczy.Enabled=FalseMDIme.xtwh.Enabled=FalseMDIme.del.Enabled=False'FRMMAIN.DJGL.Enabled=False'FRMMAIN.delte.Enabled=FalseElse'Me.XZCK.Enabled=TrueMDIme.mczy.Enabled=TrueMDIme.x
7、twh.Enabled=TrueCreateNewKeyHKEY_CURRENT_USER,"ZhiYuanTechnologe"SetKeyValueHKEY_CURRENT_USER,"ZhiYuanTechnologe","UserName",dlj,REG_SZSetKeyValueHKEY_CURRENT_USER,"ZhiYuanTechnologe","PassWord",dlj,REG_SZ'FRMMAIN.DJGL.Enabled=True'FRMMAIN.delte.Enable
8、d=TrueEndIfrec1("姓名")=Combo2.Textrec1.Updaterec1.CloseMe.HideGuser=Combo2.TextMDIme.ShowElseMsgBox"权限或密码不正确，请重试!",vbInformationEndIfrec.CloseEndSubPrivateSubCommand11_Click()EndSubPrivateSubCommand2_Click()Combo2.Text=""Text2.Text=""Com
