unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit2;
type
{ Tform_benutzerlogin }
Tform_benutzerlogin =
class(TForm)
anmelden_knopf: TButton;
beenden_knopf: TButton;
ausgabe_fehlermeldung: TLabel;
s_benutzername: TEdit;
s_passwort: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure anmelden_knopfClick(Sender: TObject);
procedure beenden_knopfClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ private declarations }
public
login_counter : integer;
end;
var
form_benutzerlogin: Tform_benutzerlogin;
implementation
{$R *.lfm}
{ Tform_benutzerlogin }
procedure Tform_benutzerlogin.FormShow(Sender: TObject);
begin
form_benutzerlogin.Caption := '
Scylla V.1.0 - Login';
s_benutzername.Caption := '
';
s_passwort.Caption := '
';
ausgabe_fehlermeldung.Caption := '
';
anmelden_knopf.Caption := '
Anmelden';
beenden_knopf.Caption := '
Beenden';
end;
procedure Tform_benutzerlogin.beenden_knopfClick(Sender: TObject);
begin
close;
end;
procedure Tform_benutzerlogin.anmelden_knopfClick(Sender: TObject);
var
benutzername :
string;
passwort :
string;
begin
benutzername := '
root';
passwort := '
dHuz76Tr%4f1B';
if login_counter < 3
then begin
if (s_benutzername.Caption = benutzername)
and (s_passwort.Caption = passwort)
then begin
form_hauptmenue.Show;
end
else begin
ausgabe_fehlermeldung.Caption := '
Falsche Eingabe';
s_benutzername.Clear;
s_passwort.Clear;
login_counter := login_counter + 1;
end;
end;
if login_counter >= 3
then begin
form_benutzerlogin.Close;
end;
end;
end.