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

Namespace TechmaticaNorthwindUserInterface
    Public MustInherit Class ShippersGrid
        Inherits BaseGrid
        Public MyDataGrid As DotNetGenieDataGrid
        Protected ShippersLabel As System.Web.UI.WebControls.Label
        Private designerPlaceholderDeclaration As Object
        Public Overridable Sub BindGrid()
            Try 
                MyBase.BaseBindGrid(Constants.Shippers)
            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("ShippersDPK", 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
                        ShippersLabel.Text = String.Concat(New String() {ShippersLabel.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