CREATE TABLE ZM_CONNECT (
    ID_USER       VARCHAR(10),
    TIME_CONNECT  DATE,
    PROCESS       VARCHAR(20)
);
CREATE INDEX ZM_CONNECT_IDX1 ON ZM_CONNECT (ID_USER);

CREATE TABLE ZM_CONNECT_2 (
    ID_USER  VARCHAR(10)
);

CREATE INDEX ZM_CONNECT_2_IDX1 ON ZM_CONNECT_2 (ID_USER);

CREATE OR ALTER trigger zm_connect
active on connect position 0
as
begin
--проверяем та ли эта программа
if (right(RDB$GET_CONTEXT('SYSTEM', 'CLIENT_PROCESS'), 12) = 'IBExpert.exe') then
-- проверяем есть ли запись в таблице подключений
if (exists(select 1 from ZM_CONNECT where ID_USER = current_user)) then
-- если есть - смотрим, есть ли исключения на данного пользователя
    begin
if (not exists(select 1from ZM_CONNECT_2 where ID_USER = current_user)) then
-- нету, лови эксепшен
        exception DB_CONNECT;
    end
-- если программа та, но подключения нет ещё - вносим данные в таблицу подключений
    else
    begin
      insert into ZM_CONNECT (ID_USER, TIME_CONNECT, PROCESS)
      values (current_user, current_timestamp, right(RDB$GET_CONTEXT('SYSTEM', 'CLIENT_PROCESS'), 12));
    end
end

CREATE OR ALTER trigger zm_disconnect
active on disconnect position 0
AS
begin
  delete from ZM_connect where id_user = current_user;
end