xmlcolumns.designer.vb

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

Partial Public Class xmlColumns
	Inherits System.Windows.Forms.Form

	<System.Diagnostics.DebuggerNonUserCode()> _
	Public Sub New()
		MyBase.New()

		'This call is required by the Windows Form Designer.
		InitializeComponent()

	End Sub

	'Form overrides dispose to clean up the component list.
	<System.Diagnostics.DebuggerNonUserCode()> _
	Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
		If disposing AndAlso components IsNot Nothing Then
			components.Dispose()
		End If
		MyBase.Dispose(disposing)
	End Sub

	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer

	'NOTE: The following procedure is required by the Windows Form Designer
	'It can be modified using the Windows Form Designer.  
	'Do not modify it using the code editor.
	<System.Diagnostics.DebuggerStepThrough()> _
	Private Sub InitializeComponent()
		Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle
		Me.tabXmlCols = New System.Windows.Forms.TabControl
		Me.pagXmlCols = New System.Windows.Forms.TabPage
		Me.btnDatabase = New System.Windows.Forms.Button
		Me.lblColsHelp = New System.Windows.Forms.Label
		Me.btnGetTyped = New System.Windows.Forms.Button
		Me.btnGetAll = New System.Windows.Forms.Button
		Me.dgvXmlCols = New System.Windows.Forms.DataGridView
		Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn
		Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn
		Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn
		Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn
		Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn
		Me.pagData = New System.Windows.Forms.TabPage
		Me.lblRows = New System.Windows.Forms.Label
		Me.txtMaxRows = New System.Windows.Forms.TextBox
		Me.chkLimitRows = New System.Windows.Forms.CheckBox
		Me.lblTablesHelp = New System.Windows.Forms.Label
		Me.chkXmlOnly = New System.Windows.Forms.CheckBox
		Me.dgvData = New System.Windows.Forms.DataGridView
		Me.pagXmlData = New System.Windows.Forms.TabPage
		Me.btnDataInIE = New System.Windows.Forms.Button
		Me.txtXmlData = New System.Windows.Forms.TextBox
		Me.pagXmlSchema = New System.Windows.Forms.TabPage
		Me.btnSourceSchemaInIE = New System.Windows.Forms.Button
		Me.btnSchemaInIE = New System.Windows.Forms.Button
		Me.lblSchema = New System.Windows.Forms.Label
		Me.txtXmlSchema = New System.Windows.Forms.TextBox
		Me.tabXmlCols.SuspendLayout()
		Me.pagXmlCols.SuspendLayout()
		CType(Me.dgvXmlCols, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.pagData.SuspendLayout()
		CType(Me.dgvData, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.pagXmlData.SuspendLayout()
		Me.pagXmlSchema.SuspendLayout()
		Me.SuspendLayout()
		'
		'tabXmlCols
		'
		Me.tabXmlCols.Controls.Add(Me.pagXmlCols)
		Me.tabXmlCols.Controls.Add(Me.pagData)
		Me.tabXmlCols.Controls.Add(Me.pagXmlData)
		Me.tabXmlCols.Controls.Add(Me.pagXmlSchema)
		Me.tabXmlCols.Location = New System.Drawing.Point(6, 13)
		Me.tabXmlCols.Name = "tabXmlCols"
		Me.tabXmlCols.SelectedIndex = 0
		Me.tabXmlCols.Size = New System.Drawing.Size(693, 425)
		Me.tabXmlCols.TabIndex = 0
		'
		'pagXmlCols
		'
		Me.pagXmlCols.BackColor = System.Drawing.SystemColors.Control
		Me.pagXmlCols.Controls.Add(Me.btnDatabase)
		Me.pagXmlCols.Controls.Add(Me.lblColsHelp)
		Me.pagXmlCols.Controls.Add(Me.btnGetTyped)
		Me.pagXmlCols.Controls.Add(Me.btnGetAll)
		Me.pagXmlCols.Controls.Add(Me.dgvXmlCols)
		Me.pagXmlCols.Location = New System.Drawing.Point(4, 22)
		Me.pagXmlCols.Name = "pagXmlCols"
		Me.pagXmlCols.Padding = New System.Windows.Forms.Padding(3)
		Me.pagXmlCols.Size = New System.Drawing.Size(685, 399)
		Me.pagXmlCols.TabIndex = 0
		Me.pagXmlCols.Text = "xml Columns"
		'
		'btnDatabase
		'
		Me.btnDatabase.Location = New System.Drawing.Point(284, 369)
		Me.btnDatabase.Name = "btnDatabase"
		Me.btnDatabase.Size = New System.Drawing.Size(102, 23)
		Me.btnDatabase.TabIndex = 4
		Me.btnDatabase.Text = "Northwind"
		'
		'lblColsHelp
		'
		Me.lblColsHelp.AutoSize = True
		Me.lblColsHelp.Location = New System.Drawing.Point(391, 374)
		Me.lblColsHelp.Name = "lblColsHelp"
		Me.lblColsHelp.Size = New System.Drawing.Size(289, 14)
		Me.lblColsHelp.TabIndex = 3
		Me.lblColsHelp.Text = "Select a row to display table rows in the second tab page"
		Me.lblColsHelp.TextAlign = System.Drawing.ContentAlignment.TopRight
		'
		'btnGetTyped
		'
		Me.btnGetTyped.Location = New System.Drawing.Point(135, 369)
		Me.btnGetTyped.Name = "btnGetTyped"
		Me.btnGetTyped.Size = New System.Drawing.Size(132, 23)
		Me.btnGetTyped.TabIndex = 2
		Me.btnGetTyped.Text = "Get Typed xml Columns"
		'
		'btnGetAll
		'
		Me.btnGetAll.Location = New System.Drawing.Point(6, 368)
		Me.btnGetAll.Name = "btnGetAll"
		Me.btnGetAll.Size = New System.Drawing.Size(110, 23)
		Me.btnGetAll.TabIndex = 1
		Me.btnGetAll.Text = "Get All xml Columns"
		'
		'dgvXmlCols
		'
		Me.dgvXmlCols.AllowUserToAddRows = False
		Me.dgvXmlCols.AllowUserToDeleteRows = False
		Me.dgvXmlCols.Columns.Add(Me.DataGridViewTextBoxColumn1)
		Me.dgvXmlCols.Columns.Add(Me.DataGridViewTextBoxColumn2)
		Me.dgvXmlCols.Columns.Add(Me.DataGridViewTextBoxColumn3)
		Me.dgvXmlCols.Columns.Add(Me.DataGridViewTextBoxColumn4)
		Me.dgvXmlCols.Columns.Add(Me.DataGridViewTextBoxColumn5)
		Me.dgvXmlCols.Location = New System.Drawing.Point(7, 7)
		Me.dgvXmlCols.MultiSelect = False
		Me.dgvXmlCols.Name = "dgvXmlCols"
		Me.dgvXmlCols.ReadOnly = True
		Me.dgvXmlCols.RowHeadersWidth = 30
		Me.dgvXmlCols.Size = New System.Drawing.Size(672, 351)
		Me.dgvXmlCols.TabIndex = 0
		'
		'DataGridViewTextBoxColumn1
		'
		Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle1
		Me.DataGridViewTextBoxColumn1.HeaderText = "SchemaName"
		Me.DataGridViewTextBoxColumn1.Name = "SchemaName"
		Me.DataGridViewTextBoxColumn1.ReadOnly = True
		'
		'DataGridViewTextBoxColumn2
		'
		Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle1
		Me.DataGridViewTextBoxColumn2.HeaderText = "TableName"
		Me.DataGridViewTextBoxColumn2.Name = "TableName"
		Me.DataGridViewTextBoxColumn2.ReadOnly = True
		Me.DataGridViewTextBoxColumn2.Width = 80
		'
		'DataGridViewTextBoxColumn3
		'
		Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle1
		Me.DataGridViewTextBoxColumn3.HeaderText = "ColumnName"
		Me.DataGridViewTextBoxColumn3.Name = "ColumnName"
		Me.DataGridViewTextBoxColumn3.ReadOnly = True
		Me.DataGridViewTextBoxColumn3.Width = 120
		'
		'DataGridViewTextBoxColumn4
		'
		Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle1
		Me.DataGridViewTextBoxColumn4.HeaderText = "XmlSchemaName"
		Me.DataGridViewTextBoxColumn4.Name = "XmlSchemaName"
		Me.DataGridViewTextBoxColumn4.ReadOnly = True
		Me.DataGridViewTextBoxColumn4.Width = 200
		'
		'DataGridViewTextBoxColumn5
		'
		Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle1
		Me.DataGridViewTextBoxColumn5.HeaderText = "XmlNamespace"
		Me.DataGridViewTextBoxColumn5.Name = "XmlNamespace"
		Me.DataGridViewTextBoxColumn5.ReadOnly = True
		Me.DataGridViewTextBoxColumn5.Width = 500
		'
		'pagData
		'
		Me.pagData.Controls.Add(Me.lblRows)
		Me.pagData.Controls.Add(Me.txtMaxRows)
		Me.pagData.Controls.Add(Me.chkLimitRows)
		Me.pagData.Controls.Add(Me.lblTablesHelp)
		Me.pagData.Controls.Add(Me.chkXmlOnly)
		Me.pagData.Controls.Add(Me.dgvData)
        Me.pagData.Location = New System.Drawing.Point(4, 22)
		Me.pagData.Name = "pagData"
		Me.pagData.Padding = New System.Windows.Forms.Padding(3)
		Me.pagData.Size = New System.Drawing.Size(685, 399)
		Me.pagData.TabIndex = 2
		Me.pagData.Text = "Selected Table Data"
		'