//修改系统数据库的 任务表 状态为 已终止
strSql:='update TTASK set FSTATE=''tsAborted'' where fprocunitid=''RWFP'' and FFLOWGUID=( select FFLOWGUID from TFLOWID where FID='''
+self.InfoBroker1.Info.DataSetByID('RWSJJ').FieldByName('GID').AsString+ ''')';
qCancel.Close;//关闭数据集
qCancel.CommandText:=strSql;
qCancel.Execute;
//修改系统数据库的 任务消息表 状态为 已终止
strSql:='update TTASKMESSAGE set FSTATE=''tmsAborted''';
strSql:=strSql + ' where FTASKGUID in ';
strSql:=strSql + ' (select FGUID from TTASK where fprocunitid=''RWFP'' AND FFLOWGUID=( select FFLOWGUID from TFLOWID where FID='''
+self.InfoBroker1.Info.DataSetByID('RWSJJ').FieldByName('GID').AsString+ '''))';
qCancel.Close; //关闭数据集
qCancel.CommandText:=strSql;
qCancel.Execute;