frmmain.vb

Tutorial on data access using store procedure for MSSQL

        Me.SuspendLayout()
        '
        'mnuMain
        '
        Me.mnuMain.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile, Me.mnuHelp})
        Me.mnuMain.RightToLeft = CType(resources.GetObject("mnuMain.RightToLeft"), System.Windows.Forms.RightToLeft)
        '
        'mnuFile
        '
        Me.mnuFile.Enabled = CType(resources.GetObject("mnuFile.Enabled"), Boolean)
        Me.mnuFile.Index = 0
        Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuExit})
        Me.mnuFile.Shortcut = CType(resources.GetObject("mnuFile.Shortcut"), System.Windows.Forms.Shortcut)
        Me.mnuFile.ShowShortcut = CType(resources.GetObject("mnuFile.ShowShortcut"), Boolean)
        Me.mnuFile.Text = resources.GetString("mnuFile.Text")
        Me.mnuFile.Visible = CType(resources.GetObject("mnuFile.Visible"), Boolean)
        '
        'mnuExit
        '
        Me.mnuExit.Enabled = CType(resources.GetObject("mnuExit.Enabled"), Boolean)
        Me.mnuExit.Index = 0
        Me.mnuExit.Shortcut = CType(resources.GetObject("mnuExit.Shortcut"), System.Windows.Forms.Shortcut)
        Me.mnuExit.ShowShortcut = CType(resources.GetObject("mnuExit.ShowShortcut"), Boolean)
        Me.mnuExit.Text = resources.GetString("mnuExit.Text")
        Me.mnuExit.Visible = CType(resources.GetObject("mnuExit.Visible"), Boolean)
        '
        'mnuHelp
        '
        Me.mnuHelp.Enabled = CType(resources.GetObject("mnuHelp.Enabled"), Boolean)
        Me.mnuHelp.Index = 1
        Me.mnuHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAbout})
        Me.mnuHelp.Shortcut = CType(resources.GetObject("mnuHelp.Shortcut"), System.Windows.Forms.Shortcut)
        Me.mnuHelp.ShowShortcut = CType(resources.GetObject("mnuHelp.ShowShortcut"), Boolean)
        Me.mnuHelp.Text = resources.GetString("mnuHelp.Text")
        Me.mnuHelp.Visible = CType(resources.GetObject("mnuHelp.Visible"), Boolean)
        '
        'mnuAbout
        '
        Me.mnuAbout.Enabled = CType(resources.GetObject("mnuAbout.Enabled"), Boolean)
        Me.mnuAbout.Index = 0
        Me.mnuAbout.Shortcut = CType(resources.GetObject("mnuAbout.Shortcut"), System.Windows.Forms.Shortcut)
        Me.mnuAbout.ShowShortcut = CType(resources.GetObject("mnuAbout.ShowShortcut"), Boolean)
        Me.mnuAbout.Text = resources.GetString("mnuAbout.Text")
        Me.mnuAbout.Visible = CType(resources.GetObject("mnuAbout.Visible"), Boolean)
        '
        'tabApp
        '
        Me.tabApp.AccessibleDescription = resources.GetString("tabApp.AccessibleDescription")
        Me.tabApp.AccessibleName = resources.GetString("tabApp.AccessibleName")
        Me.tabApp.Alignment = CType(resources.GetObject("tabApp.Alignment"), System.Windows.Forms.TabAlignment)
        Me.tabApp.Anchor = CType(resources.GetObject("tabApp.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.tabApp.Appearance = CType(resources.GetObject("tabApp.Appearance"), System.Windows.Forms.TabAppearance)
        Me.tabApp.BackgroundImage = CType(resources.GetObject("tabApp.BackgroundImage"), System.Drawing.Image)
        Me.tabApp.Controls.AddRange(New System.Windows.Forms.Control() {Me.pgeCreateSprocs, Me.pgeNoParams, Me.pgeInputParam, Me.pgeAllTypes, Me.pgeMSAccess})
        Me.tabApp.Dock = CType(resources.GetObject("tabApp.Dock"), System.Windows.Forms.DockStyle)
        Me.tabApp.Enabled = CType(resources.GetObject("tabApp.Enabled"), Boolean)
        Me.tabApp.Font = CType(resources.GetObject("tabApp.Font"), System.Drawing.Font)
        Me.tabApp.ImeMode = CType(resources.GetObject("tabApp.ImeMode"), System.Windows.Forms.ImeMode)
        Me.tabApp.ItemSize = CType(resources.GetObject("tabApp.ItemSize"), System.Drawing.Size)
        Me.tabApp.Location = CType(resources.GetObject("tabApp.Location"), System.Drawing.Point)
        Me.tabApp.Name = "tabApp"
        Me.tabApp.Padding = CType(resources.GetObject("tabApp.Padding"), System.Drawing.Point)
        Me.tabApp.RightToLeft = CType(resources.GetObject("tabApp.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.tabApp.SelectedIndex = 0
        Me.tabApp.ShowToolTips = CType(resources.GetObject("tabApp.ShowToolTips"), Boolean)
        Me.tabApp.Size = CType(resources.GetObject("tabApp.Size"), System.Drawing.Size)
        Me.tabApp.TabIndex = CType(resources.GetObject("tabApp.TabIndex"), Integer)
        Me.tabApp.Text = resources.GetString("tabApp.Text")
        Me.tabApp.Visible = CType(resources.GetObject("tabApp.Visible"), Boolean)
        '
        'pgeCreateSprocs
        '
        Me.pgeCreateSprocs.AccessibleDescription = resources.GetString("pgeCreateSprocs.AccessibleDescription")
        Me.pgeCreateSprocs.AccessibleName = resources.GetString("pgeCreateSprocs.AccessibleName")
        Me.pgeCreateSprocs.Anchor = CType(resources.GetObject("pgeCreateSprocs.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.pgeCreateSprocs.AutoScroll = CType(resources.GetObject("pgeCreateSprocs.AutoScroll"), Boolean)
        Me.pgeCreateSprocs.AutoScrollMargin = CType(resources.GetObject("pgeCreateSprocs.AutoScrollMargin"), System.Drawing.Size)
        Me.pgeCreateSprocs.AutoScrollMinSize = CType(resources.GetObject("pgeCreateSprocs.AutoScrollMinSize"), System.Drawing.Size)
        Me.pgeCreateSprocs.BackgroundImage = CType(resources.GetObject("pgeCreateSprocs.BackgroundImage"), System.Drawing.Image)
        Me.pgeCreateSprocs.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label2, Me.btnCreateSprocs})
        Me.pgeCreateSprocs.Dock = CType(resources.GetObject("pgeCreateSprocs.Dock"), System.Windows.Forms.DockStyle)
        Me.pgeCreateSprocs.Enabled = CType(resources.GetObject("pgeCreateSprocs.Enabled"), Boolean)
        Me.pgeCreateSprocs.Font = CType(resources.GetObject("pgeCreateSprocs.Font"), System.Drawing.Font)
        Me.pgeCreateSprocs.ImageIndex = CType(resources.GetObject("pgeCreateSprocs.ImageIndex"), Integer)
        Me.pgeCreateSprocs.ImeMode = CType(resources.GetObject("pgeCreateSprocs.ImeMode"), System.Windows.Forms.ImeMode)
        Me.pgeCreateSprocs.Location = CType(resources.GetObject("pgeCreateSprocs.Location"), System.Drawing.Point)
        Me.pgeCreateSprocs.Name = "pgeCreateSprocs"
        Me.pgeCreateSprocs.RightToLeft = CType(resources.GetObject("pgeCreateSprocs.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.pgeCreateSprocs.Size = CType(resources.GetObject("pgeCreateSprocs.Size"), System.Drawing.Size)
        Me.pgeCreateSprocs.TabIndex = CType(resources.GetObject("pgeCreateSprocs.TabIndex"), Integer)
        Me.pgeCreateSprocs.Text = resources.GetString("pgeCreateSprocs.Text")
        Me.pgeCreateSprocs.ToolTipText = resources.GetString("pgeCreateSprocs.ToolTipText")
        Me.pgeCreateSprocs.Visible = CType(resources.GetObject("pgeCreateSprocs.Visible"), Boolean)
        '
        'Label2
        '
        Me.Label2.AccessibleDescription = resources.GetString("Label2.AccessibleDescription")
        Me.Label2.AccessibleName = resources.GetString("Label2.AccessibleName")
        Me.Label2.Anchor = CType(resources.GetObject("Label2.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.Label2.AutoSize = CType(resources.GetObject("Label2.AutoSize"), Boolean)
        Me.Label2.Dock = CType(resources.GetObject("Label2.Dock"), System.Windows.Forms.DockStyle)
        Me.Label2.Enabled = CType(resources.GetObject("Label2.Enabled"), Boolean)
        Me.Label2.Font = CType(resources.GetObject("Label2.Font"), System.Drawing.Font)
        Me.Label2.Image = CType(resources.GetObject("Label2.Image"), System.Drawing.Image)
        Me.Label2.ImageAlign = CType(resources.GetObject("Label2.ImageAlign"), System.Drawing.ContentAlignment)
        Me.Label2.ImageIndex = CType(resources.GetObject("Label2.ImageIndex"), Integer)
        Me.Label2.ImeMode = CType(resources.GetObject("Label2.ImeMode"), System.Windows.Forms.ImeMode)
        Me.Label2.Location = CType(resources.GetObject("Label2.Location"), System.Drawing.Point)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft = CType(resources.GetObject("Label2.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.Label2.Size = CType(resources.GetObject("Label2.Size"), System.Drawing.Size)
        Me.Label2.TabIndex = CType(resources.GetObject("Label2.TabIndex"), Integer)
        Me.Label2.Text = resources.GetString("Label2.Text")
        Me.Label2.TextAlign = CType(resources.GetObject("Label2.TextAlign"), System.Drawing.ContentAlignment)
        Me.Label2.Visible = CType(resources.GetObject("Label2.Visible"), Boolean)
        '
        'btnCreateSprocs
        '
        Me.btnCreateSprocs.AccessibleDescription = resources.GetString("btnCreateSprocs.AccessibleDescription")
        Me.btnCreateSprocs.AccessibleName = resources.GetString("btnCreateSprocs.AccessibleName")
        Me.btnCreateSprocs.Anchor = CType(resources.GetObject("btnCreateSprocs.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.btnCreateSprocs.BackgroundImage = CType(resources.GetObject("btnCreateSprocs.BackgroundImage"), System.Drawing.Image)
        Me.btnCreateSprocs.Dock = CType(resources.GetObject("btnCreateSprocs.Dock"), System.Windows.Forms.DockStyle)
        Me.btnCreateSprocs.Enabled = CType(resources.GetObject("btnCreateSprocs.Enabled"), Boolean)
        Me.btnCreateSprocs.FlatStyle = CType(resources.GetObject("btnCreateSprocs.FlatStyle"), System.Windows.Forms.FlatStyle)
        Me.btnCreateSprocs.Font = CType(resources.GetObject("btnCreateSprocs.Font"), System.Drawing.Font)
        Me.btnCreateSprocs.Image = CType(resources.GetObject("btnCreateSprocs.Image"), System.Drawing.Image)
        Me.btnCreateSprocs.ImageAlign = CType(resources.GetObject("btnCreateSprocs.ImageAlign"), System.Drawing.ContentAlignment)
        Me.btnCreateSprocs.ImageIndex = CType(resources.GetObject("btnCreateSprocs.ImageIndex"), Integer)
        Me.btnCreateSprocs.ImeMode = CType(resources.GetObject("btnCreateSprocs.ImeMode"), System.Windows.Forms.ImeMode)
        Me.btnCreateSprocs.Location = CType(resources.GetObject("btnCreateSprocs.Location"), System.Drawing.Point)
        Me.btnCreateSprocs.Name = "btnCreateSprocs"
        Me.btnCreateSprocs.RightToLeft = CType(resources.GetObject("btnCreateSprocs.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.btnCreateSprocs.Size = CType(resources.GetObject("btnCreateSprocs.Size"), System.Drawing.Size)
        Me.btnCreateSprocs.TabIndex = CType(resources.GetObject("btnCreateSprocs.TabIndex"), Integer)
        Me.btnCreateSprocs.Text = resources.GetString("btnCreateSprocs.Text")
        Me.btnCreateSprocs.TextAlign = CType(resources.GetObject("btnCreateSprocs.TextAlign"), System.Drawing.ContentAlignment)
        Me.btnCreateSprocs.Visible = CType(resources.GetObject("btnCreateSprocs.Visible"), Boolean)
        '
        'pgeNoParams
        '
        Me.pgeNoParams.AccessibleDescription = resources.GetString("pgeNoParams.AccessibleDescription")
        Me.pgeNoParams.AccessibleName = resources.GetString("pgeNoParams.AccessibleName")
        Me.pgeNoParams.Anchor = CType(resources.GetObject("pgeNoParams.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.pgeNoParams.AutoScroll = CType(resources.GetObject("pgeNoParams.AutoScroll"), Boolean)
        Me.pgeNoParams.AutoScrollMargin = CType(resources.GetObject("pgeNoParams.AutoScrollMargin"), System.Drawing.Size)
        Me.pgeNoParams.AutoScrollMinSize = CType(resources.GetObject("pgeNoParams.AutoScrollMinSize"), System.Drawing.Size)
        Me.pgeNoParams.BackgroundImage = CType(resources.GetObject("pgeNoParams.BackgroundImage"), System.Drawing.Image)
        Me.pgeNoParams.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtTenMostExpProds, Me.Label1, Me.btnGet10MostExpProds})
        Me.pgeNoParams.Dock = CType(resources.GetObject("pgeNoParams.Dock"), System.Windows.Forms.DockStyle)
        Me.pgeNoParams.Enabled = CType(resources.GetObject("pgeNoParams.Enabled"), Boolean)
        Me.pgeNoParams.Font = CType(resources.GetObject("pgeNoParams.Font"), System.Drawing.Font)
        Me.pgeNoParams.ImageIndex = CType(resources.GetObject("pgeNoParams.ImageIndex"), Integer)
        Me.pgeNoParams.ImeMode = CType(resources.GetObject("pgeNoParams.ImeMode"), System.Windows.Forms.ImeMode)
        Me.pgeNoParams.Location = CType(resources.GetObject("pgeNoParams.Location"), System.Drawing.Point)
        Me.pgeNoParams.Name = "pgeNoParams"
        Me.pgeNoParams.RightToLeft = CType(resources.GetObject("pgeNoParams.RightToLeft"), System.Windows.Forms.RightToLeft)
        Me.pgeNoParams.Size = CType(resources.GetObject("pgeNoParams.Size"), System.Drawing.Size)
        Me.pgeNoParams.TabIndex = CType(resources.GetObject("pgeNoParams.TabIndex"), Integer)