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.

Nós queremos saber sua opinião aqui