Lazarus 0007 – Agenda com base de dados Firebird

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

);

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