Benutzerrechte für ein Programm verwenden

[Ykcim]

Hallo Zusammen,

ich möchte ein Programm schreiben, mit dem mehrere Benutzer aus unterschiedlichen Abteilungen arbeiten sollen. Damit verbunden ist, dass nicht jeder Benutzer alles sehen soll und auch manche Programmbereiche garnicht nutzen soll.

Ich hatte mal eine LogIn Möglichkeit gebastelt, in der Benutzer, Passwort und ABteilung aus der MySQL Datenbank abgefragt werden und dann mit visible:= true / false Buttons und andere Komponenten mit Delphi sichtbar bzw. unsichtbar gemacht.

Aber das war ziemlich gestrickt und wäre auch bei steigender Komplexität der Software kaum mehr durchführbar...

Ich würde gerne Benutzerrechte in der Benutzerverwaltung meines Programms vom Admin zuteilen können, die dann in der MySQL Datenbank hinterlegt werden. Und auf Basis dieser Informationen, die beim Anmelden mit gesendet werden müssen entschieden, was im Menü und den anderen Forms angezeigt wird oder nicht.

Aber wahrscheinlich gibt es eine wesentlich einfachere und elegantere Möglichkeit, deshalb bin ich an Anregungen sehr interessiert.

Vielen Dank schon mal im Voraus

Ykcim

[spaxxn]

Wenn du spezifisch mit Berechtigungen arbeiten möchtest, die du/ein Admin individuell verteilst/verteilt, wird dir nicht viel anderes übrig bleiben, als dir das auf deine Bedürfnisse hin selbst zu bauen.

Würde mit Rechtemasken und Programm-ID's arbeiten. In der Kombination, kannst du das dann auch in weiteren Anwendungen wiederverwenden.

[angos]

was sind Rechtemasken?

[DeddyH]

Ich nehme an, er meint Bitmasken für die Rechte.

[spaxxn]

Ein kleines Beispiel:

Wir haben folgende Tabelle(nur kurz gehalten):

UID UserID Mask ProgID Right
1 1 Buttons 1 1
2 2 Buttons 1 0
3 1 Forms 1 1
4 2 Forms 1 1


Benutzer 1 dürfte in Programm 1 alle Forms und alle Buttons sehen.
Benutzer 2 dürfte in Programm 1 alle Forms, aber keine Buttons sehen.

Das kann man beliebig runterbrechen. Bestimmten Buttons oder bestimmten Gruppen von Buttons bestimmte Berechtigungen geben z.B.

Ist nicht einmal viel Aufwand.

[Ykcim]

Und was meinst Du mit Programm IDs?

[spaxxn]

Die Frage ist jetzt nicht ernst gemeint oder?

Du vergibst deinen Proggis halt ID's...

MyProg1 -> erhält die ID=1
MyProg2 -> erhält die ID=2

Die Prog-ID's werden im Quellcode festgelegt.

[taaktaak]

Vielleicht mal bei SAP 'reinschauen, die haben sich da ja sehr viele Gedanken gemacht. :warn:
Mein persönlicher Eindruck: In der Theorie definierte Rechtezuweisungen sind für die Praxis in den meisten Fällen viel zu kompliziert. Im Arbeitsalltag genügen i.d.R. recht einfache Gruppierung.

[Ykcim]

Sorry, ich hatte die Frage genau in dem Moment gestellt, als Deine Antwort kam!

Vielen Dank
Ykcim

[Ykcim]

Hallo spaxxn,

ich bin auf diesem Gebiet echt ein Newby. Hast Du für die Vergabe und Verwendung von ProgrammIDs einen ganz kleines CodeBeispiel, an dem ich es nachvollziehen kann?

Ich arbeiten mit einem Projekt und mehreren Forms

Vielen Dank für die Geduld

Ykcim

[spaxxn]

Kannst du denn mit Datenbankabfragen umgehen?

Delphi-Quellcode:

ProgID := 1; //globale Variable, damit du von allen Forms aus darauf zugreifen kannst.

function getSecuLevel(AProgID,AUserID:integer;AMask:string):integer;
begin
  if qry.active then
    qry.close;
  qry.sql.text := 'SELECT Right FROM USERRIGHTS WHERE ProgID=:ProgID AND UserID=:UserID AND Mask=:Mask';
  qry.ParamByName('ProgID').AsInteger := AProgID;
  qry.ParamByName('UserID').AsInteger := AUserID;
  qry.ParamByName('Mask').AsString := AMask;
  qry.Open;
  if qry.RecordCount = 1 then // Sollte 1 sein, wenn die Primärschlüssel richtig sind
    Result := qry.FieldByName('Right').AsInteger;
  qry.Close;
end;

Nun kannst du folgendes machen:

Delphi-Quellcode:

  MyButtonRight := getSecuLeveL(ProgID,1,'Buttons');

Ist nur aus dem Kopf. Die Benutzer werden natürlich in einer separaten Tabelle verwaltet und von dort müsstest du dann auch die ID des Benutzers bekommen.

[DeddyH]

Mal ein etwas anderer Denkansatz:
- zunächst werden Konstanten für einzelne Rechte vergeben (Lesen = 1, Bearbeiten = 2, Neuanlage = 4, Löschen = 8 etc.)
- dann werden Benutzergruppen (Rollen) definiert
- nun wird festgelegt, welche Rolle welche Rechte auf welche Tabelle bekommen soll
- die Benutzer werden nun einer oder mehreren Rollen zugewiesen
- die effektiven Rechte eines Benutzers ergeben sich dann durch "verodern" der Rollenrechte

[Ykcim]

Hi spaxxn,

ich habe mir Delphi weitestgehend selbst beigebracht und auch schon ein größeres Programm mit sehr unterschiedlichen Features in Kombination mit SQL-Abfragen geschrieben. Aber das ist auch schon alles. Mit sql-Anweisungen Daten holen bzw. editieren bekomme ich hin, aber mit der Vergabe von Rechten und ProgrammIDs habe ich halt keine Ahnung. Deshalb bin ich um jeden Tip dankbar.

Ich werde versuchen, Deinen Code nachzuvollziehen.
Vielen Dank dafür

Ykcim

[spaxxn]

Wenn du das kapiert hast, dann kannst du das Ganze noch erweitern.

Z.B. um die Punkte die DeddyH angesprochen hat.

Das was ich dir da aufgezeigt habe, ist die minimalste Variante in dieser Richtung.


@DeddyH: Dein Denkansatz ist erweitert :D nicht anders...

[DeddyH]

OK, das sah mir so aus, als gingest Du über die VCL-Objekte und ich über die Tabellen, daher "anders" :zwinker:

[Ykcim]

Sag mal spaxxn, vergibst Du für jedes Form eine ProgID?

[spaxxn]

Nein, die ist für jedes Programm als ganzes einmalig.

In der Spalte Mask würde man Rechte für Formulare und Buttons vergeben. Du kannst auch Rechte für Datensätze in der Datenbank vergeben, wenn dir danach ist.

[angos]

Noch eine Idee,

wenn man alle Aktionen (Buttons klicken, Forms öffnen usw.) über das verwaltet, was dafür gedacht ist, nämlich die Actions, dann

braucht man die Benutzerrechte nur der jeweiligen Actions zuzuordnen.

Dadurch könnte sich das Programmieren der Rechteverwaltung ein wenig einfacher gestalten.

[edit: umformuliert/]

[Ackerjan]

Zitat:

Zitat von spaxxn

Wenn du das kapiert hast, dann kannst du das Ganze noch erweitern.
Z.B. um die Punkte die DeddyH angesprochen hat.

Und dann wird verraten, warum man für die Rechte (Lesen = 1, Bearbeiten = 2, Neuanlage = 4, Löschen = 8 etc.) gut Zweierpotenzen nehmen kann :cyclops:!.

Will man z.B. sagen:
- für User mit den Rechten 1,4,16 ist die Componente sichtbar/aktiv machen, so kann man hier z.B. im Tag die Summe 21 eintragen und weiß alle Rechte. Wer nicht weiß warum schreibt die Zahl mal als Binärcode auf.

Viel Erfolg.

[DeddyH]

Oder man liest hier nach.

[x000x]

Schau dir doch mal die Komponenten aus TMS Security System an.
Man spart sich damit eine Menge arbeit...