Código Fonte - O melhor conteúdo para programadores

Este artigo tem nota

Autor

DotNet

Orientação Objeto

Enquete

Como você fará para aprender HTML5 / CSS3?

Internet (tutoriais, artigos, videos)
Todas as opções
Livros e revistas
Colegas de trabalho
Palestras

Home Artigos e Tutoriais Microsoft VB.NET

domingo, 21 de outubro de 2007

Reusando código e interfaces no VB.NET 2005

Hoje vou mostrar a aplicação da herança visual e código em formulários Windows e aproveitar para criar um cadastro básico usando somente código usando VB.NET 2005.

Você pode usar este recurso para obter ganho de produtividade reusando interfaces e código em formulários Windows. Vamos lá...

Vamos supor que você tenha em uma aplicação a necessidade de criar muitos formulários de cadastros básicos, esse cenário não é tão difícil de ocorrer como muitos possam imaginar, e, com o uso da herança visual de formulários você pode resolver o problema rapidamente.

A primeira coisa que você deve fazer é criar um formulário que será o formulário base , o modelo para os demais formulários. Ele deverá conter controles e código que sejam comuns a todos os demais formulários. Um formulário de cadastro pode ter muitos leiautes distintos mas se formos usar a codificação para realizar as tarefas básicas de manutenção em um cadastro teremos que ter os seguintes controles:

Botões de comando para Navegação pelos registros da tabela
Botões para realizar as operações de : Incluir, Excluir, Salvar e Sair
Uma área onde iremos colocar os campos para exibir os registros da tabela
Uma imagem para enfeitar o formulário (Isto é opcional)
Ao lado esta a interface do formulário base que eu criei com base nos requisitos acima. Isto é apenas uma sugestão e você pode incrementar o seu próprio formulário modelo.

Eu usei o Visual Basic 2005 Express Edition e criei um novo projeto chamado herancaForm. Em seguida alterei o nome do formulário padrão form1.vb para frmCadatsro.vb.

Você também pode definir algumas propriedades do formulário que deseja que sejam comuns a todos os formulário que irão herdar do formulário modelo. Assim também defini as seguintes propriedades do formulário:

StartPosition = CenterScreen
KeyPreview = True
ControlBox = False
Text = Cadastro

Além disso devemos alterar a propriedade Modifiers de cada controle do formulário definindo o valor como Protected, assim teremos condição de editar os controles nos formulários filhos.

A nível de código também podemos definir o código que será comum a todos os formulários filhos. No caso do nosso exemplo eu defini as seguintes rotinas e variáveis:

Public Class frmCadastro

    Public indice As Integer

    Public Sub exibirDados()
    End Sub
    Public Sub btnPrimeiro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimeiro.Click
        indice = 0
        exibirDados()
    End Sub
    Public Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click
        indice -= 1
        exibirDados()
    End Sub
    Public Sub btnProximo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProximo.Click
        indice += 1
        exibirDados()
    End Sub
    Public Sub btnSair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSair.Click
        If (MsgBox("Deseja encerrar o sistema ?", MsgBoxStyle.YesNo, "Encerrar o sistema") = MsgBoxResult.Yes) Then
            Me.Close()
        End If
    End Sub
 
End Class

A variável indice que controla o índice correspondente ao registro na tabela foi definido como public bem como todas as rotinas de forma a serem visíveis no projeto todo.

Nos botões de navegação do formulário , em cada evento Click, a variável indice é incrementada ou decrementada conforme o posicionamento do registro e a rotina exibirDados() também foi definida sem código algum pois será implementada no formulário filho.

No evento Click do botão Sair o código para encerrar a aplicação também já foi definido.

Agora já podemos usar o nosso formulário base para herdar a partir dele a interface e o código.

Clique com o botão direito do mouse sobre o nome do projeto e selecione a opção Add New Item, na janela Templates, selecione Inherited Form.

Será apresentada uma janela Inheritance Picker onde você deve selecionar o formulário modelo que irá ser o formulário Pai.

Será apresentado o form1.vb com o seguinte leiaute herdado do formulário base frmCadastro:

Clique no item My Project e na aba Application defina Startup form para Form1.

Se você executar o projeto neste momento irá ver o formulário form1.vb vazio, mas se clicar no botão Sair será exibida a caixa para confirmar a saída e se você confirmar o formulário será fechado.

Mas como? Nós ainda não digitamos nenhum código no formulário form1.vb?

Sim, mas como ele herdou do formulário frmCadastro.vb que o formulário Pai , o código do botão Sair definido no formulário Pai foi herdado pelo formulário filho form1.vb. Legal não é mesmo.

Agora eu vou implementar o cadastro das Categorias usando o banco de dados Northwind.mdf e a tabela Categories.

Primeiro vou criar um DataSet. Clique com o botão direito do mouse sobre o nome do projeto e selecione Add New Item. Na janela template selecione o DataSet informando o nome Categorias.xsd.

A seguir crie uma conexão com o banco de dados Northwind.mdf usando o DataBase Explorer (se ela ainda não existir) e a seguir arraste a tabela Categories para o descritor DataSet conforme figura abaixo:

Agora podemos definir o código do nosso formulário de cadastro de categorias. Para simplificar eu não vou tratar o campo Picture da tabela somente os campos CategoryID, CategoryName e Description.

