boundclient.designer.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 501 行 · 第 1/2 页

Partial Public Class BoundClient
    Inherits System.Windows.Forms.Form

    <System.Diagnostics.DebuggerNonUserCode()> _
    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

    End Sub

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim CustomerIDLabel As System.Windows.Forms.Label
        Dim EmployeeIDLabel As System.Windows.Forms.Label
        Dim FreightLabel As System.Windows.Forms.Label
        Dim OrderIDLabel As System.Windows.Forms.Label
        Dim ShipAddressLabel As System.Windows.Forms.Label
        Dim ShipCityLabel As System.Windows.Forms.Label
        Dim ShipCountryLabel As System.Windows.Forms.Label
        Dim ShipNameLabel As System.Windows.Forms.Label
        Dim ShipPostalCodeLabel As System.Windows.Forms.Label
        Dim ShipRegionLabel As System.Windows.Forms.Label
        Dim ShipViaLabel As System.Windows.Forms.Label
        Dim OrderDateLabel1 As System.Windows.Forms.Label
        Dim RequiredDateLabel As System.Windows.Forms.Label
        Dim ShippedDateLabel As System.Windows.Forms.Label
        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle
        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle
        Me.OrderBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.CustomerIDTextBox = New System.Windows.Forms.TextBox
        Me.EmployeeIDTextBox = New System.Windows.Forms.TextBox
        Me.FreightTextBox = New System.Windows.Forms.TextBox
        Me.OrderIDTextBox = New System.Windows.Forms.TextBox
        Me.ShipAddressTextBox = New System.Windows.Forms.TextBox
        Me.ShipCityTextBox = New System.Windows.Forms.TextBox
        Me.ShipCountryTextBox = New System.Windows.Forms.TextBox
        Me.ShipNameTextBox = New System.Windows.Forms.TextBox
        Me.ShipPostalCodeTextBox = New System.Windows.Forms.TextBox
        Me.ShipRegionTextBox = New System.Windows.Forms.TextBox
        Me.ShipViaTextBox = New System.Windows.Forms.TextBox
        Me.OrderDetailsBindingSource = New System.Windows.Forms.BindingSource(Me.components)
        Me.OrderDetailDataGridView = New System.Windows.Forms.DataGridView
        Me.OrderID = New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.ProductID = New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.Quantity = New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.UnitPrice = New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.Discount = New System.Windows.Forms.DataGridViewTextBoxColumn
        Me.OrderDateTextBox = New System.Windows.Forms.TextBox
        Me.RequiredDateTextBox = New System.Windows.Forms.TextBox
        Me.ShippedDateTextBox = New System.Windows.Forms.TextBox
        Me.btnGetOrder = New System.Windows.Forms.Button
        Me.cboOrderID = New System.Windows.Forms.ComboBox
        Me.btnConnect = New System.Windows.Forms.Button
        Me.btnUpdateOrder = New System.Windows.Forms.Button
        CustomerIDLabel = New System.Windows.Forms.Label
        EmployeeIDLabel = New System.Windows.Forms.Label
        FreightLabel = New System.Windows.Forms.Label
        OrderIDLabel = New System.Windows.Forms.Label
        ShipAddressLabel = New System.Windows.Forms.Label
        ShipCityLabel = New System.Windows.Forms.Label
        ShipCountryLabel = New System.Windows.Forms.Label
        ShipNameLabel = New System.Windows.Forms.Label
        ShipPostalCodeLabel = New System.Windows.Forms.Label
        ShipRegionLabel = New System.Windows.Forms.Label
        ShipViaLabel = New System.Windows.Forms.Label
        OrderDateLabel1 = New System.Windows.Forms.Label
        RequiredDateLabel = New System.Windows.Forms.Label
        ShippedDateLabel = New System.Windows.Forms.Label
        CType(Me.OrderBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.OrderDetailsBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.OrderDetailDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'CustomerIDLabel
        '
        CustomerIDLabel.AutoSize = True
        CustomerIDLabel.Location = New System.Drawing.Point(23, 67)
        CustomerIDLabel.Name = "CustomerIDLabel"
        CustomerIDLabel.Size = New System.Drawing.Size(68, 13)
        CustomerIDLabel.TabIndex = 1
        CustomerIDLabel.Text = "Customer ID:"
        '
        'EmployeeIDLabel
        '
        EmployeeIDLabel.AutoSize = True
        EmployeeIDLabel.Location = New System.Drawing.Point(23, 94)
        EmployeeIDLabel.Name = "EmployeeIDLabel"
        EmployeeIDLabel.Size = New System.Drawing.Size(70, 13)
        EmployeeIDLabel.TabIndex = 3
        EmployeeIDLabel.Text = "Employee ID:"
        '
        'FreightLabel
        '
        FreightLabel.AutoSize = True
        FreightLabel.Location = New System.Drawing.Point(195, 41)
        FreightLabel.Name = "FreightLabel"
        FreightLabel.Size = New System.Drawing.Size(42, 13)
        FreightLabel.TabIndex = 5
        FreightLabel.Text = "Freight:"
        '
        'OrderIDLabel
        '
        OrderIDLabel.AutoSize = True
        OrderIDLabel.Location = New System.Drawing.Point(23, 41)
        OrderIDLabel.Name = "OrderIDLabel"
        OrderIDLabel.Size = New System.Drawing.Size(50, 13)
        OrderIDLabel.TabIndex = 9
        OrderIDLabel.Text = "Order ID:"
        '
        'ShipAddressLabel
        '
        ShipAddressLabel.AutoSize = True
        ShipAddressLabel.Location = New System.Drawing.Point(195, 93)
        ShipAddressLabel.Name = "ShipAddressLabel"
        ShipAddressLabel.Size = New System.Drawing.Size(72, 13)
        ShipAddressLabel.TabIndex = 13
        ShipAddressLabel.Text = "Ship Address:"
        '
        'ShipCityLabel
        '
        ShipCityLabel.AutoSize = True
        ShipCityLabel.Location = New System.Drawing.Point(195, 119)
        ShipCityLabel.Name = "ShipCityLabel"
        ShipCityLabel.Size = New System.Drawing.Size(51, 13)
        ShipCityLabel.TabIndex = 15
        ShipCityLabel.Text = "Ship City:"
        '
        'ShipCountryLabel
        '
        ShipCountryLabel.AutoSize = True
        ShipCountryLabel.Location = New System.Drawing.Point(197, 197)
        ShipCountryLabel.Name = "ShipCountryLabel"
        ShipCountryLabel.Size = New System.Drawing.Size(70, 13)
        ShipCountryLabel.TabIndex = 17
        ShipCountryLabel.Text = "Ship Country:"
        '
        'ShipNameLabel
        '
        ShipNameLabel.AutoSize = True
        ShipNameLabel.Location = New System.Drawing.Point(195, 67)
        ShipNameLabel.Name = "ShipNameLabel"
        ShipNameLabel.Size = New System.Drawing.Size(62, 13)
        ShipNameLabel.TabIndex = 19
        ShipNameLabel.Text = "Ship Name:"
        '
        'ShipPostalCodeLabel
        '
        ShipPostalCodeLabel.AutoSize = True
        ShipPostalCodeLabel.Location = New System.Drawing.Point(197, 145)
        ShipPostalCodeLabel.Name = "ShipPostalCodeLabel"
        ShipPostalCodeLabel.Size = New System.Drawing.Size(91, 13)
        ShipPostalCodeLabel.TabIndex = 23
        ShipPostalCodeLabel.Text = "Ship Postal Code:"
        '
        'ShipRegionLabel
        '
        ShipRegionLabel.AutoSize = True
        ShipRegionLabel.Location = New System.Drawing.Point(197, 171)
        ShipRegionLabel.Name = "ShipRegionLabel"
        ShipRegionLabel.Size = New System.Drawing.Size(68, 13)
        ShipRegionLabel.TabIndex = 25
        ShipRegionLabel.Text = "Ship Region:"
        '
        'ShipViaLabel
        '
        ShipViaLabel.AutoSize = True
        ShipViaLabel.Location = New System.Drawing.Point(24, 197)
        ShipViaLabel.Name = "ShipViaLabel"
        ShipViaLabel.Size = New System.Drawing.Size(49, 13)
        ShipViaLabel.TabIndex = 27
        ShipViaLabel.Text = "Ship Via:"
        '
        'OrderDateLabel1
        '
        OrderDateLabel1.AutoSize = True
        OrderDateLabel1.Location = New System.Drawing.Point(23, 121)
        OrderDateLabel1.Name = "OrderDateLabel1"
        OrderDateLabel1.Size = New System.Drawing.Size(62, 13)
        OrderDateLabel1.TabIndex = 29
        OrderDateLabel1.Text = "Order Date:"
        '
        'RequiredDateLabel
        '
        RequiredDateLabel.AutoSize = True
        RequiredDateLabel.Location = New System.Drawing.Point(23, 146)
        RequiredDateLabel.Name = "RequiredDateLabel"
        RequiredDateLabel.Size = New System.Drawing.Size(79, 13)
        RequiredDateLabel.TabIndex = 30
        RequiredDateLabel.Text = "Required Date:"
        '
        'ShippedDateLabel
        '
        ShippedDateLabel.AutoSize = True
        ShippedDateLabel.Location = New System.Drawing.Point(23, 171)
        ShippedDateLabel.Name = "ShippedDateLabel"
        ShippedDateLabel.Size = New System.Drawing.Size(75, 13)
        ShippedDateLabel.TabIndex = 31
        ShippedDateLabel.Text = "Shipped Date:"
        '
        'OrderBindingSource
        '
        Me.OrderBindingSource.DataSource = GetType(NWOrdersWSClient.NWLocalWS.clsOrder)
        '
        'CustomerIDTextBox
        '
        Me.CustomerIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.OrderBindingSource, "CustomerID", True))
        Me.CustomerIDTextBox.Location = New System.Drawing.Point(103, 64)
        Me.CustomerIDTextBox.Name = "CustomerIDTextBox"
        Me.CustomerIDTextBox.Size = New System.Drawing.Size(69, 20)
        Me.CustomerIDTextBox.TabIndex = 2
        '
        'EmployeeIDTextBox
        '
        Me.EmployeeIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.OrderBindingSource, "EmployeeID", True))
        Me.EmployeeIDTextBox.Location = New System.Drawing.Point(103, 90)
        Me.EmployeeIDTextBox.Name = "EmployeeIDTextBox"
        Me.EmployeeIDTextBox.Size = New System.Drawing.Size(22, 20)
        Me.EmployeeIDTextBox.TabIndex = 4
        '
        'FreightTextBox
        '
        Me.FreightTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.OrderBindingSource, "Freight", True))
        Me.FreightTextBox.Location = New System.Drawing.Point(287, 38)
        Me.FreightTextBox.Name = "FreightTextBox"
        Me.FreightTextBox.Size = New System.Drawing.Size(66, 20)
        Me.FreightTextBox.TabIndex = 6
        '
        'OrderIDTextBox
        '
        Me.OrderIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.OrderBindingSource, "OrderID", True))
        Me.OrderIDTextBox.Location = New System.Drawing.Point(103, 38)
        Me.OrderIDTextBox.Name = "OrderIDTextBox"
        Me.OrderIDTextBox.Size = New System.Drawing.Size(69, 20)