ordersform.designer.vb

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

        '
        Me.CountryTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "Country", True))
        Me.CountryTextBox.Location = New System.Drawing.Point(397, 92)
        Me.CountryTextBox.Name = "CountryTextBox"
        Me.CountryTextBox.Size = New System.Drawing.Size(95, 20)
        Me.CountryTextBox.TabIndex = 18
        '
        'PhoneTextBox
        '
        Me.PhoneTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "Phone", True))
        Me.PhoneTextBox.Location = New System.Drawing.Point(397, 119)
        Me.PhoneTextBox.Name = "PhoneTextBox"
        Me.PhoneTextBox.Size = New System.Drawing.Size(95, 20)
        Me.PhoneTextBox.TabIndex = 20
        '
        'FaxTextBox
        '
        Me.FaxTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "Fax", True))
        Me.FaxTextBox.Location = New System.Drawing.Point(397, 146)
        Me.FaxTextBox.Name = "FaxTextBox"
        Me.FaxTextBox.Size = New System.Drawing.Size(95, 20)
        Me.FaxTextBox.TabIndex = 22
        '
        'OrdersBindingSource
        '
        Me.OrdersBindingSource.DataMember = "FK_Orders_Customers"
        Me.OrdersBindingSource.DataSource = Me.CustomersBindingSource
        '
        'OrdersDataGridView
        '
        Me.OrdersDataGridView.AutoGenerateColumns = False
        Me.OrdersDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.tbcOrderID, Me.CustomerID, Me.EmployeeID, Me.OrderDate, Me.RequiredDate, Me.ShippedDate, Me.ShipVia, Me.Freight, Me.ShipName, Me.ShipAddress, Me.ShipCity, Me.ShipRegion, Me.ShipPostalCode, Me.ShipCountry})
        Me.OrdersDataGridView.DataSource = Me.OrdersBindingSource
        Me.OrdersDataGridView.Location = New System.Drawing.Point(20, 187)
        Me.OrdersDataGridView.Name = "OrdersDataGridView"
        Me.OrdersDataGridView.Size = New System.Drawing.Size(473, 125)
        Me.OrdersDataGridView.TabIndex = 23
        Me.OrdersDataGridView.VirtualMode = True
        '
        'tbcOrderID
        '
        Me.tbcOrderID.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.tbcOrderID.DataPropertyName = "OrderID"
        Me.tbcOrderID.Frozen = True
        Me.tbcOrderID.HeaderText = "OrderID"
        Me.tbcOrderID.Name = "tbcOrderID"
        Me.tbcOrderID.ReadOnly = True
        Me.tbcOrderID.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.tbcOrderID.Width = 50
        '
        'CustomerID
        '
        Me.CustomerID.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.CustomerID.DataPropertyName = "CustomerID"
        Me.CustomerID.HeaderText = "CustomerID"
        Me.CustomerID.Name = "CustomerID"
        Me.CustomerID.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.CustomerID.Width = 68
        '
        'EmployeeID
        '
        Me.EmployeeID.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.EmployeeID.DataPropertyName = "EmployeeID"
        Me.EmployeeID.HeaderText = "EmployeeID"
        Me.EmployeeID.Name = "EmployeeID"
        Me.EmployeeID.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.EmployeeID.Width = 70
        '
        'OrderDate
        '
        Me.OrderDate.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
        Me.OrderDate.DataPropertyName = "OrderDate"
        Me.OrderDate.HeaderText = "OrderDate"
        Me.OrderDate.Name = "OrderDate"
        Me.OrderDate.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.OrderDate.Width = 62
        '
        'RequiredDate
        '
        Me.RequiredDate.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.RequiredDate.DataPropertyName = "RequiredDate"
        Me.RequiredDate.HeaderText = "RequiredDate"
        Me.RequiredDate.Name = "RequiredDate"
        Me.RequiredDate.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.RequiredDate.Width = 79
        '
        'ShippedDate
        '
        Me.ShippedDate.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.ShippedDate.DataPropertyName = "ShippedDate"
        Me.ShippedDate.HeaderText = "ShippedDate"
        Me.ShippedDate.Name = "ShippedDate"
        Me.ShippedDate.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.ShippedDate.Width = 75
        '
        'ShipVia
        '
        Me.ShipVia.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.ShipVia.DataPropertyName = "ShipVia"
        Me.ShipVia.HeaderText = "ShipVia"
        Me.ShipVia.Name = "ShipVia"
        Me.ShipVia.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.ShipVia.Width = 49
        '
        'Freight
        '
        Me.Freight.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
        Me.Freight.DataPropertyName = "Freight"
        DataGridViewCellStyle1.Format = "C2"
        DataGridViewCellStyle1.FormatProvider = New System.Globalization.CultureInfo("en-US")
        DataGridViewCellStyle1.NullValue = Nothing
        Me.Freight.DefaultCellStyle = DataGridViewCellStyle1
        Me.Freight.HeaderText = "Freight"
        Me.Freight.Name = "Freight"
        Me.Freight.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.Freight.Width = 45
        '
        'ShipName
        '
        Me.ShipName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
        Me.ShipName.DataPropertyName = "ShipName"
        Me.ShipName.HeaderText = "ShipName"
        Me.ShipName.Name = "ShipName"
        Me.ShipName.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.ShipName.Width = 62
        '
        'ShipAddress
        '
        Me.ShipAddress.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
        Me.ShipAddress.DataPropertyName = "ShipAddress"
        Me.ShipAddress.HeaderText = "ShipAddress"
        Me.ShipAddress.Name = "ShipAddress"
        Me.ShipAddress.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.ShipAddress.Width = 72
        '
        'ShipCity
        '
        Me.ShipCity.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
        Me.ShipCity.DataPropertyName = "ShipCity"
        Me.ShipCity.HeaderText = "ShipCity"
        Me.ShipCity.Name = "ShipCity"
        Me.ShipCity.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.ShipCity.Width = 51
        '
        'ShipRegion
        '
        Me.ShipRegion.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
        Me.ShipRegion.DataPropertyName = "ShipRegion"
        Me.ShipRegion.HeaderText = "ShipRegion"
        Me.ShipRegion.Name = "ShipRegion"
        Me.ShipRegion.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.ShipRegion.Width = 68
        '
        'ShipPostalCode
        '
        Me.ShipPostalCode.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
        Me.ShipPostalCode.DataPropertyName = "ShipPostalCode"
        Me.ShipPostalCode.HeaderText = "ShipPostalCode"
        Me.ShipPostalCode.Name = "ShipPostalCode"
        Me.ShipPostalCode.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.ShipPostalCode.Width = 88
        '
        'ShipCountry
        '
        Me.ShipCountry.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
        Me.ShipCountry.DataPropertyName = "ShipCountry"
        Me.ShipCountry.HeaderText = "ShipCountry"
        Me.ShipCountry.Name = "ShipCountry"
        Me.ShipCountry.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic
        Me.ShipCountry.Width = 89
        '
        'Order_DetailsBindingSource
        '
        Me.Order_DetailsBindingSource.DataMember = "FK_Order_Details_Orders"
        Me.Order_DetailsBindingSource.DataSource = Me.OrdersBindingSource
        '
        'Order_DetailsDataGridView
        '
        Me.Order_DetailsDataGridView.AutoGenerateColumns = False
        Me.Order_DetailsDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.OrderID, Me.Quantity, Me.ProductID, Me.UnitPrice, Me.Discount, Me.Extended})
        Me.Order_DetailsDataGridView.DataSource = Me.Order_DetailsBindingSource
        Me.Order_DetailsDataGridView.Location = New System.Drawing.Point(20, 334)
        Me.Order_DetailsDataGridView.Name = "Order_DetailsDataGridView"
        Me.Order_DetailsDataGridView.Size = New System.Drawing.Size(473, 129)
        Me.Order_DetailsDataGridView.TabIndex = 24
        Me.Order_DetailsDataGridView.VirtualMode = True
        '
        'OrderID
        '
        Me.OrderID.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.OrderID.DataPropertyName = "OrderID"
        Me.OrderID.HeaderText = "OrderID"
        Me.OrderID.Name = "OrderID"
        Me.OrderID.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.OrderID.Width = 50
        '
        'Quantity
        '
        Me.Quantity.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.Quantity.DataPropertyName = "Quantity"
        Me.Quantity.HeaderText = "Quantity"
        Me.Quantity.Name = "Quantity"
        Me.Quantity.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.Quantity.Width = 52
        '
        'ProductID
        '
        Me.ProductID.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.ProductID.DataPropertyName = "ProductID"
        Me.ProductID.HeaderText = "ProductID"
        Me.ProductID.Name = "ProductID"
        Me.ProductID.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.ProductID.Width = 61
        '
        'UnitPrice
        '
        Me.UnitPrice.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.UnitPrice.DataPropertyName = "UnitPrice"
        DataGridViewCellStyle2.Format = "C2"
        DataGridViewCellStyle2.FormatProvider = New System.Globalization.CultureInfo("en-US")
        Me.UnitPrice.DefaultCellStyle = DataGridViewCellStyle2
        Me.UnitPrice.HeaderText = "UnitPrice"
        Me.UnitPrice.Name = "UnitPrice"
        Me.UnitPrice.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.UnitPrice.Width = 56
        '
        'Discount
        '
        Me.Discount.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader
        Me.Discount.DataPropertyName = "Discount"
        DataGridViewCellStyle3.Format = "P1"
        DataGridViewCellStyle3.FormatProvider = New System.Globalization.CultureInfo("en-US")
        Me.Discount.DefaultCellStyle = DataGridViewCellStyle3
        Me.Discount.HeaderText = "Discount"
        Me.Discount.Name = "Discount"
        Me.Discount.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.Discount.Width = 55
        '
        'Extended
        '
        Me.Extended.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.AllCells
        DataGridViewCellStyle4.Format = "C2"
        DataGridViewCellStyle4.FormatProvider = New System.Globalization.CultureInfo("en-US")
        Me.Extended.DefaultCellStyle = DataGridViewCellStyle4
        Me.Extended.HeaderText = "Extended"
        Me.Extended.Name = "Extended"
        Me.Extended.ReadOnly = True
        Me.Extended.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.NotSortable
        Me.Extended.Width = 58
        '
        'FillByCustomerIDToolStrip
        '
        Me.FillByCustomerIDToolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CustomerIDToolStripLabel, Me.cboCustomerID, Me.FillByCustomerIDToolStripButton, Me.ToolStripSeparator1, Me.SaveDataToolStripButton, Me.EditCustomerDataToolStripButton, Me.NewCustomerToolStripButton, Me.CancelEditToolStripButton})
        Me.FillByCustomerIDToolStrip.Location = New System.Drawing.Point(0, 0)
        Me.FillByCustomerIDToolStrip.Name = "FillByCustomerIDToolStrip"
        Me.FillByCustomerIDToolStrip.Size = New System.Drawing.Size(513, 25)
        Me.FillByCustomerIDToolStrip.TabIndex = 25
        Me.FillByCustomerIDToolStrip.Text = "ToolStrip1"
        '
        'CustomerIDToolStripLabel
        '
        Me.CustomerIDToolStripLabel.Name = "CustomerIDToolStripLabel"
        Me.CustomerIDToolStripLabel.Size = New System.Drawing.Size(68, 22)
        Me.CustomerIDToolStripLabel.Text = "CustomerID:"
        '
        'cboCustomerID
        '
        Me.cboCustomerID.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboCustomerID.Items.AddRange(New Object() {"ALFKI", "ANTON", "BERGS", "BOLID", "RATTC"})