户籍管理代码实现.docVIP

系统用户管理模块 系统用户模块主要实现： 用户登陆；添加用户；修改用户密码。 功能：本模块的主要功能是对用户身份进行验证，只有系统的合法用户才能进入系统，并进行用户管理，包括添加用户和修改用户密码。 系统登录流程图 1、登陆系统实现代码： Option Explicit Private Sub Commcancel_Click End End Sub Private Sub Commok_Click Dim username As String Dim password As String Dim local_db As String Dim Cnn As New ADODB.Connection Dim rst As New ADODB.Recordset If Text1.Text Then MsgBox 请输入用户名, , 警告 Text1.SetFocus Else If Text2.Text Then MsgBox 请输入密码, , 警告 Text2.SetFocus End If If Text1.Text And Text2.Text Then Set Cnn New ADODB.Connection Set rst New ADODB.Recordset Cnn.Open Provider Microsoft.Jet.OLEDB.4.0;Data Source + App.Path \data\db.mdb + ;Persist Security Info False; 连接数据库 username Trim Text1.Text password Text2.Text local_db select 用户名 from 用户表 + _ where 用户表.用户名 + + _ username + rst.Open local_db, Cnn If Not rst.BOF And rst.EOF Then rst.Close local_db select 密码 from 用户表 + _ where 用户表.用户名 + + _ username + and + _ 用户表.密码 + + password + rst.Open local_db, Cnn If Not rst.BOF And rst.EOF Then userid Text1.Text Unload frmdl If username admin Then mainfrm.xitong.Enabled True mainfrm.bdb.Enabled True Else mainfrm.xitong.Enabled False mainfrm.bdb.Enabled False End If mainfrm.Show Else MsgBox 您输入的密码不正确，请重新输入！, , 警告 Text2.Text Text2.SetFocus End If Else MsgBox 系统中无此用户, , 警告 Text1.Text Text1.SetFocus End If End If End If End Sub UserName Trim txtUserName.Text userpassword Trim txtpassword.Text str select * from 用户信息表 where 用户名 UserName and 用户密码 userpassword rs.Open str, connectString, adOpenKeyset, 2 If rs.EOF Then 登录失败 MsgBox 对不起，无此用户或者密码不正确！请重新输入！！, vbCritical, 错误 txtUserName.Text txtpassword.Text txtUserName.SetFocus nTryCount nTryCount + 1 If nTryCount 3 Then MsgBox 您无权操作本系统！, vbCritical, 无权限 Unload Me End If Else 登陆成功 2、添加用户实现代码： 管理员需要两次输入密码，用来确保输入密码的正确，用户密码输入信息完毕，单击“确定”，系统将首先查询数据库中与该用户名相同的记录，如果有相同记录将提示用户重新输入用户名。当确定数据库中没有相同的记录，并且两次输入密码一致时将把该条记录添加到数据库中。 单击“取消”按钮将取消添加用户的操作。 Private Sub Com