#Region " Imports " Imports Pixs.Ado #End Region Public Class Rbac 'Rbac = Role Base Access Control #Region " Instance Fields " Shared _readPrivilege As Boolean = False Shared _writePrivilege As Boolean = False Shared _managePrivilege As Boolean = False #End Region #Region " Public Properties " Shared ReadOnly Property isReader() As Boolean Get Return _readPrivilege End Get End Property Shared ReadOnly Property isWriter() As Boolean Get Return _writePrivilege End Get End Property Shared ReadOnly Property isManager() As Boolean Get Return _managePrivilege End Get End Property #End Region #Region " Enumerations " Public Enum Role As Integer PublicUser GovernmentUser Administrator End Enum #End Region #Region " Public Methods " Public Shared Sub Initialize(ByVal currentRole As Role) 'TODO: Need to add Database lookup Select Case currentRole Case Role.PublicUser _readPrivilege = True _writePrivilege = False _managePrivilege = False Case Role.GovernmentUser _readPrivilege = True _writePrivilege = True _managePrivilege = False Case Role.Administrator _readPrivilege = True _writePrivilege = False _managePrivilege = True Case Else _readPrivilege = False _writePrivilege = False _managePrivilege = False End Select End Sub Public Shared Sub SetRole(ByVal userName As String, ByVal newRole As Role) 'TODO: Need to add db updater 'must have manage privilage to use End Sub #End Region End Class