Simpler Programm Login

chickenfigt1989 · Beiträge: 444 Erhaltene Danke: 2

Hallo
Will ein simplen Programm Login.
Habe nun folgendes:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm2.Button1Click(Sender: TObject);
begin
if Edit1.Text='master' then
begin
Form1.show;
Form2.close;
end
else
Showmessage('Du hast keinen Zutritt');
end;

Wollte nun noch was einbauen dass wenn das Passwort admin ist, das auf Form1 ein button sichtbar ist den man als normal benutzer nicht hat
wie macht man das?
lg

HenryHux · Verfasst: Do 31.03.11 14:09

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm2.Button1Click(Sender: TObject);
begin
  button1.visible := false;
  if Edit1.Text='master' then
  begin
    Form1.show;
    Form2.close;
    button1.visible := true;
  end
  else
    Showmessage('Du hast keinen Zutritt');
end;

Thom · Beiträge: 70 Erhaltene Danke: 5 Delphi 10 Seattle Prof.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if (Edit1.Text='master') or (Edit1.Text='admin') then
  begin
    Form1.Show;
    Form1.Button1.Visible:=Edit1.Text='admin';
    Form2.Close;
  end else ShowMessage('Du hast keinen Zutritt');
end;

@HenryHux:

chickenfigt1989 hat folgendes geschrieben :

Wollte nun noch was einbauen dass wenn das Passwort admin ist, das auf Form1 ein button sichtbar ist den man als normal benutzer nicht hat

chickenfigt1989 · Beiträge: 444 Erhaltene Danke: 2

Vielen Dank hat mir weitergeholfen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme