dataform1.vb

适合VB初学者看

        Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Select_ProductID", System.Data.OleDb.OleDbType.Integer, 4, "ProductID"))
        '
        'OleDbDeleteCommand2
        '
        Me.OleDbDeleteCommand2.CommandText = "DELETE FROM [Order Details] WHERE (OrderID = ?) AND (ProductID = ?) AND (Discount" & _
        " = ?) AND (Quantity = ?) AND (UnitPrice = ?)"
        Me.OleDbDeleteCommand2.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OrderID", System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OrderID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ProductID", System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ProductID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Discount", System.Data.OleDb.OleDbType.Single, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Discount", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Quantity", System.Data.OleDb.OleDbType.SmallInt, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Quantity", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_UnitPrice", System.Data.OleDb.OleDbType.Currency, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "UnitPrice", System.Data.DataRowVersion.Original, Nothing))
        '
        'objdataset1
        '
        Me.objdataset1.DataSetName = "dataset1"
        Me.objdataset1.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.objdataset1.Namespace = "http://www.tempuri.org/dataset1.xsd"
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.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("CustomerID", "CustomerID"), New System.Data.Common.DataColumnMapping("EmployeeID", "EmployeeID"), New System.Data.Common.DataColumnMapping("OrderDate", "OrderDate"), New System.Data.Common.DataColumnMapping("RequiredDate", "RequiredDate"), New System.Data.Common.DataColumnMapping("ShippedDate", "ShippedDate"), New System.Data.Common.DataColumnMapping("ShipVia", "ShipVia"), New System.Data.Common.DataColumnMapping("Freight", "Freight"), New System.Data.Common.DataColumnMapping("ShipName", "ShipName"), New System.Data.Common.DataColumnMapping("ShipAddress", "ShipAddress"), New System.Data.Common.DataColumnMapping("ShipCity", "ShipCity"), New System.Data.Common.DataColumnMapping("ShipRegion", "ShipRegion"), New System.Data.Common.DataColumnMapping("ShipPostalCode", "ShipPostalCode"), New System.Data.Common.DataColumnMapping("ShipCountry", "ShipCountry")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDataAdapter2
        '
        Me.OleDbDataAdapter2.DeleteCommand = Me.OleDbDeleteCommand2
        Me.OleDbDataAdapter2.InsertCommand = Me.OleDbInsertCommand2
        Me.OleDbDataAdapter2.SelectCommand = Me.OleDbSelectCommand2
        Me.OleDbDataAdapter2.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")})})
        Me.OleDbDataAdapter2.UpdateCommand = Me.OleDbUpdateCommand2
        '
        'btnLoad
        '
        Me.btnLoad.Location = New System.Drawing.Point(10, 10)
        Me.btnLoad.Name = "btnLoad"
        Me.btnLoad.Size = New System.Drawing.Size(88, 23)
        Me.btnLoad.TabIndex = 0
        Me.btnLoad.Text = "加载(&L)"
        '
        'btnUpdate
        '
        Me.btnUpdate.Location = New System.Drawing.Point(302, 10)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.Size = New System.Drawing.Size(88, 23)
        Me.btnUpdate.TabIndex = 1
        Me.btnUpdate.Text = "更新(&U)"
        '
        'btnCancelAll
        '
        Me.btnCancelAll.Location = New System.Drawing.Point(302, 43)
        Me.btnCancelAll.Name = "btnCancelAll"
        Me.btnCancelAll.Size = New System.Drawing.Size(88, 23)
        Me.btnCancelAll.TabIndex = 2
        Me.btnCancelAll.Text = "全部取消(&N)"
        '
        'grdOrders
        '
        Me.grdOrders.AllowNavigation = False
        Me.grdOrders.DataMember = "Orders"
        Me.grdOrders.DataSource = Me.objdataset1
        Me.grdOrders.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.grdOrders.Location = New System.Drawing.Point(10, 76)
        Me.grdOrders.Name = "grdOrders"
        Me.grdOrders.Size = New System.Drawing.Size(380, 250)
        Me.grdOrders.TabIndex = 3
        Me.grdOrders.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.objTableStylegrdOrdersOrders})
        '
        'objTableStylegrdOrdersOrders
        '
        Me.objTableStylegrdOrdersOrders.DataGrid = Me.grdOrders
        Me.objTableStylegrdOrdersOrders.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.objColumnStylegrdOrdersOrderID, Me.objColumnStylegrdOrdersCustomerID, Me.objColumnStylegrdOrdersEmployeeID, Me.objColumnStylegrdOrdersOrderDate})
        Me.objTableStylegrdOrdersOrders.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.objTableStylegrdOrdersOrders.MappingName = "Orders"
        '
        'objColumnStylegrdOrdersOrderID
        '
        Me.objColumnStylegrdOrdersOrderID.Format = ""
        Me.objColumnStylegrdOrdersOrderID.FormatInfo = Nothing
        Me.objColumnStylegrdOrdersOrderID.HeaderText = "OrderID"
        Me.objColumnStylegrdOrdersOrderID.MappingName = "OrderID"
        Me.objColumnStylegrdOrdersOrderID.Width = 75
        '
        'objColumnStylegrdOrdersCustomerID
        '
        Me.objColumnStylegrdOrdersCustomerID.Format = ""
        Me.objColumnStylegrdOrdersCustomerID.FormatInfo = Nothing
        Me.objColumnStylegrdOrdersCustomerID.HeaderText = "CustomerID"
        Me.objColumnStylegrdOrdersCustomerID.MappingName = "CustomerID"
        Me.objColumnStylegrdOrdersCustomerID.Width = 75
        '
        'objColumnStylegrdOrdersEmployeeID
        '
        Me.objColumnStylegrdOrdersEmployeeID.Format = ""
        Me.objColumnStylegrdOrdersEmployeeID.FormatInfo = Nothing
        Me.objColumnStylegrdOrdersEmployeeID.HeaderText = "EmployeeID"
        Me.objColumnStylegrdOrdersEmployeeID.MappingName = "EmployeeID"
        Me.objColumnStylegrdOrdersEmployeeID.Width = 75
        '
        'objColumnStylegrdOrdersOrderDate
        '
        Me.objColumnStylegrdOrdersOrderDate.Format = ""
        Me.objColumnStylegrdOrdersOrderDate.FormatInfo = Nothing
        Me.objColumnStylegrdOrdersOrderDate.HeaderText = "OrderDate"
        Me.objColumnStylegrdOrdersOrderDate.MappingName = "OrderDate"
        Me.objColumnStylegrdOrdersOrderDate.Width = 75
        '
        'grdOrder_Details
        '
        Me.grdOrder_Details.AllowNavigation = False
        Me.grdOrder_Details.DataMember = "Orders.OrderAndDetail"
        Me.grdOrder_Details.DataSource = Me.objdataset1
        Me.grdOrder_Details.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.grdOrder_Details.Location = New System.Drawing.Point(10, 336)
        Me.grdOrder_Details.Name = "grdOrder_Details"
        Me.grdOrder_Details.Size = New System.Drawing.Size(380, 264)
        Me.grdOrder_Details.TabIndex = 4
        '
        'DataForm1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(392, 585)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnLoad, Me.btnUpdate, Me.btnCancelAll, Me.grdOrders, Me.grdOrder_Details})
        Me.Name = "DataForm1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen