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 + -
显示快捷键?