LinkButton btn = (LinkButton)e.Item.FindControl("PhotoLinkButton"); string id = DataBinder.Eval(e.Item, "PhotoID").ToString(); btn.Attributes.Add("onclick", string.Format("viewImage({0}); return false;", id));<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default4.aspx.vb" Inherits="Default4" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %><%@ Register assembly="Telerik.Web.UI" namespace="Telerik.Web.UI" tagprefix="rad" %><html xmlns="http://www.w3.org/1999/xhtml"><head runat="server"> <title></title> </head><body> <form id="form1" runat="server"> <div> <asp:ToolkitScriptManager ID="tool123" runat ="server" ScriptMode ="Release" > </asp:ToolkitScriptManager> <rad:RadAjaxManager ID="RadAjaxManager1" runat="server"> <AjaxSettings> <rad:AjaxSetting AjaxControlID="btn_sb"> <UpdatedControls> <rad:AjaxUpdatedControl ControlID="lab_nm" LoadingPanelID ="RadAjaxLoadingPanel1" /> </UpdatedControls> </rad:AjaxSetting> </AjaxSettings> </rad:RadAjaxManager> <rad:RadAjaxLoadingPanel ID="RadAjaxLoadingPanel1" runat="server" Skin="" Transparency="30"> <asp:Image ID="Image1" runat="server" ImageUrl="~/IMAGES/AjaxLoadingImg/LoadingProgressBar.gif" AlternateText="loading" /> </rad:RadAjaxLoadingPanel> <asp:Button ID="btn_sb" runat="server" Text="Telerik" /><br /> <asp:Label ID="lab_nm" runat="server" ></asp:Label> </div> </form></body></html>--------------------------------------------------------------------------------------------------------------- Protected Sub btn_sb_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_sb.Click lab_nm.Text = "You Clicked Telerik Button" End Subbtn_sb it should enable false and showing some text like "submitting" after page submitted it returns to enabled true..
Dim cmdItem As GridCommandItem = DirectCast(rgvApplicationIdentifiers.MasterTableView.GetItems(GridItemType.CommandItem)(0), GridCommandItem)
How do I reference the command items in the details view?
Dim lnkAdd As LinkButton = TryCast(cmdItem.FindControl("lbtAdd"), LinkButton)
If
Me.rgvSecurityUsers.EditIndexes.Count = 0 And Not Me.rgvSecurityUsers.MasterTableView.IsItemInserted And Me.hdfAdd.Value = True Then
lnkAdd.Visible =
True
End If
Case "EditSelected", "DeleteSelected"
If e.Item.OwnerTableView.Name <> "Groups" Or Me.rgvSecurityGroups.SelectedValue Is Nothing Then
Dim strMessage As String = "You must select a group before selecting this option."
Dim scriptstring As String = "radalert('" + strMessage + "', 330, 210, 'Missing Group');"
ScriptManager.RegisterStartupScript(
Me, Me.[GetType](), "radalert", scriptstring, True)
e.Canceled =
"true"
End If
<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/IPSMaster.Master" CodeBehind="WBC SYS Application Identifiers.aspx.vb" Inherits="IPS_Gateway.WBC_SYS_Application_Identifiers" %> <%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="act" %> <asp:Content ID="cntMain" ContentPlaceHolderID="cphMainContent" runat="server" > <asp:SqlDataSource ID="SQLDS_Level1" runat="server" ConnectionString="<%$ ConnectionStrings:IPSDataConnectionString %>" SelectCommandType="StoredProcedure" SelectCommand="[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del]" > <SelectParameters> <asp:Parameter Name="strCommandType" Type="String" DefaultValue="Select" /> </SelectParameters> <SelectParameters> <asp:Parameter Name="intLevelNumber" Type="Int16" DefaultValue="1" /> </SelectParameters> </asp:SqlDataSource> <asp:SqlDataSource ID="SQLDS_Level2" runat="server" ConnectionString="<%$ ConnectionStrings:IPSDataConnectionString %>" SelectCommandType="StoredProcedure" SelectCommand="[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del]" > <SelectParameters> <asp:Parameter Name="strCommandType" Type="String" DefaultValue="Select" /> </SelectParameters> <SelectParameters> <asp:Parameter Name="intLevelNumber" Type="Int16" DefaultValue="2" /> </SelectParameters> </asp:SqlDataSource> <asp:SqlDataSource ID="SQLDS_Level3" runat="server" ConnectionString="<%$ ConnectionStrings:IPSDataConnectionString %>" SelectCommandType="StoredProcedure" SelectCommand="[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del]" > <SelectParameters> <asp:Parameter Name="strCommandType" Type="String" DefaultValue="Select" /> </SelectParameters> <SelectParameters> <asp:Parameter Name="intLevelNumber" Type="Int16" DefaultValue="3" /> </SelectParameters> </asp:SqlDataSource> <asp:panel ID="pnlPage" runat="server" SkinId="skn_GPC01_Panel_MainContent"> <asp:panel ID="pnlStatus" runat="server" CssClass="css_GPC01_Panel_Status"> <asp:Label ID="lblReadOnly" runat="server" Text="Read Only" CssClass="css_GPC01_Label_Status"/> <asp:Label ID="lblAdd" runat="server" Text="Add" CssClass="css_GPC01_Label_Status"/> <asp:Label ID="lblEdit" runat="server" Text="Edit" CssClass="css_GPC01_Label_Status"/> <asp:Label ID="lblDelete" runat="server" Text="Delete" CssClass="css_GPC01_Label_Status"/> <asp:Label ID="lblObject" runat="server" Text="Object" CssClass="css_GPC01_Label_Status"/> <asp:HiddenField ID="hdfReadOnly" runat="server" /> <asp:HiddenField ID="hdfAdd" runat="server" /> <asp:HiddenField ID="hdfEdit" runat="server" /> <asp:HiddenField ID="hdfDelete" runat="server" /> </asp:panel> <asp:panel ID="pnlPageHeader" runat="server" cssClass="css_GPC01_Panel_PageHeading" > <asp:Label ID="lblPageTitle" runat="server" CssClass="css_GPC01_Label_PageTitle" Text="Security Identifiers" /> <asp:ImageButton ID="ibtPageInformation" runat="server" SkinID="skn_GPC01_ImageButton_PageInformation" /> </asp:panel> <asp:panel ID="pnlPageContent" runat="server" cssClass="css_GPC01_Panel_PageContent" > <asp:UpdatePanel ID="uppGrid" runat="server" > <ContentTemplate> <telerik:RadGrid ID="rgvApplicationIdentifiers" runat="server" DataSourceID="SQLDS_Level1" EnableEmbeddedSkins="true" Skin="WebBlue" EnableViewState="true" AutoGenerateColumns="False" AllowMultiRowSelection="false" AllowAutomaticDeletes="True" AllowAutomaticInserts="True" AllowAutomaticUpdates="True" AllowFilteringByColumn="False" EnableLinqExpressions="false" AllowPaging="True" PageSize="50" height="560px" Width="1038px"> <PagerStyle AlwaysVisible="true" Mode="NextPrevAndNumeric" /> <ItemStyle Wrap="false" /> <ClientSettings AllowColumnsReorder="false" EnablePostBackOnRowClick="true" AllowExpandCollapse="true" > <Selecting AllowRowSelect="true" /> <Scrolling AllowScroll="true" UseStaticHeaders="true" /> </ClientSettings> <MasterTableView DataSourceID="SQLDS_Level1" DataKeyNames="Level1Code, Level2Code, Level3Code, LevelNumber" EnableViewState="true" ExpandCollapseColumn-ButtonType ="ImageButton" ExpandCollapseColumn-CollapseImageUrl="../../App_Themes/Images/General/Expand Pale Blue 16.png" ExpandCollapseColumn-ExpandImageUrl= "../../App_Themes/Images/General/Expand Pale Blue 16.png" EditMode="InPlace" CommandItemDisplay="Top" Name="Level1" > <CommandItemTemplate > <div style="padding: 5px 5px;"> <asp:LinkButton ID="lbtAdd" runat="server" CommandName="InitInsert" ToolTip="Add New Group" Visible='<%# rgvApplicationIdentifiers.EditIndexes.Count = 0 or Not rgvApplicationIdentifiers.MasterTableView.IsItemInserted %>'> <asp:Image ID="imgAdd" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,AddRecord20%>" /> Add </asp:LinkButton> <asp:LinkButton ID="lbtEdit" runat="server" CommandName="EditSelected" ToolTip="Edit Group" Visible='<%# rgvApplicationIdentifiers.EditIndexes.Count=0 and Not rgvApplicationIdentifiers.MasterTableView.IsItemInserted %>'> <asp:Image ID="imgEdit" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,EditRecord20%>"/> Edit </asp:LinkButton> <asp:LinkButton ID="lbtCancel" runat="server" CommandName="CancelAll" ToolTip="Cancel Edit/Add" Visible='<%# rgvApplicationIdentifiers.EditIndexes.Count > 0 Or rgvApplicationIdentifiers.MasterTableView.IsItemInserted %>'> <asp:Image ID="imgCancel" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,CancelRecord20%>" /> Cancel </asp:LinkButton> <asp:LinkButton ID="lbtSaveNew" runat="server" CommandName="PerformInsert" ToolTip="Save New Group" Visible='<%# rgvApplicationIdentifiers.MasterTableView.IsItemInserted%>'> <asp:Image ID="imgSaveNew" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,SaveRecord20%>" /> Save New</asp:LinkButton> <asp:LinkButton ID="lbtDelete" runat="server" CommandName="DeleteSelected" ToolTip="Delete Group" Visible='<%# rgvApplicationIdentifiers.EditIndexes.Count=0 and Not rgvApplicationIdentifiers.MasterTableView.IsItemInserted %>' OnClientClick="javascript:return confirm('You have selected to delete this user.<br>This process CANNOT BE UNDONE. <br> <br> Do you want to continue?')"> <asp:Image ID="imgDelete" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,DeleteRecord20%>" />Delete </asp:LinkButton> <asp:LinkButton ID="lbtSave" runat="server" CommandName="UpdateEdited" ToolTip="Save Changes" Visible='<%# rgvApplicationIdentifiers.EditIndexes.Count > 0 AND Not rgvApplicationIdentifiers.MasterTableView.IsItemInserted%>'> <asp:Image ID="imgSave" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,SaveRecord20%>" /> Update </asp:LinkButton> <asp:LinkButton ID="lbtFilters" runat="server" CommandName="ShowHideFilters" style="position:absolute;left:800px;" ToolTip="Show/Hide Filters" > <asp:Image ID="Image2" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,Filter20%>" /> Show/Hide Filter</asp:LinkButton> <asp:LinkButton ID="lbtRefresh" runat="server" CommandName="RebindGrid" style="position:absolute;Left:930px;" > <asp:Image id="imgRefresh" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$Resources:Images, ReloadBlue20 %>" />Refresh Grid</asp:LinkButton> </div> </CommandItemTemplate> <Columns> <telerik:GridBoundColumn DataField="Level1Code" UniqueName="Level1Code" HeaderText="Id" HeaderStyle-HorizontalAlign="Center" HeaderStyle-Width="100px" /> <telerik:GridTemplateColumn HeaderText="Total Levels" HeaderStyle-HorizontalAlign="Center" HeaderStyle-Width="60px" ItemStyle-HorizontalAlign="Center"> <ItemTemplate> <asp:Label ID="TotalLevels" runat="server" Text='<%# Bind("TotalLevels") %>' /> </ItemTemplate> <EditItemTemplate> <telerik:RadComboBox runat="server" ID="rcbTotalLevels" AppendDataBoundItems="true" AutoPostBack="true" EnableEmbeddedSkins="true" Skin="WebBlue" Width="50px" AllowCustomText="false" > <Items> <telerik:RadComboBoxItem Text="2" /> <telerik:RadComboBoxItem Text="3" /> </Items> </telerik:RadComboBox> </EditItemTemplate> <InsertItemTemplate> <telerik:RadComboBox runat="server" ID="rcbTotalLevelsInsert" AppendDataBoundItems="true" AutoPostBack="true" EnableEmbeddedSkins="true" Skin="WebBlue" Width="50px" AllowCustomText="false" > <Items> <telerik:RadComboBoxItem Text="2" /> <telerik:RadComboBoxItem Text="3" /> </Items> </telerik:RadComboBox> </InsertItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="Use Identifier Code?" HeaderStyle-Width="100px" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center"> <ItemTemplate> <asp:CheckBox ID="chkUseIdentifierCode" runat="server" Checked='<%# Bind("UseIdentifierCode") %>' /> </ItemTemplate> <InsertItemTemplate> <asp:CheckBox ID="chkUseIdentifierCodeInsert" runat="server" /> </InsertItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="Show In Sort?" HeaderStyle-Width="100px" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center"> <ItemTemplate> <asp:CheckBox ID="chkShowInSort" runat="server" Checked='<%# Bind("ShowInSort") %>' /> </ItemTemplate> <InsertItemTemplate> <asp:CheckBox ID="chkShowInSortInsert" runat="server" /> </InsertItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="Active?" HeaderStyle-Width="100px" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center"> <ItemTemplate> <asp:CheckBox ID="chkActiveFlag" runat="server" Checked='<%# Bind("ActiveFlag") %>' /> </ItemTemplate> <InsertItemTemplate> <asp:CheckBox ID="chkActiveFlagInsert" runat="server" /> </InsertItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderStyle-Width="300px" ></telerik:GridTemplateColumn> <telerik:GridBoundColumn DataField="LevelNumber" UniqueName="LevelNumber" DefaultInsertValue="1" Visible="false" DataType="System.Int16" /> </Columns> <DetailTables> <telerik:GridTableView DataKeyNames="Level1Code, Level2Code, Level3Code" HierarchyLoadMode="ServerOnDemand" Name="Level2" EditMode="InPlace" CommandItemDisplay="Top" > <CommandItemTemplate > <div style="padding: 5px 5px;"> <asp:LinkButton ID="lbtAdd" runat="server" CommandName="InitInsert" ToolTip="Add New Group" Visible='<%# rgvApplicationIdentifiers.EditIndexes.Count = 0 or Not rgvApplicationIdentifiers.MasterTableView.IsItemInserted %>'> <asp:Image ID="imgAdd" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,AddRecord20%>" /> Add </asp:LinkButton> <asp:LinkButton ID="lbtEdit" runat="server" CommandName="EditSelected" ToolTip="Edit Group" Visible='<%# rgvApplicationIdentifiers.EditIndexes.Count=0 and Not rgvApplicationIdentifiers.MasterTableView.IsItemInserted %>'> <asp:Image ID="imgEdit" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,EditRecord20%>"/> Edit </asp:LinkButton> <asp:LinkButton ID="lbtCancel" runat="server" CommandName="CancelAll" ToolTip="Cancel Edit/Add" Visible='<%# rgvApplicationIdentifiers.EditIndexes.Count > 0 Or rgvApplicationIdentifiers.MasterTableView.IsItemInserted %>'> <asp:Image ID="imgCancel" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,CancelRecord20%>" /> Cancel </asp:LinkButton> <asp:LinkButton ID="lbtSaveNew" runat="server" CommandName="PerformInsert" ToolTip="Save New Group" Visible='<%# rgvApplicationIdentifiers.MasterTableView.IsItemInserted%>'> <asp:Image ID="imgSaveNew" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,SaveRecord20%>" /> Save New</asp:LinkButton> <asp:LinkButton ID="lbtDelete" runat="server" CommandName="DeleteSelected" ToolTip="Delete Group" Visible='<%# rgvApplicationIdentifiers.EditIndexes.Count=0 and Not rgvApplicationIdentifiers.MasterTableView.IsItemInserted %>' OnClientClick="javascript:return confirm('You have selected to delete this user.<br>This process CANNOT BE UNDONE. <br> <br> Do you want to continue?')"> <asp:Image ID="imgDelete" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,DeleteRecord20%>" />Delete </asp:LinkButton> <asp:LinkButton ID="lbtSave" runat="server" CommandName="UpdateEdited" ToolTip="Save Changes" Visible='<%# rgvApplicationIdentifiers.EditIndexes.Count > 0 AND Not rgvApplicationIdentifiers.MasterTableView.IsItemInserted%>'> <asp:Image ID="imgSave" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,SaveRecord20%>" /> Update </asp:LinkButton> <asp:LinkButton ID="lbtFilters" runat="server" CommandName="ShowHideFilters" style="position:absolute;left:800px;" ToolTip="Show/Hide Filters" > <asp:Image ID="Image2" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$ Resources:Images,Filter20%>" /> Show/Hide Filter</asp:LinkButton> <asp:LinkButton ID="lbtRefresh" runat="server" CommandName="RebindGrid" style="position:absolute;Left:930px;" > <asp:Image id="imgRefresh" runat="server" CssClass="css_GFS01_Image_Align" ImageURL="<%$Resources:Images, ReloadBlue20 %>" />Refresh Grid</asp:LinkButton> </div> </CommandItemTemplate> <Columns> <telerik:GridBoundColumn DataField="Level1Code" UniqueName="Level1Code" Visible="false" /> <telerik:GridBoundColumn DataField="Level2Code" UniqueName="Level2Code" HeaderText="Level 2 Code" HeaderStyle-HorizontalAlign="Left" HeaderStyle-Width="150px" ItemStyle-HorizontalAlign="Left" /> <telerik:GridBoundColumn DataField="Level3Code" UniqueName="Level3Code" Visible="false" /> <telerik:GridBoundColumn DataField="IdentifierCode" UniqueName="IdentifierCode" HeaderText="Identifier Code" HeaderStyle-HorizontalAlign="Left" HeaderStyle-Width="150px" /> <telerik:GridTemplateColumn HeaderText="Use Identifier Code?" HeaderStyle-Width="100px" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center"> <ItemTemplate> <asp:CheckBox ID="chkUseIdentifierCode" runat="server" Checked='<%# Bind("UseIdentifierCode") %>' /> </ItemTemplate> <InsertItemTemplate> <asp:CheckBox ID="chkUseIdentifierCodeInsert" runat="server" /> </InsertItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="Show In Sort?" HeaderStyle-HorizontalAlign="Center" HeaderStyle-Width="100px" ItemStyle-HorizontalAlign="Center"> <ItemTemplate> <asp:CheckBox ID="chkShowInSort" runat="server" Checked='<%# Bind("ShowInSort") %>' /> </ItemTemplate> <InsertItemTemplate> <asp:CheckBox ID="chkShowInSortInsert" runat="server" /> </InsertItemTemplate> </telerik:GridTemplateColumn> <telerik:GridTemplateColumn HeaderText="Active?" HeaderStyle-HorizontalAlign="Center" HeaderStyle-Width="100px" ItemStyle-HorizontalAlign="Center"> <ItemTemplate> <asp:CheckBox ID="chkActiveFlag" runat="server" Checked='<%# Bind("ActiveFlag") %>' /> </ItemTemplate> <InsertItemTemplate> <asp:CheckBox ID="chkActiveFlagInsert" runat="server" /> </InsertItemTemplate> </telerik:GridTemplateColumn> <telerik:GridBoundColumn DataField="LevelNumber" UniqueName="LevelNumber" DefaultInsertValue="2" Visible="false" DataType="System.Int16" /> <telerik:GridBoundColumn DataField="TotalLevels" UniqueName="TotalLevels" DefaultInsertValue="0" Visible="false" DataType="System.Int16" /> </Columns> </telerik:GridTableView> </DetailTables> </MasterTableView> </telerik:RadGrid> <telerik:GridTextBoxColumnEditor ID="gtcEditor1" runat="server" TextBoxStyle-Width="150px" /> <telerik:RadWindowManager ID="rwmMessageBox" runat="server" Behaviors="Close, Move" EnableViewState="false" Animation="Slide" AnimationDuration="5" Height="400" Width="400" VisibleOnPageLoad="true" DestroyOnClose="true" Modal="true" EnableEmbeddedSkins="true" Skin="Black" /> </ContentTemplate> </asp:UpdatePanel> </asp:panel> </asp:panel> </asp:Content> Imports IPS_Gateway.CLS_Data_Retrieval Imports IPS_Gateway.CLS_String_Functions Imports Telerik.Web.UI Imports System.Data.SqlClient Imports System.Drawing Partial Public Class WBC_SYS_Application_Identifiers Inherits System.Web.UI.Page Private Sub rgvApplicationIdentifiers_DeleteCommand(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles rgvApplicationIdentifiers.DeleteCommand Dim GridItem As GridDataItem = DirectCast(e.Item, GridDataItem) Dim strLevel1 As String = GridItem.GetDataKeyValue("Level1Code") Dim strLevel2 As String = GridItem.GetDataKeyValue("Level2Code") Dim strLevel3 As String = GridItem.GetDataKeyValue("Level3Code") Dim intLevelNumber As Integer = 0 Dim strLogonUser As String = Request.ServerVariables("AUTH_USER") Select Case e.Item.OwnerTableView.Name Case "Level1" intLevelNumber = 1 Me.SQLDS_Level1.DeleteCommandType = SqlDataSourceCommandType.Text Me.SQLDS_Level1.DeleteCommand = "[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del] 'Delete', '" + strLevel1 + "', '" + strLevel2 + "', '" + strLevel3 + "', " + intLevelNumber.ToString + ", NULL, NULL, NULL, NULL, NULL, '" + strLogonUser + "'" Case "Level2" intLevelNumber = 2 Me.SQLDS_Level2.DeleteCommandType = SqlDataSourceCommandType.Text Me.SQLDS_Level2.DeleteCommand = "[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del] 'Delete', '" + strLevel1 + "', '" + strLevel2 + "', '" + strLevel3 + "', " + intLevelNumber.ToString + ", NULL, NULL, NULL, NULL, NULL, '" + strLogonUser + "'" Case "Level3" intLevelNumber = 3 Me.SQLDS_Level3.DeleteCommandType = SqlDataSourceCommandType.Text Me.SQLDS_Level3.DeleteCommand = "[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del] 'Delete', '" + strLevel1 + "', '" + strLevel2 + "', '" + strLevel3 + "', " + intLevelNumber.ToString + ", NULL, NULL, NULL, NULL, NULL, '" + strLogonUser + "'" End Select End Sub Protected Sub rgvApplicationIdentifiers_ItemDeleted(ByVal source As Object, ByVal e As Telerik.Web.UI.GridDeletedEventArgs) Handles rgvApplicationIdentifiers.ItemDeleted If Not e.Exception Is Nothing Then Dim GridItem As GridDataItem = DirectCast(e.Item, GridDataItem) Dim strMessage As String = "Identifier cannot be deleted. <br> Reason: " + e.Exception.Message Dim scriptstring As String = "radalert('" + strMessage + "', 330, 210, 'Error Deleting Identifier');" e.ExceptionHandled = True ScriptManager.RegisterStartupScript(Me, Me.[GetType](), "radalert", scriptstring, True) End If End Sub Private Sub rgvApplicationIdentifiers_UpdateCommand(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles rgvApplicationIdentifiers.UpdateCommand Dim ParentItem As GridDataItem Dim EditedItem As GridEditableItem = DirectCast(e.Item, GridEditableItem) Dim strLevel1 As String = Nothing Dim strLevel2 As String = "Unassigned" Dim strLevel3 As String = "Unassigned" Dim strIdentifierCode As String = Nothing Dim intLevelNumber As Integer = 0 Dim intTotalLevels As Integer = 0 Dim bitShowInSort As Boolean = Nothing Dim bitActiveFlag As Boolean = Nothing Dim strLogonUser As String = Request.ServerVariables("AUTH_USER") Dim strMessage As String = Nothing Dim scriptstring As String = "radalert('" + strMessage + "', 330, 210,'Invalid Field Value');" Select e.Item.OwnerTableView.Name Case "Level1" strLevel1 = DirectCast(EditedItem("Level1").Controls(0), TextBox).Text intLevelNumber = "1" intTotalLevels = DirectCast(EditedItem.FindControl("rcbTotalLevels"), RadComboBox).Text bitShowInSort = DirectCast(EditedItem.FindControl("chkShowInSort"), CheckBox).Checked bitActiveFlag = DirectCast(EditedItem.FindControl("chkActiveFlag"), CheckBox).Checked Me.SQLDS_Level1.UpdateCommandType = SqlDataSourceCommandType.Text Me.SQLDS_Level1.UpdateCommand = "[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del] 'Update', '" + strLevel1 + "', '" + strLevel2 + "', '" + strLevel3 + "', '" + intLevelNumber.ToString + "', '" + intTotalLevels.ToString + "', '" + strIdentifierCode + "', '" + bitShowInSort.ToString + "', '" + bitActiveFlag.ToString + "', '" + strLogonUser + "'" Case "Level2" ParentItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem) strLevel1 = DirectCast(ParentItem("Level1Code").Controls(0), TextBox).Text strLevel2 = DirectCast(EditedItem("Level2Code").Controls(0), TextBox).Text strIdentifierCode = DirectCast(EditedItem("IdentifierCode").Controls(0), TextBox).Text intLevelNumber = "2" bitShowInSort = DirectCast(EditedItem.FindControl("chkShowInSort"), CheckBox).Checked bitActiveFlag = DirectCast(EditedItem.FindControl("chkActiveFlag"), CheckBox).Checked Me.SQLDS_Level2.UpdateCommandType = SqlDataSourceCommandType.Text Me.SQLDS_Level2.UpdateCommand = "[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del] 'Update', '" + strLevel1 + "', '" + strLevel2 + "', '" + strLevel3 + "', '" + intLevelNumber.ToString + "', '" + intTotalLevels.ToString + "', '" + strIdentifierCode + "', '" + bitShowInSort.ToString + "', '" + bitActiveFlag.ToString + "', '" + strLogonUser + "'" Case "Level3" ParentItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem) strLevel1 = DirectCast(ParentItem("Level1Code").Controls(0), TextBox).Text strLevel2 = DirectCast(ParentItem("Level2Code").Controls(0), TextBox).Text strLevel3 = DirectCast(EditedItem("Level3Code").Controls(0), TextBox).Text strIdentifierCode = DirectCast(EditedItem("IdentifierCode").Controls(0), TextBox).Text intLevelNumber = "3" bitShowInSort = DirectCast(EditedItem.FindControl("chkShowInSort"), CheckBox).Checked bitActiveFlag = DirectCast(EditedItem.FindControl("chkActiveFlag"), CheckBox).Checked Me.SQLDS_Level3.UpdateCommandType = SqlDataSourceCommandType.Text Me.SQLDS_Level3.UpdateCommand = "[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del] 'Update', '" + strLevel1 + "', '" + strLevel2 + "', '" + strLevel3 + "', '" + intLevelNumber.ToString + "', '" + intTotalLevels.ToString + "', '" + strIdentifierCode + "', '" + bitShowInSort.ToString + "', '" + bitActiveFlag.ToString + "', '" + strLogonUser + "'" End Select End Sub Protected Sub rgvApplicationIdentifiers_ItemUpdated(ByVal source As Object, ByVal e As Telerik.Web.UI.GridUpdatedEventArgs) Handles rgvApplicationIdentifiers.ItemUpdated If Not e.Exception Is Nothing Then Dim EditItem As GridEditableItem = DirectCast(e.Item, GridEditableItem) Dim strMessage As String = "Identifier cannot be updated. <br> Reason: " + e.Exception.Message Dim scriptstring As String = "radalert('" + strMessage + "', 250, 300, 'Error Updating Indentifier');" e.KeepInEditMode = True e.ExceptionHandled = True ScriptManager.RegisterStartupScript(Me, Me.[GetType](), "radalert", scriptstring, True) End If End Sub Private Sub rgvApplicationIdentifiers_InsertCommand(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles rgvApplicationIdentifiers.InsertCommand Dim ParentItem As GridDataItem Dim InsertItem As GridDataInsertItem = DirectCast(e.Item.OwnerTableView.GetInsertItem(), GridDataInsertItem) Dim strLevel1Code As String = Nothing Dim strLevel2 As String = "Unassigned" Dim strLevel3 As String = "Unassigned" Dim strIdentifierCode As String = "DEFAULT" Dim intLevelNumber As Integer = 0 Dim intTotalLevels As Integer = 0 Dim bitUseIdentifier As Boolean = Nothing Dim bitShowInSort As Boolean = Nothing Dim bitActiveFlag As Boolean = Nothing Dim strLogonUser As String = Request.ServerVariables("AUTH_USER") Dim strMessage As String = Nothing Dim scriptstring As String = "radalert('" + strMessage + "', 330, 210,'Invalid Field Value');" Select Case e.Item.OwnerTableView.Name Case "Level1" strLevel1Code = DirectCast(InsertItem("Level1Code").Controls(0), TextBox).Text intLevelNumber = 1 intTotalLevels = DirectCast(InsertItem.FindControl("rcbTotalLevelsInsert"), RadComboBox).Text bitUseIdentifier = DirectCast(InsertItem.FindControl("chkUseIdentifierCodeInsert"), CheckBox).Checked bitShowInSort = DirectCast(InsertItem.FindControl("chkShowInSortInsert"), CheckBox).Checked bitActiveFlag = DirectCast(InsertItem.FindControl("chkActiveFlagInsert"), CheckBox).Checked Me.SQLDS_Level1.InsertCommandType = SqlDataSourceCommandType.Text Me.SQLDS_Level1.InsertCommand = "[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del] 'Insert', '" + strLevel1Code + "', '" + strLevel2 + "', '" + strLevel3 + "', " + intLevelNumber.ToString + ", " + intTotalLevels.ToString + ", " + bitUseIdentifier.ToString + ", NULL, " + bitShowInSort.ToString + ", " + bitActiveFlag.ToString + ", '" + strLogonUser + "'" Case "Level2" ParentItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem) strLevel1Code = DirectCast(ParentItem("Level1Code").Controls(0), TextBox).Text strLevel2 = DirectCast(InsertItem("Level2Code").Controls(0), TextBox).Text strIdentifierCode = DirectCast(InsertItem("IdentifierCode").Controls(0), TextBox).Text intLevelNumber = 2 intTotalLevels = 0 bitUseIdentifier = DirectCast(InsertItem.FindControl("chkUseIdentifierCodeInsert"), CheckBox).Checked bitShowInSort = DirectCast(InsertItem.FindControl("chkShowInSortInsert"), CheckBox).Checked bitActiveFlag = DirectCast(InsertItem.FindControl("chkActiveFlagInsert"), CheckBox).Checked Me.SQLDS_Level2.InsertCommandType = SqlDataSourceCommandType.Text Me.SQLDS_Level2.InsertCommand = "[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del] 'Insert', '" + strLevel1Code + "', '" + strLevel2 + "', '" + strLevel3 + "', " + intLevelNumber.ToString + ", " + intTotalLevels.ToString + ", " + bitUseIdentifier.ToString + ", '" + strIdentifierCode + "', " + bitShowInSort.ToString + ", " + bitActiveFlag.ToString + ", '" + strLogonUser + "'" Case "Level3" ParentItem = DirectCast(e.Item.OwnerTableView.ParentItem, GridDataItem) strLevel1Code = DirectCast(ParentItem("Level1Code").Controls(0), TextBox).Text strLevel2 = DirectCast(ParentItem("Level2Code").Controls(0), TextBox).Text strLevel3 = DirectCast(InsertItem("Level3Code").Controls(0), TextBox).Text strIdentifierCode = DirectCast(InsertItem("IdentifierCode").Controls(0), TextBox).Text intLevelNumber = 3 intTotalLevels = 0 bitUseIdentifier = DirectCast(InsertItem.FindControl("chkUseIdentifierCodeInsert"), CheckBox).Checked bitShowInSort = DirectCast(InsertItem.FindControl("chkShowInSortInsert"), CheckBox).Checked bitActiveFlag = DirectCast(InsertItem.FindControl("chkActiveFlagInsert"), CheckBox).Checked Me.SQLDS_Level3.InsertCommandType = SqlDataSourceCommandType.Text Me.SQLDS_Level3.InsertCommand = "[Security].[DSP_SecurityIdentifiers-Sel-Ins-Upd-Del] 'Insert', '" + strLevel1Code + "', '" + strLevel2 + "', '" + strLevel3 + "', " + intLevelNumber.ToString + ", " + intTotalLevels.ToString + ", " + bitUseIdentifier.ToString + ", '" + strIdentifierCode + "', " + bitShowInSort.ToString + ", " + bitActiveFlag.ToString + ", '" + strLogonUser + "'" End Select End Sub Protected Sub rgvApplicationIdentifiers_ItemInserted(ByVal source As Object, ByVal e As Telerik.Web.UI.GridInsertedEventArgs) Handles rgvApplicationIdentifiers.ItemInserted If Not e.Exception Is Nothing Then Dim strMessage As String = "Identifier cannot be added. <br> Reason: " + e.Exception.Message Dim scriptstring As String = "radalert('" + strMessage + "', 330, 210, 'Error On Item Insert');" e.ExceptionHandled = True e.KeepInInsertMode = True ScriptManager.RegisterStartupScript(Me, Me.[GetType](), "radalert", scriptstring, True) End If End Sub Private Sub WBC_SEC_Security_Groups_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then If Request("Source") IsNot Nothing Then If Request("Level1") <> "All" Then SQLDS_Level1.SelectParameters.Add("strLevel1", Request("Level1")) SQLDS_Level1.SelectParameters.Add("intLevelNumber", "2") Me.lblPageTitle.Text = Request("Source") + " " + Request("Level1") Else Me.lblPageTitle.Text = Request("Source") + " Identifiers" End If Dim strSelectCommand As String = "[" + Request("Source") + "].[DSP_" + Request("Source") + "Identifiers-Sel-Ins-Upd-Del]" Dim strSecurityString As String = If(Request("SecurityString") = Nothing, "1,0,0,0", Request("SecurityString")) Me.lblObject.Text = If(Request("ObjectId") = Nothing, "Unknown", Request("ObjectId")) Dim aryString As String() = strSecurityString.Split(",") hdfReadOnly.Value = aryString(0) Me.lblReadOnly.ForeColor = If(Me.hdfReadOnly.Value = False, Color.Gray, Color.Red) hdfAdd.Value = aryString(1) Me.lblAdd.ForeColor = If(Me.hdfAdd.Value = False, Color.Gray, Color.Red) hdfEdit.Value = aryString(2) Me.lblEdit.ForeColor = If(Me.hdfEdit.Value = False, Color.Gray, Color.Red) hdfDelete.Value = aryString(3) Me.lblDelete.ForeColor = If(Me.hdfDelete.Value = False, Color.Gray, Color.Red) End If End If End Sub Private Sub rgvApplicationIdentifiers_ItemCommand(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridCommandEventArgs) Handles rgvApplicationIdentifiers.ItemCommand Select Case e.CommandName Case "ShowHideFilters" If rgvApplicationIdentifiers.AllowFilteringByColumn = True Then rgvApplicationIdentifiers.AllowFilteringByColumn = False Else rgvApplicationIdentifiers.AllowFilteringByColumn = True End If rgvApplicationIdentifiers.Rebind() Case "DeleteSelected" If rgvApplicationIdentifiers.SelectedValue Is Nothing Then Dim strMessage As String = "You must select a row before selecting this option." Dim scriptstring As String = "radalert('" + strMessage + "', 330, 210, 'Selected Row Is Null');" ScriptManager.RegisterStartupScript(Me, Me.[GetType](), "radalert", scriptstring, True) e.Canceled = "true" End If Case "EditSelected" If rgvApplicationIdentifiers.SelectedValue Is Nothing Then Dim strMessage As String = "You must select a row before selecting this option." Dim scriptstring As String = "radalert('" + strMessage + "', 330, 210, 'Select Row Is Null');" ScriptManager.RegisterStartupScript(Me, Me.[GetType](), "radalert", scriptstring, True) e.Canceled = "true" Else End If Case "RebindGrid" ViewState("FilterSecurityGroup") = "All" rgvApplicationIdentifiers.MasterTableView.FilterExpression = "" rgvApplicationIdentifiers.MasterTableView.Rebind() End Select End Sub Private Sub rgvApplicationIdentifiers_DetailTableDataBind(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridDetailTableDataBindEventArgs) Handles rgvApplicationIdentifiers.DetailTableDataBind Dim ParentRow As GridDataItem = CType(e.DetailTableView.ParentItem, GridDataItem) Dim strLevel1 As String = ParentRow.GetDataKeyValue("Level1Code") Dim strLevel2 As String = ParentRow.GetDataKeyValue("Level2Code") If e.DetailTableView.Name = "Level2" Then SQLDS_Level2.SelectParameters.Clear() SQLDS_Level2.SelectParameters.Add("strLevel1", strLevel1) SQLDS_Level2.SelectParameters.Add("intLevelNumber", "2") e.DetailTableView.DataSource = SQLDS_Level2 ElseIf e.DetailTableView.Name = "Level3" Then SQLDS_Level3.SelectParameters.Clear() SQLDS_Level3.SelectParameters.Add("strLevel1", strLevel1) SQLDS_Level3.SelectParameters.Add("strLevel2", strLevel2) SQLDS_Level3.SelectParameters.Add("intLevelNumber", "3") e.DetailTableView.DataSource = SQLDS_Level3 End If End Sub Private Sub rgvApplicationIdentifiers_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles rgvApplicationIdentifiers.ItemDataBound If (TypeOf e.Item Is GridEditableItem) AndAlso (e.Item.IsInEditMode) AndAlso (Not e.Item.OwnerTableView.IsItemInserted) Then Dim edititem As GridEditableItem = DirectCast(e.Item, GridEditableItem) edititem("Level1Code").Enabled = False End If End Sub End Class