defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb
Imports System.Globalization
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Telerik.WebControls
Imports Telerik.QuickStart

Namespace Telerik.GridExamplesVBNET.Programming.GroupBy
    Public MustInherit Class DefaultVB
        Inherits XhtmlPage

        Private Sub DefineGridStructure()
            Me.RadGrid1 = New RadGrid
            AddHandler Me.RadGrid1.NeedDataSource, New GridNeedDataSourceEventHandler(AddressOf Me.RadGrid1_NeedDataSource)
            AddHandler Me.RadGrid1.DetailTableDataBind, New GridDetailTableDataBindEventHandler(AddressOf Me.RadGrid1_DetailTableDataBind)
            Me.RadGrid1.CssClass = "RadGrid"
            Me.RadGrid1.Width = Unit.Percentage(100)
            Me.RadGrid1.PageSize = 5
            Me.RadGrid1.AllowPaging = True
            Me.RadGrid1.AutoGenerateColumns = False
            Me.RadGrid1.GroupingEnabled = True
            Me.RadGrid1.ShowGroupPanel = True
            Me.RadGrid1.ClientSettings.AllowDragToGroup = True
            Me.RadGrid1.MasterTableView.DataMember = "Customers"
            Me.RadGrid1.MasterTableView.PageSize = 15
            Dim column1 As New GridBoundColumn
            column1.DataField = "CustomerID"
            column1.HeaderText = "CustomerID"
            Me.RadGrid1.MasterTableView.Columns.Add(column1)
            column1 = New GridBoundColumn
            column1.DataField = "ContactName"
            column1.HeaderText = "Contact Name"
            Me.RadGrid1.MasterTableView.Columns.Add(column1)
            Dim view1 As New GridTableView(Me.RadGrid1)
            view1.DataMember = "Orders"
            Me.RadGrid1.MasterTableView.DetailTables.Add(view1)
            Me.RadGrid1.MasterTableView.GroupByExpressions.Add(New GridGroupByExpression("Country Group By Country"))
            Dim expression1 As New GridGroupByExpression
            Dim field1 As New GridGroupByField

            field1 = New GridGroupByField
            field1.FieldName = "EmployeeID"
            field1.HeaderText = "Employee"
            field1.HeaderValueSeparator = " for current group: "
            field1.FormatString = "<strong>{0}</strong>"
            expression1.SelectFields.Add(field1)

            field1 = New GridGroupByField
            field1.FieldName = "Freight"
            field1.HeaderText = "Total shipping cost is"
            field1.HeaderValueSeparator = ""
            field1.FormatString = "<strong>{0:0.00}</strong>"
            field1.Aggregate = GridAggregateFunction.Sum
            expression1.SelectFields.Add(field1)

            field1 = New GridGroupByField
            field1.FieldName = "EmployeeID"
            expression1.GroupByFields.Add(field1)
            view1.GroupByExpressions.Add(expression1)

            column1 = New GridBoundColumn
            column1.DataField = "OrderID"
            column1.HeaderText = "OrderID"
            view1.Columns.Add(column1)

            column1 = New GridBoundColumn
            column1.DataField = "OrderDate"
            column1.HeaderText = "Date Ordered"
            view1.Columns.Add(column1)
            Me.PlaceHolder1.Controls.Add(Me.RadGrid1)
        End Sub

        Private Sub InitializeComponent()
            Me.oleDbConnection1 = New OleDbConnection
            Me.daOrderDetails = New OleDbDataAdapter
            Me.oleDbDeleteCommand3 = New OleDbCommand
            Me.oleDbInsertCommand3 = New OleDbCommand
            Me.oleDbSelectCommand3 = New OleDbCommand
            Me.oleDbUpdateCommand3 = New OleDbCommand
            Me.daOrders = New OleDbDataAdapter
            Me.oleDbDeleteCommand2 = New OleDbCommand
            Me.oleDbInsertCommand2 = New OleDbCommand
            Me.oleDbSelectCommand2 = New OleDbCommand
            Me.oleDbUpdateCommand2 = New OleDbCommand
            Me.daCustomers = New OleDbDataAdapter
            Me.oleDbDeleteCommand1 = New OleDbCommand
            Me.oleDbInsertCommand1 = New OleDbCommand
            Me.oleDbSelectCommand1 = New OleDbCommand
            Me.oleDbUpdateCommand1 = New OleDbCommand
            Me.dsNWind1 = New dsNWind
            Me.dsNWind1.BeginInit()
            Me.daOrderDetails.DeleteCommand = Me.oleDbDeleteCommand3
            Me.daOrderDetails.InsertCommand = Me.oleDbInsertCommand3
            Me.daOrderDetails.SelectCommand = Me.oleDbSelectCommand3
            Dim mappingArray1 As DataTableMapping() = New DataTableMapping(1 - 1) {}
            Dim mappingArray2 As DataColumnMapping() = New DataColumnMapping() {New DataColumnMapping("OrderID", "OrderID"), New DataColumnMapping("ProductID", "ProductID"), New DataColumnMapping("UnitPrice", "UnitPrice"), New DataColumnMapping("Quantity", "Quantity"), New DataColumnMapping("Discount", "Discount")}
            mappingArray1(0) = New DataTableMapping("Table", "Order Details", mappingArray2)
            Me.daOrderDetails.TableMappings.AddRange(mappingArray1)
            Me.daOrderDetails.UpdateCommand = Me.oleDbUpdateCommand3
            Me.oleDbDeleteCommand3.CommandText = "DELETE FROM [Order Details] WHERE (OrderID = ?) AND (ProductID = ?) AND (Discount = ?) AND (Quantity = ?) AND (UnitPrice = ?)"
            Me.oleDbDeleteCommand3.Parameters.Add(New OleDbParameter("Original_OrderID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "OrderID", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand3.Parameters.Add(New OleDbParameter("Original_ProductID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "ProductID", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand3.Parameters.Add(New OleDbParameter("Original_Discount", OleDbType.Single, 0, ParameterDirection.Input, False, 7, 0, "Discount", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand3.Parameters.Add(New OleDbParameter("Original_Quantity", OleDbType.SmallInt, 0, ParameterDirection.Input, False, 5, 0, "Quantity", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand3.Parameters.Add(New OleDbParameter("Original_UnitPrice", OleDbType.Currency, 0, ParameterDirection.Input, False, 19, 0, "UnitPrice", DataRowVersion.Original, Nothing))
            Me.oleDbInsertCommand3.CommandText = "INSERT INTO [Order Details] (Discount, OrderID, ProductID, Quantity, UnitPrice) VALUES (?, ?, ?, ?, ?)"
            Me.oleDbInsertCommand3.Parameters.Add(New OleDbParameter("Discount", OleDbType.Single, 0, ParameterDirection.Input, False, 7, 0, "Discount", DataRowVersion.Current, Nothing))
            Me.oleDbInsertCommand3.Parameters.Add(New OleDbParameter("OrderID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "OrderID", DataRowVersion.Current, Nothing))
            Me.oleDbInsertCommand3.Parameters.Add(New OleDbParameter("ProductID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "ProductID", DataRowVersion.Current, Nothing))
            Me.oleDbInsertCommand3.Parameters.Add(New OleDbParameter("Quantity", OleDbType.SmallInt, 0, ParameterDirection.Input, False, 5, 0, "Quantity", DataRowVersion.Current, Nothing))
            Me.oleDbInsertCommand3.Parameters.Add(New OleDbParameter("UnitPrice", OleDbType.Currency, 0, ParameterDirection.Input, False, 19, 0, "UnitPrice", DataRowVersion.Current, Nothing))
            Me.oleDbSelectCommand3.CommandText = "SELECT Discount, OrderID, Quantity, UnitPrice FROM [Order Details] WHERE OrderID IN (SELECT OrderID FROM Orders WHERE CustomerID IN (SELECT CustomerID FROM Customers))"
            Me.oleDbUpdateCommand3.CommandText = "UPDATE [Order Details] SET Discount = ?, OrderID = ?, ProductID = ?, Quantity = ?, UnitPrice = ? WHERE (OrderID = ?) AND (ProductID = ?) AND (Discount = ?) AND (Quantity = ?) AND (UnitPrice = ?)"
            Me.oleDbUpdateCommand3.Parameters.Add(New OleDbParameter("Discount", OleDbType.Single, 0, ParameterDirection.Input, False, 7, 0, "Discount", DataRowVersion.Current, Nothing))
            Me.oleDbUpdateCommand3.Parameters.Add(New OleDbParameter("OrderID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "OrderID", DataRowVersion.Current, Nothing))
            Me.oleDbUpdateCommand3.Parameters.Add(New OleDbParameter("ProductID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "ProductID", DataRowVersion.Current, Nothing))