salesordersbe.designer.vb
来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 654 行 · 第 1/3 页
VB
654 行
Me.optAllOrders.TabIndex = 0
Me.optAllOrders.Text = "Get All Orders and Details"
'
'btnLoadGrids
'
Me.btnLoadGrids.Location = New System.Drawing.Point(13, 272)
Me.btnLoadGrids.Name = "btnLoadGrids"
Me.btnLoadGrids.Size = New System.Drawing.Size(80, 23)
Me.btnLoadGrids.TabIndex = 22
Me.btnLoadGrids.Text = "Load &Grids"
'
'txtData
'
Me.txtData.AcceptsReturn = True
Me.txtData.Location = New System.Drawing.Point(76, 406)
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 = 21
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(15, 436)
Me.Label1.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(63, 14)
Me.Label1.TabIndex = 26
Me.Label1.Text = "Load Grids:"
'
'SalesOrderDetailsBindingSource
'
Me.SalesOrderDetailsBindingSource.AllowNew = False
Me.SalesOrderDetailsBindingSource.DataMember = "OrderDetails"
Me.SalesOrderDetailsBindingSource.DataSource = Me.SalesOrderBindingSource
'
'dgvDetails
'
Me.dgvDetails.AutoGenerateColumns = False
Me.dgvDetails.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dgvDetails.Columns.Add(Me.DataGridViewTextBoxColumn20)
Me.dgvDetails.Columns.Add(Me.DataGridViewTextBoxColumn21)
Me.dgvDetails.Columns.Add(Me.DataGridViewTextBoxColumn22)
Me.dgvDetails.Columns.Add(Me.DataGridViewTextBoxColumn23)
Me.dgvDetails.Columns.Add(Me.DataGridViewTextBoxColumn24)
Me.dgvDetails.DataSource = Me.SalesOrderDetailsBindingSource
Me.dgvDetails.Location = New System.Drawing.Point(319, 275)
Me.dgvDetails.Name = "dgvDetails"
Me.dgvDetails.Size = New System.Drawing.Size(319, 178)
Me.dgvDetails.TabIndex = 33
'
'DataGridViewTextBoxColumn20
'
Me.DataGridViewTextBoxColumn20.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn20.DataPropertyName = "OrderID"
Me.DataGridViewTextBoxColumn20.DefaultCellStyle = DataGridViewCellStyle1
Me.DataGridViewTextBoxColumn20.HeaderText = "OrderID"
Me.DataGridViewTextBoxColumn20.Name = "OrderID"
Me.DataGridViewTextBoxColumn20.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn20.ValueType = GetType(Integer)
Me.DataGridViewTextBoxColumn20.Width = 46
'
'DataGridViewTextBoxColumn21
'
Me.DataGridViewTextBoxColumn21.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn21.DataPropertyName = "ProductID"
Me.DataGridViewTextBoxColumn21.DefaultCellStyle = DataGridViewCellStyle1
Me.DataGridViewTextBoxColumn21.HeaderText = "ProductID"
Me.DataGridViewTextBoxColumn21.Name = "ProductID"
Me.DataGridViewTextBoxColumn21.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn21.ValueType = GetType(Integer)
Me.DataGridViewTextBoxColumn21.Width = 57
'
'DataGridViewTextBoxColumn22
'
Me.DataGridViewTextBoxColumn22.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn22.DataPropertyName = "UnitPrice"
Me.DataGridViewTextBoxColumn22.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridViewTextBoxColumn22.HeaderText = "UnitPrice"
Me.DataGridViewTextBoxColumn22.Name = "UnitPrice"
Me.DataGridViewTextBoxColumn22.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn22.ValueType = GetType(Decimal)
Me.DataGridViewTextBoxColumn22.Width = 52
'
'DataGridViewTextBoxColumn23
'
Me.DataGridViewTextBoxColumn23.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn23.DataPropertyName = "Quantity"
Me.DataGridViewTextBoxColumn23.DefaultCellStyle = DataGridViewCellStyle1
Me.DataGridViewTextBoxColumn23.HeaderText = "Quantity"
Me.DataGridViewTextBoxColumn23.Name = "Quantity"
Me.DataGridViewTextBoxColumn23.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn23.ValueType = GetType(Short)
Me.DataGridViewTextBoxColumn23.Width = 48
'
'DataGridViewTextBoxColumn24
'
Me.DataGridViewTextBoxColumn24.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn24.DataPropertyName = "Discount"
DataGridViewCellStyle3.Format = "#0.0%"
Me.DataGridViewTextBoxColumn24.DefaultCellStyle = DataGridViewCellStyle3
Me.DataGridViewTextBoxColumn24.HeaderText = "Discount"
Me.DataGridViewTextBoxColumn24.Name = "Discount"
Me.DataGridViewTextBoxColumn24.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn24.ValueType = GetType(Decimal)
Me.DataGridViewTextBoxColumn24.Width = 51
'
'btnShowOrders
'
Me.btnShowOrders.Location = New System.Drawing.Point(124, 272)
Me.btnShowOrders.Name = "btnShowOrders"
Me.btnShowOrders.Size = New System.Drawing.Size(123, 23)
Me.btnShowOrders.TabIndex = 38
Me.btnShowOrders.Text = "&Show Orders/Details"
'
'txtHelp
'
Me.txtHelp.AutoSize = False
Me.txtHelp.BackColor = System.Drawing.SystemColors.Control
Me.txtHelp.Location = New System.Drawing.Point(183, 302)
Me.txtHelp.Multiline = True
Me.txtHelp.Name = "txtHelp"
Me.txtHelp.ReadOnly = True
Me.txtHelp.Size = New System.Drawing.Size(129, 153)
Me.txtHelp.TabIndex = 43
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."
'
'SalesOrdersBE
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(5.0!, 13.0!)
Me.ClientSize = New System.Drawing.Size(654, 466)
Me.Controls.Add(Me.txtHelp)
Me.Controls.Add(Me.btnShowOrders)
Me.Controls.Add(Me.dgvDetails)
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.Label1)
Me.Controls.Add(Me.SalesOrderDataGridView)
Me.Controls.Add(Me.SalesOrderBindingNavigator)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "SalesOrdersBE"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "WSOrdersBE Web Service Client - SalesOrder Hierarchical Objects"
CType(Me.SalesOrderBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SalesOrderBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.SalesOrderBindingNavigator.ResumeLayout(False)
Me.SalesOrderBindingNavigator.PerformLayout()
CType(Me.SalesOrderDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.gbSelect.ResumeLayout(False)
Me.gbSelect.PerformLayout()
CType(Me.SalesOrderDetailsBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvDetails, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents SalesOrderBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents SalesOrderBindingNavigator 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 BindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton
Friend WithEvents SalesOrderDataGridView As System.Windows.Forms.DataGridView
Friend WithEvents lblSecs2 As System.Windows.Forms.Label
Friend WithEvents lblSecs1 As System.Windows.Forms.Label
Friend WithEvents txtGrids As System.Windows.Forms.TextBox
Friend WithEvents lblGetData As System.Windows.Forms.Label
Friend WithEvents gbSelect As System.Windows.Forms.GroupBox
Friend WithEvents lblTop As System.Windows.Forms.Label
Friend WithEvents txtCustID As System.Windows.Forms.TextBox
Friend WithEvents txtTop As System.Windows.Forms.TextBox
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 btnLoadGrids As System.Windows.Forms.Button
Friend WithEvents txtData As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents SalesOrderDetailsBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents dgvDetails As System.Windows.Forms.DataGridView
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn10 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn11 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn12 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn13 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn14 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn20 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn21 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn22 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn23 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn24 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents btnShowOrders As System.Windows.Forms.Button
Friend WithEvents txtHelp As System.Windows.Forms.TextBox
End Class
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?