Programando com o Lazarus (Parte 4-4)
Autor: Elton Dhiego | Publicado: 2011-02-25T09:05:00-03:00

Esse é o último POST da série de 4 e vamos enfim colocar a aplicação para funcionar com o nosso banco de dados criado no Post anterior.O primeiro passo é abrir a IDE Lazarus: Aplicativos -> Desenvolvimento -> LazarusO lazarus sempre carrega, por padrão, a última aplicação que estava sendo desenvolvida. Com isso, vamos fechar tudo e iniciar uma nova aplicação:Arquivo -> Fechar Tudoe então:Arquivo -> Novo ... -> Aplicação -> OKCaso apareça a mensagem: "Salvar alterações no projeto" clique em não.Alguns atalhos são importantes e muito úteis, como por exemplo o F12, que faz o Form ficar visível para que possa ser manipulado; e o F11 que faz a barra de propriedades dos objetos fica visível.Primeiramente vamos salvar o nosso projeto: Arquivo -> Salvar Tudo. Coloque o nome da unidade e o nome do projeto como achar melhor.No Lazarus, assim como no Delphi, nós temos uma paleta de componentes (como botões, labels, etc) que possibilita, entre outras coisas, construir a parte gráfica da nossa aplicação.Desta forma, vamos procurar nesta paleta pelo componente Zeos Access, clicar no TZConnection e clicar no Form, clicar em TZQuery e clicar no Form. Vamos procurar pelo componente DataAccess, clicar em Tdatasource e clicar no form. Neste momento teremos o Form como ilustra a figura abaixo:Nós também podemos configurar o tamanho do Form clicando e arrastando na sua diagonal inferior.Agora vamos configurar o ZConnection1, o ZQuery1 e o ZDatasource1:Clique no ZConnection1 (no Form) e tecle F11 para aparecer a Barra de propriedades. Então configure os seguintes ítens:Hostname: localhostDatabase: DBTeste (ou o nome que colocou para o seu BD)Password: "a senha para o PostgreSQL que criamos no Post 2"Protocol: postgresql-8User: postgresConected: Vamos mudar para True. Caso alguma dessas informações estiverem incorretas não será possível fazer essa conexão.Para o ZQuery1:Connection: ZConnection1SQL: Vamos clicar em ... e digitar o código SQL para selecionar os elementos da tabela clientes que criamos no POST anterior: select * from clientes. Então clicamos em OK.Active: Vamos mudar para True. Caso alguma dessas informações estiverem incorretas não será possível fazer essa conexão.Active: Vamos mudar para False novamente, após verificar que não houve erros.Vamos fazer um clique duplo em ZQuery1, clicar com o botão direito do mouse na área da janela que aparecer e clicar em Add Fields. Selecione todos os ítens e clique em create.Para o ZDatasource1:DataSet: ZQuery1Este componente permite associarmos os campos aos elementos do Banco de Dados como veremos a seguir.Ainda no componente Data Controls vamos escolher TDBEdit e colocar 4 elementos deste no Form; Escolher TDBGrid e colocar um elemento no Form.Para cada elemento nós vamos configurar na barra de propriedades da seguinte forma:DBEdit1: DataSource -> Datasource1 e DataField -> idDBEdit2: DataSource -> Datasource1 e DataField -> nomeDBEdit3: DataSource -> Datasource1 e DataField -> foneDBEdit4: DataSource -> Datasource1 e DataField -> idadeDBGrid1: DataSource -> Datasource1No componente Standard vamos escolher TLabel e colocar também 4 elementos deste no Form.Para cada elemento nós vamos configurar na barra de propriedades da seguinte forma:Label1: Caption -> IDLabel2: Caption -> NomeLabel3: Caption -> ContatoLabel4: Caption -> Idade No componente Additional vamos inserir 5 elementos TBitBtn no Form.Para cada elemento vamos configurar a barra de propriedades da seguinte forma:BitBtn1: Caption -> &amp;IncluirBitBtn2: Caption -> &amp;SalvarBitBtn3: Caption -> &amp;AlterarBitBtn4: Caption -> &amp;ExcluirBitBtn5: Caption -> &amp;CancelarPodemos ainda configurar o tamanho dos botões assim como fizemos com o Form.Neste momento podemos organizar os elementos conforme a figura abaixo:Agora chegou a hora de inserírmos o código da nossa aplicação:Dê um clique duplo sob o Form. Todo o código escrito dentro da procedure TForm1.FormCreate(Sender: TObject); será executado no momento da criação do Form.Vamos digitar o código: ZQuery1.Active:=True; para ativar a query no momento da criação do Form.Dê um clique duplo sob o Botão Incluir. Todo o código escrito dentro da procedure TForm1.BitBtnXClick(Sender: TObject) será executado no momento do clique sob o mesmo.Vamos digitar o código: ZQuery1.Append; DBEdit1.SetFocus;Para o botão Salvar: ZQuery1.ApplyUpdates;Para o botão Alterar: ZQuery1.Edit;Para o botão Excluir: ZQuery1.Delete; ZQuery1.Append;Para o botão Cancelar: ZQuery1.CancelUpdates;Pronto! Agora é só digitar F9 para compilar e executar a nossa aplicação e então teremos um cadastro de clientes simples, conforme ilustra a figura abaixo:Espero que tenha sido útil!!Até a próxima!Links dos outros Posts:Post 1Post 2Post 3