Anmelde Form

[strom]

hallo,

versuche hie ein anmeldefenster zu bauen.
unter menü möchte ich gerne die benutzer und die berechtigungen der drei buttons verwalten! natürlich passwortgeschützt.

wenn sich einer anmeldet, sollten sich dann die panels grün färben, wenn er die Berechtigung für die Buttons hat.

wer kann mir helfen ? danke

[SirThornberry]

Wir helfen gern wenn du ein konkretes Problem hast. An welcher Stelle kommst du nicht weiter? Bevor wir helfen wollen wir Eigeninitiative sehen.

[strom]

Versuche eine Rückfallebene für unser Leitstellensystem zu bauen!

Strassen, Objekte usw. ( Datenbank mit Paradox7). Da investiere ich schon viel Zeit und
lese und lese. Bin noch Anfänger, was Delphi angeht!

Versuche gerade Delphi zu lernen, aber das ist ja ziemlich viel oder???
Macht aber Spaß! :lol:

[mkinzler]

Ein kleiner Tipp: Vergesse die BDE!
Mit was hast du genau Probleme?

[strom]

Eine Passwortabfrage !

Kannst du dir vielleicht die Dateiablage runterladen, dann verstehst du was ich meine!
Wie baue ich so was am besten auf??

Warum soll ich BDE vergessen ???

[mkinzler]

Die BDE wurde mit Erscheinen von D6 (!) als veraltet markiert und wird seither nicht mehr weiterentwickelt.

Eine Tabelle mit den Benutzern, eine mit den möglichen Berechtigungen und eine mit den Rechten der Benutzer

[strom]

Ja genau ! Wenn man sich dann Anmeldet, sollen neben den Buttons die Panels grün werden,
wenn man die Berechtigung hat.

Eine SQL-Datenbank ist zu kompliziert oder ??

[strom]

bin ja noch am überlegen, wie ich es am besten aufbaue!
(Datenbank)

aber dies hat ja nix mit der passwortabfrage zu tun.

[mkinzler]

Zuerst einmal muss die Datenbank bestehen. Warum sollte die Passwortabfrage zu kompliziert sein?

[strom]

muss nix kompliziertes sein! einfach ein kleiner Schutz!
das für bestimmte Leute der Button Datenpflege gesperrt ist . :roll:

[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. :pale:

[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 :-D

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 ??

[freak4fun]

Zitat:

Zitat von BullsEye

Delphi-Quellcode:

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

Ich hoffe du hast das nicht so 1:1 übernommen. Du musst ja noch die Abfrage machen ob der Benutzer überhaupt berechtigt ist.
Du kannst Buttons aktivieren/deaktivieren:

Delphi-Quellcode:

Button2.Enabled := true;

Edit:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if (MaskEdit1.Text = 'user') and (MaskEdit2.Text = 'pwd')  then
    begin
      // Aufruf Form2
      Panel3.Color := clGreen;
      BitBtn2.Enabled := True;
      ShowMessage('Benutzer erfolgreich angemeldet!');

    end
  else
    begin
      MaskEdit1.Text := '';
      MaskEdit2.Text := '';
      Panel3.Color := clRed;
      BitBtn2.Enabled := false;
      ShowMessage('Ihre Benutzerdaten sind nicht korrekt!');
    end;
end;

[BullsEye]

Zitat:

Zitat von freak4fun

Ich hoffe du hast das nicht so 1:1 übernommen. Du musst ja noch die Abfrage machen ob der Benutzer überhaupt berechtigt ist.

Es war ja auch nur die Frage, WIE man son Panel grün bekommt.. wenn wir ihm hier nun den kompletten Code geben hat er 0 lerneffekt!

[strom]

Cool funktioniert alles!!! Super

Danke
:firejump: :firejump:

[strom]

was neues ???

wieso geht das nicht ???

Delphi-Quellcode:

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
Panel7.Color := clgreen;
Timer1.Enabled := true
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form2.Close
end;

ok ! :cry:

hast ja recht

[Phoenix]

1.) Neue Frage -> Neuer Thread.

Und dann unterlasse es bitte 2.) auf eigene Beiträge zu antworten solange noch keine 24 Stunden um sind. Dazu gibt es den 'Edit' Button rechts oben neben dem Beitrag, damit kannst Du zusätzliche Informationen an den letzten Beitrag hinzufügen.