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

Carlos Henrique Pereiraon 07:4510 comentários

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.IOImports System.IO.File

_____________________________________________________________________________

Public Class frmCadastroClientes

    Private Sub frmCadastroClientes_Load(ByVal sender As System.Object, ByVal e AsSystem.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 AsSystem.EventArgs) Handles btnPrimeiro.Click        Me.CLIENTESBindingSource.MoveFirst()        ordenaDados()    End Sub _____________________________________________________________________________    Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnAnterior.Click        Me.CLIENTESBindingSource.MovePrevious()        ordenaDados()    End Sub _____________________________________________________________________________    Private Sub btnProximo_Click(ByVal sender As System.Object, ByVal e AsSystem.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 AsSystem.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 AsSystem.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 = "" OrMe.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 AsSystem.EventArgs) Handles btnAlterar.Click        If Me.txtNome.Text = "" Or Me.txtApelido.Text = "" Or Me.txtEndereco.Text = "" OrMe.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 AsSystem.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 AsSystem.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 AsSystem.EventArgs) Handles btnCancelar.Click        btnTrue()    End Sub _____________________________________________________________________________    Private Sub btnImportar_Click(ByVal sender As System.Object, ByVal e AsSystem.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