【结帖】[请求]求个数据处理的方法。比较急。谢谢高手来看看**

hule1234

麻烦一下，业务参数里面的代码要写些什么？

zfang

业务参数赋值就看18楼的连接。
透视数据集你用业务参数作为条件。
打开透视数据集前，你要把业务参数赋好值。

hule1234

用环境Context创建当前环境lContextCurrent
怎么操作？

zfang

就是如此
lContextCurrent := TContextCurrent.Create(Context);

zfang

楼主，问一下，现在你照着做了后碰到什么难题？

hule1234

现在考虑代码在，找不到合适的机会赋值和查询

zfang

哦，你给参数赋值的话， 一定要在数据集打开之前，也就是DataSetTotalCount.dataSet.Open;这个之前。sql写法就形如SELECT *
  FROM TSBYS
  WHERE TSBYS.XM = &[Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\DeptID.Param]（这是个业务参数）
楼主，你先试试看，有问题再反馈。

hule1234

Biz:\OPERATION\Run.ParamGroup\lyear.param                  参数年
Biz:\OPERATION\Run.ParamGroup\lmonth.param               参数月
procedure TMainForm.btnQueryClick(Sender: TObject);         查询按钮
DataSetTotalCount.DataSet.Close;                                     透视数据集一
DataSetTotalSore.DataSet.Close;                                      透视数据集二

procedure TMainForm.BizFormShow(Sender: TObject);
begin
DataSetTotalCount.DataSet.Close;
DataSetTotalSore.DataSet.Close;
end;

接下来该怎么写才好？两个参数不会传。

zfang

就类似于这样子：
  TPivotDataSet(DataSetBroker1.dataSet).Close;
  TPivotDataSet(DataSetBroker1.dataSet).DecisionDef.SQL := 'SELECT * FROM CSGZB '
     + ' WHERE CSGZB.RYID = &[Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\OperatorID.Param]';
  //给这个参数赋值的代码写在这里
//&[Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\OperatorID.Param]它是一个参数
  TPivotDataSet(DataSetBroker1.dataSet).Open;

hule1234

lParam 没有初始化
lContextCurrent赋值了但没有使用

还有这两个问题，代码写的很垃圾



procedure TMainForm.BizFormShow(Sender: TObject);
   begin
   DataSetTotalCount.DataSet.Close;
   DataSetTotalSore.DataSet.Close;
end;

procedure TMainForm.btnQueryClick(Sender: TObject);
var
  lParam: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(Context);
  DataSetTotalCount.dataSet.Close;
  TPivotDataSet(DataSetTotalCount.dataSet).DecisionDef.SQL:='SELECT * FROM ANALYSRECORD where year =&[Biz:\OPERATION\Run.ParamGroup\lyear.param] and month =&[Biz:\OPERATION\Run.ParamGroup\lmonth.param]';
  try
    lBizURL.URL := 'Biz:\OPERATION\Run.ParamGroup\lyear.param';
    lParam.Value := deDept.Text;
  finally
    lBizURL.Free;
   try
    lBizURL.URL := 'Biz:\OPERATION\Run.ParamGroup\lmonth.param';
    lParam.Value := DataEdit1;
  finally
    lBizURL.Free;
  DataSetTotalCount.dataSet.Open;
end;
end;
end;

end.