Habe meinen Quellcode mal überarbeitet:
Delphi-Quellcode:
procedure Tform_benutzerlogin.anmelden_knopfClick(Sender: TObject);
var
benutzername : string;
passwort : string;
i : integer;
zaehler : integer;
begin
benutzername := 'root';
passwort := 'dHuz76Tr%4f1B';
for i := 1 to 3 do begin
if (s_benutzername.Caption = benutzername) and (s_passwort.Caption = passwort)
then begin
s_benutzername.Clear;
s_passwort.Clear;
form_hauptmenue.Show;
end
else begin
s_benutzername.Clear;
s_passwort.Clear;
ausgabe_fehlermeldung.Caption := 'Falsche Eingabe';
zaehler := i + 1;
end;
if zaehler >= 6
then begin
form_benutzerlogin.Close;
end;
end;
end;
Ich würde gerne eine Benutzerabfrage schreiben, welche die vorgegebenen Variablen benutzername/passwort überprüft.
Sofern die Eingabe des Benutzers korrekt ist, soll sich ein weiteres Fenster öffnen.
Sofern die Benutzereingabe falsch ist, sollen sich die Eingabefelder leeren und eine Labelbeschriftung mit Falscher Eingabe erzeugen.--> das ganze soll 3 mal von statten gehen, ansonsten soll sich die Anwendung schließen.