Devemos alterar o TableAdapter clicando com o botão direito do mouse e selecionando Configure para em seguida definir a instrução SQL para SELECT CategoryID, CategoryName, Description FROM dbo.Categories, removendo o campo Picture.

Então vamos incluir 2 caixas de texto e 3 Labels para exibir os campos que iremos tratar. Os nomes das caixas de textos são:

txtCategoriaID.text
txtCategoriaNome.text
txtCategoriaDescricao.text

A primeira coisa a fazer é definir o namespace

Imports heracaForm.CategoriasTableAdapters

Em seguida vamos criar um DataTable chamado Categorias

Dim Categorias As New Categorias.CategoriesDataTable

Código do evento Load do formulário form1.vb que cria um adapter e preenche com base no DataTable Categorias.

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

Dim da As CategoriesTableAdapter = New CategoriesTableAdapter()
Try
   Categorias = New Categorias.CategoriesDataTable
   da.Fill(Categorias)
   da.Dispose()
   indice = 0
   exibirdados()
Catch ex As Exception
   MsgBox(ex.Message)
End Try
End Sub

A rotina exibirDados() deverá sobrescrever a rotina já definida no formulário Pai frmCadastro.vb por isso usei o modificador OverLoads:

Public Overloads Sub exibirdados()
 
If indice < 0 Then
    indice = 0
End If

If indice > Categorias.Count - 1 Then
   indice = Categorias.Count - 1
End If

Try
   txtCategoriaID.Text = Categorias(indice).CategoryID
   txtCategoriaNome.Text = Categorias(indice).CategoryName
   txtCategoriaDescricao.Text = Categorias(indice).Description
Catch ex As Exception
   MsgBox(ex.Message)
End Try
End Sub

Essa rotina é responsável pela exibição dos dados nas caixas de texto.

O código do botão Novo é dado a seguir. Note que ela apenas define o indice e limpa os campos do formulário. A rotina limpaCampos() percorre os controles textBox no interior do controle GroupBox e limpa os controles.

Private Sub btnNovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNovo.Click
    indice = Categorias.Count
    limpaCampos()
    txtCategoriaNome.Focus()
End Sub
 
Public Sub limpaCampos()

Dim txt As TextBox
For Each ctrl As Control In GroupBox1.Controls
    If InStr(ctrl.GetType().ToString(), "TextBox") Then
           txt = DirectCast(ctrl, TextBox)
           txt.Text = ""
End If
Next
End Sub

A seguir o código do botão Salvar que usa o método Insert do adapter para incluir os dados na tabela:(Perceba que o campo categoryID não é tratado pois ele é um campo auto incremental)

Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click

Dim da As CategoriesTableAdapter = New CategoriesTableAdapter()

Try
   If indice = Categorias.Count Then
      da.Insert(txtCategoriaNome.Text, txtCategoriaDescricao.Text)
Else
    Categorias(indice).CategoryName = txtCategoriaNome.Text.Trim()
    Categorias(indice).Description = txtCategoriaDescricao.Text.Trim()
    da.Update(Categorias(indice))
End If

  Categorias.Clear()
  da.Fill(Categorias)
  da.Dispose()
  exibirdados()
Catch ex As Exception
   MsgBox(ex.Message)
End Try
End Sub

O código para excluir vem a seguir, e usa o método Delete do adapter para excluir um registro da tabela.

Private Sub btnExcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcluir.Click
 
If (MsgBox("Confirma exclusão deste registro ?", MsgBoxStyle.YesNo, "Excluir registro") = MsgBoxResult.Yes) Then

  Try
        Dim da As CategoriesTableAdapter = New CategoriesTableAdapter()
     da.Delete(txtCategoriaID.Text, txtCategoriaNome.Text.Trim)
     Categorias.Clear()
     da.Fill(Categorias)
     da.Dispose()
     indice -= 1
     exibirdados()
Catch ex As Exception
    MsgBox(ex.Message)
End Try
End If
End Sub

Finalmente o código de cada um dos botões , nele não precisamos controlar a variável índice pois isto é feito no formulário Pai, devemos apenas chamar a rotina exibirDados que foi sobrescrita:

Private Sub btnPrimeiro_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimeiro.Click
   exibirdados()
End Sub
 
Private Sub btnProximo_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProximo.Click
   exibirdados()
End Sub
 
Private Sub btnAnterior_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click
   exibirdados()
End Sub
 
Private Sub btnUltimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUltimo.Click
   indice = Categorias.Count - 1
    exibirdados()
End Sub

Executando o projeto você verá o formulário form1.vb com todas as funcionalidades prontas conforme figura a seguir:

Você viu neste artigo como podemos usar a herança visual em nosso proveito e ganhou de presente um cadastro básico via código usando DataSet e TableAdapter.

Este artigo foi útil para você?

Nota	Comentário
9	denunciar guiski comentou em 7/3/2012 Excelente Muito bem elaborado, parabens !
10	denunciar brunaluxo comentou em 6/11/2010 Bom Muito enteresante, adorei saber
10	denunciar usertop comentou em 1/11/2009 Bom Legal muito bem explicado, e com varias imagens o que facilita muito

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Conteúdo

Sobre

Social

Parceiros

PagSeguro - solução para pagamentos online

Autor

Fabio Poletto

Tags