Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何切换用户


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

主题：如何切换用户
帅哥哟，离线，有人找我吗？
zhangchi96
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：555 积分：5037 威望：0 精华：0 注册：2012/2/11 13:27:00 		如何切换用户  发帖心情 Post By：2018/1/13 17:28:00 [只看该作者]

1、系统已有的用户名：开发者、管理员，又增加了两个用户：科长、组长，密码都是123

2、设计了一个登录窗体，在登录窗体启动时，默认用户是：科长

3、启动了登录窗体后，在登录窗体设置了两个单选框控件，计划用来切换用户，当前是默认用户：科长
    
    控件代码：
Dim 科长 As WinForm.radiobutton = e.Form.Controls("科长")
Dim 组长 As WinForm.radiobutton = e.Form.Controls("组长")
If 组长.checked = True Then
    科长.checked = False
    组长.ForeColor = Color.green
    科长.ForeColor = Color.gray
    Forms("登录窗体").Controls("页面集合").SelectedIndex = 1
    If User.Name = "科长" Then
         User.Name = "组长"
    End If
End If

红色部分显示错误，请大师指点，说明书里叙述到设计一个全局变量，如果不设计全局变量，这里改怎么写？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107699 积分：547816 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/13 17:33:00 [只看该作者]

If User.Name = "科长" Then
         Forms("登录窗体").Controls("用户名").Text = "组长"
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
zhangchi96
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：555 积分：5037 威望：0 精华：0 注册：2012/2/11 13:27:00 		  发帖心情 Post By：2018/1/13 20:46:00 [只看该作者]

请问，这里  Forms("登录窗体").Controls("用户名").Text = "组长" 中的登录窗体是系统的窗体，还是我自己写的窗体？

 

（Forms("登录窗体").Controls("页面集合").SelectedIndex = 1 里的窗体是我自己创建的）

 

 

刚试了一下，没有成功，个人觉得是不是用“系统菜单”里的切换用户功能，就是不知道代码是什么？

[此贴子已经被作者于2018/1/13 21:43:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/14 19:38:00 [只看该作者]

1、如果你要用内置的用户，那你只能用内置的登陆窗口、切换窗口。

 

2、如果你要单独设计窗口，那你就要自己处理用户表 http://www.foxtable.com/webhelp/scr/2945.htm

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