Log de A��es utilizando trigger

27/11/2020

Boa tarde pessoal

preciso de uma ajuda de voc�s estou desenvolvendo uma aplica��o Delphi\Firebird e gostaria de implementar um Log de Auditoria que registrasse todas as inclus�es, altera��es ou exclus�es, mostrando o usu�rio, data, hora, a tabela e o registro e que opera��o foi feita (Inclus�o, Exclus�o e Altera��o)

eu tenho a seguinte tabela usu�rios:

CREATE TABLE USUARIOS (
    ID       ID NOT NULL /* ID = INTEGER NOT NULL */,
    NOME     NOME /* NOME = VARCHAR(50) */,
    USUARIO  USUARIO /* USUARIO = CHAR(15) NOT NULL */,
    SENHA    SENHA /* SENHA = CHAR(15) NOT NULL */,
    ATIVO    ESCOLHA /* ESCOLHA = CHAR(20) */
);

e criei a tabela Auditoria com a seguinte estrutura

CREATE TABLE AUDITORIA (
    ID          ID NOT NULL /* ID = INTEGER NOT NULL */,
    USUARIO     ID /* ID = INTEGER NOT NULL */,
    DATA        DATA /* DATA = DATE */,
    HORA        HORA /* HORA = TIME */,
    TABELA      NOME /* NOME = VARCHAR(50) */,
    REGISTRO    ID /* ID = INTEGER NOT NULL */,
    "OPERA��O"  ESCOLHA /* ESCOLHA = CHAR(20) */
);
ALTER TABLE AUDITORIA ADD CONSTRAINT FK_AUDITORIA_USUARIO_ID FOREIGN KEY (USUARIO) REFERENCES USUARIOS (ID);

por�m gostaria de saber como fazer uma trigger que eu consiga pegar todas essas informa��es de diversas tabelas, o problema maior � pegar o nome da tabela, o nome do usu�rio ativo no sistema da tabela Usu�rios, o id e a opera��o se foi inclus�o, exclus�o ou altera��o

algu�m tem alguma ideia de como fazer isso somente pelo banco de dados utilizando triggers ou procedures??

pode at� ser uma trigger por tabela mas teria que conseguir acessar essas informa��es

desde j� agrade�o

Att.
Fabio Zanela

Fabio Zanela

Curtir t�pico + 0

Responder

Posts

27/11/2020

Emerson Nascimento

voc� deve fazer os gatilhos nas tabelas que quer monitorar, e a partir dali gravar na auditoria.
por exemplo:

trigger para auditar a tabela de clientes

CREATE TRIGGER AUDIT_CLIENTE FOR CLIENTE
AFTER DELETE OR INSERT OR UPDATE
POSITION 4 -- IDEAL QUE SEJA O ULTIMO TRIGGER DA TABELA
AS
BEGIN
	IF (INSERTING) THEN
		EXECUTE PROCEDURE ADDAUDITORIA('USUARIO', 'CLIENTE', NEW.ID, 'INSERT');

	IF (DELETING) THEN
		EXECUTE PROCEDURE ADDAUDITORIA('USUARIO', 'CLIENTE', OLD.ID, 'DELETE');

	IF (UPDATING) THEN
		EXECUTE PROCEDURE ADDAUDITORIA('USUARIO', 'CLIENTE', OLD.ID, 'UPDATE');
END

trigger para auditar a tabela de produtos

CREATE TRIGGER AUDIT_PRODUTO FOR PRODUTO
AFTER DELETE OR INSERT OR UPDATE
POSITION 4 -- IDEAL QUE SEJA O ULTIMO TRIGGER DA TABELA
AS
BEGIN
	IF (INSERTING) THEN
		EXECUTE PROCEDURE ADDAUDITORIA('USUARIO', 'PRODUTO', NEW.ID, 'INSERT');

	IF (DELETING) THEN
		EXECUTE PROCEDURE ADDAUDITORIA('USUARIO', 'PRODUTO', OLD.ID, 'DELETE');

	IF (UPDATING) THEN
		EXECUTE PROCEDURE ADDAUDITORIA('USUARIO', 'PRODUTO', OLD.ID, 'UPDATE');
END

procedure para gravar o registro de auditoria

CREATE PROCEDURE ADDAUDITORIA(
	USUARIO	ID /* ID = INTEGER NOT NULL */,
	TABELA		NOME /* NOME = VARCHAR(50) */,
	REGISTRO	ID /* ID = INTEGER NOT NULL */,
	OPERACAO	ESCOLHA /* ESCOLHA = CHAR(20) */
)
AS
BEGIN
	INSERT INTO AUDITORIA(USUARIO, DATA, HORA, TABELA, REGISTRO, OPERACAO)
	VALUES (:USUARIO, CURRENT_DATE, CURRENT_TIME, :TABELA, :REGISTRO, :OPERACAO);
END

Responder

Gostei + 0

27/11/2020

Fabio Zanela

Obrigado ja me ajudou bastante duas quest�es eu fa�o os triggers do tipo Before ou After??

segundo como pegar o ID do usu�rio e o nome da tabela?? no caso do nome da tabela s� manualmente??

Responder

Gostei + 0