📄 dataform1.vb
字号:
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ReorderLevel1", System.Data.OleDb.OleDbType.SmallInt, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ReorderLevel", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_SupplierID", System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "SupplierID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_SupplierID1", System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "SupplierID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.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))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_UnitPrice1", System.Data.OleDb.OleDbType.Currency, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "UnitPrice", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_UnitsInStock", System.Data.OleDb.OleDbType.SmallInt, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "UnitsInStock", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_UnitsInStock1", System.Data.OleDb.OleDbType.SmallInt, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "UnitsInStock", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_UnitsOnOrder", System.Data.OleDb.OleDbType.SmallInt, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "UnitsOnOrder", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_UnitsOnOrder1", System.Data.OleDb.OleDbType.SmallInt, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "UnitsOnOrder", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbSelectCommand2
'
Me.OleDbSelectCommand2.CommandText = "SELECT CategoryID, CategoryName, Description, Picture FROM Categories"
Me.OleDbSelectCommand2.Connection = Me.OleDbConnection1
'
'OleDbInsertCommand2
'
Me.OleDbInsertCommand2.CommandText = "INSERT INTO Categories(CategoryName, Description, Picture) VALUES (?, ?, ?); SELE" & _
"CT CategoryID, CategoryName, Description, Picture FROM Categories WHERE (Categor" & _
"yID = @@IDENTITY)"
Me.OleDbInsertCommand2.Connection = Me.OleDbConnection1
Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("CategoryName", System.Data.OleDb.OleDbType.VarWChar, 15, "CategoryName"))
Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Description", System.Data.OleDb.OleDbType.VarWChar, 1073741823, "Description"))
Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Picture", System.Data.OleDb.OleDbType.VarBinary, 2147483647, "Picture"))
'
'OleDbUpdateCommand2
'
Me.OleDbUpdateCommand2.CommandText = "UPDATE Categories SET CategoryName = ?, Description = ?, Picture = ? WHERE (Categ" & _
"oryID = ?) AND (CategoryName = ?); SELECT CategoryID, CategoryName, Description," & _
" Picture FROM Categories WHERE (CategoryID = ?)"
Me.OleDbUpdateCommand2.Connection = Me.OleDbConnection1
Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("CategoryName", System.Data.OleDb.OleDbType.VarWChar, 15, "CategoryName"))
Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Description", System.Data.OleDb.OleDbType.VarWChar, 1073741823, "Description"))
Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Picture", System.Data.OleDb.OleDbType.VarBinary, 2147483647, "Picture"))
Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CategoryID", System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CategoryID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CategoryName", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CategoryName", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Select_CategoryID", System.Data.OleDb.OleDbType.Integer, 4, "CategoryID"))
'
'OleDbDeleteCommand2
'
Me.OleDbDeleteCommand2.CommandText = "DELETE FROM Categories WHERE (CategoryID = ?) AND (CategoryName = ?)"
Me.OleDbDeleteCommand2.Connection = Me.OleDbConnection1
Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CategoryID", System.Data.OleDb.OleDbType.Integer, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CategoryID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CategoryName", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CategoryName", System.Data.DataRowVersion.Original, Nothing))
'
'objMyDS
'
Me.objMyDS.DataSetName = "MyDS"
Me.objMyDS.Locale = New System.Globalization.CultureInfo("zh-CN")
Me.objMyDS.Namespace = "http://www.tempuri.org/MyDS.xsd"
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial " & _
"Catalog=Northwind;Data Source=DWS;Use Procedure for Prepare=1;Auto Translate=Tru" & _
"e;Packet Size=4096;Workstation ID=DWS;Use Encryption for Data=False;Tag with col" & _
"umn collation when possible=False"
'
'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", "Products", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ProductID", "ProductID"), New System.Data.Common.DataColumnMapping("ProductName", "ProductName"), New System.Data.Common.DataColumnMapping("SupplierID", "SupplierID"), New System.Data.Common.DataColumnMapping("CategoryID", "CategoryID"), New System.Data.Common.DataColumnMapping("QuantityPerUnit", "QuantityPerUnit"), New System.Data.Common.DataColumnMapping("UnitPrice", "UnitPrice"), New System.Data.Common.DataColumnMapping("UnitsInStock", "UnitsInStock"), New System.Data.Common.DataColumnMapping("UnitsOnOrder", "UnitsOnOrder"), New System.Data.Common.DataColumnMapping("ReorderLevel", "ReorderLevel"), New System.Data.Common.DataColumnMapping("Discontinued", "Discontinued")})})
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", "Categories", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("CategoryID", "CategoryID"), New System.Data.Common.DataColumnMapping("CategoryName", "CategoryName"), New System.Data.Common.DataColumnMapping("Description", "Description"), New System.Data.Common.DataColumnMapping("Picture", "Picture")})})
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)"
'
'grdCategories
'
Me.grdCategories.AllowNavigation = False
Me.grdCategories.DataMember = "Categories"
Me.grdCategories.DataSource = Me.objMyDS
Me.grdCategories.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.grdCategories.Location = New System.Drawing.Point(10, 76)
Me.grdCategories.Name = "grdCategories"
Me.grdCategories.Size = New System.Drawing.Size(380, 250)
Me.grdCategories.TabIndex = 3
Me.grdCategories.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.objTableStylegrdCategoriesCategories})
'
'objTableStylegrdCategoriesCategories
'
Me.objTableStylegrdCategoriesCategories.DataGrid = Me.grdCategories
Me.objTableStylegrdCategoriesCategories.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.objColumnStylegrdCategoriesCategoryID, Me.objColumnStylegrdCategoriesCategoryName, Me.objColumnStylegrdCategoriesDescription})
Me.objTableStylegrdCategoriesCategories.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.objTableStylegrdCategoriesCategories.MappingName = "Categories"
'
'objColumnStylegrdCategoriesCategoryID
'
Me.objColumnStylegrdCategoriesCategoryID.Format = ""
Me.objColumnStylegrdCategoriesCategoryID.FormatInfo = Nothing
Me.objColumnStylegrdCategoriesCategoryID.HeaderText = "CategoryID"
Me.objColumnStylegrdCategoriesCategoryID.MappingName = "CategoryID"
Me.objColumnStylegrdCategoriesCategoryID.Width = 75
'
'objColumnStylegrdCategoriesCategoryName
'
Me.objColumnStylegrdCategoriesCategoryName.Format = ""
Me.objColumnStylegrdCategoriesCategoryName.FormatInfo = Nothing
Me.objColumnStylegrdCategoriesCategoryName.HeaderText = "CategoryName"
Me.objColumnStylegrdCategoriesCategoryName.MappingName = "CategoryName"
Me.objColumnStylegrdCategoriesCategoryName.Width = 75
'
'objColumnStylegrdCategoriesDescription
'
Me.objColumnStylegrdCategoriesDescription.Format = ""
Me.objColumnStylegrdCategoriesDescription.FormatInfo = Nothing
Me.objColumnStylegrdCategoriesDescription.HeaderText = "Description"
Me.objColumnStylegrdCategoriesDescription.MappingName = "Description"
Me.objColumnStylegrdCategoriesDescription.Width = 75
'
'grdProducts
'
Me.grdProducts.AllowNavigation = False
Me.grdProducts.DataMember = "Categories.分类代号"
Me.grdProducts.DataSource = Me.objMyDS
Me.grdProducts.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.grdProducts.Location = New System.Drawing.Point(10, 336)
Me.grdProducts.Name = "grdProducts"
Me.grdProducts.Size = New System.Drawing.Size(380, 292)
Me.grdProducts.TabIndex = 4
Me.grdProducts.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.objTableStylegrdProductsProducts})
'
'objTableStylegrdProductsProducts
'
Me.objTableStylegrdProductsProducts.DataGrid = Me.grdProducts
Me.objTableStylegrdProductsProducts.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.objColumnStylegrdProductsProductID, Me.objColumnStylegrdProductsProductName, Me.objColumnStylegrdProductsCategoryID, Me.objColumnStylegrdProductsQuantityPerUnit, Me.objColumnStylegrdProductsUnitPrice, Me.objColumnStylegrdProductsUnitsInStock, Me.objColumnStylegrdProductsUnitsOnOrder, Me.objColumnStylegrdProductsReorderLevel, Me.objColumnStylegrdProductsDiscontinued})
Me.objTableStylegrdProductsProducts.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.objTableStylegrdProductsProducts.MappingName = "Products"
'
'objColumnStylegrdProductsProductID
'
Me.objColumnStylegrdProductsProductID.Format = ""
Me.objColumnStylegrdProductsProductID.FormatInfo = Nothing
Me.objColumnStylegrdProductsProductID.HeaderText = "ProductID"
Me.objColumnStylegrdProductsProductID.MappingName = "ProductID"
Me.objColumnStylegrdProductsProductID.Width = 75
'
'objColumnStylegrdProductsProductName
'
Me.objColumnStylegrdProductsProductName.Format = ""
Me.objColumnStylegrdProductsProductName.FormatInfo = Nothing
Me.objColumnStylegrdProductsProductName.HeaderText = "ProductName"
Me.objColumnStylegrdProductsProductName.MappingName = "ProductName"
Me.objColumnStylegrdProductsProductName.Width = 75
'
'objColumnStylegrdProductsCategoryID
'
Me.objColumnStylegrdProductsCategoryID.Format = ""
Me.objColumnStylegrdProductsCategoryID.FormatInfo = Nothing
Me.objColumnStylegrdProductsCategoryID.HeaderText = "CategoryID"
Me.objColumnStylegrdProductsCategoryID.MappingName = "CategoryID"
Me.objColumnStylegrdProductsCategoryID.Width = 75
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -