cspclient.designer.vb

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

Partial Public Class CSPClient
	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()
        Me.components = New System.ComponentModel.Container
        Me.txtData = New System.Windows.Forms.TextBox
        Me.gbStoredProcedure = New System.Windows.Forms.GroupBox
        Me.rbSalesOrders = New System.Windows.Forms.RadioButton
        Me.rbCustomers = New System.Windows.Forms.RadioButton
        Me.btnFirst = New System.Windows.Forms.Button
        Me.btnPrevious = New System.Windows.Forms.Button
        Me.btnNext = New System.Windows.Forms.Button
        Me.btnLast = New System.Windows.Forms.Button
        Me.txtParam = New System.Windows.Forms.TextBox
        Me.lblHeader = New System.Windows.Forms.Label
        Me.txtChars = New System.Windows.Forms.TextBox
        Me.txtTime = New System.Windows.Forms.TextBox
        Me.lblChars = New System.Windows.Forms.Label
        Me.lblTime = New System.Windows.Forms.Label
        Me.btnKillFiles = New System.Windows.Forms.Button
        Me.btnLRForm = New System.Windows.Forms.Button
        Me.ttClient = New System.Windows.Forms.ToolTip(Me.components)
        Me.btnGetDataStream = New System.Windows.Forms.Button
        Me.chkNamespaces = New System.Windows.Forms.CheckBox
        Me.gbStoredProcedure.SuspendLayout()
        Me.SuspendLayout()
        '
        'txtData
        '
        Me.txtData.AutoSize = False
        Me.txtData.Font = New System.Drawing.Font("Lucida Console", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtData.Location = New System.Drawing.Point(13, 31)
        Me.txtData.Margin = New System.Windows.Forms.Padding(3, 2, 3, 3)
        Me.txtData.Multiline = True
        Me.txtData.Name = "txtData"
        Me.txtData.ScrollBars = System.Windows.Forms.ScrollBars.Both
        Me.txtData.Size = New System.Drawing.Size(573, 325)
        Me.txtData.TabIndex = 0
        Me.txtData.TabStop = False
        Me.txtData.WordWrap = False
        '
        'gbStoredProcedure
        '
        Me.gbStoredProcedure.Controls.Add(Me.rbSalesOrders)
        Me.gbStoredProcedure.Controls.Add(Me.rbCustomers)
        Me.gbStoredProcedure.Location = New System.Drawing.Point(12, 363)
        Me.gbStoredProcedure.Margin = New System.Windows.Forms.Padding(3, 3, 3, 2)
        Me.gbStoredProcedure.Name = "gbStoredProcedure"
        Me.gbStoredProcedure.Size = New System.Drawing.Size(182, 41)
        Me.gbStoredProcedure.TabIndex = 1
        Me.gbStoredProcedure.TabStop = False
        Me.gbStoredProcedure.Text = "Select CLR Stored Procedure"
        '
        'rbSalesOrders
        '
        Me.rbSalesOrders.AutoSize = True
        Me.rbSalesOrders.Location = New System.Drawing.Point(100, 17)
        Me.rbSalesOrders.Name = "rbSalesOrders"
        Me.rbSalesOrders.Size = New System.Drawing.Size(77, 17)
        Me.rbSalesOrders.TabIndex = 1
        Me.rbSalesOrders.Text = "Orders XML"
        Me.ttClient.SetToolTip(Me.rbSalesOrders, "Display XML documents from Orders table")
        '
        'rbCustomers
        '
        Me.rbCustomers.AutoSize = True
        Me.rbCustomers.Checked = True
        Me.rbCustomers.Location = New System.Drawing.Point(7, 17)
        Me.rbCustomers.Name = "rbCustomers"
        Me.rbCustomers.Size = New System.Drawing.Size(70, 17)
        Me.rbCustomers.TabIndex = 0
        Me.rbCustomers.Text = "Customers"
        Me.ttClient.SetToolTip(Me.rbCustomers, "Display country-dependent customer addresses from Customers table")
        '
        'btnFirst
        '
        Me.btnFirst.Location = New System.Drawing.Point(219, 383)
        Me.btnFirst.Name = "btnFirst"
        Me.btnFirst.Size = New System.Drawing.Size(60, 23)
        Me.btnFirst.TabIndex = 2
        Me.btnFirst.Text = "&First"
        '
        'btnPrevious
        '
        Me.btnPrevious.Location = New System.Drawing.Point(295, 383)
        Me.btnPrevious.Margin = New System.Windows.Forms.Padding(1, 3, 3, 3)
        Me.btnPrevious.Name = "btnPrevious"
        Me.btnPrevious.Size = New System.Drawing.Size(65, 23)
        Me.btnPrevious.TabIndex = 3
        Me.btnPrevious.Text = "&Previous"
        '
        'btnNext
        '
        Me.btnNext.Location = New System.Drawing.Point(376, 382)
        Me.btnNext.Name = "btnNext"
        Me.btnNext.Size = New System.Drawing.Size(51, 24)
        Me.btnNext.TabIndex = 4
        Me.btnNext.Text = "&Next"
        '
        'btnLast
        '
        Me.btnLast.Location = New System.Drawing.Point(449, 383)
        Me.btnLast.Name = "btnLast"
        Me.btnLast.Size = New System.Drawing.Size(55, 23)
        Me.btnLast.TabIndex = 5
        Me.btnLast.Text = "&Last"
        '
        'txtParam
        '
        Me.txtParam.Location = New System.Drawing.Point(534, 384)
        Me.txtParam.Name = "txtParam"
        Me.txtParam.ReadOnly = True
        Me.txtParam.Size = New System.Drawing.Size(51, 20)
        Me.txtParam.TabIndex = 6
        Me.txtParam.TabStop = False
        '
        'lblHeader
        '
        Me.lblHeader.AutoSize = True
        Me.lblHeader.Font = New System.Drawing.Font("Verdana", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblHeader.Location = New System.Drawing.Point(10, 10)
        Me.lblHeader.Margin = New System.Windows.Forms.Padding(3, 3, 3, 1)
        Me.lblHeader.Name = "lblHeader"
        Me.lblHeader.Size = New System.Drawing.Size(567, 16)
        Me.lblHeader.TabIndex = 7
        Me.lblHeader.Text = "Modified Customers SqlRecord and Mailing Label (Differs for USA vs. Other Countri" & _
            "es)"
        Me.lblHeader.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'txtChars
        '
        Me.txtChars.Location = New System.Drawing.Point(222, 414)
        Me.txtChars.Name = "txtChars"
        Me.txtChars.Size = New System.Drawing.Size(60, 20)
        Me.txtChars.TabIndex = 8
        Me.txtChars.TabStop = False
        Me.txtChars.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        Me.txtChars.Visible = False
        '
        'txtTime
        '
        Me.txtTime.AcceptsReturn = True
        Me.txtTime.Location = New System.Drawing.Point(373, 414)
        Me.txtTime.Name = "txtTime"
        Me.txtTime.Size = New System.Drawing.Size(51, 20)
        Me.txtTime.TabIndex = 9
        Me.txtTime.TabStop = False
        Me.txtTime.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        Me.txtTime.Visible = False
        '
        'lblChars
        '
        Me.lblChars.AutoSize = True
        Me.lblChars.Location = New System.Drawing.Point(157, 416)
        Me.lblChars.Name = "lblChars"
        Me.lblChars.Size = New System.Drawing.Size(59, 13)
        Me.lblChars.TabIndex = 10
        Me.lblChars.Text = "Size, Chars:"
        Me.lblChars.Visible = False
        '
        'lblTime
        '
        Me.lblTime.AutoSize = True
        Me.lblTime.Location = New System.Drawing.Point(308, 417)
        Me.lblTime.Name = "lblTime"
        Me.lblTime.Size = New System.Drawing.Size(59, 13)
        Me.lblTime.TabIndex = 11
        Me.lblTime.Text = "Time, Secs:"
        Me.lblTime.Visible = False
        '
        'btnKillFiles
        '
        Me.btnKillFiles.Location = New System.Drawing.Point(449, 414)
        Me.btnKillFiles.Name = "btnKillFiles"
        Me.btnKillFiles.Size = New System.Drawing.Size(136, 23)
        Me.btnKillFiles.TabIndex = 12
        Me.btnKillFiles.Text = "&Delete SalesOrder Files"
        Me.ttClient.SetToolTip(Me.btnKillFiles, "Deletes 'SO#####.xml' files created by csp_SalesOrderXML")
        Me.btnKillFiles.Visible = False
        '
        'btnLRForm
        '
        Me.btnLRForm.Location = New System.Drawing.Point(13, 412)
        Me.btnLRForm.Margin = New System.Windows.Forms.Padding(3, 1, 3, 3)
        Me.btnLRForm.Name = "btnLRForm"
        Me.btnLRForm.Size = New System.Drawing.Size(124, 23)
        Me.btnLRForm.TabIndex = 13
        Me.btnLRForm.Text = "&Linear Regression Form"
        '
        'btnGetDataStream
        '
        Me.btnGetDataStream.Location = New System.Drawing.Point(376, 289)
        Me.btnGetDataStream.Margin = New System.Windows.Forms.Padding(3, 3, 0, 3)
        Me.btnGetDataStream.Name = "btnGetDataStream"
        Me.btnGetDataStream.Size = New System.Drawing.Size(211, 24)
        Me.btnGetDataStream.TabIndex = 14
        Me.btnGetDataStream.Text = "Get All Addresses with SqlDataReader"
        Me.ttClient.SetToolTip(Me.btnGetDataStream, "Returns all addresses with USA column names (demonstrates SqlPipe with SqlDataRea" & _
                "der)")
        '
        'chkNamespaces
        '
        Me.chkNamespaces.AutoSize = True
        Me.chkNamespaces.Location = New System.Drawing.Point(219, 361)
        Me.chkNamespaces.Name = "chkNamespaces"
        Me.chkNamespaces.Size = New System.Drawing.Size(114, 17)
        Me.chkNamespaces.TabIndex = 15
        Me.chkNamespaces.Text = "Show Namespaces"
        Me.chkNamespaces.Visible = False
        '
        'CSPClient
        '
        Me.ClientSize = New System.Drawing.Size(598, 444)
        Me.Controls.Add(Me.chkNamespaces)
        Me.Controls.Add(Me.btnGetDataStream)
        Me.Controls.Add(Me.btnLRForm)
        Me.Controls.Add(Me.btnKillFiles)
        Me.Controls.Add(Me.lblTime)
        Me.Controls.Add(Me.txtTime)
        Me.Controls.Add(Me.txtChars)
        Me.Controls.Add(Me.lblHeader)
        Me.Controls.Add(Me.txtParam)
        Me.Controls.Add(Me.btnLast)
        Me.Controls.Add(Me.btnNext)
        Me.Controls.Add(Me.btnPrevious)
        Me.Controls.Add(Me.btnFirst)
        Me.Controls.Add(Me.gbStoredProcedure)
        Me.Controls.Add(Me.txtData)
        Me.Controls.Add(Me.lblChars)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "CSPClient"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "StoredProceduresCLR Test Client - csp_CustomerDataRecord"
        Me.gbStoredProcedure.ResumeLayout(False)
        Me.gbStoredProcedure.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
	Friend WithEvents txtData As System.Windows.Forms.TextBox
	Friend WithEvents gbStoredProcedure As System.Windows.Forms.GroupBox
	Friend WithEvents rbSalesOrders As System.Windows.Forms.RadioButton
	Friend WithEvents rbCustomers As System.Windows.Forms.RadioButton
	Friend WithEvents btnFirst As System.Windows.Forms.Button
	Friend WithEvents btnPrevious As System.Windows.Forms.Button
	Friend WithEvents btnNext As System.Windows.Forms.Button
	Friend WithEvents btnLast As System.Windows.Forms.Button
	Friend WithEvents txtParam As System.Windows.Forms.TextBox
	Friend WithEvents lblHeader As System.Windows.Forms.Label
	Friend WithEvents txtChars As System.Windows.Forms.TextBox
	Friend WithEvents txtTime As System.Windows.Forms.TextBox
	Friend WithEvents lblChars As System.Windows.Forms.Label
	Friend WithEvents lblTime As System.Windows.Forms.Label
	Friend WithEvents btnKillFiles As System.Windows.Forms.Button
	Friend WithEvents btnLRForm As System.Windows.Forms.Button
	Friend WithEvents ttClient As System.Windows.Forms.ToolTip
	Friend WithEvents btnGetDataStream As System.Windows.Forms.Button
	Friend WithEvents chkNamespaces As System.Windows.Forms.CheckBox

End Class