代码如下:
var
lQuery: Business.Data.TQuery;
begin
lQuery := Business.Data.TQuery.Create(nil);
with lQuery do
begin
ConnectionString := 'Biz:COLLABORATIONCOLLABORATION.DATABASE';
Close;
CommandText := 'SELECT * FROM DUAL';
//Params.ParamByName('FScope').AsString := CODESCOPE;
//Params.ParamByName('FCode').AsString := ACodeID;
// Result := '100';
Open;
end;