Morgen,
ich hab mich mal rangesetzt und ne Passwortabfrage geschrieben. Hab das ganze Programm + Datenbank als *.rar mal mit Hochgeladen, damit ihr euch das anschaun könnt.
Die Passwortabfrage bezogen auf den jeweiligen Namen geht,
aber ich brauch auch eine Maske, wo man sein PW verändern kann.
Da hab ich mir gedacht es würde funktionieren wenn ich die PW Abfrage mache, und wenn der
Query ein Ergebniss erhält - dann wird das neue PW (ausm edit Feld) gleich abgefragt und eingeschrieben.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
pwQuery.Close;
pwQuery.SQL.Clear;
pwQuery.SQL.Text :=
'SELECT * ' + #10 +
'FROM 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.edit;
pwQuery.FieldByName('Passwort').AsString := edPWneu.text;
} end;
Ich hab den Code, der den Fehler verursacht mal ausgeklammert.
Delphi gibt ne Fehlermeldung raus,
pwQuery: Eine Datenmenge die nur zum lesen ist, kann nicht verändert werden.
Wie muss ich denn den Code verändern, damit ich das PW auch in der Art ändern kann?
Schaut euch das Programm mal an, ist Delphi 5 Enterp. - ich hoffe ihr könnts öffnen, compilieren, lesen usw... .