[本文由 iuprg发表,iuprg@tom.com, www.newsoftstudio.com]
转载请保留出处.
delphi7.0为例
在form上放一个dbchart ,或者编程create一个也可以,但是单元必须引用DbChart.
假设dbchart名称为dbchart1
[本文由 iuprg发表,iuprg@tom.com, www.newsoftstudio.com]
然后按下面代码(放到一个按钮事件里)动态建立一个条形图
myseries:= tbarseries.Create(self);
with myseries do begin
ParentChart:=dbchart1;
Marks.ArrowLength := 20;
Marks.Visible := True;
DataSource := datamodule1.qry_total; //这是数据源 dataset,注意:如果此处错误地指向了datasource那么
// 图形只显示一条记录!所以必须是table或者adoquery
SeriesColor := clRed ;
XLabelsSource := '姓名';// 这是要在x轴上显示的字段名称
YValues.DateTime := False ;
YValues.Name := 'Bar';
YValues.Multiplier := 1.000000000000000000;
YValues.Order := loNone ;
YValues.ValueSource := '分数; // 这是要在y轴上显示的字段名称
Active:=true;
RefreshSeries;
end;
dbchart1.RefreshData;
当将 myseries:= tbarseries.Create(self); 放到form.create里或者show里时,可以在按钮事件里加上
dbchart1.SeriesList.Clear;以保证每次创立的series是根据自己的代码而重新建立的,能避免一些错误.
=====================[本文由 iuprg发表,iuprg@tom.com, www.newsoftstudio.com]
其他形状的图:
TAreaSeries
TBarSeries
TCircledSeries
TCustomBarSeries
TCustomSeries
TFastLineSeries
THorizBarSeries
TLineSeries
TPieSeries
TPointSeries
TSeriesPointer
关于teechart的vcl 在线文档 -----http://www.berneda.com/TeeChart6Docs/
[本文由 iuprg发表,iuprg@tom.com, www.newsoftstudio.com]