Einzelnen Beitrag anzeigen

Benutzerbild von f4k3
f4k3

Registriert seit: 15. Aug 2007
Ort: Nürnberg
313 Beiträge
 
Delphi 2007 Architect
 
#1

Problem mit Benutzerverwaltung + Kennwort

  Alt 7. Nov 2007, 10:25
Moin Moin liebe DP'ler,

hab folgendes Problem ...

Hab n Programm indem als Hauptform der Login steht.
Die Benutzer müssen Benutzername und Kennwort eingeben.
wenn sie dann auf das Image "Anmelden" gehen soll überprüft werden ob der Benutzer Admin ist, oder Benutzer und natürlich ob zu dem Benutzernamen
das eingegebene Kennwort gehört ...

Mein Code dafür sieht folgendermaßen aus ...

Delphi-Quellcode:
procedure TfLogin.iAnmeldenClick(Sender: TObject);
begin

        if TBenutzer.FieldByName('Benutzername').AsString = ('Admin') then
        begin

              if TBenutzer.FieldByName('Kennwort').AsString = eKennwort.Text then
              begin

                    ShowMessage('!! Erfolgreich als Admin angemeldet !!');

                    fLogin.Hide;
                    fAdmin.Show;

              end

         else

              if TBenutzer.FieldByName('Benutzername').AsString = eBenutzername.Text then
              begin

                    if TBenutzer.FieldByName('Kennwort').AsString = eKennwort.Text then
                    begin

                        ShowMessage('!! Erfolgreich als Benutzer angemeldet !!');

                    end;

              end;

        end;

end;
Meiner Logik nach prüft er zuerst ob der Benutzer Admin ist und ob dass kennwort dazu passt ... dann kommt ne ShowMessage ... er "versteckt" den Login-Screen und wechselt zum Admin Menü.

Dann überprüft er ob in den beiden edit Feldern indem die eingaben geschehen ... ob benutzername und kennwort übereinstimmen ...
es wird aber nicht ausgeschlossen ob der "Benutzer" Admin oder ein sonstiger Benutzer ist ... denn Benutzer kommen logischerweise in ein anderes Menü.

Was auch noch schön wär ... anstatt des Editfeldes ich eine DBCombobox hätte indem ich den Benutzernamen auswählen könnte ...
das klappt aber nicht, weil in meiner DBCombobox keine einträge stehen ... auch wenns ich die Datasource auf meine Table lege und das Datafield auf mein Benutzernamen ...


So ... ein weiteres Problem ist ... dass wenn ich mich aus dem Admin Menü, wieder zum login begeben möchte ... werden die edit Felder nicht gelöscht ...

Mein Code dafür sieht folgendermaßen aus ...

Delphi-Quellcode:
procedure TfLogin.FormCreate(Sender: TObject);
begin

      eBenutzername.Clear;
      eKennwort.Clear;

end;
Kanns sein dass er diesen Befehl nur beim Programmstart ausführt?!
Ich könnt des ganze natürlich umgehen ... dass wenn ich im Admin Menü bzw. Benutzer Menü ... das Image Abmelden klicke ... dass er mir den Code quasi dann ausführt ... dürfte ja kein problem sein ... möchte nur gern wissen obs noch ne andere möglichkeit gibt

is n bissl länger geworden
ich hoff ihr blickt da durch ...

zum schluss noch 2 screens von meinem progi ...
Passwort Manager ... is bis etz nur grunddesign ^^

Login Screen
Admin Screen

Schon mal vielen Dank im Vorraus

Euer f4k3
Sascha
  Mit Zitat antworten Zitat