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