Delphi 获取DataSet传入参数后的SQL命令

ClientDataSet1.CommandText := sSQL;

ClientDataSet1.Params.Clear;

ClientDataSet1.CommandText :='SELECT * FROM test WHERE ; //传参后面加一个空格

ClientDataSet1.Params.ParamByName('TID').AsInteger:=1001;

ClientDataSet1.Params.ParamByName('Code').AsString:= '5668';

//每个":Code "后面，都跟上一个“ ”(空格)

function TWorkWindowForm.GetDataSetSQL(DataSet: TClientDataSet): string;

var

i:integer;

sSQL,

sName,

sVaule:string;

begin

Result := '';

DataSet.Close;

sSQL := DataSet.CommandText;

for i:=0 to DataSet.Params.Count-1 do

begin

sName := DataSet.Params.Items[i].Name;

sVaule := DataSet.Params.Items[i].Value;

if DataSet.Params.Items[i].DataType in [ftString,ftMemo] then //根据数据类型 自己再修改一下

sSQL:=StringReplace(sSQL, ':'+sName+' ' , QuotedStr(sVaule)+' ',[rfReplaceAll])

else

sSQL:=StringReplace(sSQL, ':'+sName+' ' ,sVaule+' ' ,[rfReplaceAll]);

end;

Result := sSQL;

end;