Imports BVSoftware.BVC.Core Public Class Users_Group Inherits BaseAdminPage Protected WithEvents NewGroupName As System.Web.UI.WebControls.TextBox Protected WithEvents ImageButton1 As System.Web.UI.WebControls.ImageButton Protected WithEvents GroupCountLabel As System.Web.UI.WebControls.Label Protected WithEvents DeleteGroupButton As MetaBuilders.WebControls.ConfirmedImageButton Protected WithEvents MetaDescriptionControl As BVSoftware.WebControls.MetaTag Protected WithEvents MetaKeywordsControl As BVSoftware.WebControls.MetaTag Protected WithEvents lstRoles As System.Web.UI.WebControls.ListBox Protected WithEvents btnEdit As System.Web.UI.WebControls.ImageButton Protected WithEvents msg As BVSoftware.WebControls.WebPageMessage Protected WithEvents btnDelete As System.Web.UI.WebControls.ImageButton #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BVC2004Store.CheckThisPage(Security.RolePermission.LoginToAdmin, Security.RolePermission.AccessPeopleArea) If Not Page.IsPostBack Then MetaKeywordsControl.Content = WebAppSettings.MetaKeywords MetaDescriptionControl.Content = WebAppSettings.MetaDescription End If If Not Page.IsPostBack Then LoadRoles() End If End Sub Public Function LoadRoles() lstRoles.DataSource = SecurityServices.Roles.GetAllRoles lstRoles.DataValueField = "RoleName" lstRoles.DataTextField = "RoleName" lstRoles.DataBind() GroupCountLabel.Text = lstRoles.Items.Count & " Roles Found" End Function Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click If NewGroupName.Text.Trim.Length < 1 Then msg.ShowWarning("New role name is required.") Else SecurityServices.Roles.CreateRole(NewGroupName.Text.Trim) LoadRoles() End If End Sub Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnEdit.Click If Not lstRoles.SelectedItem Is Nothing Then Response.Redirect("people_roles_edit.aspx?rolename=" & Server.UrlEncode(lstRoles.SelectedItem.ToString)) End If End Sub Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnDelete.Click If Not lstRoles.SelectedItem Is Nothing Then SecurityServices.Roles.DeleteRole(lstRoles.SelectedItem.ToString) End If LoadRoles() End Sub End Class