类似于这样的代码
var
MyInfo : CHECIANALY.TCHECIANALY; //业务信息
s : WideString;
begin
MyInfo := CHECIANALY.TCHECIANALY.Create(Context);
s := MyInfo.DataSets.Items[0].Name;
Dialogs.ShowMessage(s);
MyInfo.Free;
if MyInfo.DataSets.Items[1].Active then
begin
lFilter :=dsbSend.DataSet.FieldByName('QSSYH').Text;
if lFilter <> '' then lFilter := 'SYH like '''+lFilter+'''';
TSqlDataSet(DataSetBroker1.DataSet).UserFilter :=lFilter;
end;