Login-Funktion: nur ein Benutzer mit bestimmten Zugangsdaten

[jensw_2000]

Inhalt einer PN:

Zitat von Romber:

Hallo jensw_2000!

ich bin mir nicht sicher, dass Sie sich noch daran errinern, aber vor einiger Zeit haben Sie mir bei der Lösung meines Problems sehr kompetent geholfen. Das war diesen Beitrag Login-Funktion: nur ein Benutzer mit bestimmten Zugangsdaten. Dort mit dem Beitrag #26 haben Sie mir die Lösung gepostet. Diese Lösung ist absoloute spitze, die verwende ich immer noch und es funktioniert super. Noch mal vielen Dank!

Ich stehe jetzt vor einer Aufgabe, die ich ohne Ihrer Hilfe ganz sicher nicht lösen kann. Und zwar geht es immer noch um diese SQL-Code, die Sie mir damals gepostet haben. Diese Code bzw. diese SP gewährleistet, dass nur ein Benutzer mit den bestimmten Zugangsdaten zur selber Zeit sich einloggen kann.

Mein Problem ist: ich muss die SQL-Code jetzt so umschreiben, dass sich max. 3 Benutzer mit den gleichen Zugangsdaten zur gleicher Zeit anmelden können. Leider habe ich von SQL nicht viel Ahnung und werde Ihnen sehr dankbar, wenn Sie mir dabei helfen würden.

P.S. Falls es viel Zeit braucht, würde ich natürlich gerne für Ihre Zeit bezahlen.

Im Voraus vielen Dank!

Für den Fall das jemand mal etwas Ähnliches benötigt, hänge ich den geänderten Code hier noch einmal komplett an.
Erklärungen zur Verwendung gibt es im Post #26.

Zitat von romber:

P.S. Falls es viel Zeit braucht, würde ich natürlich gerne für Ihre Zeit bezahlen.

Ich hoffe das du mir auch mal hilfst, ohne gleich eine Rechnung zu schreiben .

DDL der Tabelle "SYS_ActiveUsers"

SQL-Code:

CREATE TABLE [SYS_ActiveUsers] (
  [USERNAME] varchar(50) NOT NULL,
  [Workstation] varchar(12) NOT NULL,
  [LAST_SEEN] datetime DEFAULT (getdate()) NOT NULL,
  [LOCK_TIME_SECS] int DEFAULT (600) NOT NULL
)
ON [PRIMARY]
GO

DDL der Stored Procedure "SYS_Check_User_LoginCount"

SQL-Code:

CREATE PROCEDURE SYS_Check_User_LoginCount
(
@USERNAME VARCHAR(50) = NULL,
@WORKSTATION VARCHAR(12) = NULL,
@LOGOUT BIT = NULL,
@AllowLogin BIT = 0 OUTPUT
)
AS
BEGIN

-- Variablen deklarieren

DECLARE @TEMPTIME DATETIME
DECLARE @TEMPDIFF INTEGER
DECLARE @MAXLOGINS INTEGER
DECLARE @CURRENTLOGINS INTEGER

-- Standardwerte setzen

SET @MAXLOGINS = 2  -- Ein Username kann sich von 2 unterschiedlichen Workstations anmenden
SET @CURRENTLOGINS = 0 -- @CURRENTLOGINS initialisieren

-- Parameter überprüfen

IF @USERNAME IS NULL OR @WORKSTATION IS NULL
BEGIN
  SET @AllowLogin = 0
  RAISERROR('Benutzername und Arbeitsstationsname müssen übermittelt werden',16,1,'SQL-Login')
END

-- Logout ??

IF @LOGOUT IS NULL SET @LOGOUT =0

IF @LOGOUT = 1
BEGIN
  -- Benutzer meldet sich regulär ab
  DELETE FROM SYS_ActiveUsers
        WHERE USERNAME=@USERNAME
          AND WORKSTATION=@WORKSTATION
  SET @AllowLogin=0
