Como monitorar tudo q o usuário faz na aplicação?

Delphi

11/04/2006

Olá amigos

Estou precisando fazer um tipo de monitoramento das ações do usuário no sistema, tipo , pra qdo sumir algum registro ou alguma alteração saber quem foi q fez.

Algo do Tipo:
Data,hora,Usuario, Tabela, Ação, Registro

Alguem poderia me ajudar?

mto Obrigado.


Daniel Martins

Daniel Martins

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

11/04/2006

Quando o usuário entra no sistema vc não solicita o nome do mesmo?
se a resposta for sim então, basta vc jogar esse nome em variável global e quando houver qq alteração no seu sistema vc joga o nome desse usuário, a data/hora atual em campos que vc pode acrescentar nas suas tabelas por exemplo...

uma tabela de clientes eu tenho:
Codigo;
Nome;
End;
Fone;
...
nos eventos onNewRecord coloco..
UserInclui;//Guardo o nome do usuário que incluiu
IncluDataHora;//Pego a Data e hora atual do servidor
nos eventos AffterPost coloco...
UserAlterou;//Guardo o nome do usuário que Alterou o registro
AlterouDataHora;//Pego a Data e hora atual do servidor

espero ter ajudado :wink:


GOSTEI 0
Paulocesar1301

Paulocesar1301

11/04/2006

Uma boa idéia é criar uma função que faça isso de forma generalizada... pode-se colocar em uma dll uma função do tipo:

function AcaoDoUsuario(NomeUsu: WideString; Acao: Byte; SuaTabela: TAdoQuery): Boolean; Export StdCall;
begin
  Result := True;

  Case Acao Of
    1: Try "inclusão"; Except Result := False; End;
    2: Try "atualização"; Except Result := False; End;
    3: ...
  End;

  ... e por aí vai ...
end;


Projetando bem... não vais mais precisar se preocupar !! :wink:

Abraços e Bons Códigos :wink:


GOSTEI 0
POSTAR