Criando uma aplicação com o Lazarus e banco de dados Firebird – Parte 02

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Neste artigo estarei mostrando um passo a passo sobre como criar uma aplicação usando a ferramenta de desenvolvimento Lazarus, juntamente com o componente ZeosDBO, conectando em um banco de dados do Firebird.

Dando seqüência no artigo, vamos criar a estrutura do banco de dados no firebird para acessarmos pelo lazarus. Segue abaixo os scripts:

 

SET SQL DIALECT 3;

 

SET NAMES ISO8859_1;

 

CREATE DATABASE 'D:\temp\Projeto Lazarus\Dados\dados.fdb'

USER 'SYSDBA' PASSWORD 'masterkey'

PAGE_SIZE 8192

DEFAULT CHARACTER SET ISO8859_1;

 

 

CREATE TABLE CONTATOS (

    ID        INTEGER NOT NULL,

    NOME      VARCHAR(40),

    ENDERECO  VARCHAR(40),

    CIDADE    VARCHAR(20),

    UF        VARCHAR(2),

    CEP       VARCHAR(10),

    TELEFONE  VARCHAR(10),

    CELULAR   VARCHAR(10),

    EMAIL     VARCHAR(100),

    SITE      VARCHAR(100),

CONSTRAINT PK_CONTATOS PRIMARY KEY (ID));

 

 

create generator contato_id;

 

CREATE TRIGGER CONTATOS_BI0 FOR CONTATOS

ACTIVE BEFORE INSERT POSITION 0

AS

begin

  IF (NEW.ID IS NULL) THEN

      NEW.ID = GEN_ID(contato_id,1);

end;

 

 

CREATE TABLE AGENDA (

    ID          INTEGER NOT NULL,

    ID_CONTATO  INTEGER NOT NULL,

    DATA        DATE,

    HORA        TIME,

    CONCLUIDO   CHAR(1),

    DESCRICAO   VARCHAR(100),

    OBSERVACAO  VARCHAR(100),

CONSTRAINT PK_AGENDA PRIMARY KEY (ID));

 

 

create generator agenda_id;

 

CREATE TRIGGER AGENDA_BI0 FOR AGENDA

ACTIVE BEFORE INSERT POSITION 0

AS

begin

  IF (NEW.ID IS NULL) THEN

      NEW.ID = GEN_ID(agenda_id,1);

end;

 

 

alter table AGENDA add constraint FK_AGENDA foreign key (ID_CONTATO)

references CONTATOS(ID) on delete CASCADE on update CASCADE;


Agora, com o banco de dados criado, e com o Lazarus já aberto, vamos criar nosso projeto. Para isso vá ao menu principal, na opção File->New, e na janela que se abre selecione application e clique em OK, conforme figura abaixo:




Pressione as teclas Shift+Ctrl+S para salvar o projeto na pasta selecionada.

 

Agora adicione no formulário, o componente MainMenu da paleta Standart.

Dê um duplo clique no componente para criar as opções do menu. Conforme a figura abaixo




Observe que é necessário clicar com o botão direito do mouse sobre a janela do componente para selecionar as diversas opções de trabalho.

 

Agora vamos criar nosso Datamodulo para acessarmos o banco de dados. Para isso clique na opção file->new do menu principal, e na janela que se abre selecione a opção Data Module conforme mostrado abaixo:




No DataModule, adicione um componente TZConnection da paleta Zeos Access, e configure as propriedades do mesmo da seguinte forma:

 

DataBase – Selecione o caminho do banco de dados criado anteriomente;

HostName – Informe como LocalHost;

Password – Informe a senha do firebird. Padrão “masterkey”;

Protocol - firebird-2.1;

User – usuário do firebird. Padrão “SYSDBA”;

 

Feito isso, altere a propriedade Connected para true. Se estiver tudo certo, a base de dados estará conectada ao aplicativo. Veja exemplo abaixo:




Com isso concluímos a conexão com o banco de dados. Na próxima parte do artigo, estarei mostrando a criação das telas de cadastros.

 

Até a próxima!


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?