(Gast)
n/a Beiträge
|
Re: Benutzerlogin if-Anweisung mit ODER ?
22. Aug 2007, 17: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
|
|
Zitat
|