系统默认黄小国同志是登录状态
此主题相关图片如下：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编辑过]
加好友 
发短信
Post By：2014/6/9 0:26:00 [只看该作者]
