unboundclient.designer.vb

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

VB
460
字号
        '
        Me.Extended.Text = "Ext. Amt."
        Me.Extended.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'lblDetails
        '
        Me.lblDetails.Location = New System.Drawing.Point(176, 232)
        Me.lblDetails.Name = "lblDetails"
        Me.lblDetails.Size = New System.Drawing.Size(96, 16)
        Me.lblDetails.TabIndex = 85
        Me.lblDetails.Text = "Order Line Items"
        '
        'txtShipCountry
        '
        Me.txtShipCountry.Location = New System.Drawing.Point(272, 197)
        Me.txtShipCountry.Name = "txtShipCountry"
        Me.txtShipCountry.Size = New System.Drawing.Size(104, 20)
        Me.txtShipCountry.TabIndex = 83
        '
        'txtShipPostalCode
        '
        Me.txtShipPostalCode.Location = New System.Drawing.Point(272, 173)
        Me.txtShipPostalCode.Name = "txtShipPostalCode"
        Me.txtShipPostalCode.Size = New System.Drawing.Size(64, 20)
        Me.txtShipPostalCode.TabIndex = 82
        '
        'txtShipRegion
        '
        Me.txtShipRegion.Location = New System.Drawing.Point(272, 149)
        Me.txtShipRegion.Name = "txtShipRegion"
        Me.txtShipRegion.Size = New System.Drawing.Size(104, 20)
        Me.txtShipRegion.TabIndex = 81
        '
        'txtShipCity
        '
        Me.txtShipCity.Location = New System.Drawing.Point(272, 125)
        Me.txtShipCity.Name = "txtShipCity"
        Me.txtShipCity.Size = New System.Drawing.Size(104, 20)
        Me.txtShipCity.TabIndex = 80
        '
        'txtShipAddress
        '
        Me.txtShipAddress.Location = New System.Drawing.Point(272, 101)
        Me.txtShipAddress.Name = "txtShipAddress"
        Me.txtShipAddress.Size = New System.Drawing.Size(160, 20)
        Me.txtShipAddress.TabIndex = 79
        '
        'txtShipName
        '
        Me.txtShipName.Location = New System.Drawing.Point(272, 77)
        Me.txtShipName.Name = "txtShipName"
        Me.txtShipName.Size = New System.Drawing.Size(160, 20)
        Me.txtShipName.TabIndex = 78
        '
        'txtFreight
        '
        Me.txtFreight.Location = New System.Drawing.Point(272, 53)
        Me.txtFreight.Name = "txtFreight"
        Me.txtFreight.Size = New System.Drawing.Size(56, 20)
        Me.txtFreight.TabIndex = 77
        '
        'txtShipVia
        '
        Me.txtShipVia.Location = New System.Drawing.Point(109, 197)
        Me.txtShipVia.Name = "txtShipVia"
        Me.txtShipVia.Size = New System.Drawing.Size(24, 20)
        Me.txtShipVia.TabIndex = 76
        '
        'txtOrderID
        '
        Me.txtOrderID.Location = New System.Drawing.Point(109, 53)
        Me.txtOrderID.Name = "txtOrderID"
        Me.txtOrderID.Size = New System.Drawing.Size(56, 20)
        Me.txtOrderID.TabIndex = 75
        '
        'txtShippedDate
        '
        Me.txtShippedDate.Location = New System.Drawing.Point(109, 173)
        Me.txtShippedDate.Margin = New System.Windows.Forms.Padding(1, 3, 3, 3)
        Me.txtShippedDate.Name = "txtShippedDate"
        Me.txtShippedDate.Size = New System.Drawing.Size(72, 20)
        Me.txtShippedDate.TabIndex = 74
        '
        'txtRequiredDate
        '
        Me.txtRequiredDate.Location = New System.Drawing.Point(109, 149)
        Me.txtRequiredDate.Margin = New System.Windows.Forms.Padding(1, 3, 3, 3)
        Me.txtRequiredDate.Name = "txtRequiredDate"
        Me.txtRequiredDate.Size = New System.Drawing.Size(72, 20)
        Me.txtRequiredDate.TabIndex = 73
        '
        'txtOrderDate
        '
        Me.txtOrderDate.Location = New System.Drawing.Point(109, 125)
        Me.txtOrderDate.Margin = New System.Windows.Forms.Padding(1, 3, 3, 3)
        Me.txtOrderDate.Name = "txtOrderDate"
        Me.txtOrderDate.Size = New System.Drawing.Size(72, 20)
        Me.txtOrderDate.TabIndex = 72
        '
        'txtEmployeeID
        '
        Me.txtEmployeeID.Location = New System.Drawing.Point(109, 101)
        Me.txtEmployeeID.Margin = New System.Windows.Forms.Padding(1, 3, 3, 3)
        Me.txtEmployeeID.Name = "txtEmployeeID"
        Me.txtEmployeeID.Size = New System.Drawing.Size(24, 20)
        Me.txtEmployeeID.TabIndex = 71
        '
        'txtCustomerID
        '
        Me.txtCustomerID.Location = New System.Drawing.Point(109, 77)
        Me.txtCustomerID.Name = "txtCustomerID"
        Me.txtCustomerID.Size = New System.Drawing.Size(56, 20)
        Me.txtCustomerID.TabIndex = 70
        '
        'btnGetOrder
        '
        Me.btnGetOrder.Location = New System.Drawing.Point(277, 13)
        Me.btnGetOrder.Name = "btnGetOrder"
        Me.btnGetOrder.Size = New System.Drawing.Size(120, 24)
        Me.btnGetOrder.TabIndex = 69
        Me.btnGetOrder.Text = "Get Selected Order"
        Me.ttOrder.SetToolTip(Me.btnGetOrder, "Click to display the selected order")
        '
        'cboOrderID
        '
        Me.cboOrderID.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboOrderID.FormattingEnabled = True
        Me.cboOrderID.Location = New System.Drawing.Point(181, 13)
        Me.cboOrderID.Name = "cboOrderID"
        Me.cboOrderID.Size = New System.Drawing.Size(72, 21)
        Me.cboOrderID.TabIndex = 68
        '
        'btnConnect
        '
        Me.btnConnect.Location = New System.Drawing.Point(37, 13)
        Me.btnConnect.Name = "btnConnect"
        Me.btnConnect.Size = New System.Drawing.Size(120, 24)
        Me.btnConnect.TabIndex = 67
        Me.btnConnect.Text = "Connect to Service"
        Me.ttOrder.SetToolTip(Me.btnConnect, "Click to populate list with last 10 OrderIDs")
        '
        'TestClient
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(452, 377)
        Me.Controls.Add(Me.lblShipRegion)
        Me.Controls.Add(Me.lblShipCity)
        Me.Controls.Add(Me.lblShipAddress)
        Me.Controls.Add(Me.lblShipName)
        Me.Controls.Add(Me.lblCustomerID)
        Me.Controls.Add(Me.lblFreight)
        Me.Controls.Add(Me.lblShipVia)
        Me.Controls.Add(Me.lblShippedDate)
        Me.Controls.Add(Me.lblRequiredDate)
        Me.Controls.Add(Me.lblOrderDate)
        Me.Controls.Add(Me.lblEmployeeID)
        Me.Controls.Add(Me.lblOrderID)
        Me.Controls.Add(Me.lsvDetails)
        Me.Controls.Add(Me.lblDetails)
        Me.Controls.Add(Me.txtShipCountry)
        Me.Controls.Add(Me.txtShipPostalCode)
        Me.Controls.Add(Me.txtShipRegion)
        Me.Controls.Add(Me.txtShipCity)
        Me.Controls.Add(Me.txtShipAddress)
        Me.Controls.Add(Me.txtShipName)
        Me.Controls.Add(Me.txtFreight)
        Me.Controls.Add(Me.txtShipVia)
        Me.Controls.Add(Me.txtOrderID)
        Me.Controls.Add(Me.txtShippedDate)
        Me.Controls.Add(Me.txtRequiredDate)
        Me.Controls.Add(Me.txtOrderDate)
        Me.Controls.Add(Me.txtEmployeeID)
        Me.Controls.Add(Me.txtCustomerID)
        Me.Controls.Add(Me.btnGetOrder)
        Me.Controls.Add(Me.cboOrderID)
        Me.Controls.Add(Me.btnConnect)
        Me.Controls.Add(Me.lblShipPostalCode)
        Me.Controls.Add(Me.lblShipCountry)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.MaximizeBox = False
        Me.Name = "TestClient"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "NWOrdersWS Web Service Client (OakLeaf Site)"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents lblShipCountry As System.Windows.Forms.Label
    Friend WithEvents lblShipRegion As System.Windows.Forms.Label
    Friend WithEvents lblShipCity As System.Windows.Forms.Label
    Friend WithEvents lblShipAddress As System.Windows.Forms.Label
    Friend WithEvents lblShipName As System.Windows.Forms.Label
    Friend WithEvents lblCustomerID As System.Windows.Forms.Label
    Friend WithEvents lblFreight As System.Windows.Forms.Label
    Friend WithEvents lblShipVia As System.Windows.Forms.Label
    Friend WithEvents lblShippedDate As System.Windows.Forms.Label
    Friend WithEvents lblRequiredDate As System.Windows.Forms.Label
    Friend WithEvents lblOrderDate As System.Windows.Forms.Label
    Friend WithEvents lblEmployeeID As System.Windows.Forms.Label
    Friend WithEvents lblOrderID As System.Windows.Forms.Label
    Friend WithEvents lsvDetails As System.Windows.Forms.ListView
    Friend WithEvents OrderID As System.Windows.Forms.ColumnHeader
    Friend WithEvents Quantity As System.Windows.Forms.ColumnHeader
    Friend WithEvents ProductID As System.Windows.Forms.ColumnHeader
    Friend WithEvents UnitPrice As System.Windows.Forms.ColumnHeader
    Friend WithEvents Discount As System.Windows.Forms.ColumnHeader
    Friend WithEvents Extended As System.Windows.Forms.ColumnHeader
    Friend WithEvents lblDetails As System.Windows.Forms.Label
    Friend WithEvents txtShipCountry As System.Windows.Forms.TextBox
    Friend WithEvents txtShipPostalCode As System.Windows.Forms.TextBox
    Friend WithEvents txtShipRegion As System.Windows.Forms.TextBox
    Friend WithEvents txtShipCity As System.Windows.Forms.TextBox
    Friend WithEvents txtShipAddress As System.Windows.Forms.TextBox
    Friend WithEvents txtShipName As System.Windows.Forms.TextBox
    Friend WithEvents txtFreight As System.Windows.Forms.TextBox
    Friend WithEvents txtShipVia As System.Windows.Forms.TextBox
    Friend WithEvents txtOrderID As System.Windows.Forms.TextBox
    Friend WithEvents txtShippedDate As System.Windows.Forms.TextBox
    Friend WithEvents txtRequiredDate As System.Windows.Forms.TextBox
    Friend WithEvents txtOrderDate As System.Windows.Forms.TextBox
    Friend WithEvents txtEmployeeID As System.Windows.Forms.TextBox
    Friend WithEvents txtCustomerID As System.Windows.Forms.TextBox
    Friend WithEvents btnGetOrder As System.Windows.Forms.Button
    Friend WithEvents ttOrder As System.Windows.Forms.ToolTip
    Friend WithEvents cboOrderID As System.Windows.Forms.ComboBox
    Friend WithEvents btnConnect As System.Windows.Forms.Button
    Friend WithEvents lblShipPostalCode As System.Windows.Forms.Label
End Class

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?