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!