获取决策数据集一些方法

atiger

代码修改决策数据集项的显示名称
dsDecision.DataSet.Close;
  TDecisionDataSet(dsDecision.DataSet).DecisionDef.SummaryDefs.Items.DisplayName := 'aa';
  dsDecision.DataSet.open;
// i 是要修改的第几个项，从0 开始，根据决策数据集项定义的排序


维的显示名称
TDecisionDataSet(dsDecision.DataSet).DecisionDef.DimensionDefs.Items.DisplayName := 'cc';
// i 是要修改的第几个项，从0 开始，根据决策数据集维定义的排序


这样的修改是一次性的，

atiger

procedure OpenCloseDim(ADecisionBroker: TDecisionBroker);
var
  I: Integer;
  lMsg, lDimName: string;
  lDS: TDecisionSource;
begin
  lMsg := '';
  lDS := ADecisionBroker.DecisionSource;
  //遍历所有的维，nDims是维的总数
  for I := 0 to lDS.nDims - 1 do
  begin
    //根据“维绝对索引”获取维显示名称
    lDimName := lDS.GetDimensionName(I);
    //根据“维绝对索引”获取维的状态，并判断是否处于打开状态
    if (lDS.GetState(I) = TDimState.dmOpen) then
      lMsg := lMsg + 'Close: ' + lDimName + #13#10 else
      lMsg := lMsg + 'Open: ' + lDimName + #13#10;
    //根据“维索引”来切换维的状态
    lDS.ToggleDimIndex(lDS.GetGroup(I), lDS.GetIndex(I, False), False);
  end;
  jsDialogs.ShowMsg(lMsg, '');
end;

{
  用到的枚举类型和方面声明:

  TDimState = (dmClosed, dmOpen, dmDrilled, dmPaged, dmNone);
  TDimGroup = (dgRow, dgCol, dgSum, dgPage, dgNone);

  function TDecisionSource.GetDimensionName(iDim: Integer): String;
  function TDecisionSource.GetState(iDim: Integer): TDimState;
  function TDecisionSource.GetGroup(iDim: Integer): TDimGroup;
  function TDecisionSource.GetIndex(iDim: Integer; bOpen: Boolean): Integer;
  procedure TDecisionSource.ToggleDimIndex(dimGroup: TDimGroup; Index: Integer; bOpen: Boolean);

}

atiger

dsDecisionBroker.DecisionSource.DrillDimIndex(TDimGroup.dgRow,0,-1,true);
参数说明
第一个参数是要缩进行还是列
第二个参数是要缩进第几个行或者列（从0还是）
第三个参数是要缩进第几个值，全部为-1（从0还是）
第四个参数true为缩进，false取消缩进

atiger

dsDecisionBroker.DecisionSource.SwapDimIndexes(Tdimgroup.dgCol,TDimgroup.dgRow,0,0,true);

第一个参数是从啥维转换
第二个参数是转换成啥维
第三个参数是要转换的第几个维（从0还是）
第四个参数是要转换成第几个维（从0还是）
第五个参数是否需要展开到该行或者该列

atiger

获取当前决策数据集的维、项、目前展开几个等的方法都在
dsDecisionBroker.DecisionSource 这个下

nDataCols
nDataRows        
nDims                  整个的维的个数
nSums                 项个数
nRowDims           行维个数
nColDims              列维个数
nOpenRowDims   展开了几个行维
nOpenColDims     展开了几个列维