Série Cadastro – Episódio #11

Imports System.Data.SqlClient
Imports DBOCadastro

Public Class frmConsultaCliente
    Public Property ID As Integer

    Private Sub btnPesquisar_Click(sender As Object, e As EventArgs) Handles btnPesquisar.Click
        Dim cliente As New CAD_CLIENTE
        Dim ds As DataSet
        Dim par As New List(Of SqlParameter)

        Try

            If txtNome.TextLength > 0 Then
                par.Add(New SqlParameter("@NOME", txtNome.Text))
                ds = cliente.ConsultaDataSet("SELECT * FROM CAD_CLIENTE WHERE NOME LIKE '%' + @NOME + '%'", par)
            Else
                ds = cliente.ConsultaDataSet("SELECT * FROM CAD_CLIENTE", par)
            End If

            dgvDados.AutoGenerateColumns = False
            dgvDados.DataSource = ds.Tables(0)
        Catch ex As Exception
            MessageBox.Show("Problema na consulta.")
        End Try
    End Sub

    Private Sub dgvDados_DoubleClick(sender As Object, e As EventArgs) Handles dgvDados.DoubleClick
        If dgvDados.Rows.Count > 0 Then
            ID = dgvDados.CurrentRow.Cells("colID").Value
            Me.Close()
        End If
    End Sub

    Private Sub dgvDados_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvDados.KeyDown
        If dgvDados.Rows.Count > 0 And e.KeyCode = Keys.Enter Then
            ID = dgvDados.CurrentRow.Cells("colID").Value
            Me.Close()
        End If
    End Sub
End Class