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?

zusammenfalten · markieren

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

Erstell doch zur Abfrage if ...FieldByName('Benutzername').AsString='Admin' then noch einen else-Teil, und nur in letzterem führst du die Abfrage ...=dbeBenutzername.text durch.

zusammenfalten · markieren

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
          else 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;

So vielleicht ?

EDIT: wieso war kein roter Kasten?
@Apollonius: meine Frage galt nicht Dir, es kam nur kein roter Kasten, oder wir waren zeitgleich.

Zitat von kalmi01:

zusammenfalten · markieren

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
          else 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;

So vielleicht ?

Hi, Dein (bezogen auf den Threadsteller) und der zitierte Code sind eigentlich nur Paradebeispiele dafür, wie man sich ein paar Zeichen spart und in somit in Probleme läuft. Ist nicht böse gemeint! Nur schreiben die meisten Leute zu gutem Stil, dass zu jedem if ein begin ... end gehört, auch wenn nur eine Zeile folgt. Angewandt auf Dein Problem ergibt das:

zusammenfalten · markieren

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('Anmeldung als Admin erfolgreich');
      fLogin.Hide;
      fAdminMenue.Show;
    end; // if TBenutzer.FieldByName('Kennwort').AsString = eKennwort.Text
  end // if TBenutzer.FieldByName('Benutzername').AsString = 'Admin'
  else 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 // if TBenutzer.FieldByName('Kennwort').AsString = eKennwort.Text
  end;
end;

So passieren solche Fehler einfach gar nicht, da immer klar ist, welches else zu welchem if gehört.

Gruß Der Unwissende

Hi,

Zitat von Der_Unwissende:

Hi, Dein (bezogen auf den Threadsteller) und der zitierte Code sind eigentlich nur Paradebeispiele dafür, wie man sich ein paar Zeichen spart und in somit in Probleme läuft. Ist nicht böse gemeint! Nur schreiben die meisten Leute zu gutem Stil, dass zu jedem if ein begin ... end gehört, auch wenn nur eine Zeile folgt.
.....
So passieren solche Fehler einfach gar nicht, da immer klar ist, welches else zu welchem if gehört.

Ich bin nicht böse.
Ich hatte die Original-Schreibweise des Thread-Erstellers einfach nur übernommen.

Wäre es mein Code gewesen, so hätte er wohl ehr so ausgesehen:

zusammenfalten · markieren

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('Anmeldung als Admin erfolgreich');
                      fLogin.Hide;
                      fAdminMenue.Show;
                    end;
             end
        else begin
               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;
  end;

In die then if ...-Falle bin ich glücklicherweise schon recht früh getreten und habs mir gar nicht erst angewöhnt.
War nur zu Faul, den Code von f4k3 umzuformatieren.

Danke für eure Hilfe

Geht dank des "sauberen" Programmierstils ...

Werds mir angewöhnen jetzt jedesmal n begin -> end mit dazu zu schreiben

Zitat von f4k3:

Werds mir angewöhnen jetzt jedesmal n begin -> end mit dazu zu schreiben

Ach Mist, hätte bestimmt auf ein super teures, äh, meine tolles, Buch veweisen und Provision kassieren können :winK: Na ja, beim nächsten mal..

zusammenfalten · markieren

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

Zitat von Der_Unwissende:

Zitat von f4k3:

Werds mir angewöhnen jetzt jedesmal n begin -> end mit dazu zu schreiben

Ach Mist, hätte bestimmt auf ein super teures, äh, meine tolles, Buch veweisen und Provision kassieren können :winK: Na ja, beim nächsten mal..

lol ... böser Unwissender

Zitat von kalmi01:

zusammenfalten · markieren

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