Delphi XE7 FirDac 三层模式下开发数据分析图表 Dcube
基于FirDac+EXE+DLL模式下，通过Dev控件，可以开发多维数据分析表格功能，可以替代服装行业的Dcube控件。
主要Dev控件：TcxDBPivotGrid 和TcxGrid
主要的数据集： TFDQUERY
通过云露中间件提供的TSelectFDData类，就可以很简单的得到结果。
部分代码：
var
FselectFDdata: TSelectFDData;
i: integer;
begin
Result := False;
FselectFDdata := TSelectFDData.Create;
try
FselectFDdata.DataBaseName := sDBName;
FselectFDdata.Url := FSYSINFO.sURL;
FselectFDdata.SqlText := sSQLText;
FselectFDdata.Param := sParam;
if FselectFDdata.Open <> 0 then
begin
ErrorBox(FselectFDdata.GetErrorInfo);
exit;
end;
FselectFDdata.SetData(Query);
Result := True;
finally
FselectFDdata.Free;
end;
主要Dev控件：TcxDBPivotGrid 和TcxGrid
主要的数据集： TFDQUERY
通过云露中间件提供的TSelectFDData类，就可以很简单的得到结果。
部分代码：
var
FselectFDdata: TSelectFDData;
i: integer;
begin
Result := False;
FselectFDdata := TSelectFDData.Create;
try
FselectFDdata.DataBaseName := sDBName;
FselectFDdata.Url := FSYSINFO.sURL;
FselectFDdata.SqlText := sSQLText;
FselectFDdata.Param := sParam;
if FselectFDdata.Open <> 0 then
begin
ErrorBox(FselectFDdata.GetErrorInfo);
exit;
end;
FselectFDdata.SetData(Query);
Result := True;
finally
FselectFDdata.Free;
end;
得到的效果如下：
系统基类也提供了表格的显示或长度列的动态设置. 如下图：