SQL: Namens u. Passwortabfrage funzt, aber PW ändern nicht.

[LuckyStrike4life]

Delphi-Quellcode:

  pwQuery.Close;
  pwQuery.SQL.Clear;
  pwQuery.SQL.Text :=
  'SELECT * ' + #10 +
  'FROM "t:\edienstreisebuch\pw.dbf"' + #10 +
  'WHERE Name = :iedName AND' + #10 +
  '      Passwort = :iedPWalt';
  pwQuery.prepare;
  pwQuery.ParamByName('iedName').AsString := edName.text;
  pwQuery.ParamByName('iedPWalt').AsString := edPWalt.text;
  pwQuery.open;
  pwQuery.Active:=True;
if pwQuery.Bof and pwQuery.Eof
 then begin
 application.terminate;

end
else

  pwQuery.Close;
  pwQuery.SQL.Text :=
  'UPDATE "t:\eDienstreisebuch\pw.dbf"' + #10 +
  'SET    Passwort = :iNewPassWord' + #10 +
  'WHERE  Name     = :iUserName';
  pwQuery.prepare;
  pwQuery.ParamByName('iUserName').AsString    := edName.Text;
  pwQuery.ParamByName('iNewPassWord').AsString := edPWneu.Text;
  pwQuery.ExecSQL;
end;

So gehts nun, juhuu!

Weiß wer wie man normale Editfelder verschlüsselt, ich meine damit - dass die Felder fürs Passwort nicht in Klartext angezeigt werden, jenes wäre wohl sehr hilfreich... . Hm.