sexta-feira, 10 de dezembro de 2010

on
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+

10 comentários:

  1. ae obrigado estava esperando por isso !

    ResponderExcluir
  2. Obrigado pelo comentário...
    E sempre é um prazer poder ajudar as pessoas com meu conhecimento!

    Atenciosamente,
    Carlos Henrique Pereira - Analista de TI

    ResponderExcluir
  3. Meus parabéns pelo seu site, realmente muito bom. Ainda com a possibilidade de baixar o projeto é simplesmente incrivel!!
    Obrigado!

    ResponderExcluir
  4. Bom dia Evo,

    Agradeço você por ter gostado do meu blog... Se Deus permitir irei continuar a ajudar ao máximo a todos.

    Atenciosamente,
    Carlos Henrique Pereira - Analista de TI

    ResponderExcluir
  5. Gostei muito Carlos.
    Me chamo Maurício Ribeiro e estou quase me formando em Analista de sistemas também.
    Também sou programador em Visual Basic só que uso a versão 2010.
    Também trabalho com desenvolvimento de Planilhas Excel e uso muita programação em VBA que é minha especialidade.
    Adorei seu exemplo.É sempre bom aprender algo a mais.Parabens colega.
    Abraços.

    ResponderExcluir
  6. Bom dia Maurício Ribeiro,

    Muito obrigado pelo comentário.
    Que ótimo que você está terminando o curso de Analista de Sistemas. E para te falar a verdade eu não sei quase nada, mas o que eu sei eu passo para frente para ajudar.
    O que você precisar e eu poder te ajudar, estarei a disposição.

    Muito sucesso em sua vida... Abraços!

    Atencisoamente,
    Carlos Henrique Pereira - Analista de TI.

    ResponderExcluir
  7. OLA CALOS HENRIQUE , TODO CONTEÚDO PUBLICADO MUITO BOM MESMO PARABÉNS PELA INICIATIVA DE PUBLICAR SEU CONHECIMENTO ,

    ResponderExcluir
  8. Boa noite Romualdo,

    Muito obrigado pelo comentário e sempre que puder estarei compartilhando meu conhecimento.

    Muito sucesso em sua vida... Abraços!

    Atenciosamente,
    Carlos Henrique Pereira - Analista de TI.

    ResponderExcluir
  9. Pretendo dar uma reviravolta na minha vida em migrar para o Vb2008 desde sempre programei em vb 5.
    Agradeço imenso e desejo receber aulas todos os dias começando da base. EnviE POR FAVOR UMA RESPOSTA.

    ResponderExcluir
    Respostas
    1. Boa tarde,
      Muito obrigado pelo comentário e eu sempre programei em Visual Studio e nunca me arrependi...

      Quanto as vídeos aulas ainda estou em fase de desenvolvimento, mas irei postar aqui no blog.

      Não esqueça de seguir pelo e-mail, ok?

      Abraços...

      Excluir