Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于提示信息


  共有10363人关注过本帖树形打印复制链接

主题：关于提示信息
帅哥哟，离线，有人找我吗？
cxabc123
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：810 积分：5250 威望：0 精华：0 注册：2009/2/6 10:38:00 		关于提示信息  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：810 积分：5250 威望：0 精华：0 注册：2009/2/6 10:38:00 		  发帖心情 Post By：2010/9/1 9:25:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：810 积分：5250 威望：0 精华：0 注册：2009/2/6 10:38:00 		  发帖心情 Post By：2010/9/1 10:09:00 [只看该作者]

明白了，谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询