User

UserInfo类型表示用户，包括以下属性：

• Name
  返回用户名
   
• Group
  返回用户分组
  　
• Roles
  返回用户的角色，一个用户可以有多个角色，用逗号分隔。
   
• Default
  逻辑型，如果是默认用户，则返回True，否则返回False
   
• Type
  返回用户级别(类型)，UserTypeEnum型枚举，包括以下可选值:
  
  Developer: 开发者
  Administrator：管理员
  User：普通用户。
  　
• ExtendedValues
  扩展用户属性集合，可以获得指定名称的扩展用户属性值。

UserInfo的方法有：

• IsRole
  判断用户是否属于某个角色，语法：
  
  IsRole(Role)
  
  Role：角色名称

Foxtable直接提供了一个UserInfo类型的系统变量User，表示当前登录用户。

在命令窗口执行下面的代码，可以列出当前登录用户的信息：

Output.Show("用户名:" & User.Name)
Output.Show("用户分组:" & User.Group)
Output.Show("用户角色:" & User.Roles)
Select Case User.Type
    Case UserTypeEnum.Developer
        Output.Show("用户级别:" & "开发者")
    Case UserTypeEnum.Administrator
        Output.Show("用户级别:" & "管理员")
    Case UserTypeEnum.User
        Output.Show("用户级别:" & "普通用户")
End Select

通过ExtendedValues集合，用于获得指定名称的扩展用户属性值，例如：

Dim IP As String
IP = User.ExtendedValues("IP")
Output.Show(IP)

通过IsRole方法，可以判断用户具备某个角色：

If User.IsRole("审核") Then
    MessageBox.Show("当前用户具备审核功能!")
End If

FoxTable还提供了一个Users集合，用于返回所有的用户，例如：

也可以直接获得指定名称的用户，例如：