END
ELSE BEGIN


  IF EXISTS (
             SELECT USERNAME
             FROM  SYS_ActiveUsers
             WHERE USERNAME=@USERNAME AND WORKSTATION = @WORKSTATION
            )
  BEGIN
    -- Relogin (selber User von der selben Workstation)
    -- Last_Seen Updaten und AllowLogin setzen
    UPDATE SYS_ActiveUsers SET LAST_SEEN = GETDATE()
    WHERE USERNAME=@USERNAME
          AND WORKSTATION=@WORKSTATION
    SET @AllowLogin=1
  END
  ELSE BEGIN
     -- Login des selben Users von einer anderen Workstation --

     -- Inaktive User (mit anderen Workstations) bereinigen,
     -- dann die Anzahl der Logins pro Username zählen.

     -- Prüfen, ob ein die Anzahl @MAXLOGINS für diesen User erreicht wurde.
     -- Wenn Anzahl der Logins <= @MAXLOGINS dann Login erlauben und Last_Seen setzen,
     -- sonst Login verweigern.

      -- inaktive User löschen
      DELETE
      FROM  SYS_ActiveUsers
      WHERE USERNAME=@USERNAME
            AND WORKSTATION <> @WORKSTATION
            AND  ABS( DATEDIFF( SECOND,LAST_SEEN,GETDATE() ) ) > LOCK_TIME_SECS

      -- Zählen, wie oft @USERNAME angemeldet ist ...
      SELECT @CURRENTLOGINS = Count(*)
      FROM  SYS_ActiveUsers
      WHERE USERNAME=@USERNAME
      -- Wenn die Anzahl der Logins <= @MAXLOGINS dann User anmelden
      IF @CURRENTLOGINS < @MAXLOGINS
      BEGIN
        INSERT INTO SYS_ActiveUsers (USERNAME
                                    ,WORKSTATION
                                    ,LAST_SEEN
                                    ,LOCK_TIME_SECS)
                        VALUES      (@USERNAME
                                    ,@WORKSTATION
                                    ,GETDATE()
                                    ,600) -- Timeout Sekunden (Verfallszeit)
        SET @AllowLogin=1
      END
      ELSE BEGIN
        -- sonst Login verweigern
        SET @AllowLogin=0
      END
  END

END

END
GO

Delphi - Funktion um den User anzumelden, um das Login zu "Refreshen" und um den User anzumelden

Delphi-Quellcode:

var Authentificated : boolean;  
...
...
function CheckLogin(Logout:Boolean): Boolean; 
  var SP:TAdoStoredProc; 
begin 
{ 
SQL - Syntax Hinweis 
-------------------------------------------- 
CREATE PROCEDURE SYS_Check_User_LoginCount
( 
@USERNAME VARCHAR(50) = NULL, 
@WORKSTATION VARCHAR(12) = NULL, 
@LOGOUT BIT = NULL, 
@AllowLogin BIT = 0 OUTPUT 
) 
} 

  SP:=TAdoStoredProc.create(nil); 
  SP.Connection:=MeineAdoConn;  // Hier deine AdoConn 
  try 
    SP.Procedurename:='SYS_Check_User_LoginCount'; 
    SP.Parameters.refresh; 
    SP.Parameters[1].Value:=MeinUserName; 
    SP.Parameters[2].Value:=MeinPcName; 
    if Logout then SP.Parameters[3].Value:=1 
      else SP.Parameters[3].Value:=0; 
    SP.ExecProc; 
    Result:=SP.Parameters[4].Value; 
  finally 
    FreeAndNil(SP); 
  end; 

  if Authentificated AND (NOT Logout) AND (NOT Result) then 
  begin 
    Showmessage('Ihr login wird gelöscht, weil von Ihrer Arbeitsstation keine "KeepAlive-Aufrufe"'+#13#10+ 
                'an die SP "SYS_Check_User_LoginCount" gesendet wurden, bzw. deren Timing nicht passt ...'); 
  end; 

  if (NOT Authentificated) AND (NOT Result) then 
  begin 
    Showmessage('Die Anzahl der erlaubten Anmeldungen für "'+MeinUsername+'" ist überschritten.'+#13#10+ 
                'Bitte verwenden Sie einen anderen Benutzernamen oder versuchen Sie es später noch einmal.'); 
  end; 

  Authentificated:=(NOT Logout) AND RESULT; 

end;

Schöne Grüße,
Jens