Tela de Cadastro de Clientes - Curso de Visual Studio 2008 - Turma de SI

Olá pessoal do curso de Visual Studio 2008, logo abaixo eu postei o código fonte do formulário de cadastro de clientes. Como já demos início ao desenvolvimento da tela de cadastro na aula passada peço para vocês incluirem o código fonte em seus respectivas propriedades, em caso de dúvida é só seguir com atenação o código fonte que não terá nenhum problema, para que assim na próxima aula nós já teremos avançado bastante em relação o programa, OK.

Lembrete: Não esqueçam de arrastar para o seu formulário um (SaveFileDialog) ;

                 No CLIENTESTableAdapter - Add Query..., Insira no New Query Name: buscaNome e depois o seguinte código SQL - where nome_cliente like @nome_cliente

                 No CLIENTESTableAdapter - Add Query..., Insira no New Query Name: buscaCodigo e depois o seguinte código SQL - where cod_cliente like @cod_cliente

Print da tela de Cadastro de Cliente.

 Código Fonte Logo Abaixo:

_____________________________________________________________________________ 

Imports System.IO

Imports System.IO.File

_____________________________________________________________________________

Public Class frmCadastroClientes

    Private Sub frmCadastroClientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'CADASTRODataSet.CLIENTES' table. You can move, or remove it, as needed.

        Me.CLIENTESTableAdapter.Fill(Me.CADASTRODataSet.CLIENTES)

        ordenaDados()

    End Sub

