Teechart中dbchart用程序代码实现图表的方法

[本文由 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]