Firebird control de accesos a tabla.

[[BlueSteel]]

bueno.. no pude editar el mensaje anterio.. se quedo medio pegado el asunto...

era pa' decirte que es una funcion.. y es así

Código Delphi [-]
Function GetUserName:String;
Var
   PcUser  : PChar;
   DwUsize : DWord;
Begin
   DwUsize := 21;
   GetMem( PcUser, DwUsize);
   Try
      If Windows.GetUserName( PcUser, DwUsize ) then
         Result := PcUser
   Finally
      FreeMem( PcUser );
   End;
End

[sandiamo]

Gracias por la rapida respuesta Bluesteel, pero el getusername ya lo vi y no me sirve ya que lo que quiero registrar es el usuario de la aplicacion activo en este momento no el de windows.
Saludos

[Neftali [Germán.Estévez]]

Empezado por sandiamo

...ya que lo que quiero registrar es el usuario de la aplicacion activo en este momento no el de windows.

¿Has comentado que los usuarios se validan al entrar en la aplicación, no? Entonces porqué no usas ese usuario para guardar un LOG de modificaciones.
Cuando hagas una modificación, además insertas en una tabla de LOG quien ha hecho la operación.

[sandiamo]

Disculpa mi torpeza pero existe algun hilo relativo a este tema de la tabla de log. La aplicacion se ejecuta en red y pueden haber accesos simultaneos a la tabla del servidor por eso aunque se validan los usuarios al entrar necesito saber cual es el usuario activo en cada caso, por eso habia pensado en guardar el nombre de usuario en algun tipo de variable global.
Gracias y disculpa estoy empezando con esto de Delphi.

[mamaro]

Lo que el compañero te está diciendo es que crees una tabla en la que almacenes los datos que necesites (Nombre de usuario, fecha, etc), y pongas un disparador a la(s) tabla(s) que realicen la inserción en esa tabla, ejemplo:

Tabla Log
Fecha Timestamp
Usuario Varchar(8)
etc ...

Tabla Cliente
Identificador integer
Nombre varchar(30)
Dirección varchar(50)
etc ...

Disparador

Código SQL [-]
Create Trigger REGISTRA_LOG for CLIENTE
active after insert or update or delete
position 0
as
begin
  insert into Log (fecha,usuario)
  values (current_timestamp,current_user);
end

La versión nueva de Firebird (creo que la 2.1) permite además de disparar eventos al realizar acciones sobre tablas, dispara eventos al loguearse un usuario, al hacer commit, etc.

Saludos

[sandiamo]

El problema es que yo los datos que quiero almacenar no es el current_user ya que este es el usuario de windows sino el usuario de la aplicacion y deseo cojer tambien el valor de algunos campos del registro modificado para poder hacer consultas posteriores sobre ellos. Habia pensado en usar un procedimiento almacenado y dispararlo en el evento onnewrecord o alguno parecido del IBDataset.

[mamaro]

current_user te da el usuario logueado en la base de datos no el de windows.

Acordate que en los disparadores contás con las variables "new" y "old" para acceder a los valores de los campos (valores actuales y viejos)