根据论坛上的一个案例,仿照做了一个例子,但是授权函数的操作总是错误,不知道错在哪里?请大家帮助
前提:这个是系统自带的用户管理
shouquan函数
If User.Type <> UserTypeEnum.User Then ' 如果是开发者或者管理员
Return True '则具备所有权限
End If
Dim dt As DataTable = DataTables("A10流程权限及进度状态")
Dim dr As DataRow
dr = dt.Find("模块 = '" & args(0) & "' And 流程 = '" & args(1) & "'" )
If dr.IsNull("角色") = False Then
Dim nms() As String = dr("角色").Split("/")
For Each nm As String In nms
If nm = User.group Then '如果授权用户包括登录用户所属的分组或其用户名
Return True '返回True
End If
Next
End If
Return False
有两张表:
此主题相关图片如下:12.jpg
此主题相关图片如下:34.jpg