Benutzerlogin if-Anweisung mit ODER ?

[f4k3]

Zitat von kalmi01:

Delphi-Quellcode:

procedure TfLogin.iAnmeldenClick(Sender: TObject);
  begin
    if (TBenutzer.FieldByName('Benutzername').AsString = dbeBenutzername.Text)
    then begin
           if (TBenutzer.FieldByName('Kennwort').AsString = eKennwort.Text)
           then begin
                  if (TBenutzer.FieldByName('Benutzername').AsString = 'Admin')
                  then begin
                         ShowMessage('Anmeldung als Admin erfolgreich');
                         fLogin.Hide;
                         fAdminMenue.Show;
                       end
                  else begin
                         ShowMessage('Anmeldung als Benutzer erfolgreich');
                         fLogin.Hide;
                         fBenutzerMenue.Show;
                       end;
                end;
         end;
  end;

sollte auch gehen

Danke Kalmi01 für deine erneute mühe