defaultvb.aspx.vb

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

            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 * 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")
            AddHandler MyBase.Load, New EventHandler(AddressOf Me.Page_Load)
            Me.dsNWind1.EndInit()
        End Sub

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

        Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub RadGrid1_DetailTableDataBind(ByVal source As Object, ByVal e As GridDetailTableDataBindEventArgs)
            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)
                Else
                    If (e.DetailTableView.DataMember = "OrderDetails") Then
                        Me.dsNWind1.OrderDetails.Clear()
                        Me.daOrderDetails.SelectCommand.CommandText = ("Select * from [Order Details] where OrderID = " & item1.Item("OrderID").Text)
                        Me.daOrderDetails.Fill(Me.dsNWind1.OrderDetails)
                    End If
                End If
            End If
        End Sub

        Private Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs)
            Me.oleDbConnection1.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & MyBase.Server.MapPath("~/Grid/Data/Access/NWind.mdb"))
            Me.daCustomers.SelectCommand.Connection = Me.oleDbConnection1
            Me.daOrders.SelectCommand.Connection = Me.oleDbConnection1
            Me.daOrderDetails.SelectCommand.Connection = Me.oleDbConnection1
            Me.daCustomers.Fill(Me.dsNWind1.Customers)
            Me.RadGrid1.DataSource = Me.dsNWind1
        End Sub


        ' Fields
        Protected Button1 As Button
        Protected Button2 As LinkButton
        Protected daCustomers As OleDbDataAdapter
        Protected daOrderDetails As OleDbDataAdapter
        Protected daOrders As OleDbDataAdapter
        Protected DataGrid1 As DataGrid
        Protected dsNWind1 As dsNWind
        Protected Linkbutton1 As LinkButton
        Protected Linkbutton2 As LinkButton
        Protected Linkbutton4 As LinkButton
        Protected oleDbConnection1 As OleDbConnection
        Protected oleDbDeleteCommand1 As OleDbCommand
        Protected oleDbDeleteCommand2 As OleDbCommand
        Protected oleDbDeleteCommand3 As OleDbCommand
        Protected oleDbInsertCommand1 As OleDbCommand
        Protected oleDbInsertCommand2 As OleDbCommand
        Protected oleDbInsertCommand3 As OleDbCommand
        Protected oleDbSelectCommand1 As OleDbCommand
        Protected oleDbSelectCommand2 As OleDbCommand
        Protected oleDbSelectCommand3 As OleDbCommand
        Protected oleDbUpdateCommand1 As OleDbCommand
        Protected oleDbUpdateCommand2 As OleDbCommand
        Protected oleDbUpdateCommand3 As OleDbCommand
        Protected PlaceHolder1 As PlaceHolder
        Private RadGrid1 As RadGrid
    End Class
End Namespace