在帮助文件中看到，

新建一个名为“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)

以下是引用aduydgd在2014-1-26 15:41:00的发言：

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

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

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


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

[此贴子已经被作者于2014-1-26 15:43:41编辑过]

刚传了张图，再看看

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

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