DataGrid.EditOptions.ShowAdd = (Application.BasicFunctions.CurrentUseriD = "ADMIN") DataGrid.EditOptions.ShowDelete = (Application.BasicFunctions.CurrentUseriD = "ADMIN") DataGrid.EditOptions.ShowEdit = (Application.BasicFunctions.CurrentUseriD = "ADMIN")
DataGrid.PopupMenu.Items(0).Enabled = (Application.BasicFunctions.CurrentUseriD = "ADMIN") DataGrid.PopupMenu.Items(1).Enabled = (Application.BasicFunctions.CurrentUseriD = "ADMIN")