TDBChart简单使用

饼状
var
  Pie: TPieSeries;
begin
  dbcht1.SeriesList.Clear;
  Pie:=TPieSeries.Create(dbcht1);
  Pie.ParentChart:= dbcht1;
  Pie.Clear;
  Pie.Marks.Visible:=true;
  Pie.Marks.Style:=smsValue;

  Pie.DataSource:= cds1;
  Pie.xlabelsSource:='name';
  Pie.XValues.valuesource:='icount';
  Pie.YValues.valuesource:='icount';
  Pie.Active:=True;
end;

柱状
var
  Bar: TBarSeries;
begin
  dbcht1.SeriesList.Clear;
  Bar:=TBarSeries.Create(dbcht1);
  Bar.ParentChart:= dbcht1;
  Bar.Clear;
  Bar.Marks.Visible:=true;
  Bar.Marks.Style:= smsValue;
  Bar.DataSource:= cds1;
  Bar.xlabelsSource:='name';
  Bar.XValues.valuesource:='icount';
  Bar.YValues.valuesource:='icount';
  Bar.Active:=True;
end;


设计时固定，运行时切换
tmpChart:TChartSeries;
case cbb1.ItemIndex  of
  0:begin
      tmpChart := dbcht1.Series[0];
      ChangeSeriesType(tmpChart, TBarSeries);
      tmpChart.Active := true;
      tmpChart.RefreshSeries;
    end;
  1:begin
      tmpChart := dbcht1.Series[0];
      ChangeSeriesType(tmpChart, TPieSeries);
      tmpChart.Active := true;
      tmpChart.RefreshSeries;
    end;
  end;