Abgesehen von dem bisher geschriebenen,
was haben
systemquer und
sysupdate miteinander zu tun?
Delphi-Quellcode:
try
v_ma:='Passwort1';
v_ta:='Passwort2';
ug:=TStringList.Create;
systemquer.Active:=True;
systemquer.Edit;
ug.Add('update SYSTEM set MPASSWORT='+v_ma+',TAPASS='+v_ta+' where ID=1');
sysupdate.ModifySQL:=ug; { TODO 1 -oIch -cSQL : Update vervollständigen }
try
systemquer.Post;
systemquer.Refresh;
except
Showmessage('Speichern fehlgeschlagen!');
end;
finally
ug.Free;
systemquer.Active:=False;
end;
Gruß
K-H