37 lines
1.4 KiB
VB.net
37 lines
1.4 KiB
VB.net
Imports System
|
|
Imports System.ComponentModel
|
|
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.Data.Filtering
|
|
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.Persistent.Base
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
Imports DevExpress.Persistent.Validation
|
|
Imports DevExpress.Persistent.Base.Security
|
|
Imports DevExpress.Utils
|
|
|
|
<DefaultClassOptions()> _
|
|
Public Class SecuritySystemHelper
|
|
Public Shared Function IsUserInRole(ByVal userWithRoles As IUserWithRoles, ByVal roleName As String) As Boolean
|
|
'Guard.ArgumentNotNull(userWithRoles, "userWithRoles")
|
|
If userWithRoles Is Nothing Then Return True
|
|
For Each role As IRole In userWithRoles.Roles
|
|
If role.Name = roleName Then
|
|
Return True
|
|
End If
|
|
Next role
|
|
Return False
|
|
End Function
|
|
Public Shared Function IsUserInRoleCurrentUser(ByVal roleName As String) As Boolean
|
|
Return IsUserInRole(TryCast(SecuritySystem.CurrentUser, IUserWithRoles), roleName)
|
|
End Function
|
|
Public Shared Function IsUserInRole(ByVal roleName As String, ByVal user As User) As Boolean
|
|
Return IsUserInRole(TryCast(user, IUserWithRoles), roleName)
|
|
End Function
|
|
Public Shared Function IsUserAdministrator(ByVal simpleUser As ISimpleUser) As Boolean
|
|
Guard.ArgumentNotNull(simpleUser, "simpleUser")
|
|
Return simpleUser.IsAdministrator
|
|
End Function
|
|
End Class
|