User

UserInfo类型表示用户,包括以下属性:

UserInfo的方法有:

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集合,用于返回所有的用户,例如:

For Each us As UserInfo In Users
    Output.show(
"分组:" & us.Group)
    Output.Show(
"名称:" & us.Name)
Next

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

Dim us As UserInfo = Users("周明")
Output
.show("分组:" & us.Group)
Output
.Show("名称:" & us.Name)


本页地址:http://www.foxtable.com/webhelp/topics/0609.htm