| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何切换用户 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113332) |
| -- 作者：zhangchi96 -- 发布时间：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 红色部分显示错误，请大师指点，说明书里叙述到设计一个全局变量，如果不设计全局变量，这里改怎么写？
|
| -- 作者：有点蓝 -- 发布时间：2018/1/13 17:33:00 -- If User.Name = "科长" Then Forms("登录窗体").Controls("用户名").Text = "组长" End If
|
| -- 作者：zhangchi96 -- 发布时间：2018/1/13 20:46:00 -- 请问，这里 Forms("登录窗体").Controls("用户名").Text = "组长" 中的登录窗体是系统的窗体，还是我自己写的窗体？
（Forms("登录窗体").Controls("页面集合").SelectedIndex = 1 里的窗体是我自己创建的）
刚试了一下，没有成功，个人觉得是不是用“系统菜单”里的切换用户功能，就是不知道代码是什么？ [此贴子已经被作者于2018/1/13 21:43:26编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/1/14 19:38:00 -- 1、如果你要用内置的用户，那你只能用内置的登陆窗口、切换窗口。
2、如果你要单独设计窗口，那你就要自己处理用户表 http://www.foxtable.com/webhelp/scr/2945.htm
|