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 :mrgreen: ). 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:

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 :gruebel:

[dedeur]

Hab folgende änderung gemacht: :coder:

Code:

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

er compeliert jetzt auch :freak:

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