unboundclient.designer.vb

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

Partial Public Class UnboundClient
    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
        Me.lblShipCountry = New System.Windows.Forms.Label
        Me.lblShipPostalCode = New System.Windows.Forms.Label
        Me.lblShipRegion = New System.Windows.Forms.Label
        Me.lblShipCity = New System.Windows.Forms.Label
        Me.lblShipAddress = New System.Windows.Forms.Label
        Me.lblShipName = New System.Windows.Forms.Label
        Me.lblCustomerID = New System.Windows.Forms.Label
        Me.lblFreight = New System.Windows.Forms.Label
        Me.lblShipVia = New System.Windows.Forms.Label
        Me.lblShippedDate = New System.Windows.Forms.Label
        Me.lblRequiredDate = New System.Windows.Forms.Label
        Me.lblOrderDate = New System.Windows.Forms.Label
        Me.lblEmployeeID = New System.Windows.Forms.Label
        Me.lblOrderID = New System.Windows.Forms.Label
        Me.lsvDetails = New System.Windows.Forms.ListView
        Me.OrderID = New System.Windows.Forms.ColumnHeader("")
        Me.Quantity = New System.Windows.Forms.ColumnHeader("")
        Me.ProductID = New System.Windows.Forms.ColumnHeader("")
        Me.UnitPrice = New System.Windows.Forms.ColumnHeader("")
        Me.Discount = New System.Windows.Forms.ColumnHeader("")
        Me.Extended = New System.Windows.Forms.ColumnHeader("")
        Me.lblDetails = New System.Windows.Forms.Label
        Me.txtShipCountry = New System.Windows.Forms.TextBox
        Me.txtShipPostalCode = New System.Windows.Forms.TextBox
        Me.txtShipRegion = New System.Windows.Forms.TextBox
        Me.txtShipCity = New System.Windows.Forms.TextBox
        Me.txtShipAddress = New System.Windows.Forms.TextBox
        Me.txtShipName = New System.Windows.Forms.TextBox
        Me.txtFreight = New System.Windows.Forms.TextBox
        Me.txtShipVia = New System.Windows.Forms.TextBox
        Me.txtOrderID = New System.Windows.Forms.TextBox
        Me.txtShippedDate = New System.Windows.Forms.TextBox
        Me.txtRequiredDate = New System.Windows.Forms.TextBox
        Me.txtOrderDate = New System.Windows.Forms.TextBox
        Me.txtEmployeeID = New System.Windows.Forms.TextBox
        Me.txtCustomerID = New System.Windows.Forms.TextBox
        Me.btnGetOrder = New System.Windows.Forms.Button
        Me.ttOrder = New System.Windows.Forms.ToolTip(Me.components)
        Me.cboOrderID = New System.Windows.Forms.ComboBox
        Me.btnConnect = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'lblShipCountry
        '
        Me.lblShipCountry.Location = New System.Drawing.Point(192, 200)
        Me.lblShipCountry.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblShipCountry.Name = "lblShipCountry"
        Me.lblShipCountry.Size = New System.Drawing.Size(80, 16)
        Me.lblShipCountry.TabIndex = 99
        Me.lblShipCountry.Text = "Ship Country:"
        '
        'lblShipPostalCode
        '
        Me.lblShipPostalCode.Location = New System.Drawing.Point(192, 176)
        Me.lblShipPostalCode.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblShipPostalCode.Name = "lblShipPostalCode"
        Me.lblShipPostalCode.Size = New System.Drawing.Size(88, 16)
        Me.lblShipPostalCode.TabIndex = 98
        Me.lblShipPostalCode.Text = "Ship PostCode:"
        '
        'lblShipRegion
        '
        Me.lblShipRegion.Location = New System.Drawing.Point(192, 152)
        Me.lblShipRegion.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblShipRegion.Name = "lblShipRegion"
        Me.lblShipRegion.Size = New System.Drawing.Size(80, 16)
        Me.lblShipRegion.TabIndex = 97
        Me.lblShipRegion.Text = "Ship Region:"
        '
        'lblShipCity
        '
        Me.lblShipCity.Location = New System.Drawing.Point(192, 128)
        Me.lblShipCity.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblShipCity.Name = "lblShipCity"
        Me.lblShipCity.Size = New System.Drawing.Size(80, 16)
        Me.lblShipCity.TabIndex = 96
        Me.lblShipCity.Text = "Ship City:"
        '
        'lblShipAddress
        '
        Me.lblShipAddress.Location = New System.Drawing.Point(192, 104)
        Me.lblShipAddress.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblShipAddress.Name = "lblShipAddress"
        Me.lblShipAddress.Size = New System.Drawing.Size(80, 16)
        Me.lblShipAddress.TabIndex = 95
        Me.lblShipAddress.Text = "Ship Address:"
        '
        'lblShipName
        '
        Me.lblShipName.Location = New System.Drawing.Point(192, 80)
        Me.lblShipName.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblShipName.Name = "lblShipName"
        Me.lblShipName.Size = New System.Drawing.Size(80, 16)
        Me.lblShipName.TabIndex = 94
        Me.lblShipName.Text = "Ship Name:"
        '
        'lblCustomerID
        '
        Me.lblCustomerID.Location = New System.Drawing.Point(27, 80)
        Me.lblCustomerID.Name = "lblCustomerID"
        Me.lblCustomerID.Size = New System.Drawing.Size(72, 16)
        Me.lblCustomerID.TabIndex = 93
        Me.lblCustomerID.Text = "Customer ID:"
        '
        'lblFreight
        '
        Me.lblFreight.Location = New System.Drawing.Point(192, 56)
        Me.lblFreight.Name = "lblFreight"
        Me.lblFreight.Size = New System.Drawing.Size(48, 16)
        Me.lblFreight.TabIndex = 92
        Me.lblFreight.Text = "Freight:"
        '
        'lblShipVia
        '
        Me.lblShipVia.Location = New System.Drawing.Point(27, 200)
        Me.lblShipVia.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblShipVia.Name = "lblShipVia"
        Me.lblShipVia.Size = New System.Drawing.Size(80, 16)
        Me.lblShipVia.TabIndex = 91
        Me.lblShipVia.Text = "Shipped Via:"
        '
        'lblShippedDate
        '
        Me.lblShippedDate.Location = New System.Drawing.Point(27, 176)
        Me.lblShippedDate.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblShippedDate.Name = "lblShippedDate"
        Me.lblShippedDate.Size = New System.Drawing.Size(80, 16)
        Me.lblShippedDate.TabIndex = 90
        Me.lblShippedDate.Text = "Shipped Date:"
        '
        'lblRequiredDate
        '
        Me.lblRequiredDate.Location = New System.Drawing.Point(27, 152)
        Me.lblRequiredDate.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblRequiredDate.Name = "lblRequiredDate"
        Me.lblRequiredDate.Size = New System.Drawing.Size(80, 16)
        Me.lblRequiredDate.TabIndex = 89
        Me.lblRequiredDate.Text = "Required Date:"
        '
        'lblOrderDate
        '
        Me.lblOrderDate.Location = New System.Drawing.Point(27, 128)
        Me.lblOrderDate.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblOrderDate.Name = "lblOrderDate"
        Me.lblOrderDate.Size = New System.Drawing.Size(80, 16)
        Me.lblOrderDate.TabIndex = 88
        Me.lblOrderDate.Text = "Order Date:"
        '
        'lblEmployeeID
        '
        Me.lblEmployeeID.Location = New System.Drawing.Point(27, 104)
        Me.lblEmployeeID.Name = "lblEmployeeID"
        Me.lblEmployeeID.Size = New System.Drawing.Size(72, 16)
        Me.lblEmployeeID.TabIndex = 87
        Me.lblEmployeeID.Text = "Employee ID:"
        '
        'lblOrderID
        '
        Me.lblOrderID.Location = New System.Drawing.Point(27, 56)
        Me.lblOrderID.Name = "lblOrderID"
        Me.lblOrderID.Size = New System.Drawing.Size(56, 16)
        Me.lblOrderID.TabIndex = 86
        Me.lblOrderID.Text = "Order ID:"
        '
        'lsvDetails
        '
        Me.lsvDetails.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.OrderID, Me.Quantity, Me.ProductID, Me.UnitPrice, Me.Discount, Me.Extended})
        Me.lsvDetails.GridLines = True
        Me.lsvDetails.Location = New System.Drawing.Point(40, 248)
        Me.lsvDetails.MultiSelect = False
        Me.lsvDetails.Name = "lsvDetails"
        Me.lsvDetails.Size = New System.Drawing.Size(364, 107)
        Me.lsvDetails.TabIndex = 84
        Me.lsvDetails.View = System.Windows.Forms.View.Details
        '
        'OrderID
        '
        Me.OrderID.Text = "Order ID"
        '
        'Quantity
        '
        Me.Quantity.Text = "Quan."
        Me.Quantity.Width = 55
        '
        'ProductID
        '
        Me.ProductID.Text = "Prod. ID"
        '
        'UnitPrice
        '
        Me.UnitPrice.Text = "Unit Price"
        Me.UnitPrice.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        Me.UnitPrice.Width = 64
        '
        'Discount
        '
        Me.Discount.Text = "Disc., %"
        Me.Discount.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'Extended