Datenvergleich in Paradox7

[dedeur]

Hallo
ich hab eine DB in Paradox7

und will nun die Daten die ich eingelesen habe (funzt auch alles mit dem einhacken der daten) (immer nur Username + Passwort) wieder in einem DBEdit abfragen (sprich: Username und PW müssen natürlich identisch im gleichen datensatz vorhanden sein ). kann mir einer sagen was für eine procedure ich schreiben muss die in mein LoginButton kommt hab schon rumprobiert es aber irgendwie nicht hinbekommen

MfG
dedeur

[shmia]

Zum Vergleichen von User und Passwort wird kein DBEdit benötigt, sondern man arbeitet
direkt mit der Benutzertabelle:

Delphi-Quellcode:

function TForm1.CheckPassword(const user, pw : string):boolean;
begin
   Result := False;
   TableUsers.Open;
   if not TableUsers.Locate('UserName', user, []) then
      Exit; // user nicht gefunden

   // Vergleiche "pw" mit Passwort in Tabelle
   Result := TableUsers.FieldByName('Password').AsString = pw;
   TableUsers.Close;  // Benutzertabelle zumachen
end;

[dedeur]

Ich bekomme folgenden Fehler wenn ich Starte:

Code:

[Fehler] Unit1.pas(75): Undefinierter Bezeichner: 'CheckPassword'

hab gestern rumgeteste es aber nich so richtig hinbekommen...kann jemand nochmal helfen
(meine Tabelle heißt DBBenutzer und die Felder User & Passwort)

[shmia]

Zitat von dedeur:

Ich bekomme folgenden Fehler wenn ich Starte:

Code:

[Fehler] Unit1.pas(75): Undefinierter Bezeichner: 'CheckPassword'

Dann versuchs mal mit der Klassenvervollständigung (Strg-Shift-C drücken).
Und schwubs erzeugt dir die IDE die Deklaration der Funktion.
Jede Methode in einer Klasse (auch ein Formular ist ein Klasse) muss
zuerst deklariert werden, bevor man sie "hinprogrammiert".

[dedeur]

Code:

function TForm1.CheckPassword(const User, Passwort : string):boolean;
begin
   Result := False;
   Table1.Open;
   if not User.Locate('UserName', User, []) then
      Exit;       // user nicht gefunden

                  // Vergleiche "pw" mit Passwort in Tabelle
   Result := Table1.FieldByName('Password').AsString = pw;
   Table1.Close;  // Benutzertabelle zumachen
end;

danke das wußt ich noch nicht

bekomme aber jetzt folgenden Fehler:

Code:

[Fehler] Unit1.pas(82): Record, Objekt oder Klassentyp erforderlich

hab versucht die var umzubennenen, hat aber nicht geklappt

[dedeur]

Hab folgende änderung gemacht:

Code:

if not Table1.Locate('UserName', User, []) then

er compeliert jetzt auch

aber wir wird die function ausgeführt wenn ich jetzt die User und PW eintrage passiert nicht's