salesordersbe.designer.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 654 行 · 第 1/3 页

        '
        Me.DataGridViewTextBoxColumn1.DataPropertyName = "OrderID"
        Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn1.HeaderText = "OrderID"
        Me.DataGridViewTextBoxColumn1.Name = "OrderID"
        Me.DataGridViewTextBoxColumn1.ValueType = GetType(Integer)
        '
        'DataGridViewTextBoxColumn2
        '
        Me.DataGridViewTextBoxColumn2.DataPropertyName = "CustomerID"
        Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn2.HeaderText = "CustomerID"
        Me.DataGridViewTextBoxColumn2.Name = "CustomerID"
        Me.DataGridViewTextBoxColumn2.ValueType = GetType(String)
        '
        'DataGridViewTextBoxColumn3
        '
        Me.DataGridViewTextBoxColumn3.DataPropertyName = "EmployeeID"
        Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn3.HeaderText = "EmployeeID"
        Me.DataGridViewTextBoxColumn3.Name = "EmployeeID"
        Me.DataGridViewTextBoxColumn3.ValueType = GetType(Integer)
        '
        'DataGridViewTextBoxColumn4
        '
        Me.DataGridViewTextBoxColumn4.DataPropertyName = "OrderDate"
        Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn4.HeaderText = "OrderDate"
        Me.DataGridViewTextBoxColumn4.Name = "OrderDate"
        Me.DataGridViewTextBoxColumn4.ValueType = GetType(Date)
        '
        'DataGridViewTextBoxColumn5
        '
        Me.DataGridViewTextBoxColumn5.DataPropertyName = "RequiredDate"
        Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn5.HeaderText = "RequiredDate"
        Me.DataGridViewTextBoxColumn5.Name = "RequiredDate"
        Me.DataGridViewTextBoxColumn5.ValueType = GetType(Date)
        '
        'DataGridViewTextBoxColumn6
        '
        Me.DataGridViewTextBoxColumn6.DataPropertyName = "ShippedDate"
        Me.DataGridViewTextBoxColumn6.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn6.HeaderText = "ShippedDate"
        Me.DataGridViewTextBoxColumn6.Name = "ShippedDate"
        Me.DataGridViewTextBoxColumn6.ValueType = GetType(Date)
        '
        'DataGridViewTextBoxColumn7
        '
        Me.DataGridViewTextBoxColumn7.DataPropertyName = "ShipVia"
        Me.DataGridViewTextBoxColumn7.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn7.HeaderText = "ShipVia"
        Me.DataGridViewTextBoxColumn7.Name = "ShipVia"
        Me.DataGridViewTextBoxColumn7.ValueType = GetType(Integer)
        '
        'DataGridViewTextBoxColumn8
        '
        Me.DataGridViewTextBoxColumn8.DataPropertyName = "Freight"
        DataGridViewCellStyle2.Format = "$#,##0.00"
        Me.DataGridViewTextBoxColumn8.DefaultCellStyle = DataGridViewCellStyle2
        Me.DataGridViewTextBoxColumn8.HeaderText = "Freight"
        Me.DataGridViewTextBoxColumn8.Name = "Freight"
        Me.DataGridViewTextBoxColumn8.ValueType = GetType(Decimal)
        '
        'DataGridViewTextBoxColumn9
        '
        Me.DataGridViewTextBoxColumn9.DataPropertyName = "ShipName"
        Me.DataGridViewTextBoxColumn9.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn9.HeaderText = "ShipName"
        Me.DataGridViewTextBoxColumn9.Name = "ShipName"
        Me.DataGridViewTextBoxColumn9.ValueType = GetType(String)
        '
        'DataGridViewTextBoxColumn10
        '
        Me.DataGridViewTextBoxColumn10.DataPropertyName = "ShipAddress"
        Me.DataGridViewTextBoxColumn10.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn10.HeaderText = "ShipAddress"
        Me.DataGridViewTextBoxColumn10.Name = "ShipAddress"
        Me.DataGridViewTextBoxColumn10.ValueType = GetType(String)
        '
        'DataGridViewTextBoxColumn11
        '
        Me.DataGridViewTextBoxColumn11.DataPropertyName = "ShipCity"
        Me.DataGridViewTextBoxColumn11.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn11.HeaderText = "ShipCity"
        Me.DataGridViewTextBoxColumn11.Name = "ShipCity"
        Me.DataGridViewTextBoxColumn11.ValueType = GetType(String)
        '
        'DataGridViewTextBoxColumn12
        '
        Me.DataGridViewTextBoxColumn12.DataPropertyName = "ShipRegion"
        Me.DataGridViewTextBoxColumn12.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn12.HeaderText = "ShipRegion"
        Me.DataGridViewTextBoxColumn12.Name = "ShipRegion"
        Me.DataGridViewTextBoxColumn12.ValueType = GetType(String)
        '
        'DataGridViewTextBoxColumn13
        '
        Me.DataGridViewTextBoxColumn13.DataPropertyName = "ShipPostalCode"
        Me.DataGridViewTextBoxColumn13.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn13.HeaderText = "ShipPostalCode"
        Me.DataGridViewTextBoxColumn13.Name = "ShipPostalCode"
        Me.DataGridViewTextBoxColumn13.ValueType = GetType(String)
        '
        'DataGridViewTextBoxColumn14
        '
        Me.DataGridViewTextBoxColumn14.DataPropertyName = "ShipCountry"
        Me.DataGridViewTextBoxColumn14.DefaultCellStyle = DataGridViewCellStyle1
        Me.DataGridViewTextBoxColumn14.HeaderText = "ShipCountry"
        Me.DataGridViewTextBoxColumn14.Name = "ShipCountry"
        Me.DataGridViewTextBoxColumn14.ValueType = GetType(String)
        '
        'lblSecs2
        '
        Me.lblSecs2.AutoSize = True
        Me.lblSecs2.Location = New System.Drawing.Point(124, 436)
        Me.lblSecs2.Name = "lblSecs2"
        Me.lblSecs2.Size = New System.Drawing.Size(31, 14)
        Me.lblSecs2.TabIndex = 28
        Me.lblSecs2.Text = "secs."
        '
        'lblSecs1
        '
        Me.lblSecs1.AutoSize = True
        Me.lblSecs1.Location = New System.Drawing.Point(124, 409)
        Me.lblSecs1.Name = "lblSecs1"
        Me.lblSecs1.Size = New System.Drawing.Size(31, 14)
        Me.lblSecs1.TabIndex = 27
        Me.lblSecs1.Text = "secs."
        '
        'txtGrids
        '
        Me.txtGrids.Location = New System.Drawing.Point(76, 433)
        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 = 25
        '
        'lblGetData
        '
        Me.lblGetData.AutoSize = True
        Me.lblGetData.Location = New System.Drawing.Point(15, 409)
        Me.lblGetData.Margin = New System.Windows.Forms.Padding(3, 3, 1, 3)
        Me.lblGetData.Name = "lblGetData"
        Me.lblGetData.Size = New System.Drawing.Size(53, 14)
        Me.lblGetData.TabIndex = 24
        Me.lblGetData.Text = "Get Data:"
        '
        '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(12, 302)
        Me.gbSelect.Name = "gbSelect"
        Me.gbSelect.Size = New System.Drawing.Size(164, 97)
        Me.gbSelect.TabIndex = 23
        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(39, 14)
        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.TabStop = True
        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)