Anmelde Form

[freak4fun]

Wo steht denn wer für was berechtigt ist? Wenn es in der Datenbank steht musst du erst die Datenbank anlegen. Ansonsten musst du die Daten direkt im Programm hinterlegen, was aber sehr unflexibel wäre und auch unsicher.

[strom]

Wie würde den der Quelltext aussehen,

Sagen wir mal Button1 soll Form2 öffnen
Dieses geht aber nur mit Passwort

[strom]

Und auf Form2 möchte ich dann meine Datenbank pflegen !

[strom]

Für meine zwecke würde das reichen!
Wenn dieses im Programm mit verankert würde.

[freak4fun]

Nur mal als ganz einfaches Beispiel:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if (MaskEdit1.Text = 'user') and (MaskEdit2.Text = 'pwd')  then
    begin
      // Aufruf Form2
      ShowMessage('Benutzer erfolgreich angemeldet!');
    end
  else
    begin
      MaskEdit1.Text := '';
      MaskEdit2.Text := '';
      ShowMessage('Ihre Benutzerdaten sind nicht korrekt!');
    end;
end;

Vielleicht PasswortChar von MaskEdit2 noch auf * stellen.

MfG
f4f

[spaxxn]

Es gibt rechts am oberen Rand eines jeden Eintrags von dir eine Edit-Funktion. Du brauchst einen Thread nicht zweimal innerhalb von 5 Minuten pushen.

[BullsEye]

Ich hab es immer gewusst! Irgendwann wird jdn das Programm benötigen^^

Also die Version ist nicht mehr so ganz aktuelle aber HIER gibts dazu nen Thread. Heute Nachmittag, wenn ich wieder zu Hause bin lad ich dir mal was bessseres /aktuelleres hoch. Damit kannst du denn mehr anfangen denke ich mal...

EDIT: Hier ist der Source Code!(s. Anhang)

[strom]

Super funktoniert

Danke !!

Gibt es noch einen einfachen befehl, wenn Button1 gedrückt wird (onClick)
das sich panel1 grün färbt ?

[BullsEye]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Color := clgreen;
end;

[strom]

Super geht auch !

Wenn jetzt Panel1 grün ist, kann auch Button 2 benutz werden.

wie bekomme ich das hin ??