begin
with DataSetCCGCSJJ1 do
begin
Close;
Params.ParamByName('IN_DATE').AsString := '2007/04/12';
Params.ParamByName('cur_test').DataType := TFieldType.ftCursor; //返回参数的类型必须设置,否则出错
Open;;
end;
end;
begin
with DataSetCCGCSJJ1 do
begin
Close;
Params.ParamByName('IN_DATE').AsString := '2007/04/12';
Params.ParamByName('cur_test').DataType := TFieldType.ftCursor; //返回参数的类型必须设置,否则出错
Open;;
end;
end;