这都出问题,服了,自己参照吧!
query3.Close;
query3.sql.Clear;
query3.SQL.Add('update 标准表 set 状态=:状态,注销日期=:注销日期');
query3.SQL.Add('where 账号=:账号 ');
query3.ParamByName('状态').AsString:='D';
query3.ParamByName('注销日期').AsDateTime:=date;
query3.ParamByName('账号').AsString:=query1.fieldbyname('账号').AsString;
query3.execsql;
query1.SQL.Add('where '+str+' and substring(状态,1,1)='+quotedstr('Z'));