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