Einzelnen Beitrag anzeigen

kalmi01
(Gast)

n/a Beiträge
 
#8

Re: Benutzerlogin if-Anweisung mit ODER ?

  Alt 22. Aug 2007, 16:04
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
  Mit Zitat antworten Zitat