- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义用户与权限管理之一 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89802)
-- 发布时间：2016/8/30 12:16:00
-- 自定义用户与权限管理之一
按帮助的自定义用户与权限管理之一，设计用户自定义登录，增加了用户角色，在全局代码：Public _UserRoles As String，在用户管理窗口增加了组定义和角色定义按钮，用户表有name,group,password,roles几列，请问，如何写组定义和角色定义按钮的代码？
-- 发布时间：2016/8/30 14:29:00
--
另外创建表或者使用字典表来存储组和角色，使用的时候作为用户管理组和角色的列表项目。管理办法和用户的管理方法一样。
具体上例子说明
-- 发布时间：2016/8/30 14:33:00
--
是另外建立了用户表，用户表有name,group,password,roles几列，
-- 发布时间：2016/8/30 15:12:00
--
另外创建组和角色表来管理组和角色
-- 发布时间：2016/8/31 8:48:00
--
老师，用户登录明细表，加了在线状态一列，为了保证用户只能在一个终端登录
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:用户登录.table |
-- 发布时间：2016/8/31 9:19:00
--
Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = "" Then
Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
cmd.CommandText = "Se lect * From {用户表} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 0 Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = dt.DataRows(0)
If dr("是否在线") = True Then
Messagebox.show("您已经登录了系统,不能重复登录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
e.Form.Close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
-- 发布时间：2016/8/31 9:29:00
--
老师，如何像系统自带的用户管理那样，把组定义和角色定义的功能做出来？
-- 发布时间：2016/8/31 10:00:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:用户登录.table |
-- 发布时间：2016/8/31 10:35:00
--
用户表已经有group,roles,为什么还要建表？
-- 发布时间：2016/8/31 10:44:00
--
不建表也可以，那就直接录入角色，用逗号分隔，用法看\'自定义用户管理之一.Table\':http://www.foxtable.com/webhelp/scr/2048.htm