AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Angemeldete Benutzer Firebird 3
Thema durchsuchen
Ansicht
Themen-Optionen

Angemeldete Benutzer Firebird 3

Ein Thema von BerndS · begonnen am 19. Jun 2019 · letzter Beitrag vom 20. Jun 2019
Antwort Antwort
Benutzerbild von IBExpert
IBExpert

Registriert seit: 15. Mär 2005
695 Beiträge
 
FreePascal / Lazarus
 
#1

AW: Angemeldete Benutzer Firebird 3

  Alt 19. Jun 2019, 23:03
Du kannst dir mit sehr wenig Aufwand so was selber einbauen, wenn du das
mit Database Trigger umsetzt (musst du theoretisch auch nicht löschen,
dann aber aufpassen, weil nach dem letzten abgemeldeten user die
current_connection wieder bei 1 anfängt)



Code:
/******************************************************************************/
/****        Generated by IBExpert 2019.4.14.1 19.06.2019 23:59:54         ****/
/******************************************************************************/

/******************************************************************************/
/****                                Tables                               ****/
/******************************************************************************/



CREATE TABLE USR (
    ID  BIGINT NOT NULL,
    USR VARCHAR(31) CHARACTER SET NONE,
    TS  TIMESTAMP default current_timestamp
);




/******************************************************************************/
/****                             Primary keys                            ****/
/******************************************************************************/

ALTER TABLE USR ADD PRIMARY KEY (ID);


/******************************************************************************/
/****                               Triggers                              ****/
/******************************************************************************/



/******************************************************************************/
/****                       Database event triggers                       ****/
/******************************************************************************/



/* Trigger: USRCONNECT */
CREATE OR ALTER TRIGGER USRCONNECT
ACTIVE ON CONNECT POSITION 0
AS
begin
  insert into usr (id, usr, ts) values (current_connection, current_user, current_timestamp);
end;


/* Trigger: USRDISCONNECT */
CREATE OR ALTER TRIGGER USRDISCONNECT
ACTIVE ON DISCONNECT POSITION 0
AS
begin
  execute statement ('delete from usr where id=:id')(id:=current_connection) with autonomous transaction;
end;


/******************************************************************************/
/****                              Privileges                             ****/
/******************************************************************************/


/* Privileges of users */
GRANT ALL ON USR TO PUBLIC;


/******************************************************************************/
/****                            DDL privileges                           ****/
/******************************************************************************/
Holger Klemt
www.ibexpert.com - IBExpert GmbH
Oldenburger Str 233 - 26203 Wardenburg - Germany
Firebird 5 Update und Know-how Workshop – 28.8.-29.08.2025 64546 Mörfelden - Walldorf
  Mit Zitat antworten Zitat
BerndS

Registriert seit: 8. Mär 2006
Ort: Jüterbog
497 Beiträge
 
Delphi 12 Athens
 
#2

AW: Angemeldete Benutzer Firebird 3

  Alt 20. Jun 2019, 06:28
Danke, das werde ich testen und berichten.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz