共4 条记录, 每页显示 10 条, 页签: [1]

标题：关于提示信息

1楼

cxabc123 发表于：2010/9/1 9:06:00

With CurrentTable
    Dim Str1 As String = "用户: " & User.Name
    Str1 = Str1 & " 表名: " & .Name & " 总行数: "
    Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1)
    StatusBar.Message1 = Str1
End With

使用自定义用户管理后，上面这一段代码如何修改，请老大帮助

2楼

cxabc123 发表于：2010/9/1 9:25:00

老大请指导以下，对使用自定义用户后，如何修改系统原由的代码就是不会，请指点一下

3楼

狐狸爸爸 发表于：2010/9/1 9:58:00

你既然用自定义用户管理吗，系统自带的用户名当然就么有意义了，其实那段帮助已经告诉你了的：

经过上述10个步骤的设计，我们已经建立了自己的用户管理和登录系统，用户登录后，用户名保存在全局变量_User中，用户分组保存在全局变量_UserGroup中。

我们只需对原来的权限代码稍作修改，即可适用自定义的用户管理系统，例如原来的代码为：

If User.Group = "经理" Then
DataTables("表A").AllowEdit = True
Else
DataTables("表A").AllowEdit = False
End If

现在只需改为：

If _UserGroup = "经理" Then
DataTables("表A").AllowEdit = True
Else
DataTables("表A").AllowEdit = False
End If

可以看出，自定义的用户管理系统，在应用上和内置的不会有任何差别。

上面是用用户分组，如果你用的是用户名，那么将User.Name用_UserName代替即可，道理是一回事。

帮组中这个示例讲得非常详细，最后仔细看看。

4楼

cxabc123 发表于：2010/9/1 10:09:00

明白了，谢谢

共4 条记录, 每页显示 10 条, 页签: [1]