ordersbe.designer.vb
来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 775 行 · 第 1/3 页
VB
775 行
'
'DataGridViewTextBoxColumn6
'
Me.DataGridViewTextBoxColumn6.DataPropertyName = "OrderDate"
Me.DataGridViewTextBoxColumn6.HeaderText = "OrderDate"
Me.DataGridViewTextBoxColumn6.Name = "OrderDate"
'
'DataGridViewTextBoxColumn5
'
Me.DataGridViewTextBoxColumn5.DataPropertyName = "ShipCountry"
Me.DataGridViewTextBoxColumn5.HeaderText = "ShipCountry"
Me.DataGridViewTextBoxColumn5.Name = "ShipCountry"
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.DataPropertyName = "RequiredDate"
Me.DataGridViewTextBoxColumn4.HeaderText = "RequiredDate"
Me.DataGridViewTextBoxColumn4.Name = "RequiredDate"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.DataPropertyName = "ShipName"
Me.DataGridViewTextBoxColumn3.HeaderText = "ShipName"
Me.DataGridViewTextBoxColumn3.Name = "ShipName"
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.DataPropertyName = "ShippedDate"
Me.DataGridViewTextBoxColumn2.HeaderText = "ShippedDate"
Me.DataGridViewTextBoxColumn2.Name = "ShippedDate"
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.DataPropertyName = "OrderID"
Me.DataGridViewTextBoxColumn1.HeaderText = "OrderID"
Me.DataGridViewTextBoxColumn1.Name = "OrderID"
'
'OrderDataGridView
'
Me.OrderDataGridView.AutoGenerateColumns = False
Me.OrderDataGridView.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn34)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn35)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn36)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn37)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn38)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn39)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn40)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn41)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn42)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn43)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn44)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn45)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn46)
Me.OrderDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn47)
Me.OrderDataGridView.DataSource = Me.OrderBindingSource
Me.OrderDataGridView.Location = New System.Drawing.Point(14, 39)
Me.OrderDataGridView.MultiSelect = False
Me.OrderDataGridView.Name = "OrderDataGridView"
Me.OrderDataGridView.Size = New System.Drawing.Size(625, 220)
Me.OrderDataGridView.TabIndex = 4
Me.OrderDataGridView.VirtualMode = True
'
'DataGridViewTextBoxColumn34
'
Me.DataGridViewTextBoxColumn34.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn34.DataPropertyName = "OrderID"
Me.DataGridViewTextBoxColumn34.HeaderText = "OrderID"
Me.DataGridViewTextBoxColumn34.Name = "OrderID"
Me.DataGridViewTextBoxColumn34.Width = 64
'
'DataGridViewTextBoxColumn35
'
Me.DataGridViewTextBoxColumn35.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn35.DataPropertyName = "CustomerID"
Me.DataGridViewTextBoxColumn35.HeaderText = "CustomerID"
Me.DataGridViewTextBoxColumn35.Name = "CustomerID"
Me.DataGridViewTextBoxColumn35.Width = 82
'
'DataGridViewTextBoxColumn36
'
Me.DataGridViewTextBoxColumn36.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn36.DataPropertyName = "EmployeeID"
Me.DataGridViewTextBoxColumn36.HeaderText = "EmployeeID"
Me.DataGridViewTextBoxColumn36.Name = "EmployeeID"
Me.DataGridViewTextBoxColumn36.Width = 84
'
'DataGridViewTextBoxColumn37
'
Me.DataGridViewTextBoxColumn37.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.DataGridViewTextBoxColumn37.DataPropertyName = "OrderDate"
Me.DataGridViewTextBoxColumn37.HeaderText = "OrderDate"
Me.DataGridViewTextBoxColumn37.Name = "OrderDate"
Me.DataGridViewTextBoxColumn37.Width = 76
'
'DataGridViewTextBoxColumn38
'
Me.DataGridViewTextBoxColumn38.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn38.DataPropertyName = "RequiredDate"
Me.DataGridViewTextBoxColumn38.HeaderText = "RequiredDate"
Me.DataGridViewTextBoxColumn38.Name = "RequiredDate"
Me.DataGridViewTextBoxColumn38.Width = 93
'
'DataGridViewTextBoxColumn39
'
Me.DataGridViewTextBoxColumn39.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn39.DataPropertyName = "ShippedDate"
Me.DataGridViewTextBoxColumn39.HeaderText = "ShippedDate"
Me.DataGridViewTextBoxColumn39.Name = "ShippedDate"
Me.DataGridViewTextBoxColumn39.Width = 89
'
'DataGridViewTextBoxColumn40
'
Me.DataGridViewTextBoxColumn40.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn40.DataPropertyName = "ShipVia"
Me.DataGridViewTextBoxColumn40.HeaderText = "ShipVia"
Me.DataGridViewTextBoxColumn40.Name = "ShipVia"
Me.DataGridViewTextBoxColumn40.Width = 63
'
'DataGridViewTextBoxColumn41
'
Me.DataGridViewTextBoxColumn41.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn41.DataPropertyName = "Freight"
DataGridViewCellStyle1.Format = "$#,##0.00"
DataGridViewCellStyle1.FormatProvider = New System.Globalization.CultureInfo("en-US")
Me.DataGridViewTextBoxColumn41.DefaultCellStyle = DataGridViewCellStyle1
Me.DataGridViewTextBoxColumn41.HeaderText = "Freight"
Me.DataGridViewTextBoxColumn41.Name = "Freight"
Me.DataGridViewTextBoxColumn41.Width = 59
'
'DataGridViewTextBoxColumn42
'
Me.DataGridViewTextBoxColumn42.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.DataGridViewTextBoxColumn42.DataPropertyName = "ShipName"
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridViewTextBoxColumn42.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridViewTextBoxColumn42.HeaderText = "ShipName"
Me.DataGridViewTextBoxColumn42.Name = "ShipName"
Me.DataGridViewTextBoxColumn42.Width = 76
'
'DataGridViewTextBoxColumn43
'
Me.DataGridViewTextBoxColumn43.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.DataGridViewTextBoxColumn43.DataPropertyName = "ShipAddress"
Me.DataGridViewTextBoxColumn43.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridViewTextBoxColumn43.HeaderText = "ShipAddress"
Me.DataGridViewTextBoxColumn43.Name = "ShipAddress"
Me.DataGridViewTextBoxColumn43.Width = 86
'
'DataGridViewTextBoxColumn44
'
Me.DataGridViewTextBoxColumn44.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.DataGridViewTextBoxColumn44.DataPropertyName = "ShipCity"
Me.DataGridViewTextBoxColumn44.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridViewTextBoxColumn44.HeaderText = "ShipCity"
Me.DataGridViewTextBoxColumn44.Name = "ShipCity"
Me.DataGridViewTextBoxColumn44.Width = 65
'
'DataGridViewTextBoxColumn45
'
Me.DataGridViewTextBoxColumn45.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.DataGridViewTextBoxColumn45.DataPropertyName = "ShipRegion"
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridViewTextBoxColumn45.DefaultCellStyle = DataGridViewCellStyle3
Me.DataGridViewTextBoxColumn45.HeaderText = "ShipRegion"
Me.DataGridViewTextBoxColumn45.Name = "ShipRegion"
Me.DataGridViewTextBoxColumn45.Width = 82
'
'DataGridViewTextBoxColumn46
'
Me.DataGridViewTextBoxColumn46.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn46.DataPropertyName = "ShipPostalCode"
Me.DataGridViewTextBoxColumn46.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridViewTextBoxColumn46.HeaderText = "ShipPostalCode"
Me.DataGridViewTextBoxColumn46.Name = "ShipPostalCode"
Me.DataGridViewTextBoxColumn46.Width = 102
'
'DataGridViewTextBoxColumn47
'
Me.DataGridViewTextBoxColumn47.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.DataGridViewTextBoxColumn47.DataPropertyName = "ShipCountry"
Me.DataGridViewTextBoxColumn47.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridViewTextBoxColumn47.HeaderText = "ShipCountry"
Me.DataGridViewTextBoxColumn47.Name = "ShipCountry"
Me.DataGridViewTextBoxColumn47.Width = 84
'
'OrderDetailBindingSource
'
Me.OrderDetailBindingSource.DataSource = GetType(WinOrdersBEClient.WSOrdersBE.OrderDetail)
'
'OrderDetailDataGridView
'
Me.OrderDetailDataGridView.AutoGenerateColumns = False
Me.OrderDetailDataGridView.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.OrderDetailDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn15)
Me.OrderDetailDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn16)
Me.OrderDetailDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn17)
Me.OrderDetailDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn18)
Me.OrderDetailDataGridView.Columns.Add(Me.DataGridViewTextBoxColumn19)
Me.OrderDetailDataGridView.DataSource = Me.OrderDetailBindingSource
Me.OrderDetailDataGridView.Location = New System.Drawing.Point(320, 276)
Me.OrderDetailDataGridView.MultiSelect = False
Me.OrderDetailDataGridView.Name = "OrderDetailDataGridView"
Me.OrderDetailDataGridView.Size = New System.Drawing.Size(319, 178)
Me.OrderDetailDataGridView.TabIndex = 4
Me.OrderDetailDataGridView.VirtualMode = True
'
'DataGridViewTextBoxColumn15
'
Me.DataGridViewTextBoxColumn15.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn15.DataPropertyName = "OrderID"
Me.DataGridViewTextBoxColumn15.HeaderText = "OrderID"
Me.DataGridViewTextBoxColumn15.Name = "OrderID"
Me.DataGridViewTextBoxColumn15.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn15.Width = 46
'
'DataGridViewTextBoxColumn16
'
Me.DataGridViewTextBoxColumn16.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn16.DataPropertyName = "ProductID"
Me.DataGridViewTextBoxColumn16.HeaderText = "ProductID"
Me.DataGridViewTextBoxColumn16.Name = "ProductID"
Me.DataGridViewTextBoxColumn16.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn16.Width = 57
'
'DataGridViewTextBoxColumn17
'
Me.DataGridViewTextBoxColumn17.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
Me.DataGridViewTextBoxColumn17.DataPropertyName = "UnitPrice"
DataGridViewCellStyle4.Format = "$#,##0.00"
DataGridViewCellStyle4.FormatProvider = New System.Globalization.CultureInfo("en-US")
Me.DataGridViewTextBoxColumn17.DefaultCellStyle = DataGridViewCellStyle4
Me.DataGridViewTextBoxColumn17.HeaderText = "UnitPrice"
Me.DataGridViewTextBoxColumn17.Name = "UnitPrice"
Me.DataGridViewTextBoxColumn17.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn17.Width = 52
'
'DataGridViewTextBoxColumn18
'
Me.DataGridViewTextBoxColumn18.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn18.DataPropertyName = "Quantity"
Me.DataGridViewTextBoxColumn18.HeaderText = "Quantity"
Me.DataGridViewTextBoxColumn18.Name = "Quantity"
Me.DataGridViewTextBoxColumn18.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn18.Width = 48
'
'DataGridViewTextBoxColumn19
'
Me.DataGridViewTextBoxColumn19.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
Me.DataGridViewTextBoxColumn19.DataPropertyName = "Discount"
DataGridViewCellStyle5.Format = "##0.0%"
Me.DataGridViewTextBoxColumn19.DefaultCellStyle = DataGridViewCellStyle5
Me.DataGridViewTextBoxColumn19.HeaderText = "Discount"
Me.DataGridViewTextBoxColumn19.Name = "Discount"
Me.DataGridViewTextBoxColumn19.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
Me.DataGridViewTextBoxColumn19.Width = 51
'
'txtData
'
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?