dataform1.vb

来自「Mastering VBNet Include Source Code」· VB 代码 · 共 536 行 · 第 1/5 页

        Me.OleDbDeleteCommand2 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbSelectCommand2 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbUpdateCommand2 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbDataAdapter3 = New System.Data.OleDb.OleDbDataAdapter()
        Me.OleDbDeleteCommand4 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbSelectCommand4 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbDataAdapter2 = New System.Data.OleDb.OleDbDataAdapter()
        Me.OleDbDeleteCommand3 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbSelectCommand3 = New System.Data.OleDb.OleDbCommand()
        Me.OleDbUpdateCommand3 = New System.Data.OleDb.OleDbCommand()
        Me.mfp_btnDelete = New System.Windows.Forms.Button()
        Me.mfp_lblUnitPrice = New System.Windows.Forms.Label()
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.mfp_editDiscontinued = New System.Windows.Forms.CheckBox()
        Me.mfp_btnAdd = New System.Windows.Forms.Button()
        Me.mfp_lblProductID = New System.Windows.Forms.Label()
        Me.mfp_editUnitPrice = New System.Windows.Forms.TextBox()
        Me.btnLoad = New System.Windows.Forms.Button()
        Me.ListBox1 = New System.Windows.Forms.ListBox()
        Me.mfp_lblReorderLevel = New System.Windows.Forms.Label()
        Me.mfp_lblProductName = New System.Windows.Forms.Label()
        Me.mfp_btnCancel = New System.Windows.Forms.Button()
        Me.mfp_editQuantityPerUnit = New System.Windows.Forms.TextBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand()
        Me.mfp_editUnitsInStock = New System.Windows.Forms.TextBox()
        Me.mfp_lblUnitsOnOrder = New System.Windows.Forms.Label()
        Me.mfp_editReorderLevel = New System.Windows.Forms.TextBox()
        Me.mfp_editProductName = New System.Windows.Forms.TextBox()
        CType(Me.objDSProducts, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'mfp_editProductID
        '
        Me.mfp_editProductID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objDSProducts, "Products.ProductID"))
        Me.mfp_editProductID.Location = New System.Drawing.Point(316, 76)
        Me.mfp_editProductID.Name = "mfp_editProductID"
        Me.mfp_editProductID.TabIndex = 8
        Me.mfp_editProductID.Text = ""
        '
        'objDSProducts
        '
        Me.objDSProducts.DataSetName = "DSProducts"
        Me.objDSProducts.Locale = New System.Globalization.CultureInfo("en-US")
        Me.objDSProducts.Namespace = "http://www.tempuri.org/DSProducts.xsd"
        '
        'mfp_lblSupplierID
        '
        Me.mfp_lblSupplierID.Location = New System.Drawing.Point(206, 142)
        Me.mfp_lblSupplierID.Name = "mfp_lblSupplierID"
        Me.mfp_lblSupplierID.TabIndex = 5
        Me.mfp_lblSupplierID.Text = "Supplier"
        '
        'mfp_editUnitsOnOrder
        '
        Me.mfp_editUnitsOnOrder.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objDSProducts, "Products.UnitsOnOrder"))
        Me.mfp_editUnitsOnOrder.Location = New System.Drawing.Point(536, 142)
        Me.mfp_editUnitsOnOrder.Name = "mfp_editUnitsOnOrder"
        Me.mfp_editUnitsOnOrder.TabIndex = 20
        Me.mfp_editUnitsOnOrder.Text = ""
        '
        'mfp_lblQuantityPerUnit
        '
        Me.mfp_lblQuantityPerUnit.Location = New System.Drawing.Point(206, 208)
        Me.mfp_lblQuantityPerUnit.Name = "mfp_lblQuantityPerUnit"
        Me.mfp_lblQuantityPerUnit.TabIndex = 7
        Me.mfp_lblQuantityPerUnit.Text = "QuantityPerUnit"
        '
        'OleDbUpdateCommand4
        '
        Me.OleDbUpdateCommand4.CommandText = "UPDATE dbo.Suppliers SET CompanyName = ?, ContactName = ?, ContactTitle = ?, Addr" & _
        "ess = ?, City = ?, Region = ?, PostalCode = ?, Country = ?, Phone = ?, Fax = ?, " & _
        "HomePage = ? WHERE (SupplierID = ?) AND (Address = ? OR ? IS NULL AND Address IS" & _
        " NULL) AND (City = ? OR ? IS NULL AND City IS NULL) AND (CompanyName = ?) AND (C" & _
        "ontactName = ? OR ? IS NULL AND ContactName IS NULL) AND (ContactTitle = ? OR ? " & _
        "IS NULL AND ContactTitle IS NULL) AND (Country = ? OR ? IS NULL AND Country IS N" & _
        "ULL) AND (Fax = ? OR ? IS NULL AND Fax IS NULL) AND (HomePage LIKE ? OR ? IS NUL" & _
        "L AND HomePage IS NULL) AND (Phone = ? OR ? IS NULL AND Phone IS NULL) AND (Post" & _
        "alCode = ? OR ? IS NULL AND PostalCode IS NULL) AND (Region = ? OR ? IS NULL AND" & _
        " Region IS NULL); SELECT SupplierID, CompanyName, ContactName, ContactTitle, Add" & _
        "ress, City, Region, PostalCode, Country, Phone, Fax, HomePage FROM dbo.Suppliers" & _
        " WHERE (SupplierID = ?)"
        Me.OleDbUpdateCommand4.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("CompanyName", System.Data.OleDb.OleDbType.VarWChar, 40, "CompanyName"))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("ContactName", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactName", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("ContactTitle", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactTitle", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarWChar, 60, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("City", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Region", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Region", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("PostalCode", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "PostalCode", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Country", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Phone", System.Data.OleDb.OleDbType.VarWChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fax", System.Data.OleDb.OleDbType.VarWChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("HomePage", System.Data.OleDb.OleDbType.LongVarWChar, 16, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "HomePage", System.Data.DataRowVersion.Current, Nothing))
        Me.OleDbUpdateCommand4.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.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address", System.Data.OleDb.OleDbType.VarWChar, 60, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address1", System.Data.OleDb.OleDbType.VarWChar, 60, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City1", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CompanyName", System.Data.OleDb.OleDbType.VarWChar, 40, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CompanyName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactName", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactName1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactTitle", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactTitle", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactTitle1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "ContactTitle", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Country", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Country1", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fax", System.Data.OleDb.OleDbType.VarWChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fax1", System.Data.OleDb.OleDbType.VarWChar, 24, System.Data.ParameterDirection.Input, True, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))