Verschiedene Funktionen verschiedenen Benutzer zuweisen

**Jens Hartmann**

Hallo,

ich möchte iin meinem Programm verschiedenen Benutzern verschiedene Rechte zuweisen. Die ganze Sache habe ich auch schon gelöst, allerdings so wie ich persönlich finden sehr kompliziert und vermutlich auch nicht nach dem Standart verfahren.

Momentan speicher ich die verschiedenen Einstellungen(siehe Anhang 1) in einer Firebird DB als Integervariablen.

zusammenfalten · markieren

Delphi-Quellcode:

			function TBenutzerForm.SetRecord(ReadUser : TReadConfig):Boolean;

begin

  SetRecord := true;

  with ReadUser do

    begin

      BenutzerName := BenutzerEdit.Text;

      Passwort := PasswortEdit.Text;

      if VerbindenCheckBox.Checked = true then

        Verbinden := 1

      else

        Verbinden := 0;

      if TrennenCheckBox.Checked = true then

        Trennen := 1

      else

        Trennen := 0;

usw. Diesen Record schreibe ich dann in die DB. Finde ich persönlich auch noch ganz OK. Wäre die Frage ob das die Allgemeinheit auch so sieht.

Weiter geht es aber dann mit dem Programmstart. Dabei muss sind jetzt eigendlich alle Funktionen Enabled = false, da der USer sich erst mal Anmelden soll.

Gibt er seine Daten ein, lade ich die Einstellungen momentan so...

zusammenfalten · markieren

Delphi-Quellcode:

			
  case FPasswort.ShowModal of mrOK:

  begin

    Anmelden1.Enabled := false;

    Abmelden.Enabled := true;

    UserRights.BenutzerName := FPasswort.BenutzerED.Text;

    DM_PS.ReadUserRights(UserRights);

    with UserRights do

      begin

        if Verbinden = 1 then

          BTVerbinden.Enabled := true

        else

          BTVerbinden.Enabled := false;

        case Zentralen of

        0:AnlagenSetup1.Enabled := false;

        1:begin

          AnlagenSetup1.Enabled := true;

          Hardware.Hardwareanbindung.RGZentralentyp.Enabled := false;

          Hardware.Hardwareanbindung.SpeichernButton.Enabled := false;

          Hardware.Hardwareanbindung.UebernehmenButton.Enabled := false;

          end;

        2:begin

          AnlagenSetup1.Enabled := true;

          Hardware.Hardwareanbindung.RGZentralentyp.Enabled := false;

          Hardware.Hardwareanbindung.SpeichernButton.Enabled := false;

          Hardware.Hardwareanbindung.UebernehmenButton.Enabled := false;

          end;

        3:begin

          AnlagenSetup1.Enabled := true;

          Hardware.Hardwareanbindung.RGZentralentyp.Enabled := true;

          Hardware.Hardwareanbindung.SpeichernButton.Enabled := true;

          Hardware.Hardwareanbindung.UebernehmenButton.Enabled := true;

          end;

        end;

usw. Hierbei setzte ich ja jetzt viele Komponenten auf berechtigt oder nicht. Gewisse Personen sollen Lesen können, andere wiederum nicht. Wieder andere sollen neu´Anlegen können oder überschreiben. Das führt dazu, das ich vielen Komponenten in meinem Programm ja dieses sagen muss.

Kann man sowas nicht irgendwie beim Programmstart in der Komponenete selber vereinen . So in der Art, eine Eigenschaft der Komponente selbst. Soll heißen, Komponente sucht beim Start den integer Wert der im Record steht und setzt auf z.B. Visible = true oder false oder Enabled = true oder false.

Ich hoffe ich konnte jettzt beschreiben was ich suche.

Also danke schon mal und Gruß

Jens

Verschiedene Funktionen verschiedenen Benutzer zuweisen

Verschiedene Funktionen verschiedenen Benutzer zuweisen

Forumregeln