Fórum Como gravar data e hora e usuario em todos os registros #268013
10/02/2005
0
Como poderia criar uma rotina que fizesse isso automaticamente, sem precisar que em cada insert ou update eu tenha que passar parâmetros?
Mario
Aldus
Curtir tópico
+ 0Post mais votado
11/02/2005
var: UserData: String; Usuario: String; begin //Após o logon no seu sistema, vc grava o nome do usuário que logou. Usuario:=TbUsuarioNome.Value; // Antes de salvar a inclusão/alteração UserData:=Usuario + ´-´ + DatetoStr(Date) + ´-´ + TimetoStr(time); // aí é só atribuir a variável UserData ao campo da tabela.
Espero que possa lhe ser útil
Valeu e Boa Noite. :D :D :D
Dbergkamps
Gostei + 1
Mais Posts
10/02/2005
Rodc
Gostei + 0
10/02/2005
Aldus
Gostei + 0
10/02/2005
Aldus
Gostei + 0
10/02/2005
Rodc
Gostei + 0
10/02/2005
Aldus
Gostei + 0
11/02/2005
Aldus
O nome dos campos:
DATAINC
HORAINC
USUINC
DATAALT
HORAALT
USUALT
O usuário desses campos será o código do usuário logado ao sistema, dentro do meu cadastro de usuários e não do usuário padrão do Firebird.
Atenciosamente
Mario
Gostei + 0
11/02/2005
Isabelct
Gostei + 0
12/02/2005
Vinicius2k
Esta é uma solução, digamos, criativa :D
1. Crie na sua tabela de usuários uma coluna integer chamada IDSESSAO.
2. No momento do logon do usuário, rode um update set na tabela (dentro da aplicação) dando à IDSESSAO deste usuário o valor da variável do servidor CURRENT_CONNECTION.
update USUARIOS set IDSESSAO = CURRENT_CONNECTION where IDUSUARIO = :idusuario
3. Crie triggers em Before Insert e Before Update nas tabelas que vc deseja armazenar este histórico. Para o histórico utilize a ID do usuário (em consultas vc poderá relacionar com a tabela de usuários) e sugiro que utilize colunas TIMESTAMP para facilitar a operação ao invés de armazenar data e hora separadamente.
Um exemplo da tabela :
CREATE TABLE SUA_TABELA (
ID INTEGER NOT NULL,
COLUNA_1 INTEGER,
COLUNA_2 VARCHAR(20),
COLUNA_3 VARCHAR(10),
/* Histórico */
DATA_INCLUSAO TIMESTAMP,
USUARIO_INCLUSAO INTEGER,
DATA_ALTERACAO TIMESTAMP,
USUARIO_ALTERACAO INTEGER
);As triggers seriam estas :
CREATE TRIGGER TRG_USUARIO_INCLUSAO FOR SUA_TABELA
ACTIVE BEFORE INSERT POSITION 0
as
declare variable IDUSUARIO integer;
declare variable IDSESSAO integer;
begin
select CURRENT_CONNECTION from RDB$DATABASE into :IDSESSAO;
select IDUSUARIO from USUARIOS where USUARIOS.IDSESSAO = :IDSESSAO
into :IDUSUARIO;
new.DATA_INCLUSAO = CURRENT_TIMESTAMP;
new.USUARIO_INCLUSAO = IDUSUARIO;
endCREATE TRIGGER TRG_USUARIO_ALTERACAO FOR SUA_TABELA
ACTIVE BEFORE UPDATE POSITION 0
as
declare variable IDUSUARIO integer;
declare variable IDSESSAO integer;
begin
select CURRENT_CONNECTION from RDB$DATABASE into :IDSESSAO;
select IDUSUARIO from USUARIOS where USUARIOS.IDSESSAO = :IDSESSAO
into :IDUSUARIO;
new.DATA_ALTERACAO = CURRENT_TIMESTAMP;
new.USUARIO_ALTERACAO = IDUSUARIO;
end4. No momento da desconexão do usuário, rode um update set na tabela de usuários dando à IDSESSAO um valor nulo (dentro da aplicação):
update USUARIOS set IDSESSAO = NULL where IDUSUARIO = :idusuario
Com isso será armazenado o histórico que deseja...
Não analisei a fundo os contras desta rotina (acabei de inventar isso), mas o devem existir alguns... por exemplo, se a sua aplicação cair, a IDSESSAO do usuário não será setada para nulo e se, por algum motivo, o Servidor cair, a contagem de conexões será reiniciada e um outro usuário ao logar-se pode ter sua IDSESSAO igual a do anterior (o usuario que caiu) até que o anterior se logue novamente... vale a pena vc analisar os riscos, mas trabalho dentro da aplicação vai ser muito pequeno...
Espero ter ajudado...
T+
Gostei + 1
12/02/2005
Aldus
Mario
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)