connectionpoolingform.designer.vb

讲解如何实现从数据库同步下载数据以及在窗口上显示数据

        Me.txtPerfConnectionsActive.ForeColor = System.Drawing.Color.Black
        Me.txtPerfConnectionsActive.Location = New System.Drawing.Point(239, 17)
        Me.txtPerfConnectionsActive.Name = "txtPerfConnectionsActive"
        Me.txtPerfConnectionsActive.ReadOnly = True
        Me.txtPerfConnectionsActive.Size = New System.Drawing.Size(53, 20)
        Me.txtPerfConnectionsActive.TabIndex = 3
        '
        'lblPerfConnectionsActive
        '
        Me.lblPerfConnectionsActive.AutoSize = True
        Me.lblPerfConnectionsActive.Location = New System.Drawing.Point(170, 20)
        Me.lblPerfConnectionsActive.Name = "lblPerfConnectionsActive"
        Me.lblPerfConnectionsActive.Size = New System.Drawing.Size(40, 13)
        Me.lblPerfConnectionsActive.TabIndex = 2
        Me.lblPerfConnectionsActive.Text = "Active:"
        '
        'txtPerfConnectionsPooled
        '
        Me.txtPerfConnectionsPooled.BackColor = System.Drawing.Color.White
        Me.txtPerfConnectionsPooled.ForeColor = System.Drawing.Color.Black
        Me.txtPerfConnectionsPooled.Location = New System.Drawing.Point(79, 17)
        Me.txtPerfConnectionsPooled.Name = "txtPerfConnectionsPooled"
        Me.txtPerfConnectionsPooled.ReadOnly = True
        Me.txtPerfConnectionsPooled.Size = New System.Drawing.Size(53, 20)
        Me.txtPerfConnectionsPooled.TabIndex = 1
        '
        'lblPerfConnectionsPooled
        '
        Me.lblPerfConnectionsPooled.AutoSize = True
        Me.lblPerfConnectionsPooled.Location = New System.Drawing.Point(11, 20)
        Me.lblPerfConnectionsPooled.Name = "lblPerfConnectionsPooled"
        Me.lblPerfConnectionsPooled.Size = New System.Drawing.Size(43, 13)
        Me.lblPerfConnectionsPooled.TabIndex = 0
        Me.lblPerfConnectionsPooled.Text = "Pooled:"
        '
        'btnPerfRefresh
        '
        Me.btnPerfRefresh.Location = New System.Drawing.Point(349, 149)
        Me.btnPerfRefresh.Name = "btnPerfRefresh"
        Me.btnPerfRefresh.Size = New System.Drawing.Size(86, 23)
        Me.btnPerfRefresh.TabIndex = 12
        Me.btnPerfRefresh.Text = "Refresh"
        Me.btnPerfRefresh.UseVisualStyleBackColor = True
        '
        'btnQuery
        '
        Me.btnQuery.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnQuery.Enabled = False
        Me.btnQuery.Location = New System.Drawing.Point(361, 98)
        Me.btnQuery.Name = "btnQuery"
        Me.btnQuery.Size = New System.Drawing.Size(93, 23)
        Me.btnQuery.TabIndex = 25
        Me.btnQuery.Text = "Query"
        '
        'statusStrip
        '
        Me.statusStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStripStatusLabel1})
        Me.statusStrip.Location = New System.Drawing.Point(0, 441)
        Me.statusStrip.Name = "statusStrip"
        Me.statusStrip.Size = New System.Drawing.Size(465, 22)
        Me.statusStrip.TabIndex = 24
        Me.statusStrip.Text = "statusStrip1"
        '
        'toolStripStatusLabel1
        '
        Me.toolStripStatusLabel1.Name = "toolStripStatusLabel1"
        Me.toolStripStatusLabel1.Size = New System.Drawing.Size(38, 17)
        Me.toolStripStatusLabel1.Text = "Ready"
        '
        'btnClearAllPools
        '
        Me.btnClearAllPools.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnClearAllPools.Location = New System.Drawing.Point(361, 217)
        Me.btnClearAllPools.Name = "btnClearAllPools"
        Me.btnClearAllPools.Size = New System.Drawing.Size(93, 23)
        Me.btnClearAllPools.TabIndex = 23
        Me.btnClearAllPools.Text = "Clear All Pools"
        '
        'btnClearPool
        '
        Me.btnClearPool.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnClearPool.Enabled = False
        Me.btnClearPool.Location = New System.Drawing.Point(361, 187)
        Me.btnClearPool.Name = "btnClearPool"
        Me.btnClearPool.Size = New System.Drawing.Size(93, 23)
        Me.btnClearPool.TabIndex = 22
        Me.btnClearPool.Text = "Clear Pool"
        '
        'btnRemove
        '
        Me.btnRemove.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnRemove.Enabled = False
        Me.btnRemove.Location = New System.Drawing.Point(361, 157)
        Me.btnRemove.Name = "btnRemove"
        Me.btnRemove.Size = New System.Drawing.Size(93, 23)
        Me.btnRemove.TabIndex = 21
        Me.btnRemove.Text = "Remove"
        '
        'btnClose
        '
        Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnClose.Enabled = False
        Me.btnClose.Location = New System.Drawing.Point(361, 127)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.Size = New System.Drawing.Size(93, 23)
        Me.btnClose.TabIndex = 20
        Me.btnClose.Text = "Close"
        '
        'btnOpen
        '
        Me.btnOpen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnOpen.Enabled = False
        Me.btnOpen.Location = New System.Drawing.Point(361, 69)
        Me.btnOpen.Name = "btnOpen"
        Me.btnOpen.Size = New System.Drawing.Size(93, 23)
        Me.btnOpen.TabIndex = 19
        Me.btnOpen.Text = "Open"
        '
        'btnAdd
        '
        Me.btnAdd.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnAdd.Location = New System.Drawing.Point(361, 39)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(93, 23)
        Me.btnAdd.TabIndex = 18
        Me.btnAdd.Text = "Add"
        '
        'lstConnections
        '
        Me.lstConnections.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lstConnections.DisplayMember = "ConnectionString"
        Me.lstConnections.FormattingEnabled = True
        Me.lstConnections.Location = New System.Drawing.Point(14, 39)
        Me.lstConnections.Name = "lstConnections"
        Me.lstConnections.Size = New System.Drawing.Size(340, 199)
        Me.lstConnections.TabIndex = 17
        '
        'btnConnectionString
        '
        Me.btnConnectionString.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnConnectionString.Location = New System.Drawing.Point(427, 5)
        Me.btnConnectionString.Name = "btnConnectionString"
        Me.btnConnectionString.Size = New System.Drawing.Size(27, 23)
        Me.btnConnectionString.TabIndex = 16
        Me.btnConnectionString.Text = "..."
        '
        'txtConnectionString
        '
        Me.txtConnectionString.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.txtConnectionString.Location = New System.Drawing.Point(108, 7)
        Me.txtConnectionString.Name = "txtConnectionString"
        Me.txtConnectionString.Size = New System.Drawing.Size(313, 20)
        Me.txtConnectionString.TabIndex = 15
        Me.txtConnectionString.Text = "Data Source=.\SQLExpress;Initial Catalog=Northwind;Trusted_Connection=Yes;"
        '
        'lblConnectionString
        '
        Me.lblConnectionString.AutoSize = True
        Me.lblConnectionString.Location = New System.Drawing.Point(12, 10)
        Me.lblConnectionString.Name = "lblConnectionString"
        Me.lblConnectionString.Size = New System.Drawing.Size(94, 13)
        Me.lblConnectionString.TabIndex = 14
        Me.lblConnectionString.Text = "Connection String:"
        '
        'ConnectionPoolingForm
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(465, 463)
        Me.Controls.Add(Me.groupPerfCounters)
        Me.Controls.Add(Me.btnQuery)
        Me.Controls.Add(Me.statusStrip)
        Me.Controls.Add(Me.btnClearAllPools)
        Me.Controls.Add(Me.btnClearPool)
        Me.Controls.Add(Me.btnRemove)
        Me.Controls.Add(Me.btnClose)
        Me.Controls.Add(Me.btnOpen)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.lstConnections)
        Me.Controls.Add(Me.btnConnectionString)
        Me.Controls.Add(Me.txtConnectionString)
        Me.Controls.Add(Me.lblConnectionString)
        Me.Name = "ConnectionPoolingForm"
        Me.Text = "Connection Pooling Sample"
        Me.groupPerfCounters.ResumeLayout(False)
        Me.groupBox2.ResumeLayout(False)
        Me.groupBox2.PerformLayout()
        Me.groupBox1.ResumeLayout(False)
        Me.groupBox1.PerformLayout()
        Me.group1.ResumeLayout(False)
        Me.group1.PerformLayout()
        Me.statusStrip.ResumeLayout(False)
        Me.statusStrip.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Private WithEvents groupPerfCounters As System.Windows.Forms.GroupBox
    Private WithEvents groupBox2 As System.Windows.Forms.GroupBox
    Private WithEvents txtlblConnectionPoolGroupsInActive As System.Windows.Forms.TextBox
    Private WithEvents lblConnectionPoolGroupsInActive As System.Windows.Forms.Label
    Private WithEvents txtConnectionPoolGroupsActive As System.Windows.Forms.TextBox
    Private WithEvents lblConnectionPoolGroupsActive As System.Windows.Forms.Label
    Private WithEvents groupBox1 As System.Windows.Forms.GroupBox
    Private WithEvents txtPerfConnectionPoolsInActive As System.Windows.Forms.TextBox
    Private WithEvents lblPerfConnectionPoolsInActive As System.Windows.Forms.Label
    Private WithEvents txtPerfConnectionPoolsActive As System.Windows.Forms.TextBox
    Private WithEvents lblPerfConnectionPoolsActive As System.Windows.Forms.Label
    Private WithEvents group1 As System.Windows.Forms.GroupBox
    Private WithEvents txtPerfConnectionsFree As System.Windows.Forms.TextBox
    Private WithEvents lblPerfConnectionsFree As System.Windows.Forms.Label
    Private WithEvents txtPerfConnectionsNonPooled As System.Windows.Forms.TextBox
    Private WithEvents lblPerfConnectionsNonPooled As System.Windows.Forms.Label
    Private WithEvents txtPerfConnectionsActive As System.Windows.Forms.TextBox
    Private WithEvents lblPerfConnectionsActive As System.Windows.Forms.Label
    Private WithEvents txtPerfConnectionsPooled As System.Windows.Forms.TextBox
    Private WithEvents lblPerfConnectionsPooled As System.Windows.Forms.Label
    Private WithEvents btnPerfRefresh As System.Windows.Forms.Button
    Private WithEvents btnQuery As System.Windows.Forms.Button
    Private WithEvents statusStrip As System.Windows.Forms.StatusStrip
    Private WithEvents toolStripStatusLabel1 As System.Windows.Forms.ToolStripStatusLabel
    Private WithEvents btnClearAllPools As System.Windows.Forms.Button
    Private WithEvents btnClearPool As System.Windows.Forms.Button
    Private WithEvents btnRemove As System.Windows.Forms.Button
    Private WithEvents btnClose As System.Windows.Forms.Button
    Private WithEvents btnOpen As System.Windows.Forms.Button
    Private WithEvents btnAdd As System.Windows.Forms.Button
    Private WithEvents lstConnections As System.Windows.Forms.ListBox
    Private WithEvents btnConnectionString As System.Windows.Forms.Button
    Private WithEvents txtConnectionString As System.Windows.Forms.TextBox
    Private WithEvents lblConnectionString As System.Windows.Forms.Label

End Class