Fórum Eventos do Firebird utilizando ZIBEventAlerter #373692

SET TERM ^ ;

CREATE OR ALTER PROCEDURE FIRE_EVENT 
as
begin
  post_event ´DATA_CHANGE´;
end^

SET TERM ; ^

GRANT EXECUTE ON PROCEDURE FIRE_EVENT TO SYSDBA;

SET TERM ^ ;

CREATE OR ALTER TRIGGER PEDIDO_AI0 FOR PEDIDO
ACTIVE AFTER INSERT POSITION 0
AS
begin
  /* Trigger text */
   execute procedure fire_event;
end
^

SET TERM ; ^

ZIBEventAlerter1.Events.Add(´DATA_CHANGE´);

procedure TDM.ZConnectionAfterConnect(Sender: TObject);
begin
    ZIBEventAlerter1.RegisterEvents;
end;

procedure TDM.ZConnectionBeforeDisconnect(Sender: TObject);
begin
    ZIBEventAlerter1.UnRegisterEvents;
end;