📄 defaultvb.aspx.vb
字号:
End Sub
#Region "Web Form Designer generated code"
Protected Overrides Sub OnInit(ByVal e As EventArgs)
Me.DefineGridStructure()
InitializeComponent()
MyBase.OnInit(e)
End Sub
Private Sub InitializeComponent()
Me.oleDbConnection1 = New System.Data.OleDb.OleDbConnection
Me.daOrderDetails = New System.Data.OleDb.OleDbDataAdapter
Me.oleDbDeleteCommand3 = New System.Data.OleDb.OleDbCommand
Me.oleDbInsertCommand3 = New System.Data.OleDb.OleDbCommand
Me.oleDbSelectCommand3 = New System.Data.OleDb.OleDbCommand
Me.oleDbUpdateCommand3 = New System.Data.OleDb.OleDbCommand
Me.daOrders = New System.Data.OleDb.OleDbDataAdapter
Me.oleDbDeleteCommand2 = New System.Data.OleDb.OleDbCommand
Me.oleDbInsertCommand2 = New System.Data.OleDb.OleDbCommand
Me.oleDbSelectCommand2 = New System.Data.OleDb.OleDbCommand
Me.oleDbUpdateCommand2 = New System.Data.OleDb.OleDbCommand
Me.daCustomers = New System.Data.OleDb.OleDbDataAdapter
Me.oleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
Me.oleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
Me.oleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
Me.oleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
Me.dsNWind1 = New dsNWind
CType(Me.dsNWind1, System.ComponentModel.ISupportInitialize).BeginInit()
'
' daOrderDetails
'
Me.daOrderDetails.DeleteCommand = Me.oleDbDeleteCommand3
Me.daOrderDetails.InsertCommand = Me.oleDbInsertCommand3
Me.daOrderDetails.SelectCommand = Me.oleDbSelectCommand3
Me.daOrderDetails.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.daOrderDetails.UpdateCommand = Me.oleDbUpdateCommand3
'
' oleDbDeleteCommand3
'
Me.oleDbDeleteCommand3.CommandText = "DELETE FROM [Order Details] WHERE (OrderID = ?) AND (ProductID = ?) AND (Discount" + " = ?) AND (Quantity = ?) AND (UnitPrice = ?)"
Me.oleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OrderID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, System.Byte), CType(0, System.Byte), "OrderID", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ProductID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, System.Byte), CType(0, System.Byte), "ProductID", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Discount", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(7, System.Byte), CType(0, System.Byte), "Discount", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Quantity", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(5, System.Byte), CType(0, System.Byte), "Quantity", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_UnitPrice", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(19, System.Byte), CType(0, System.Byte), "UnitPrice", System.Data.DataRowVersion.Original, Nothing))
'
' oleDbInsertCommand3
'
Me.oleDbInsertCommand3.CommandText = "INSERT INTO [Order Details] (Discount, OrderID, ProductID, Quantity, UnitPrice) V" + "ALUES (?, ?, ?, ?, ?)"
Me.oleDbInsertCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Discount", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(7, System.Byte), CType(0, System.Byte), "Discount", System.Data.DataRowVersion.Current, Nothing))
Me.oleDbInsertCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("OrderID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, System.Byte), CType(0, System.Byte), "OrderID", System.Data.DataRowVersion.Current, Nothing))
Me.oleDbInsertCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("ProductID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, System.Byte), CType(0, System.Byte), "ProductID", System.Data.DataRowVersion.Current, Nothing))
Me.oleDbInsertCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Quantity", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(5, System.Byte), CType(0, System.Byte), "Quantity", System.Data.DataRowVersion.Current, Nothing))
Me.oleDbInsertCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("UnitPrice", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(19, System.Byte), CType(0, System.Byte), "UnitPrice", System.Data.DataRowVersion.Current, Nothing))
'
' oleDbSelectCommand3
'
Me.oleDbSelectCommand3.CommandText = "SELECT Discount, OrderID, Quantity, UnitPrice FROM [Order Details] WHERE OrderID " + "IN (SELECT OrderID FROM Orders WHERE CustomerID IN (SELECT CustomerID FROM Custo" + "mers))"
'
' oleDbUpdateCommand3
'
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 System.Data.OleDb.OleDbParameter("Discount", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(7, System.Byte), CType(0, System.Byte), "Discount", System.Data.DataRowVersion.Current, Nothing))
Me.oleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("OrderID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, System.Byte), CType(0, System.Byte), "OrderID", System.Data.DataRowVersion.Current, Nothing))
Me.oleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("ProductID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, System.Byte), CType(0, System.Byte), "ProductID", System.Data.DataRowVersion.Current, Nothing))
Me.oleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Quantity", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(5, System.Byte), CType(0, System.Byte), "Quantity", System.Data.DataRowVersion.Current, Nothing))
Me.oleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("UnitPrice", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(19, System.Byte), CType(0, System.Byte), "UnitPrice", System.Data.DataRowVersion.Current, Nothing))
Me.oleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OrderID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, System.Byte), CType(0, System.Byte), "OrderID", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ProductID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, System.Byte), CType(0, System.Byte), "ProductID", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Discount", System.Data.OleDb.OleDbType.Single, 0, System.Data.ParameterDirection.Input, False, CType(7, System.Byte), CType(0, System.Byte), "Discount", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Quantity", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(5, System.Byte), CType(0, System.Byte), "Quantity", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_UnitPrice", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(19, System.Byte), CType(0, System.Byte), "UnitPrice", System.Data.DataRowVersion.Original, Nothing))
'
' daOrders
'
Me.daOrders.DeleteCommand = Me.oleDbDeleteCommand2
Me.daOrders.InsertCommand = Me.oleDbInsertCommand2
Me.daOrders.SelectCommand = Me.oleDbSelectCommand2
Me.daOrders.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.daOrders.UpdateCommand = Me.oleDbUpdateCommand2
'
' oleDbDeleteCommand2
'
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 System.Data.OleDb.OleDbParameter("Original_OrderID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(10, System.Byte), CType(0, System.Byte), "OrderID", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CustomerID", System.Data.OleDb.OleDbType.VarWChar, 5, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "CustomerID", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CustomerID1", System.Data.OleDb.OleDbType.VarWChar, 5, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "CustomerID", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Freight", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(19, System.Byte), CType(0, System.Byte), "Freight", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Freight1", System.Data.OleDb.OleDbType.Currency, 0, System.Data.ParameterDirection.Input, False, CType(19, System.Byte), CType(0, System.Byte), "Freight", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OrderDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "OrderDate", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OrderDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "OrderDate", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RequiredDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "RequiredDate", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RequiredDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "RequiredDate", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ShipAddress", System.Data.OleDb.OleDbType.VarWChar, 60, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "ShipAddress", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ShipAddress1", System.Data.OleDb.OleDbType.VarWChar, 60, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "ShipAddress", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ShipCity", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "ShipCity", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ShipCity1", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "ShipCity", System.Data.DataRowVersion.Original, Nothing))
Me.oleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ShipCountry", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, System.Byte), CType(0, System.Byte), "ShipCountry", System.Data.DataRowVersion.Original, Nothing))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -