强大统计图控件--delphi自带tchartfx介绍 (2001年.txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 48 行

强大统计图控件--delphi自带TChartfx介绍 (2001年3月10日) 

网友更新  分类:控件使用   作者:阎磊  推荐:阎磊   阅读次数:410  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
在我们制作统计图是常常是用TDbchart,实际上delphi另一个Tchartfx比TDbchart功能强的多，唯一是不直接绑定数据源，下面举一个与数据绑定例子
var
i,num:integer;
maxy:REAL;
begin
MAXY:=0;
with DataModule3 do
begin
num:=table4.RecordCount;
TABLE4.First;
ChartFx1.OpenDataEx(COD_VALUES,2,NUM);//打开数据通道设置为2 Series and 8 Points}
For i:=0 to num-1 Do
Begin
With ChartFx1 Do
Begin
ThisSerie:=0; //Serie 1的数据
Value[i]:=TABLE4.FIELDBYNAME('area').asfloat;
if maxy begin
maxy:=Value[i];
end;

ThisSerie:=1;//Serie 2的数据
Value[i]:=TABLE4.FIELDBYNAME('SALE').asfloat;
if maxy begin
maxy:=Value[i];
end;

Legend[i]:=TABLE4.FIELDBYNAME('DL').asstring;//设置图例
End;

TABLE4.Next;
END;

ChartFx1.adm[CSA_MAX]:=maxy;//设置Y的最大值
ChartFx1.CloseData(COD_VALUES);
End;

END;