Lazarus 0007 – Agenda com base de dados Firebird

Publicado em por

Lazarus é um ambiente de desenvolvimento integrado desenvolvido para o
compilador Free Pascal. O software é compatível com o Delphi e, ao mesmo
tempo, suporta diversas arquiteturas e sistemas operacionais como
Windows, Linux e MAC OS X.

Nesta vídeo-aula vamos aprender a criar uma Agenda utilizando base de Firebird e componentes nativos do Lazarus (SQLTransaction, SQLConnection, SQLQuery e DataSource).

Para instalar o Firebird no Ubuntu, assista a vídeo aula, CLIQUE AQUI.

Script para criação da tabela, procedimento e gatilho logo abaixo do vídeo:


Script para Criar tabela:

p { margin-bottom: 0.25cm; line-height: 120%; }

CREATE TABLE
CLIENTES
(
CODIGO integer NOT
NULL,
NOME varchar(50),
ENDERECO
varchar(50),
BAIRRO
varchar(30),
CIDADE
varchar(50),
UF varchar(2),
CEP varchar(10),
TELEFONE
varchar(15),
CONSTRAINT
PK_CLIENTE PRIMARY KEY (CODIGO),
CONSTRAINT UK_NOME
UNIQUE (NOME)
USING INDEX
IX_NOME
);
Script para Criar Generator:
p { margin-bottom: 0.25cm; line-height: 120%; }

CREATE GENERATOR
CODCLI_GEN;

Script para Criar Trigger (Gatilho):
p { margin-bottom: 0.25cm; line-height: 120%; }

SET TERM ^ ;
CREATE TRIGGER
CODCLI FOR CLIENTES ACTIVE
BEFORE INSERT
POSITION 3
AS
BEGIN
new.CODIGO =
gen_id( CODCLI_GEN, 1 );
END^
SET TERM ; ^

Aṕos o término da vídeo aula, percebi um erro quando editamos o registro.
Fiz outro vídeo para resolver o seguinte erro: “No update query specified and failed to generate one”


Se este vídeo foi útil a você, curta nossa página