ordersbe.designer.vb
来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 775 行 · 第 1/3 页
VB
775 行
Me.txtData.AcceptsReturn = True
Me.txtData.Location = New System.Drawing.Point(77, 407)
Me.txtData.Margin = New System.Windows.Forms.Padding(1, 3, 3, 3)
Me.txtData.Name = "txtData"
Me.txtData.Size = New System.Drawing.Size(41, 20)
Me.txtData.TabIndex = 5
'
'btnLoadGrids
'
Me.btnLoadGrids.Location = New System.Drawing.Point(14, 273)
Me.btnLoadGrids.Name = "btnLoadGrids"
Me.btnLoadGrids.Size = New System.Drawing.Size(94, 23)
Me.btnLoadGrids.TabIndex = 6
Me.btnLoadGrids.Text = "Load &Grids"
'
'gbSelect
'
Me.gbSelect.Controls.Add(Me.lblTop)
Me.gbSelect.Controls.Add(Me.txtCustID)
Me.gbSelect.Controls.Add(Me.txtTop)
Me.gbSelect.Controls.Add(Me.optGetCustOrders)
Me.gbSelect.Controls.Add(Me.optGetTopOrders)
Me.gbSelect.Controls.Add(Me.optAllOrders)
Me.gbSelect.Location = New System.Drawing.Point(13, 303)
Me.gbSelect.Name = "gbSelect"
Me.gbSelect.Size = New System.Drawing.Size(164, 97)
Me.gbSelect.TabIndex = 11
Me.gbSelect.TabStop = False
Me.gbSelect.Text = "Load Grids Selection"
'
'lblTop
'
Me.lblTop.AutoSize = True
Me.lblTop.Location = New System.Drawing.Point(104, 23)
Me.lblTop.Name = "lblTop"
Me.lblTop.Size = New System.Drawing.Size(34, 13)
Me.lblTop.TabIndex = 5
Me.lblTop.Text = "Orders"
'
'txtCustID
'
Me.txtCustID.Location = New System.Drawing.Point(95, 44)
Me.txtCustID.Margin = New System.Windows.Forms.Padding(3, 1, 3, 0)
Me.txtCustID.Name = "txtCustID"
Me.txtCustID.Size = New System.Drawing.Size(48, 20)
Me.txtCustID.TabIndex = 4
Me.txtCustID.Text = "RATTC"
'
'txtTop
'
Me.txtTop.AcceptsReturn = True
Me.txtTop.Location = New System.Drawing.Point(71, 20)
Me.txtTop.Margin = New System.Windows.Forms.Padding(3, 3, 3, 1)
Me.txtTop.Name = "txtTop"
Me.txtTop.Size = New System.Drawing.Size(29, 20)
Me.txtTop.TabIndex = 3
Me.txtTop.Text = "25"
'
'optGetCustOrders
'
Me.optGetCustOrders.AutoSize = True
Me.optGetCustOrders.Location = New System.Drawing.Point(8, 45)
Me.optGetCustOrders.Name = "optGetCustOrders"
Me.optGetCustOrders.Size = New System.Drawing.Size(87, 17)
Me.optGetCustOrders.TabIndex = 2
Me.optGetCustOrders.Text = "Get Orders for"
'
'optGetTopOrders
'
Me.optGetTopOrders.AutoSize = True
Me.optGetTopOrders.Checked = True
Me.optGetTopOrders.Location = New System.Drawing.Point(8, 21)
Me.optGetTopOrders.Name = "optGetTopOrders"
Me.optGetTopOrders.Size = New System.Drawing.Size(63, 17)
Me.optGetTopOrders.TabIndex = 1
Me.optGetTopOrders.Text = "Get Top "
'
'optAllOrders
'
Me.optAllOrders.AutoSize = True
Me.optAllOrders.Location = New System.Drawing.Point(7, 69)
Me.optAllOrders.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3)
Me.optAllOrders.Name = "optAllOrders"
Me.optAllOrders.Size = New System.Drawing.Size(142, 17)
Me.optAllOrders.TabIndex = 0
Me.optAllOrders.Text = "Get All Orders and Details"
'
'lblGetData
'
Me.lblGetData.AutoSize = True
Me.lblGetData.Location = New System.Drawing.Point(16, 410)
Me.lblGetData.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
Me.lblGetData.Name = "lblGetData"
Me.lblGetData.Size = New System.Drawing.Size(49, 13)
Me.lblGetData.TabIndex = 16
Me.lblGetData.Text = "Get Data:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(16, 437)
Me.Label1.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(57, 13)
Me.Label1.TabIndex = 18
Me.Label1.Text = "Load Grids:"
'
'txtGrids
'
Me.txtGrids.Location = New System.Drawing.Point(77, 434)
Me.txtGrids.Margin = New System.Windows.Forms.Padding(1, 3, 3, 3)
Me.txtGrids.Name = "txtGrids"
Me.txtGrids.Size = New System.Drawing.Size(41, 20)
Me.txtGrids.TabIndex = 17
'
'lblSecs1
'
Me.lblSecs1.AutoSize = True
Me.lblSecs1.Location = New System.Drawing.Point(125, 410)
Me.lblSecs1.Name = "lblSecs1"
Me.lblSecs1.Size = New System.Drawing.Size(28, 13)
Me.lblSecs1.TabIndex = 19
Me.lblSecs1.Text = "secs."
'
'lblSecs2
'
Me.lblSecs2.AutoSize = True
Me.lblSecs2.Location = New System.Drawing.Point(125, 437)
Me.lblSecs2.Name = "lblSecs2"
Me.lblSecs2.Size = New System.Drawing.Size(28, 13)
Me.lblSecs2.TabIndex = 20
Me.lblSecs2.Text = "secs."
'
'btnSalesOrders
'
Me.btnSalesOrders.Location = New System.Drawing.Point(143, 273)
Me.btnSalesOrders.Name = "btnSalesOrders"
Me.btnSalesOrders.Size = New System.Drawing.Size(104, 23)
Me.btnSalesOrders.TabIndex = 25
Me.btnSalesOrders.Text = "&Show SalesOrders"
'
'txtHelp
'
Me.txtHelp.AutoSize = False
Me.txtHelp.BackColor = System.Drawing.SystemColors.Control
Me.txtHelp.Location = New System.Drawing.Point(184, 303)
Me.txtHelp.Multiline = True
Me.txtHelp.Name = "txtHelp"
Me.txtHelp.ReadOnly = True
Me.txtHelp.Size = New System.Drawing.Size(129, 153)
Me.txtHelp.TabIndex = 30
Me.txtHelp.Text = "1. Click Load Grids to populate the DataGridViews" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2. Select a row of the Order" & _
"s grid to enable edits, additions, or deletions." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "3. Click the Save button to " & _
"save your changes."
'
'OrdersBE
'
Me.ClientSize = New System.Drawing.Size(656, 468)
Me.Controls.Add(Me.txtHelp)
Me.Controls.Add(Me.btnSalesOrders)
Me.Controls.Add(Me.lblSecs2)
Me.Controls.Add(Me.lblSecs1)
Me.Controls.Add(Me.txtGrids)
Me.Controls.Add(Me.lblGetData)
Me.Controls.Add(Me.gbSelect)
Me.Controls.Add(Me.btnLoadGrids)
Me.Controls.Add(Me.txtData)
Me.Controls.Add(Me.OrderDetailDataGridView)
Me.Controls.Add(Me.OrderDataGridView)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.OrderBindingNavigator)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "OrdersBE"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "WSOrdersBE Web Service Client - Orders and OrderDetails Objects"
CType(Me.OrderBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.OrderBindingNavigator.ResumeLayout(False)
CType(Me.OrderBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.OrderDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.OrderDetailBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.OrderDetailDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.gbSelect.ResumeLayout(False)
Me.gbSelect.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents OrderBindingNavigator As System.Windows.Forms.BindingNavigator
Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents OrderBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents BindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton
Friend WithEvents DataGridViewTextBoxColumn14 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn13 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents OrderDataGridView As System.Windows.Forms.DataGridView
Friend WithEvents OrderDetailBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents OrderDetailDataGridView As System.Windows.Forms.DataGridView
Friend WithEvents txtData As System.Windows.Forms.TextBox
Friend WithEvents btnLoadGrids As System.Windows.Forms.Button
Friend WithEvents gbSelect As System.Windows.Forms.GroupBox
Friend WithEvents optGetCustOrders As System.Windows.Forms.RadioButton
Friend WithEvents optGetTopOrders As System.Windows.Forms.RadioButton
Friend WithEvents optAllOrders As System.Windows.Forms.RadioButton
Friend WithEvents txtTop As System.Windows.Forms.TextBox
Friend WithEvents lblTop As System.Windows.Forms.Label
Friend WithEvents txtCustID As System.Windows.Forms.TextBox
Friend WithEvents lblGetData As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtGrids As System.Windows.Forms.TextBox
Friend WithEvents lblSecs1 As System.Windows.Forms.Label
Friend WithEvents lblSecs2 As System.Windows.Forms.Label
Friend WithEvents btnSalesOrders As System.Windows.Forms.Button
Friend WithEvents DataGridViewTextBoxColumn15 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn16 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn17 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn18 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn19 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn34 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn35 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn36 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn37 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn38 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn39 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn40 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn41 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn42 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn43 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn44 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn45 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn46 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn47 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents txtHelp As System.Windows.Forms.TextBox
End Class
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?