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:


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:

CREATE GENERATOR CODCLI_GEN;
Script para Criar Trigger (Gatilho):

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

Comentários