Evitar que un usuario se conecte más de una vez

[Casimiro Notevi]

A ver si el sqlmanager (que no lo he usado nunca) abre dos conexiones por algún motivo.
Prueba al revés, cierra el sqlmanager y ejecuta tu programa, debe salir solamente una línea.

[Angel.Matilla]

¿Y como hago la prueba? Porque eso si que no se me ocurre.

[Casimiro Notevi]

Un botón en el formulario principal de tu programa, ejecutas en select y muestras el resultado en un dbgrid, por ejemplo, o un shomessage( select count ... ))

[Angel.Matilla]

Pues tienes razón, creo. He modificado el programa de forma que después de la primera conexión se borre el trigger que graba en la tabla y efectivamente sólo hay una entrada en la misma. Ahora ya si que no entiendo nada. Seguiré haciendo pruebas.

[Angel.Matilla]

Empezado por Casimiro Notevi

A ver si el sqlmanager (que no lo he usado nunca) abre dos conexiones por algún motivo.
Prueba al revés, cierra el sqlmanager y ejecuta tu programa, debe salir solamente una línea.

Puede ser que tengas razón, todo apunta en esa dirección y parece que efectivamente SQL Manager abre una conexión por cada consulta. Tendré que tocar el trigger para que cuando entre con SYSDBA, por ejemplo, no grabe ninguna entrada en la tabla de conexiones.

[Angel.Matilla]

Efectivamente el problema es el que señala Casimiro: SQL Manager abre una coexión para cada elemento que se trata de consultar y de ahí viene el error. He modificado el trigger de conexión dejándolo de esta manera:

CREATE TRIGGER CONECTADO
ACTIVE ON 
  CONNECT
POSITION 0
AS
BEGIN
  DELETE FROM Conexion 
  WHERE Id_Servidor NOT IN (SELECT MON$ATTACHMENT_ID FROM MON$ATTACHMENTS);

  IF (CURRENT_USER IN (SELECT Nombre FROM Conexion)) THEN
    EXCEPTION Usuario_conectado;

  IF (CURRENT_USER <> 'SYSDBA') THEN
    INSERT INTO Conexion (Id_Servidor, Nombre, Hora)
    VALUES (CURRENT_CONNECTION, CURRENT_USER, CURRENT_TIMESTAMP);
END

De esta forma, además de verificar si un usuario ya está conectado y sacar el correspondiente mensaje de error, siempre queda liberado el usuario SYSDBA por si hay que intervenir de forma inesperada en la base de datos con alguna herramienta externa. Muchas gracias todos por vuestra ayuda, ha sido inestimable.