由 amtd 发布于: 2001-02-15 09:33

with Tquery.Create(self) do
begin
SQL.Add('update xhs set Status=1');
SQL.Add('where id='+Query2.FieldByName('ID').AsString);
ExecSQL;
Free;
end;




with Tquery.Create(self) do
begin
SQL.Add('delete from xhs where');
SQL.Add('id='+Query2.FieldByName('ID').AsString);
ExecSQL;
Free;
end;

from http://www.aotong.com/anbin/idea/ideashow.asp?ID=90&sort=delphi



__________________