Public MustInherit Class RoleProvider
Inherits ProviderBase
Public MustOverride Property ApplicationName() As String
Public MustOverride Sub AddUsersToRoles(ByVal usernames As String(), _
ByVal roleNames As String())
Public MustOverride Sub CreateRole(ByVal roleName As String)
Public MustOverride Function DeleteRole(ByVal roleName As String, _
ByVal throwOnPopulatedRole As Boolean) As Boolean
Public MustOverride Function FindUsersInRole(ByVal roleName As String, _
ByVal usernameToMatch As String) As String()
Public MustOverride Function GetAllRoles() As String()
Public MustOverride Function GetRolesForUser(ByVal username As String) As String()
Public MustOverride Function GetUsersInRole(ByVal roleName As String) As String()
Public MustOverride Function IsUserInRole(ByVal username As String, _
ByVal roleName As String) As Boolean
Public MustOverride Sub RemoveUsersFromRoles(ByVal usernames As String(), _
Public MustOverride Function RoleExists(ByVal roleName As String) As Boolean
End Class
Public Overrides Sub CreateRole(ByVal rolename As String)
Dim r As New Role
r.RoleName = rolename
r.LoweredRoleName = r.RoleName.ToLower
r.ApplicationId = Queries.GetApplicationId(dc, ApplicationName)
dc.Roles.InsertOnSubmit(r)
dc.SubmitChanges()
End Sub
Public Overrides Function GetAllRoles() As String()
Return Queries.GetRoles(dc, ApplicationName).ToArray()
End Function