Fórum Trigger #46039

procedure T_FInterbase.Button2Click(Sender: TObject);
begin

IBDatabase1.DatabaseName:= ´C:\MaxProgramador\Pro Projeto\Teste\BD Interbase\UTAU.GDB´;
IBDatabase1.Params.Add(´USER ´SYSDBA´´);
IBDatabase1.Params.Add(´PASSWORD ´masterkey´´);
IBDatabase1.Params.Add(´PAGE_SIZE 4096´);
IBDatabase1.SQLDialect:= 3;
IBDatabase1.CreateDatabase;

//Como criar uma tabela...1
_DM_INTERBASE.IBQuery.SQL.Add(´Create Table Telefone_1´);
_DM_INTERBASE.IBQuery.SQL.Add(´(NumeroTel VarChar(15), Ramal VarChar (6), NomeContato VarChar(50), CodCli Integer ,Contador Integer Not Null Primary Key )´);
_DM_INTERBASE.IBQuery.execSQL;
//_DM_INTERBASE.IBQuery.sql.clear;

//Como Criar Trigger...
_DM_INTERBASE.IBQuery.SQL.Add(´CREATE TRIGGER TELEFONE_BI_1 FOR TELEFONE_1 ACTIVE BEFORE INSERT POSITION 0 AS BEGIN NEW.CONTADOR = GEN_ID(GEN_TELEFONE_1,1); END;´);
_DM_INTERBASE.IBQuery.execSQL;
_DM_INTERBASE.IBQuery.sql.clear;

//Como Criar um Generator...
_DM_INTERBASE.IBQuery.SQL.Add(´Create Generator Gen_Telefone_1´);
_DM_INTERBASE.IBQuery.execSQL;
//_DM_INTERBASE.IBQuery.sql.clear;

end;