Selecione o de Produto e na seta ao lado selecione DataGridView.
Controle de Estoques - Parte V - Formulário de Pesquisa dos Produtos
Na janela Solution Explorer, clique com o botão direito em ctrComissao. Selecione Add / Windows Form.
No name, digite: frmPProduto e pressione a tecla Enter. Altere as seguintes propriedades:
Text: Pesquisa de Produtos
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. Veja figura abaixo:
Selecione o de Produto e na seta ao lado selecione DataGridView.
Arraste-o logo abaixo do TextBox txtPesquisa. Altere o nome do grid para: dgvProduto.
Altere a seguinte propriedade do dgvProduto:
Size: 411; 236
Observação: Delete o ProdutoBindingNavigator.
Clique com o botão direito sobre o grid e selecione Edit Columns.
Selecione cada campo abaixo e altere as propriedades:
HeaderText: Código
Width:60
HeaderText: Descrição
Width:120
HeaderText: QtdEstoque
Width: 80
HeaderText: ValorVenda
Width: 90
DefaultCellStyle: clique no botão ao lado. Na opção Behavior / Format. Clique no botão ao lado e selecione Currency. Em Layout / Alignment, selecione TopRight.
Dê um duplo clique no formulário.
Antes da linha Public Class frmPProduto, digite: Imports System.Data.OleDb
Logo após a linha Public Class frmPProduto, digite:
Private dsProduto As DataSet
Private daProduto As New OleDbDataAdapter
Private dtProduto As DataTable
Desça até o Private Sub frmPProduto_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Antes do End Sub, digite:
Try
Dim cn As New OleDbConnection
cn.ConnectionString = "Provider=Microsoft.Jet.oleDB.4.0;Data Source=" & sCaminho & "\Estoque.mdb;"
cn.Open()
Dim sSQL As String = "Select * From Produto Order By Descricao"
dsProduto = New DataSet()
daProduto = New OleDbDataAdapter(sSQL, cn)
daProduto.Fill(dsProduto, "Produto")
dtProduto = dsProduto.Tables("Produto")
dgvProduto.DataSource = dtProduto
Catch err As Exception
MessageBox.Show(err.Message)
Finally
cn.Close()
End Try
Selecione o evento Form_Closed e digite:
'Se existir algum registro, seu Id é armazenado na variável intCodigo
intCodigo = dgvProduto.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 cn As New OleDbConnection
cn.ConnectionString = "Provider=Microsoft.Jet.oleDB.4.0;Data Source=" & sCaminho & "\Estoque.mdb;"
cn.Open()
Dim sSQL As String = "Select * From Produto Where Descricao Like '" & txtPesquisa.Text & "%'"
dsProduto = New DataSet()
daProduto = New OleDbDataAdapter(sSQL, cn)
daProduto.Fill(dsProduto, "Produto")
dtProduto = dsProduto.Tables("Produto")
dgvProduto.DataSource = dtProduto
cn.Close()
Pressione a tecla F5 para executar o projeto.
Controle de Estoque - Parte II
Controle de Estoque - Parte III
Controle de Estoque - Parte IV