Rechte-Verwaltung in einem Delphi-Project

[Union]

Ich habe vor Urzeiten mal einen TActionlist-Descendant dafür gemacht. Die Actionlist hat einen OnAccess Event, in dem der Zugriff gesteuert werden kann, über eine Property
SecurityId der enthaltenen Actions. Im Event kann man dann z.b. die Berechtigungen über entsprechende Tabellen abfragen:

Delphi-Quellcode:

procedure TData.ActionListAccess(ASecurityID: Integer;
  var AResult: TSecResult);
begin
 AResult := tsrDeny;
 ...
 qry.SQL.Clear;
 qry.SQL.Add('select us.name,');
 qry.SQL.Add('      userrights.Rightid as UsRId,');
 qry.SQL.Add('      Grouprights.Rightid as GRRId,');
 qry.SQL.Add('      r1.Nr as UsRNr,');
 qry.SQL.Add('      r2.Nr as GrRNr');
 qry.SQL.Add('from "user" as us');
 qry.SQL.Add('left outer join userrights on userrights.userid = us.id');
 qry.SQL.Add('left outer join usergroups on usergroups.userid = us.id');
 qry.SQL.Add('left outer join grouprights on grouprights.groupid = usergroups.groupid');
 qry.SQL.Add('left outer join Rights r1 on r1.id = Userrights.rightid');
 qry.SQL.Add('left outer join Rights r2 on r2.id = Grouprights.rightid');
 qry.SQL.Add('where ucase(us.name) = :username');
 qry.SQL.Add('and r1.nr = :nr or r2.nr = :nr');
 qry.ParamByName('username').AsString := AnsiUppercase(Username);
 qry.ParamByName('nr').AsInteger := ASecurityId;
 qry.Open;
 if not qry.Eof then
   AResult := TSrGrant;
end;

Die Rechteverwaltung für Benutzer und Gruppen habe ich mit einem simplen Dialog gelöst (Bild im Anhang). Bei Interesse kann ich das gerne mal hochladen.

[TigerLilly]

Vergessen:
https://github.com/ezequieljuliano/Security4Delphi

[harfes]

Zunächst mal Danke für die vielen Anregungen!

@haentschman: "..dann gleich selbst" triff es wohl, denn die "fertigen" Lösungen (wie das nur teilweise funktionierende TMS SecuritySystem) sind eben nicht fertig, sondern der Programmierer muss halt mit Unzulänglichkeiten leben - oder selber machen...

@TigerLilly: vielen Dank für die Anregungen/Links! Mit einigen muss ich mal versuchen, ob die passen bzw passend gemacht werden können.

@Union: gute Anregung! Du hast angeboten, Deinen Code mal hochzuladen - würdest Du das bitte machen? Oder aber auch gerne via PN an mich...ich würde mir das gerne mal als Anregung anschauen.

Jedenfalls ergibt sich aus den Antworten langsam ein Bild: was fertig funktionierendes (auch gegen Geld) gibt es wohl nicht wirklich, also muss ich selber ran. Ich hoffe zumindest darauf, eine Grundlage zu finden, die ich dann weiterentwickeln kann. Mich wundert ehrlich gesagt, dass so ein wichtiges Thema noch von keinem wirklich mit einem Tool oder Komponenten abgedeckt wurde. Das was es gibt, ist "halbgar" - entweder funktioniert es nicht richtig (z.B. SecuritySystem von TMS oder benötigt irgendwelche DAC-Treiber wie z.B. bei TUser Security Component, etc.). Klar ist, jedes Projekt hat seine eigenen Anforderungen an die möglichen User-Rechte...und das halbwegs universell hinzubekommen, ist natürlich nicht einfach.

Hartmut

[Union]

Hier mal mein Code. Im Verzeichnis .\s befindet sich der Sourcecode der Komponente sowie ein kleines Testprojekt. Im Verzeichnis .\p befinden sich die dpk für D7, 10.2 und 10.3 - entweder verwenden oder unter neuem Namen speichern, falls BPL mit unterschiedlichen Delphi-Versionen verwendet werden sollen.

[harfes]

@Union: Super - vielen Dank. Ich schau mir das heute Abend mal an...

Hartmut