主题：怎样让得到授权的用户拥有权限

Dim UserName As String = e.Form.Controls("UserName").Value

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim dr As DataRow

cmd.C

If UserName = ""  Then

    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

cmd.CommandText = "Select * F rom {Users} Where [Name] = '" & UserName & "'"

dt = cmd.ExecuteReader

If dt.DataRows.Count = 0 Then

    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Return

End If

dr = dt.DataRows(0)

If e.Form.Controls("PassWord").Value = dr("Password") Then

    _UserName = UserName

    _UserGroup = dr("Group")

    _combobox = dr("工作单位")

    _UserRole = dr("Role")

    _Usersf = dr("省份")

    _userdq = dr("地区")

    _Userxs = dr("县市")

   

Else

    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If