| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 怎样设计自定义用户登录时的角色 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123450) |
| -- 作者：wjhjhj -- 发布时间：2018/8/15 10:43:00 -- 怎样设计自定义用户登录时的角色 设计“自定义用户”登录时，怎样设计用户“多角色”，并调用？ |
| -- 作者：有点甜 -- 发布时间：2018/8/15 10:53:00 -- 1、加一个【角色】列，在里面输入角色；
2、添加一个public变量 _UserRoles，把角色列的值存放起来。 |
| -- 作者：wjhjhj -- 发布时间：2018/8/15 16:37:00 -- 比照“自定义用户二”后，怎样设计： “十一、最后修改菜单中的"用户管理"和"切换用户"按钮的代码，启用"用户管理"按钮的代码为： Forms("用户管理").Open() "切换用户"按钮的代码为： Forms("用户登录").Open() 你可以先应用系统菜单“system.ribbon”，然后再修改。 如果需要，还可以增加一个更改密码的按钮，代码设置为： Forms("更改用户").Open()” |
| -- 作者：有点甜 -- 发布时间：2018/8/15 17:02:00 -- 1、请先弄懂【自定义用户二】的代码分别是什么意思，再继续。
2、用户管理那里，添加用户的时候，多加一个文本框，把角色设置进去保存。
3、登陆的时候，查找到用户之后，把角色的值取出赋值给变量（和分组一样） |
| -- 作者：wjhjhj -- 发布时间：2018/8/16 23:27:00 -- 怎样判断自定义用户中的“角色”列包含“管理员”角色的真假，代码怎么写？ |
| -- 作者：有点甜 -- 发布时间：2018/8/16 23:36:00 -- 以下是引用wjhjhj在2018/8/16 23:27:00的发言：
怎样判断自定义用户中的“角色”列包含“管理员”角色的真假，代码怎么写？
If _UserRoles.contains("管理员") Then msgbox("包含") End If |
| -- 作者：wjhjhj -- 发布时间：2018/8/17 11:05:00 -- 谢谢！ |
| -- 作者：wjhjhj -- 发布时间：2018/8/17 17:14:00 -- 在“用户登录”窗口中增加了个Combobox（身份证），”身份证“下拉项目是根据“UserName"值，在Users表中提取"身份证”列的值。设计了下代码，选择用户后，但Combobox（身份证）为空。请帮助修改以下代码。 \'提取列表项目 Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName") cmb.ComboList = _UserTable.SQLGetComboListString("Name","","用户编号") Dim txt As String = e.Form.Controls("UserName").Value Dim cmb1 As WinForm.ComboBox = e.Form.Controls("身份证") cmb1.ComboList = _UserTable.SQLGetComboListString("身份证","[Name] = \'" & txt & "\'","用户编号")
|
| -- 作者：有点蓝 -- 发布时间：2018/8/17 17:37:00 -- 参考：http://www.foxtable.com/webhelp/scr/1523.htm 代码放到身份证的enter事件 Dim txt As String = e.Form.Controls("UserName").Value Dim cmb1 As WinForm.ComboBox = e.Form.Controls("身份证") cmb1.ComboList = _UserTable.SQLGetComboListString("身份证","[Name] = \'" & txt & "\'","用户编号") |
| -- 作者：wjhjhj -- 发布时间：2018/8/18 8:26:00 -- 谢谢！！！ |