O que quero dizer é, quando criamos uma tabela no Firebird com os campos abaixo:

Código            integer
Histórico         varchar
Data_pagamento    date
Pago              integer

O campo Pago terá valor 0 (zero) como default, indicando que a conta está pendente e valor 1 se ela estiver paga.

Quer tal deixar o próprio Firebird setar o campo Pago como 1 automaticamente quando colocarmos a data de pagamento, sem precisar escrever uma linha sequer de código em Delphi?

Para isso, basta rodar o script abaixo, para inserir a trigger:

CREATE TRIGGER trg_pagar FOR CONTAS
ACTIVE BEFORE INSERT OR UPDATE POSITION 0
AS
begin
  if (new.Data_pagamento is not null) then
   new.Pago = 1;
  else
   new.Pago = 0;
end

Agora, quando pagar uma conta, basta colocar a data de pagamento que o Firebird marcará ela como paga, setando o campo Pago com valor 1.

É isso!
Grande abraço!

Por: Fabio.
Contato: gatascheguei@yahoo.com.br