_____________________________________________________________________________

    Private Sub limpaCampos()

        Me.txtCodigo.Clear()

        Me.txtNome.Clear()

        Me.txtApelido.Clear()

        Me.txtEndereco.Clear()

        Me.maskedTxtTelefone.Clear()

        Me.txtObs.Clear()

        Me.txtNome.Focus()

    End Sub

 _____________________________________________________________________________

    Private Sub ordenaDados()

        Me.txtCodigo.Text = Me.codClientetxt.Text

        Me.txtNome.Text = Me.nomeClientetxt.Text

        Me.txtApelido.Text = Me.apelidoClientetxt.Text

        Me.txtEndereco.Text = Me.endClientetxt.Text

        Me.maskedTxtTelefone.Text = Me.telClientetxt.Text

        Me.txtObs.Text = Me.obsClientetxt.Text

    End Sub

 _____________________________________________________________________________

    Private Sub atualizaDados()

        Me.CLIENTESTableAdapter.Fill(Me.CADASTRODataSet.CLIENTES)

    End Sub

 _____________________________________________________________________________

    Private Sub btnPrimeiro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimeiro.Click

        Me.CLIENTESBindingSource.MoveFirst()

        ordenaDados()

    End Sub

 _____________________________________________________________________________

    Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click

        Me.CLIENTESBindingSource.MovePrevious()

        ordenaDados()

    End Sub

 _____________________________________________________________________________

    Private Sub btnProximo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProximo.Click

        Me.CLIENTESBindingSource.MoveNext()

        ordenaDados()

    End Sub

 _____________________________________________________________________________

    Private Sub btnUltimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUltimo.Click

        Me.CLIENTESBindingSource.MoveLast()

        ordenaDados()

    End Sub

 _____________________________________________________________________________

    Private Sub txtBusca_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBusca.TextChanged

        If Me.cbBusca.Text = "CODIGO" And Me.txtBusca.Text <> "" Then

            Me.CLIENTESTableAdapter.buscaCodigo(Me.CADASTRODataSet.CLIENTES, Me.txtBusca.Text)

            ordenaDados()

            atualizaDados()

        Else

            Me.CLIENTESTableAdapter.ordenaCodigo(Me.CADASTRODataSet.CLIENTES)

            ordenaDados()

            atualizaDados()

            If Me.cbBusca.Text = "NOME" And Me.txtBusca.Text <> "" Then

                Me.CLIENTESTableAdapter.buscaNome(Me.CADASTRODataSet.CLIENTES, Me.txtBusca.Text & "%")

                ordenaDados()

                atualizaDados()

            Else

                Me.CLIENTESTableAdapter.ordenaNome(Me.CADASTRODataSet.CLIENTES)

                ordenaDados()

                atualizaDados()

            End If

        End If

    End Sub

 _____________________________________________________________________________

    Private Sub btnInserir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInserir.Click

        limpaCampos()

        Me.btnInserir.Enabled = False

        Me.btnAlterar.Enabled = False

        Me.btnExcluir.Enabled = False

        Me.btnPrimeiro.Enabled = False

        Me.btnAnterior.Enabled = False

        Me.btnProximo.Enabled = False

        Me.btnUltimo.Enabled = False

    End Sub

 _____________________________________________________________________________

    Private Sub btnGravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGravar.Click

        If Me.txtNome.Text = "" Or Me.txtApelido.Text = "" Or Me.txtEndereco.Text = "" Or Me.maskedTxtTelefone.Text = "" Then

            MsgBox("Erro ao inserir os dados!Verifique os campos...", MsgBoxStyle.Critical, "Erro")

        Else

            Me.Queries.INC_CLIENTE(Me.txtNome.Text, Me.txtApelido.Text, Me.maskedTxtTelefone.Text, Me.txtEndereco.Text, Me.txtObs.Text)

            Me.ordenaDados()

            Me.atualizaDados()

            MsgBox("Dados inseridos com sucesso!", MsgBoxStyle.Information, "OK")

            btnTrue()

        End If

    End Sub

 _____________________________________________________________________________

    Private Sub btnAlterar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlterar.Click

        If Me.txtNome.Text = "" Or Me.txtApelido.Text = "" Or Me.txtEndereco.Text = "" Or Me.maskedTxtTelefone.Text = "" Then

            MsgBox("Erro ao inserir os dados!Verifique os campos...", MsgBoxStyle.Critical, "Erro")

        Else

            Me.Queries.ALT_CLIENTE(Me.txtCodigo.Text, Me.txtNome.Text, Me.txtApelido.Text, Me.maskedTxtTelefone.Text, Me.txtEndereco.Text, Me.txtObs.Text)

            Me.ordenaDados()

            Me.atualizaDados()

            MsgBox("Dados alterados com sucesso!", MsgBoxStyle.Information, "OK")

        End If

    End Sub

 _____________________________________________________________________________

    Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click

        Dim sair As Integer

        sair = MsgBox("Tem certeza de excluir o cliente " + Me.txtNome.Text + " ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Atenção")

        Try

            If sair = vbYes Then

                Me.Queries.DEL_CLIENTE(Me.txtCodigo.Text)

                Me.CLIENTESBindingSource.MoveFirst()

                Me.ordenaDados()

                Me.atualizaDados()

                MsgBox("Cliente " + Me.txtNome.Text + " deletado com sucesso!", MsgBoxStyle.Information, "OK")

            End If

        Catch

        End Try

    End Sub

 _____________________________________________________________________________

    Private Sub btnRegistros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegistros.Click

        frmRegistrosClientes.ShowDialog()

    End Sub

 _____________________________________________________________________________

    Private Sub btnTrue()

        Me.btnInserir.Enabled = True

        Me.btnAlterar.Enabled = True

        Me.btnExcluir.Enabled = True

        Me.btnPrimeiro.Enabled = True

        Me.btnAnterior.Enabled = True

        Me.btnProximo.Enabled = True

        Me.btnUltimo.Enabled = True

        Me.CLIENTESBindingSource.MoveFirst()

        Me.ordenaDados()

        Me.atualizaDados()

    End Sub

 _____________________________________________________________________________

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click

        btnTrue()

    End Sub

 _____________________________________________________________________________

    Private Sub btnImportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImportar.Click

        Me.SaveFileDialog.ShowDialog()

        If Me.SaveFileDialog.FileName = "" Then

            Exit Sub

        End If

        Dim caminho As String = Me.SaveFileDialog.FileName

        Try

            Dim strm As New StreamWriter(caminho)

            Try

                strm.WriteLine("Carlos Henrique Pereira")

                strm.WriteLine("Curso: Sistemas de Informação - 6º Período")

                strm.WriteLine("")

                strm.WriteLine("Código: " & Me.txtCodigo.Text)

                strm.WriteLine("Nome: " & Me.txtNome.Text)

                strm.WriteLine("Apelido: " & Me.txtApelido.Text)

                strm.WriteLine("Endereço: " & Me.txtEndereco.Text)

                strm.WriteLine("Telefone: " & Me.maskedTxtTelefone.Text)

                strm.WriteLine("Observação: " & Me.txtObs.Text)

                strm.WriteLine("")

                strm.WriteLine("Impresso em: " & Date.Today + " - " + frmPrincipal.StatuslblHora.Text)

                MsgBox("Dados gerados com sucesso", MsgBoxStyle.Information, "OK")

            Finally

                strm.Close()

            End Try

        Catch ex As Exception

            MessageBox.Show("Erro ao tentar salvar", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

    End Sub

End Class

_____________________________________________________________________________

Espero vocês na próxima aula... t+