资源描述：
《户籍管理代码实现》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、系统用户管理模块系统用户模块主要实现：用户登陆；添加用户；修改用八密码。功能：本模块的主要功能是对用户身份进行验证，只有系统的合法用户才能进入系统，并进行用户管理，包括添加用户和修改用户密码。系统登录流程图1、登陆系统实现代码：OptionExplicitPrivateSubCommcancel_Click()EndEndSubPrivateSubCommok_Click()DimusernameAsStringDimpasswordAsStringDimlocal_dbAsStringDimCnnAsNewADODB.ConnectionDi
2、mrstAsNewADODB.RecordsetIfText1.Text=,n,ThenMsgBox“请输入用户名”,，”警告”Tcxtl.SctFocusElseIfText2.Text=,HIThenMsgBox“请输入密码”,，“警告”Text2.SetFocusEndIfIfText1.Text<>AndText2.Text<>""ThenSetCnn=NewADODB.ConnectionSetrst=NewADODB.RecordsetCnn.Open',Providcr=Microsoft.Jct.OLEDB.4.0;DataSo
3、urcc="+App.Path&"clatadb.mdb"+PersistSecurityInfo=False;u接数据库username=Trim(Textl.Text)password=Text2.Textlocal_db=Select用户名from用户表”+_nwhere用户表.用户名二“+…+_username+rs匸Openlocal_db,CnnIfNot(rst.BOFAndrst.EOF)Thenrst.Closelocal_db="select密码from用户表"+_Hwhere用户表.用户名=“+…+_username+
4、"'and"+_”用户表.密码二”++password+小”rst.Openlocal_db,CnnIfNot(rst.BOFAndrst.EOF)Thenuserid=Text1.TextUnloadfrmdlIfusername="admin"Thenmainfrm.xitong.Enabled=Truemainfrm.bdb.Enabled=TrueElsemainfrm.xitong.Enabled=Falsemainfrm.bdb.Enabled=FalseEndIfmainfrm.ShowElseMsgBox“您输入的密码不正确，请
5、重新输入！警告“Text2.Text二"Text2.SetFocusEndIfElseMsgBox“系统中无此用户”,,“警告”Text1.Text=,,nTextl.SetFocusEndIfEndIfEndIfEndSub(UscrNamc=Trim(txtUscrNamc.Tcxt)userpassword=Trim(txtpassword.Text)str="select*from用户信息表where用户名—”&UserName&and用户密码=*"&userpassword&n,Mrs.Openstr,connectString,ad
6、OpenKeyset,2Ifrs.EOFThen'登录失败MsgBox”对不起，无此用户或者密码不正确！请重新输入!!vbCritical,n错误”txtUserName.Text=MUtxtpassword.Text=HntxtUserName.SetFocusnTryCount=nTryCount+1IfnTryCount>=3ThenMsgBox”您无权操作本系统！“,vbCriticaL”无权限“UnloadMeEndIfElse'登陆成功)2、添加用户实现代码：管理员需要两次输入密码，用来确保输入密码的正确，用户密码输入信息完毕，单击
7、“确定”,系统将首先杳询数据库中与该用户名相同的记录，如果有相同记录将提示用户重新输入用户名。当确定数据库中没有相同的记录，并「L两次输入密码一致吋将把该条记录添加到数据库中。单击“取消”按钮将取消添加用户的操作。PrivateSubCommcancel_Click()frmzj.HideText1.Text二”“Text2.Text=,H,Text3.Text=Hnmainfrm.guanli.Enabled=Truemainfrm.chaxun.Enabled=Truemainfrm.tongji.Enabled=TrueIfuserid=
8、"admin"Thenmainfrm.xitong.Enabled=Truemainfrm.bdb.Enabled=TrueElsemainfrm.x
