以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于提示信息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8043)
--  作者：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

 

使用自定义用户管理后，上面这一段代码如何修改，请老大帮助
--  作者：cxabc123
--  发布时间：2010/9/1 9:25:00
--  
老大请指导以下，对使用自定义用户后，如何修改系统原由的代码就是不会，请指点一下
--  作者：狐狸爸爸
--  发布时间：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代替即可，道理是一回事。

 

帮组中这个示例讲得非常详细，最后仔细看看。
--  作者：cxabc123
--  发布时间：2010/9/1 10:09:00
--  
明白了，谢谢