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.AJAX.ThreeLevel

    Public MustInherit Class DefaultVB
        Inherits XhtmlPage
        Private Function FindSelectedItem(ByVal tableView As GridTableView) As GridDataItem
            Dim item1 As GridDataItem = Nothing
            Dim item2 As GridItem
            For Each item2 In tableView.Items
                If (item2.Selected AndAlso TypeOf item2 Is GridDataItem) Then
                    Return CType(item2, GridDataItem)
                End If
            Next
            Return item1
        End Function

        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 Top 5, 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))
            Me.oleDbUpdateCommand3.Parameters.Add(New OleDbParameter("Quantity", OleDbType.SmallInt, 0, ParameterDirection.Input, False, 5, 0, "Quantity", DataRowVersion.Current, Nothing))
            Me.oleDbUpdateCommand3.Parameters.Add(New OleDbParameter("UnitPrice", OleDbType.Currency, 0, ParameterDirection.Input, False, 19, 0, "UnitPrice", DataRowVersion.Current, Nothing))
            Me.oleDbUpdateCommand3.Parameters.Add(New OleDbParameter("Original_OrderID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "OrderID", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand3.Parameters.Add(New OleDbParameter("Original_ProductID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "ProductID", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand3.Parameters.Add(New OleDbParameter("Original_Discount", OleDbType.Single, 0, ParameterDirection.Input, False, 7, 0, "Discount", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand3.Parameters.Add(New OleDbParameter("Original_Quantity", OleDbType.SmallInt, 0, ParameterDirection.Input, False, 5, 0, "Quantity", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand3.Parameters.Add(New OleDbParameter("Original_UnitPrice", OleDbType.Currency, 0, ParameterDirection.Input, False, 19, 0, "UnitPrice", DataRowVersion.Original, Nothing))
            Me.daOrders.DeleteCommand = Me.oleDbDeleteCommand2
            Me.daOrders.InsertCommand = Me.oleDbInsertCommand2
            Me.daOrders.SelectCommand = Me.oleDbSelectCommand2
            Dim mappingArray3 As DataTableMapping() = New DataTableMapping(1 - 1) {}
            Dim mappingArray4 As DataColumnMapping() = New DataColumnMapping() {New DataColumnMapping("OrderID", "OrderID"), New DataColumnMapping("CustomerID", "CustomerID"), New DataColumnMapping("EmployeeID", "EmployeeID"), New DataColumnMapping("OrderDate", "OrderDate"), New DataColumnMapping("RequiredDate", "RequiredDate"), New DataColumnMapping("ShippedDate", "ShippedDate"), New DataColumnMapping("ShipVia", "ShipVia"), New DataColumnMapping("Freight", "Freight"), New DataColumnMapping("ShipName", "ShipName"), New DataColumnMapping("ShipAddress", "ShipAddress"), New DataColumnMapping("ShipCity", "ShipCity"), New DataColumnMapping("ShipRegion", "ShipRegion"), New DataColumnMapping("ShipPostalCode", "ShipPostalCode"), New DataColumnMapping("ShipCountry", "ShipCountry")}
            mappingArray3(0) = New DataTableMapping("Table", "Orders", mappingArray4)
            Me.daOrders.TableMappings.AddRange(mappingArray3)
            Me.daOrders.UpdateCommand = Me.oleDbUpdateCommand2
            Me.oleDbDeleteCommand2.CommandText = "DELETE FROM Orders WHERE (OrderID = ?) AND (CustomerID = ? OR ? IS NULL AND CustomerID IS NULL) AND (Freight = ? OR ? IS NULL AND Freight IS NULL) AND (OrderDate = ? OR ? IS NULL AND OrderDate IS NULL) AND (RequiredDate = ? OR ? IS NULL AND RequiredDate IS NULL) AND (ShipAddress = ? OR ? IS NULL AND ShipAddress IS NULL) AND (ShipCity = ? OR ? IS NULL AND ShipCity IS NULL) AND (ShipCountry = ? OR ? IS NULL AND ShipCountry IS NULL) AND (ShipName = ? OR ? IS NULL AND ShipName IS NULL) AND (ShipPostalCode = ? OR ? IS NULL AND ShipPostalCode IS NULL) AND (ShipRegion = ? OR ? IS NULL AND ShipRegion IS NULL) AND (ShippedDate = ? OR ? IS NULL AND ShippedDate IS NULL)"
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_OrderID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "OrderID", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_CustomerID", OleDbType.VarWChar, 5, ParameterDirection.Input, False, 0, 0, "CustomerID", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_CustomerID1", OleDbType.VarWChar, 5, ParameterDirection.Input, False, 0, 0, "CustomerID", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_Freight", OleDbType.Currency, 0, ParameterDirection.Input, False, 19, 0, "Freight", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_Freight1", OleDbType.Currency, 0, ParameterDirection.Input, False, 19, 0, "Freight", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_OrderDate", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "OrderDate", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_OrderDate1", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "OrderDate", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_RequiredDate", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "RequiredDate", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_RequiredDate1", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "RequiredDate", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipAddress", OleDbType.VarWChar, 60, ParameterDirection.Input, False, 0, 0, "ShipAddress", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipAddress1", OleDbType.VarWChar, 60, ParameterDirection.Input, False, 0, 0, "ShipAddress", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipCity", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipCity", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipCity1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipCity", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipCountry", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipCountry", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipCountry1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipCountry", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipName", OleDbType.VarWChar, 40, ParameterDirection.Input, False, 0, 0, "ShipName", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipName1", OleDbType.VarWChar, 40, ParameterDirection.Input, False, 0, 0, "ShipName", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipPostalCode", OleDbType.VarWChar, 10, ParameterDirection.Input, False, 0, 0, "ShipPostalCode", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipPostalCode1", OleDbType.VarWChar, 10, ParameterDirection.Input, False, 0, 0, "ShipPostalCode", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipRegion", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipRegion", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShipRegion1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipRegion", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShippedDate", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "ShippedDate", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand2.Parameters.Add(New OleDbParameter("Original_ShippedDate1", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "ShippedDate", DataRowVersion.Original, Nothing))
            Me.oleDbInsertCommand2.CommandText = "INSERT INTO Orders(CustomerID, EmployeeID, Freight, OrderDate, RequiredDate, ShipAddress, ShipCity, ShipCountry, ShipName, ShippedDate, ShipPostalCode, ShipRegion, ShipVia) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("CustomerID", OleDbType.VarWChar, 5, "CustomerID"))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("EmployeeID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "EmployeeID", DataRowVersion.Current, Nothing))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("Freight", OleDbType.Currency, 0, ParameterDirection.Input, False, 19, 0, "Freight", DataRowVersion.Current, Nothing))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("OrderDate", OleDbType.DBDate, 0, "OrderDate"))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("RequiredDate", OleDbType.DBDate, 0, "RequiredDate"))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("ShipAddress", OleDbType.VarWChar, 60, "ShipAddress"))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("ShipCity", OleDbType.VarWChar, 15, "ShipCity"))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("ShipCountry", OleDbType.VarWChar, 15, "ShipCountry"))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("ShipName", OleDbType.VarWChar, 40, "ShipName"))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("ShippedDate", OleDbType.DBDate, 0, "ShippedDate"))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("ShipPostalCode", OleDbType.VarWChar, 10, "ShipPostalCode"))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("ShipRegion", OleDbType.VarWChar, 15, "ShipRegion"))
            Me.oleDbInsertCommand2.Parameters.Add(New OleDbParameter("ShipVia", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "ShipVia", DataRowVersion.Current, Nothing))
            Me.oleDbSelectCommand2.CommandText = "SELECT CustomerID, EmployeeID, Freight, OrderDate, OrderID, RequiredDate, ShipAddress, ShipCity, ShipCountry, ShipName, ShippedDate, ShipPostalCode, ShipRegion, ShipVia FROM Orders WHERE CustomerID IN (SELECT Top 5, CustomerID FROM Customers)"
            Me.oleDbUpdateCommand2.CommandText = "UPDATE Orders SET CustomerID = ?, EmployeeID = ?, Freight = ?, OrderDate = ?, RequiredDate = ?, ShipAddress = ?, ShipCity = ?, ShipCountry = ?, ShipName = ?, ShippedDate = ?, ShipPostalCode = ?, ShipRegion = ?, ShipVia = ? WHERE (OrderID = ?) AND (CustomerID = ? OR ? IS NULL AND CustomerID IS NULL) AND (Freight = ? OR ? IS NULL AND Freight IS NULL) AND (OrderDate = ? OR ? IS NULL AND OrderDate IS NULL) AND (RequiredDate = ? OR ? IS NULL AND RequiredDate IS NULL) AND (ShipAddress = ? OR ? IS NULL AND ShipAddress IS NULL) AND (ShipCity = ? OR ? IS NULL AND ShipCity IS NULL) AND (ShipCountry = ? OR ? IS NULL AND ShipCountry IS NULL) AND (ShipName = ? OR ? IS NULL AND ShipName IS NULL) AND (ShipPostalCode = ? OR ? IS NULL AND ShipPostalCode IS NULL) AND (ShipRegion = ? OR ? IS NULL AND ShipRegion IS NULL) AND (ShippedDate = ? OR ? IS NULL AND ShippedDate IS NULL)"
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("CustomerID", OleDbType.VarWChar, 5, "CustomerID"))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("EmployeeID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "EmployeeID", DataRowVersion.Current, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Freight", OleDbType.Currency, 0, ParameterDirection.Input, False, 19, 0, "Freight", DataRowVersion.Current, Nothing))