defaultvb.aspx.vb

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

            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("OrderDate", OleDbType.DBDate, 0, "OrderDate"))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("RequiredDate", OleDbType.DBDate, 0, "RequiredDate"))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("ShipAddress", OleDbType.VarWChar, 60, "ShipAddress"))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("ShipCity", OleDbType.VarWChar, 15, "ShipCity"))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("ShipCountry", OleDbType.VarWChar, 15, "ShipCountry"))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("ShipName", OleDbType.VarWChar, 40, "ShipName"))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("ShippedDate", OleDbType.DBDate, 0, "ShippedDate"))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("ShipPostalCode", OleDbType.VarWChar, 10, "ShipPostalCode"))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("ShipRegion", OleDbType.VarWChar, 15, "ShipRegion"))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("ShipVia", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "ShipVia", DataRowVersion.Current, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_OrderID", OleDbType.Integer, 0, ParameterDirection.Input, False, 10, 0, "OrderID", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_CustomerID", OleDbType.VarWChar, 5, ParameterDirection.Input, False, 0, 0, "CustomerID", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_CustomerID1", OleDbType.VarWChar, 5, ParameterDirection.Input, False, 0, 0, "CustomerID", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_Freight", OleDbType.Currency, 0, ParameterDirection.Input, False, 19, 0, "Freight", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_Freight1", OleDbType.Currency, 0, ParameterDirection.Input, False, 19, 0, "Freight", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_OrderDate", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "OrderDate", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_OrderDate1", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "OrderDate", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_RequiredDate", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "RequiredDate", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_RequiredDate1", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "RequiredDate", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipAddress", OleDbType.VarWChar, 60, ParameterDirection.Input, False, 0, 0, "ShipAddress", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipAddress1", OleDbType.VarWChar, 60, ParameterDirection.Input, False, 0, 0, "ShipAddress", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipCity", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipCity", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipCity1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipCity", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipCountry", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipCountry", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipCountry1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipCountry", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipName", OleDbType.VarWChar, 40, ParameterDirection.Input, False, 0, 0, "ShipName", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipName1", OleDbType.VarWChar, 40, ParameterDirection.Input, False, 0, 0, "ShipName", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipPostalCode", OleDbType.VarWChar, 10, ParameterDirection.Input, False, 0, 0, "ShipPostalCode", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipPostalCode1", OleDbType.VarWChar, 10, ParameterDirection.Input, False, 0, 0, "ShipPostalCode", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipRegion", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipRegion", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShipRegion1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "ShipRegion", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShippedDate", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "ShippedDate", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand2.Parameters.Add(New OleDbParameter("Original_ShippedDate1", OleDbType.DBDate, 0, ParameterDirection.Input, False, 0, 0, "ShippedDate", DataRowVersion.Original, Nothing))
            Me.daCustomers.DeleteCommand = Me.oleDbDeleteCommand1
            Me.daCustomers.InsertCommand = Me.oleDbInsertCommand1
            Me.daCustomers.SelectCommand = Me.oleDbSelectCommand1
            Dim mappingArray5 As DataTableMapping() = New DataTableMapping(1 - 1) {}
            Dim mappingArray6 As DataColumnMapping() = New DataColumnMapping() {New DataColumnMapping("CustomerID", "CustomerID"), New DataColumnMapping("CompanyName", "CompanyName"), New DataColumnMapping("ContactName", "ContactName"), New DataColumnMapping("ContactTitle", "ContactTitle"), New DataColumnMapping("Address", "Address"), New DataColumnMapping("City", "City"), New DataColumnMapping("Region", "Region"), New DataColumnMapping("PostalCode", "PostalCode"), New DataColumnMapping("Country", "Country"), New DataColumnMapping("Phone", "Phone"), New DataColumnMapping("Fax", "Fax")}
            mappingArray5(0) = New DataTableMapping("Table", "Customers", mappingArray6)
            Me.daCustomers.TableMappings.AddRange(mappingArray5)
            Me.daCustomers.UpdateCommand = Me.oleDbUpdateCommand1
            Me.oleDbDeleteCommand1.CommandText = "DELETE FROM Customers WHERE (CustomerID = ?) AND (Address = ? OR ? IS NULL AND Address IS NULL) AND (City = ? OR ? IS NULL AND City IS NULL) AND (CompanyName = ?) AND (ContactName = ? OR ? IS NULL AND ContactName IS NULL) AND (ContactTitle = ? OR ? IS NULL AND ContactTitle IS NULL) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND (Fax = ? OR ? IS NULL AND Fax IS NULL) AND (Phone = ? OR ? IS NULL AND Phone IS NULL) AND (PostalCode = ? OR ? IS NULL AND PostalCode IS NULL) AND (Region = ? OR ? IS NULL AND Region IS NULL)"
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_CustomerID", OleDbType.VarWChar, 5, ParameterDirection.Input, False, 0, 0, "CustomerID", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_Address", OleDbType.VarWChar, 60, ParameterDirection.Input, False, 0, 0, "Address", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_Address1", OleDbType.VarWChar, 60, ParameterDirection.Input, False, 0, 0, "Address", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_City", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "City", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_City1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "City", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_CompanyName", OleDbType.VarWChar, 40, ParameterDirection.Input, False, 0, 0, "CompanyName", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_ContactName", OleDbType.VarWChar, 30, ParameterDirection.Input, False, 0, 0, "ContactName", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_ContactName1", OleDbType.VarWChar, 30, ParameterDirection.Input, False, 0, 0, "ContactName", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_ContactTitle", OleDbType.VarWChar, 30, ParameterDirection.Input, False, 0, 0, "ContactTitle", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_ContactTitle1", OleDbType.VarWChar, 30, ParameterDirection.Input, False, 0, 0, "ContactTitle", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_Country", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "Country", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_Country1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "Country", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_Fax", OleDbType.VarWChar, 24, ParameterDirection.Input, False, 0, 0, "Fax", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_Fax1", OleDbType.VarWChar, 24, ParameterDirection.Input, False, 0, 0, "Fax", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_Phone", OleDbType.VarWChar, 24, ParameterDirection.Input, False, 0, 0, "Phone", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_Phone1", OleDbType.VarWChar, 24, ParameterDirection.Input, False, 0, 0, "Phone", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_PostalCode", OleDbType.VarWChar, 10, ParameterDirection.Input, False, 0, 0, "PostalCode", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_PostalCode1", OleDbType.VarWChar, 10, ParameterDirection.Input, False, 0, 0, "PostalCode", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_Region", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "Region", DataRowVersion.Original, Nothing))
            Me.oleDbDeleteCommand1.Parameters.Add(New OleDbParameter("Original_Region1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "Region", DataRowVersion.Original, Nothing))
            Me.oleDbInsertCommand1.CommandText = "INSERT INTO Customers(Address, City, CompanyName, ContactName, ContactTitle, Country, CustomerID, Fax, Phone, PostalCode, Region) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("Address", OleDbType.VarWChar, 60, "Address"))
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("City", OleDbType.VarWChar, 15, "City"))
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("CompanyName", OleDbType.VarWChar, 40, "CompanyName"))
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("ContactName", OleDbType.VarWChar, 30, "ContactName"))
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("ContactTitle", OleDbType.VarWChar, 30, "ContactTitle"))
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("Country", OleDbType.VarWChar, 15, "Country"))
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("CustomerID", OleDbType.VarWChar, 5, "CustomerID"))
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("Fax", OleDbType.VarWChar, 24, "Fax"))
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("Phone", OleDbType.VarWChar, 24, "Phone"))
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("PostalCode", OleDbType.VarWChar, 10, "PostalCode"))
            Me.oleDbInsertCommand1.Parameters.Add(New OleDbParameter("Region", OleDbType.VarWChar, 15, "Region"))
            Me.oleDbSelectCommand1.CommandText = "SELECT top 5, * FROM Customers"
            Me.oleDbUpdateCommand1.CommandText = "UPDATE Customers SET Address = ?, City = ?, CompanyName = ?, ContactName = ?, ContactTitle = ?, Country = ?, CustomerID = ?, Fax = ?, Phone = ?, PostalCode = ?, Region = ? WHERE (CustomerID = ?) AND (Address = ? OR ? IS NULL AND Address IS NULL) AND (City = ? OR ? IS NULL AND City IS NULL) AND (CompanyName = ?) AND (ContactName = ? OR ? IS NULL AND ContactName IS NULL) AND (ContactTitle = ? OR ? IS NULL AND ContactTitle IS NULL) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND (Fax = ? OR ? IS NULL AND Fax IS NULL) AND (Phone = ? OR ? IS NULL AND Phone IS NULL) AND (PostalCode = ? OR ? IS NULL AND PostalCode IS NULL) AND (Region = ? OR ? IS NULL AND Region IS NULL)"
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Address", OleDbType.VarWChar, 60, "Address"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("City", OleDbType.VarWChar, 15, "City"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("CompanyName", OleDbType.VarWChar, 40, "CompanyName"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("ContactName", OleDbType.VarWChar, 30, "ContactName"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("ContactTitle", OleDbType.VarWChar, 30, "ContactTitle"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Country", OleDbType.VarWChar, 15, "Country"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("CustomerID", OleDbType.VarWChar, 5, "CustomerID"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Fax", OleDbType.VarWChar, 24, "Fax"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Phone", OleDbType.VarWChar, 24, "Phone"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("PostalCode", OleDbType.VarWChar, 10, "PostalCode"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Region", OleDbType.VarWChar, 15, "Region"))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_CustomerID", OleDbType.VarWChar, 5, ParameterDirection.Input, False, 0, 0, "CustomerID", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_Address", OleDbType.VarWChar, 60, ParameterDirection.Input, False, 0, 0, "Address", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_Address1", OleDbType.VarWChar, 60, ParameterDirection.Input, False, 0, 0, "Address", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_City", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "City", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_City1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "City", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_CompanyName", OleDbType.VarWChar, 40, ParameterDirection.Input, False, 0, 0, "CompanyName", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_ContactName", OleDbType.VarWChar, 30, ParameterDirection.Input, False, 0, 0, "ContactName", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_ContactName1", OleDbType.VarWChar, 30, ParameterDirection.Input, False, 0, 0, "ContactName", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_ContactTitle", OleDbType.VarWChar, 30, ParameterDirection.Input, False, 0, 0, "ContactTitle", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_ContactTitle1", OleDbType.VarWChar, 30, ParameterDirection.Input, False, 0, 0, "ContactTitle", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_Country", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "Country", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_Country1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "Country", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_Fax", OleDbType.VarWChar, 24, ParameterDirection.Input, False, 0, 0, "Fax", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_Fax1", OleDbType.VarWChar, 24, ParameterDirection.Input, False, 0, 0, "Fax", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_Phone", OleDbType.VarWChar, 24, ParameterDirection.Input, False, 0, 0, "Phone", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_Phone1", OleDbType.VarWChar, 24, ParameterDirection.Input, False, 0, 0, "Phone", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_PostalCode", OleDbType.VarWChar, 10, ParameterDirection.Input, False, 0, 0, "PostalCode", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_PostalCode1", OleDbType.VarWChar, 10, ParameterDirection.Input, False, 0, 0, "PostalCode", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_Region", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "Region", DataRowVersion.Original, Nothing))
            Me.oleDbUpdateCommand1.Parameters.Add(New OleDbParameter("Original_Region1", OleDbType.VarWChar, 15, ParameterDirection.Input, False, 0, 0, "Region", DataRowVersion.Original, Nothing))
            Me.dsNWind1.DataSetName = "dsNWind"
            Me.dsNWind1.Locale = New CultureInfo("en-US")
            Me.dsNWind1.EndInit()
        End Sub

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            Me.InitializeComponent()
            MyBase.OnInit(e)
        End Sub

        Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        End Sub

        Private Sub RadGrid1_DetailTableDataBind(ByVal source As Object, ByVal e As GridDetailTableDataBindEventArgs) Handles RadGrid1.DetailTableDataBind
            Dim item1 As GridDataItem = CType(e.DetailTableView.ParentItem, GridDataItem)
            If Not item1.Edit Then
                If (e.DetailTableView.DataMember = "Orders") Then
                    Me.dsNWind1.Orders.Clear()
                    Me.daOrders.SelectCommand.CommandText = ("Select * from Orders where CustomerID = '" & item1.Item("CustomerID").Text & "'")
                    Me.daOrders.Fill(Me.dsNWind1.Orders)
                ElseIf (e.DetailTableView.DataMember = "OrderDetails") Then
                    Dim view1 As GridTableView = item1.ChildItem.NestedTableViews(0)