procedure TMainForm.Button2Click(Sender: TObject);
var s :string;
begin
s:=GetParamValue;
TSQLDataSet(DataSetBroker1.DataSet).close;
TSQLDataSet(DataSetBroker1.DataSet).SQL.Text :='select * from sjb2 WHERE zd1 in ('+s+')';
TSQLDataSet(DataSetBroker1.DataSet).open;
end;
procedure TMainForm.BizFormCreate(Sender: TObject);
begin
SetParamValue('''a'',''b''');
end;