webform1.aspx.vb

Mastering VBNet Include Source Code

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents DACustomers As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents DAOrders As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents DADetails As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DsCustomerNames1 As MasterDetail.DSCustomerNames
    Protected WithEvents DsOrders1 As MasterDetail.DSOrders
    Protected WithEvents DsDetails1 As MasterDetail.DSDetails
    Protected WithEvents DataGrid2 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents DataGrid3 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
        Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.DAOrders = New System.Data.SqlClient.SqlDataAdapter()
        Me.DADetails = New System.Data.SqlClient.SqlDataAdapter()
        Me.DACustomers = New System.Data.SqlClient.SqlDataAdapter()
        Me.DsCustomerNames1 = New MasterDetail.DSCustomerNames()
        Me.DsOrders1 = New MasterDetail.DSOrders()
        Me.DsDetails1 = New MasterDetail.DSDetails()
        CType(Me.DsCustomerNames1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DsOrders1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DsDetails1, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=PowerToolkit;initial catalog=Northwind;integrated security=SSPI;persi" & _
        "st security info=False;workstation id=POWERTOOLKIT;packet size=4096"
        '
        'SqlSelectCommand3
        '
        Me.SqlSelectCommand3.CommandText = "SELECT dbo.[Order Details].OrderID, dbo.[Order Details].ProductID, dbo.[Order Det" & _
        "ails].UnitPrice, dbo.[Order Details].Quantity, dbo.[Order Details].Discount, dbo" & _
        ".Products.ProductName, (dbo.[Order Details].UnitPrice * dbo.[Order Details].Quan" & _
        "tity) * (1 - dbo.[Order Details].Discount) AS Total FROM dbo.[Order Details] INN" & _
        "ER JOIN dbo.Products ON dbo.[Order Details].ProductID = dbo.Products.ProductID W" & _
        "HERE ([Order Details].OrderID = @orderID)"
        Me.SqlSelectCommand3.Connection = Me.SqlConnection1
        Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@orderID", System.Data.SqlDbType.Variant))
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "SELECT dbo.Orders.OrderID, dbo.Orders.OrderDate, SUM((dbo.[Order Details].UnitPri" & _
        "ce * dbo.[Order Details].Quantity) * (1 - dbo.[Order Details].Discount)) AS Tota" & _
        "l FROM dbo.Orders INNER JOIN dbo.[Order Details] ON dbo.Orders.OrderID = dbo.[Or" & _
        "der Details].OrderID WHERE (Orders.CustomerID = @CustID) GROUP BY dbo.Orders.Ord" & _
        "erID, dbo.Orders.OrderDate"
        Me.SqlSelectCommand2.Connection = Me.SqlConnection1
        Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CustID", System.Data.SqlDbType.Variant))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT CustomerID, CompanyName, ContactName FROM dbo.Customers"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'DAOrders
        '
        Me.DAOrders.SelectCommand = Me.SqlSelectCommand2
        Me.DAOrders.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Orders", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("OrderID", "OrderID"), New System.Data.Common.DataColumnMapping("OrderDate", "OrderDate"), New System.Data.Common.DataColumnMapping("Total", "Total")})})
        '
        'DADetails
        '
        Me.DADetails.SelectCommand = Me.SqlSelectCommand3
        Me.DADetails.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Order Details", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("OrderID", "OrderID"), New System.Data.Common.DataColumnMapping("ProductID", "ProductID"), New System.Data.Common.DataColumnMapping("UnitPrice", "UnitPrice"), New System.Data.Common.DataColumnMapping("Quantity", "Quantity"), New System.Data.Common.DataColumnMapping("Discount", "Discount"), New System.Data.Common.DataColumnMapping("ProductName", "ProductName"), New System.Data.Common.DataColumnMapping("Expr1", "Expr1")})})
        '
        'DACustomers
        '
        Me.DACustomers.SelectCommand = Me.SqlSelectCommand1
        Me.DACustomers.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Customers", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("CustomerID", "CustomerID"), New System.Data.Common.DataColumnMapping("CompanyName", "CompanyName"), New System.Data.Common.DataColumnMapping("ContactName", "ContactName")})})
        '
        'DsCustomerNames1
        '
        Me.DsCustomerNames1.DataSetName = "DSCustomerNames"
        Me.DsCustomerNames1.Locale = New System.Globalization.CultureInfo("en-US")
        Me.DsCustomerNames1.Namespace = "http://www.tempuri.org/DSCustomerNames.xsd"
        '
        'DsOrders1
        '
        Me.DsOrders1.DataSetName = "DSOrders"
        Me.DsOrders1.Locale = New System.Globalization.CultureInfo("en-US")
        Me.DsOrders1.Namespace = "http://www.tempuri.org/DSOrders.xsd"
        '
        'DsDetails1
        '
        Me.DsDetails1.DataSetName = "DSDetails"
        Me.DsDetails1.Locale = New System.Globalization.CultureInfo("en-US")
        Me.DsDetails1.Namespace = "http://www.tempuri.org/DSDetails.xsd"
        CType(Me.DsCustomerNames1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DsOrders1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DsDetails1, System.ComponentModel.ISupportInitialize).EndInit()

    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
        'Put user code to initialize the page here
        If Not Me.IsPostBack Then
            DACustomers.Fill(DsCustomerNames1, "Customers")
            DataGrid1.DataBind()
        End If
    End Sub

    Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
        If e.Item.ItemType = ListItemType.Pager Then Exit Sub
        Dim custID As String = DataGrid1.DataKeys(e.Item.ItemIndex)
        DAOrders.SelectCommand.Parameters("@CustID").Value = custID
        DAOrders.Fill(DsOrders1, "Orders")
        DataGrid2.DataBind()
    End Sub

    Private Sub DataGrid2_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid2.ItemCommand
        Dim orderID As Integer = DataGrid2.DataKeys(e.Item.ItemIndex)
        DADetails.SelectCommand.Parameters("@OrderID").Value = orderID
        DADetails.Fill(DsDetails1, "Order Details")
        DataGrid3.DataBind()
    End Sub

    Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
        DataGrid1.CurrentPageIndex = e.NewPageIndex
        DACustomers.Fill(DsCustomerNames1, "Customers")
        DataGrid1.DataBind()
    End Sub

    Private Sub DACustomers_RowUpdated(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlRowUpdatedEventArgs) Handles DACustomers.RowUpdated

    End Sub
End Class