主题：[求助]自定义用户管理

在帮助文件中看到，

新建一个名为“Users”的表，包括Name、Group、Password三列，分别 用于保存用户名、用户分组和密码

四、在全局代码中定义两个变量：

 

Public _UserName As String
Public _UserGroup As String

 

我想问一下，我如果需要加入角色列，是不是在USERS表中增加一列：Roles ?

全局代码中是不是要这样修改：

四、在全局代码中定义两个变量：

 

Public _UserName As String
Public _UserGroup As String

Public _UserRoles As String

 

???

 

那么我再引用时怎么写？用内部用户管理和外部数据源，局限性太大了，高手帮帮忙，谢谢

但是我引用输出时，为什么得不到角色信息？

Output.Show("用户名:" & _UserName)
Output.Show("用户分组:" & _UserGroup)
Output.Show("用户角色:" & _UserRoles)

此主题相关图片如下：111.jpg


此主题相关图片如下：2222.jpg

刚传了张图，再看看

哦，有可能，是在登录窗口赋值吗？如果是这里，这段怎么修改一下？如果不是，那是在什么地方赋值，因为我其他两个变量也没有处理

 

Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.ConnectionName = "User"
If UserName = "" Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
cmd.CommandText = "Select * From {Users} Where [Name] = '" & UserName & "'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

这个呀，晕死，注册很早，都没怎么玩，呵呵，现在重新来过，谢谢