Controle de Comissões - Parte V - Formulário de Pesquisa das Comissões
Na janela Solution Explorer, clique com o botão direito em ctrComissao. Selecione Add / Windows Form.
No name, digite: frmPComissao e pressione a tecla Enter. Altere as seguintes propriedades:
Text: Pesquisa de Comissões
StartPosition: ScreenCenter 'Centraliza o formulário
MinimizeBox: False
MaximizeBox: False
Coloque um Label na parte superior esquerda do formulário e altere as propriedades:
Name: lblPesquisa
Text: Pesquisa:
Coloque um TextBox logo abaixo do label acima e altere as propriedades:
Name: txtPesquisa
Na janela ToolBox (na parte esquerda superior da janela, onde na aba ToolBox tem as ferramentas: Label, TextBox, etc.), selecione a aba Data Sources.
Na parte superior existem dois ícones: Comissao e Vendedor.
Selecione o ícone Comissao e na seta ao lado selecione DataGridView. Veja figura abaixo:
Arraste o ícone Comissao logo abaixo do TextBox txtPesquisa.
Deixe o formulário de acordo com a figura abaixo:
Observação: Delete o ComissaoBindingNavigator.
Dê um duplo clique no formulário.
Antes da linha Public Class frmPComissao, digite: Imports System.Data.SqlClient
Logo após a linha Public Class frmPComissao, digite:
Private dsComissao As DataSet
Private daComissao As New SqlDataAdapter
Private dtComissao As DataTable
Desça até o Private Sub frmPComissao_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Antes do End Sub, digite:
Dim sSQL As String = "SELECT * From Comissao Order By Data"
Try
Dim conBD As New SqlConnection(strCon)
dsComissao = New DataSet
daComissao = New SqlDataAdapter(sSQL, strCon)
daComissao.Fill(dsComissao, "Comissao")
dtComissao = dsComissao.Tables("Comissao")
dgvComissao.DataSource = dtComissao 'Atualiza o DataGridView
conBD.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Selecione o evento Form_Closed e digite:
'Se existir algum registro, seu Id é armazenado na variável intCodigo
If intCodigo > 0 Then intCodigo = dgvComissao.CurrentRow.Cells(0).Value.ToString
Close()
Clique no ícone View Designer para voltar ao formulário. Dê um duplo clique no TextBox txtPesquisa e digite:
Dim sSQL As String = "Select * From Comissao Where Id=" & Val(txtPesquisa.Text)
Dim conBD As New SqlConnection(strCon)
dsComissao = New DataSet()
daComissao = New SqlDataAdapter(sSQL, strCon)
daComissao.Fill(dsComissao, "Comissao")
dtComissao = dsComissao.Tables("Comissao")
dgvComissao.DataSource = dtComissao
conBD.Close()
Pressione a tecla F5 para executar o projeto.
Controle de Comissões - Parte I
Controle de Comissões - Parte II
Controle de Comissões - Parte III - Pesquisa de Vendedor
Controle de Comissões - Parte IV - Formulário para Manutenção das Comissões