- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求教：用户切换登记后，怎么新增事件？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52086)
-- 发布时间：2014/6/9 0:26:00
-- 求教：用户切换登记后，怎么新增事件？
系统默认黄小国同志是登录状态
此主题相关图片如下：12.jpg
当进行了用户切换 后以李孝春账户登录
此主题相关图片如下：34.jpg
状态栏采用了计划事件，
代码为：
StatusBar.Message1 = "欢迎【" & User.Name & "】登录系统! 现在时间是【 " & Date.Now & "】"
当前登录用户：[]这个是标签事件，当窗体加载后进行显示当前登录用户名。
代码为：
Dim 变量名 As WinForm.Label = e.Form.Controls("Label55")
变量名.Text = "当前登录用户:【" & User.Name & "】"
求解：要求两处显示的名字同步更新。
当用户名字进行切换后，运行目录树刷新代码，实现权限的更新同步对应！
目录树刷新代码为：
Dim tr As WinForm.TreeView = Forms("考勤与来访登记").Controls("TreeView1")
tr.BuildTree("系统目录树", "系统分类|子系统|子节点|次节点", "用户名 like \'*" & user.name & "*\'","_Sortkey")
[此贴子已经被作者于2014-6-9 0:27:56编辑过]
-- 发布时间：2014/6/9 7:58:00
--
木子李的项目?
-- 发布时间：2014/6/9 8:00:00
--
检查下代码执行的地方
-- 发布时间：2014/6/9 9:31:00
--
更改显示的代码，请写到LoadUserSetting事件去
http://www.foxtable.com/help/topics/1323.htm
-- 发布时间：2014/6/9 11:09:00
-- 回复：（有点甜）更改显示的代码，请写到LoadUserSett...
有点甜老师 我不是想更换显示的代码 我是想当用户切换后 就刷新一次目录树 因为每个用户的目录树显示不一样嘛 求教啦
-- 发布时间：2014/6/9 11:10:00
-- 回复：（blackzhu） 木子李的项目?
老朱 是我 呵呵 弄个小项目来使用使用
-- 发布时间：2014/6/9 11:13:00
--
重新Build一次就刷新了啊,不会不行的. 实在不行上个例子看看
-- 发布时间：2014/6/9 15:18:00
-- 回复：（Bin）重新Build一次就刷新了啊,不会不行的. &...
BIN老师 实例附上 求解哦 先谢谢啦
此主题相关图片如下：00000000.jpg
实例：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树权限.zip |
用户切换后 即时执行
Dim tr As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
tr.BuildTree("表b", "系统分类|子系统|子节点", "用户名 like \'*" & user.name & "*\'","_Sortkey")
[此贴子已经被作者于2014-6-9 15:23:35编辑过]
-- 发布时间：2014/6/9 15:23:00
--
呃，楼主，这是简单的问题吧？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树权限.table |
-- 发布时间：2014/6/9 15:29:00
-- 回复：（有点甜） 呃，楼主，这是简单的问题吧？...
感谢有点甜老师 按照你的思路 完美实现切换后的效果 谢谢