Huhu ihr Coder
,
Hab folgendes Problem:
Hab mir ne Benutzeranmeldung zusammen gebastelt, die auch herrlich funktioniert.
Die Benutzeranmeldung soll zwischen Admin und normalen Usern unterscheiden. Wenn der User ein Admin ist, soll er ins Admin Menü gelangen (AdminMenue), wenn der User ein normaler Benutzer ist, soll er ins Benutzer Menü kommen (BenutzerMenue).
Wenn ich mich jetzt als Admin anmelde, werde ich sowohl als admin angemeldet, aber auch als User.
Hättet ihr ne Idee wie ich den Code umbasteln könnte, dass wenn die Admin Bedingung zutrifft, dass die Benutzerbedingung gar nicht erst ausgeführt wird?
Delphi-Quellcode:
procedure TfLogin.iAnmeldenClick(Sender: TObject);
begin
if TBenutzer.FieldByName('Benutzername').AsString = 'Admin' then
if TBenutzer.FieldByName('Kennwort').AsString = eKennwort.Text then
begin
ShowMessage('Anmeldung als Admin erfolgreich');
fLogin.Hide;
fAdminMenue.Show;
end;
if TBenutzer.FieldByName('Benutzername').AsString = dbeBenutzername.Text then
begin
if TBenutzer.FieldByName('Kennwort').AsString = eKennwort.Text then
begin
ShowMessage('Anmeldung als Benutzer erfolgreich');
fLogin.Hide;
fBenutzerMenue.Show;
end
end
end;
Mit vielen Grüßen
f4k3