Imports System
Imports TechmaticaNorthwindBusiness
Imports Techmatica.Web.UI.WebControls
Imports TechmaticaNorthwindHelper

Namespace TechmaticaNorthwindUserInterface
    Public MustInherit Class DNGGroupsGrid
        Inherits BaseGrid
        Protected DNGGroupsLabel As System.Web.UI.WebControls.Label
        Public MyDataGrid As DotNetGenieDataGrid
        Private designerPlaceholderDeclaration As Object
        Public Overridable Sub BindGrid()
            Try 
                MyBase.BaseBindGrid(Constants.DNGGroups)
            Catch Exception As System.Exception
                Throw Exception
            End Try
        End Sub
        <System.Diagnostics.DebuggerStepThrough()>  _
        Private Sub InitializeComponent()
        End Sub
        Private Sub LoadClass(ByVal Sender As Object, ByVal E As System.EventArgs)
            MyBase.LoadGrid("DNGGroupsDPK", Constants.SortOrderAscending)
        End Sub
        Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
            Me.InitializeComponent
            AddHandler MyBase.Load, AddressOf Me.LoadClass
            If (MyDataGrid.GridDisplayMode = DataGridDisplayMode.DetailGridMode) Then
                If (Not (System.Web.HttpContext.Current.Request.QueryString(Constants.QueryStringLinkFields)) Is Nothing) Then
                    If (System.Web.HttpContext.Current.Request.QueryString(Constants.QueryStringLinkFields).Length > 0) Then
                        DNGGroupsLabel.Text = String.Concat(New String() {DNGGroupsLabel.Text, " --> Linking Columns: ", System.Web.HttpContext.Current.Request.QueryString(Constants.QueryStringLinkFields)})
                    End If
                End If
            End If
            MyBase.OnInit(e)
        End Sub
    End Class
End Namespace