Log

Question

Estou precisando criar um log das altera��es das tabelas de um programa, ou seja a cada inser��o, altera��o ou exclus�o relatar em uma tabela do banco de dados.

Se algu�m tiver alguma id�ia de como fazer agrade�o.

Estou usando DBExpress e firebird 2.0.

Afarias · Answer

Uma *op��o* � criar triggers para AFTER insert,update,delete para a tabela em quest�o e gravar os valores desejados em uma tabela de log.

Algo assim por exemplo:

create trigger tr_log_tabela for tabela
  after insert or update or delete 
as
  declare id_rec integer;
  declare acao varchar(10);
begin

  if (inserting) then
  begin
    acao=�INSERT�;
    id_rec=new.id;
  end else
  begin
    id_rec = old.id;
    if (updating) then
      acao=�UPDATE�;
    else
      acao=�DELETE�;
  end
  
  insert into log (id, nome_tabela, id_registro, acao, data_hora)
  values (gen_id(gn_log_id,1), �TABELA�, :id_rec, :acao, current_timestamp);

end
^

T+

Silveriosepulveda · Answer

Show, esse � uma solu��o bem vi�vel.Mas estava pensando em algo pelo delphi, que gerasse esse log automaticamente, em qualquer que fosse a tabela alterada, sei que � meio complexo, mas de repente tem jeito.Obrigado pela dica....

Facc · Answer

Eu nunca usei, mas existe o componente UserControl, que al�m de controlar acessos no sistema, ele controla as altera��es no banco tbm, grava nome do usu�rio, campo que alterou, valor antes e ap�s a altera��o

Emerson Nascimento · Answer

voc� pode fazer isso atrav�s da propriedade BeforeUpdateRecord do DatasetProvider....

F�rum Log #375624