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