dataform1.vb

用vb.net写的基于c/s结构的进销存程序设计源代码

        Me.objdsNorthWind.DataSetName = "dsNorthWind"
        Me.objdsNorthWind.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.objdsNorthWind.Namespace = "http://www.tempuri.org/dsNorthWind.xsd"
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial " & _
        "Catalog=Northwind;Data Source=YEXIAOJIAO;Use Procedure for Prepare=1;Auto Transl" & _
        "ate=True;Packet Size=4096;Workstation ID=YEXIAOJIAO;Use Encryption for Data=Fals" & _
        "e;Tag with column 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", "Customers", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("CustomerID", "CustomerID"), New System.Data.Common.DataColumnMapping("CompanyName", "CompanyName"), New System.Data.Common.DataColumnMapping("ContactName", "ContactName"), New System.Data.Common.DataColumnMapping("ContactTitle", "ContactTitle"), New System.Data.Common.DataColumnMapping("Address", "Address"), New System.Data.Common.DataColumnMapping("City", "City"), New System.Data.Common.DataColumnMapping("Region", "Region"), New System.Data.Common.DataColumnMapping("PostalCode", "PostalCode"), New System.Data.Common.DataColumnMapping("Country", "Country"), New System.Data.Common.DataColumnMapping("Phone", "Phone"), New System.Data.Common.DataColumnMapping("Fax", "Fax")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        '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(352, 10)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.Size = New System.Drawing.Size(88, 23)
        Me.btnUpdate.TabIndex = 1
        Me.btnUpdate.Text = "更新(&U)"
        '
        'lblCustomerID
        '
        Me.lblCustomerID.Location = New System.Drawing.Point(10, 43)
        Me.lblCustomerID.Name = "lblCustomerID"
        Me.lblCustomerID.TabIndex = 2
        Me.lblCustomerID.Text = "CustomerID"
        '
        'lblCompanyName
        '
        Me.lblCompanyName.Location = New System.Drawing.Point(10, 76)
        Me.lblCompanyName.Name = "lblCompanyName"
        Me.lblCompanyName.TabIndex = 3
        Me.lblCompanyName.Text = "CompanyName"
        '
        'lblContactName
        '
        Me.lblContactName.Location = New System.Drawing.Point(10, 109)
        Me.lblContactName.Name = "lblContactName"
        Me.lblContactName.TabIndex = 4
        Me.lblContactName.Text = "ContactName"
        '
        'lblContactTitle
        '
        Me.lblContactTitle.Location = New System.Drawing.Point(10, 142)
        Me.lblContactTitle.Name = "lblContactTitle"
        Me.lblContactTitle.TabIndex = 5
        Me.lblContactTitle.Text = "ContactTitle"
        '
        'lblAddress
        '
        Me.lblAddress.Location = New System.Drawing.Point(10, 175)
        Me.lblAddress.Name = "lblAddress"
        Me.lblAddress.TabIndex = 6
        Me.lblAddress.Text = "Address"
        '
        'lblCity
        '
        Me.lblCity.Location = New System.Drawing.Point(10, 208)
        Me.lblCity.Name = "lblCity"
        Me.lblCity.TabIndex = 7
        Me.lblCity.Text = "City"
        '
        'editCustomerID
        '
        Me.editCustomerID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.CustomerID"))
        Me.editCustomerID.Location = New System.Drawing.Point(120, 43)
        Me.editCustomerID.Name = "editCustomerID"
        Me.editCustomerID.TabIndex = 8
        Me.editCustomerID.Text = ""
        '
        'editCompanyName
        '
        Me.editCompanyName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.CompanyName"))
        Me.editCompanyName.Location = New System.Drawing.Point(120, 76)
        Me.editCompanyName.Name = "editCompanyName"
        Me.editCompanyName.TabIndex = 9
        Me.editCompanyName.Text = ""
        '
        'editContactName
        '
        Me.editContactName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.ContactName"))
        Me.editContactName.Location = New System.Drawing.Point(120, 109)
        Me.editContactName.Name = "editContactName"
        Me.editContactName.TabIndex = 10
        Me.editContactName.Text = ""
        '
        'editContactTitle
        '
        Me.editContactTitle.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.ContactTitle"))
        Me.editContactTitle.Location = New System.Drawing.Point(120, 142)
        Me.editContactTitle.Name = "editContactTitle"
        Me.editContactTitle.TabIndex = 11
        Me.editContactTitle.Text = ""
        '
        'editAddress
        '
        Me.editAddress.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.Address"))
        Me.editAddress.Location = New System.Drawing.Point(120, 175)
        Me.editAddress.Name = "editAddress"
        Me.editAddress.TabIndex = 12
        Me.editAddress.Text = ""
        '
        'editCity
        '
        Me.editCity.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.City"))
        Me.editCity.Location = New System.Drawing.Point(120, 208)
        Me.editCity.Name = "editCity"
        Me.editCity.TabIndex = 13
        Me.editCity.Text = ""
        '
        'lblRegion
        '
        Me.lblRegion.Location = New System.Drawing.Point(230, 43)
        Me.lblRegion.Name = "lblRegion"
        Me.lblRegion.TabIndex = 14
        Me.lblRegion.Text = "Region"
        '
        'lblPostalCode
        '
        Me.lblPostalCode.Location = New System.Drawing.Point(230, 76)
        Me.lblPostalCode.Name = "lblPostalCode"
        Me.lblPostalCode.TabIndex = 15
        Me.lblPostalCode.Text = "PostalCode"
        '
        'lblCountry
        '
        Me.lblCountry.Location = New System.Drawing.Point(230, 109)
        Me.lblCountry.Name = "lblCountry"
        Me.lblCountry.TabIndex = 16
        Me.lblCountry.Text = "Country"
        '
        'lblPhone
        '
        Me.lblPhone.Location = New System.Drawing.Point(230, 142)
        Me.lblPhone.Name = "lblPhone"
        Me.lblPhone.TabIndex = 17
        Me.lblPhone.Text = "Phone"
        '
        'lblFax
        '
        Me.lblFax.Location = New System.Drawing.Point(230, 175)
        Me.lblFax.Name = "lblFax"
        Me.lblFax.TabIndex = 18
        Me.lblFax.Text = "Fax"
        '
        'editRegion
        '
        Me.editRegion.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.Region"))
        Me.editRegion.Location = New System.Drawing.Point(340, 43)
        Me.editRegion.Name = "editRegion"
        Me.editRegion.TabIndex = 19
        Me.editRegion.Text = ""
        '
        'editPostalCode
        '
        Me.editPostalCode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.PostalCode"))
        Me.editPostalCode.Location = New System.Drawing.Point(340, 76)
        Me.editPostalCode.Name = "editPostalCode"
        Me.editPostalCode.TabIndex = 20
        Me.editPostalCode.Text = ""
        '
        'editCountry
        '
        Me.editCountry.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.Country"))
        Me.editCountry.Location = New System.Drawing.Point(340, 109)
        Me.editCountry.Name = "editCountry"
        Me.editCountry.TabIndex = 21
        Me.editCountry.Text = ""
        '
        'editPhone
        '
        Me.editPhone.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.Phone"))
        Me.editPhone.Location = New System.Drawing.Point(340, 142)
        Me.editPhone.Name = "editPhone"
        Me.editPhone.TabIndex = 22
        Me.editPhone.Text = ""
        '
        'editFax
        '
        Me.editFax.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.objdsNorthWind, "Customers.Fax"))
        Me.editFax.Location = New System.Drawing.Point(340, 175)
        Me.editFax.Name = "editFax"
        Me.editFax.TabIndex = 23
        Me.editFax.Text = ""
        '
        'btnNavFirst
        '
        Me.btnNavFirst.Location = New System.Drawing.Point(195, 241)
        Me.btnNavFirst.Name = "btnNavFirst"
        Me.btnNavFirst.Size = New System.Drawing.Size(40, 23)
        Me.btnNavFirst.TabIndex = 24
        Me.btnNavFirst.Text = "<<"
        '
        'btnNavPrev
        '
        Me.btnNavPrev.Location = New System.Drawing.Point(235, 241)
        Me.btnNavPrev.Name = "btnNavPrev"
        Me.btnNavPrev.Size = New System.Drawing.Size(35, 23)
        Me.btnNavPrev.TabIndex = 25
        Me.btnNavPrev.Text = "<"
        '
        'lblNavLocation
        '
        Me.lblNavLocation.BackColor = System.Drawing.Color.White
        Me.lblNavLocation.Location = New System.Drawing.Point(270, 241)