main.designer.vb
来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 459 行 · 第 1/2 页
VB
459 行
'
'bindingNavigatorDeleteItem
'
Me.bindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bindingNavigatorDeleteItem.Image = CType(resources.GetObject("bindingNavigatorDeleteItem.Image"), System.Drawing.Image)
Me.bindingNavigatorDeleteItem.Name = "bindingNavigatorDeleteItem"
Me.bindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22)
Me.bindingNavigatorDeleteItem.Text = "Delete"
'
'bindingNavigatorMoveFirstItem
'
Me.bindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("bindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
Me.bindingNavigatorMoveFirstItem.Name = "bindingNavigatorMoveFirstItem"
Me.bindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22)
Me.bindingNavigatorMoveFirstItem.Text = "Move first"
'
'bindingNavigatorMovePreviousItem
'
Me.bindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("bindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
Me.bindingNavigatorMovePreviousItem.Name = "bindingNavigatorMovePreviousItem"
Me.bindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22)
Me.bindingNavigatorMovePreviousItem.Text = "Move previous"
'
'bindingNavigatorSeparator
'
Me.bindingNavigatorSeparator.Name = "bindingNavigatorSeparator"
Me.bindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
'
'bindingNavigatorPositionItem
'
Me.bindingNavigatorPositionItem.Name = "bindingNavigatorPositionItem"
Me.bindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 25)
Me.bindingNavigatorPositionItem.Text = "0"
Me.bindingNavigatorPositionItem.ToolTipText = "Current position"
'
'bindingNavigatorSeparator1
'
Me.bindingNavigatorSeparator1.Name = "bindingNavigatorSeparator1"
Me.bindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
'
'bindingNavigatorMoveNextItem
'
Me.bindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bindingNavigatorMoveNextItem.Image = CType(resources.GetObject("bindingNavigatorMoveNextItem.Image"), System.Drawing.Image)
Me.bindingNavigatorMoveNextItem.Name = "bindingNavigatorMoveNextItem"
Me.bindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22)
Me.bindingNavigatorMoveNextItem.Text = "Move next"
'
'bindingNavigatorMoveLastItem
'
Me.bindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bindingNavigatorMoveLastItem.Image = CType(resources.GetObject("bindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
Me.bindingNavigatorMoveLastItem.Name = "bindingNavigatorMoveLastItem"
Me.bindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22)
Me.bindingNavigatorMoveLastItem.Text = "Move last"
'
'bindingNavigatorSeparator2
'
Me.bindingNavigatorSeparator2.Name = "bindingNavigatorSeparator2"
Me.bindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
'
'bindingNavigatorSaveItem
'
Me.bindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.bindingNavigatorSaveItem.Image = CType(resources.GetObject("bindingNavigatorSaveItem.Image"), System.Drawing.Image)
Me.bindingNavigatorSaveItem.Name = "bindingNavigatorSaveItem"
Me.bindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22)
Me.bindingNavigatorSaveItem.Text = "Save Data"
'
'CustomerIDTextBox
'
Me.CustomerIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "CustomerID", True))
Me.CustomerIDTextBox.Location = New System.Drawing.Point(104, 38)
Me.CustomerIDTextBox.Name = "CustomerIDTextBox"
Me.CustomerIDTextBox.Size = New System.Drawing.Size(69, 20)
Me.CustomerIDTextBox.TabIndex = 2
'
'CompanyNameTextBox
'
Me.CompanyNameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "CompanyName", True))
Me.CompanyNameTextBox.Location = New System.Drawing.Point(104, 65)
Me.CompanyNameTextBox.Name = "CompanyNameTextBox"
Me.CompanyNameTextBox.Size = New System.Drawing.Size(169, 20)
Me.CompanyNameTextBox.TabIndex = 4
'
'ContactNameTextBox
'
Me.ContactNameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "ContactName", True))
Me.ContactNameTextBox.Location = New System.Drawing.Point(104, 92)
Me.ContactNameTextBox.Name = "ContactNameTextBox"
Me.ContactNameTextBox.Size = New System.Drawing.Size(169, 20)
Me.ContactNameTextBox.TabIndex = 6
'
'ContactTitleTextBox
'
Me.ContactTitleTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "ContactTitle", True))
Me.ContactTitleTextBox.Location = New System.Drawing.Point(104, 119)
Me.ContactTitleTextBox.Name = "ContactTitleTextBox"
Me.ContactTitleTextBox.Size = New System.Drawing.Size(169, 20)
Me.ContactTitleTextBox.TabIndex = 8
'
'AddressTextBox
'
Me.AddressTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "Address", True))
Me.AddressTextBox.Location = New System.Drawing.Point(104, 146)
Me.AddressTextBox.Name = "AddressTextBox"
Me.AddressTextBox.Size = New System.Drawing.Size(169, 20)
Me.AddressTextBox.TabIndex = 10
'
'CityTextBox
'
Me.CityTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "City", True))
Me.CityTextBox.Location = New System.Drawing.Point(104, 173)
Me.CityTextBox.Name = "CityTextBox"
Me.CityTextBox.Size = New System.Drawing.Size(100, 20)
Me.CityTextBox.TabIndex = 12
'
'RegionTextBox
'
Me.RegionTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "Region", True))
Me.RegionTextBox.Location = New System.Drawing.Point(375, 38)
Me.RegionTextBox.Name = "RegionTextBox"
Me.RegionTextBox.Size = New System.Drawing.Size(100, 20)
Me.RegionTextBox.TabIndex = 14
'
'PostalCodeTextBox
'
Me.PostalCodeTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "PostalCode", True))
Me.PostalCodeTextBox.Location = New System.Drawing.Point(375, 65)
Me.PostalCodeTextBox.Name = "PostalCodeTextBox"
Me.PostalCodeTextBox.Size = New System.Drawing.Size(100, 20)
Me.PostalCodeTextBox.TabIndex = 16
'
'CountryTextBox
'
Me.CountryTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.CustomersBindingSource, "Country", True))
Me.CountryTextBox.Location = New System.Drawing.Point(375, 92)
Me.CountryTextBox.Name = "CountryTextBox"
Me.CountryTextBox.Size = New System.Drawing.Size(100, 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(375, 119)
Me.PhoneTextBox.Name = "PhoneTextBox"
Me.PhoneTextBox.Size = New System.Drawing.Size(100, 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(375, 146)
Me.FaxTextBox.Name = "FaxTextBox"
Me.FaxTextBox.Size = New System.Drawing.Size(100, 20)
Me.FaxTextBox.TabIndex = 22
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(482, 209)
Me.Controls.Add(CustomerIDLabel)
Me.Controls.Add(Me.CustomerIDTextBox)
Me.Controls.Add(CompanyNameLabel)
Me.Controls.Add(Me.CompanyNameTextBox)
Me.Controls.Add(ContactNameLabel)
Me.Controls.Add(Me.ContactNameTextBox)
Me.Controls.Add(ContactTitleLabel)
Me.Controls.Add(Me.ContactTitleTextBox)
Me.Controls.Add(AddressLabel)
Me.Controls.Add(Me.AddressTextBox)
Me.Controls.Add(CityLabel)
Me.Controls.Add(Me.CityTextBox)
Me.Controls.Add(RegionLabel)
Me.Controls.Add(Me.RegionTextBox)
Me.Controls.Add(PostalCodeLabel)
Me.Controls.Add(Me.PostalCodeTextBox)
Me.Controls.Add(CountryLabel)
Me.Controls.Add(Me.CountryTextBox)
Me.Controls.Add(PhoneLabel)
Me.Controls.Add(Me.PhoneTextBox)
Me.Controls.Add(FaxLabel)
Me.Controls.Add(Me.FaxTextBox)
Me.Controls.Add(Me.CustomersBindingNavigator)
Me.Name = "frmMain"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Autogenerated Detail View from the Customers Table"
CType(Me.NorthwindDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CustomersBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CustomersBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.CustomersBindingNavigator.ResumeLayout(False)
Me.CustomersBindingNavigator.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents NorthwindDataSet As GeneratedDetailView.NorthwindDataSet
Friend WithEvents CustomersBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents CustomersTableAdapter As GeneratedDetailView.NorthwindDataSetTableAdapters.CustomersTableAdapter
Friend WithEvents CustomersBindingNavigator 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 CustomerIDTextBox As System.Windows.Forms.TextBox
Friend WithEvents CompanyNameTextBox As System.Windows.Forms.TextBox
Friend WithEvents ContactNameTextBox As System.Windows.Forms.TextBox
Friend WithEvents ContactTitleTextBox As System.Windows.Forms.TextBox
Friend WithEvents AddressTextBox As System.Windows.Forms.TextBox
Friend WithEvents CityTextBox As System.Windows.Forms.TextBox
Friend WithEvents RegionTextBox As System.Windows.Forms.TextBox
Friend WithEvents PostalCodeTextBox As System.Windows.Forms.TextBox
Friend WithEvents CountryTextBox As System.Windows.Forms.TextBox
Friend WithEvents PhoneTextBox As System.Windows.Forms.TextBox
Friend WithEvents FaxTextBox As System.Windows.Forms.TextBox
End Class
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?