Benutzer Login funktioniert nicht

[hoika]

Hallo,

für sowas nehme ich normalerweise ne Query,
weil die einfacher handhabbar ist.

Mit TTable sieht es etwa so aus.

Delphi-Quellcode:

function TForm1.LoginOK(const theUserName, thePassWord: String): Boolean;
begin
  Result:= False;

  with Table1 do
  begin
   // IndexFieldName:= 'BenutzerName'; //würde wohl auch gehen
    IndexName:= 'idx_TableLogin_Benutzername';  Index auf Benutzername  muss existieren
    SetKey;
    FieldByName('BenutzerName').AsString:= theUserName';
    if GotoKey then
    begin
      Result:= FieldByName('Passwort').AsString=thePassWord;
    end;
  end;
end;

Delphi-Quellcode:

ohne Index und TTable ist es etwas aufwendiger (full table scan)

function TForm1.LoginOK(const theUserName, thePassWord: String): Boolean;
var
  sUserName : String;
  sPassWord : String;
begin
  Result:= False;

  with Table1 do
  begin
    First;
    while not EOF do
    begin
      sUserName:= FieldByName('BenutzerName').AsString;
      sPassWord:= FieldByName('Passwort').AsString;
     
      if (sUserName=theUserName) and
         (sPassWord=thePassWord) then
      begin
        Result:= True;
        Exit;
      end;

      Next;
    end;
  end;
end;

Heiko