Cls_User.rar_用户登录

Created By DM Wang,2001.1 本Class用来注册用户、修改密码、删除用户及用户登录。 类名：uUser 方法： .Newuser(Optional GradeOfOperater As Integer = 0, Optional Icon As Object) 注册用户 .ModifyUser(Optional Icon As Object) 修改用户密码 .DeleteUser(Optional GradeOfOperater As Integer = 0, Optional Icon As Object) 删除用户 .QueryUser(Optional DisplayFlg As Boolean = False, Optional Icon As Object) As ADODB.Recordset 查询用户 .Login(Optional Icon As Object) As Boolean 用户登录，返回True表示成功，否则为登录失败 .GetUserName() As String 用户名称 .GetUserGradeNo() As Integer 登录成功后返回登录用户的操作级别的数码 .GetGradeDescription() As String 登录成功后返回登录用户的操作级别的描述 .GetUserDescription() As String 登录成功后返回登录用户的描述 .GetMaxGradeNo() As Integer 系统设定的最大操作级别号码 .SetMaxGradeNo(Optional GradeOfOperater As Integer = 0) As Integer 设定最大操作级别号码