dbchart 使用问题？（高手请进）

Question

我想利用三个RadioGroup控件控制dbchart图表的生成
第一个RadioGroup：饼图，条形，柱形
第二个RadioGroup：字段名称（部门，学历，年龄等等）
第三个RadioGroup：信息显示模式（名称，名称和百分率，名称和统计数）数据控件使用adoquery ,不知道怎样设置dbchart 属性？
不知道怎样写代码？
急用！

Answer 1

1
//==============================================================================
procedure TfrmReport.cbChartTypePropertiesChange(Sender: TObject);
var
  tmp : TChartSeries;
begin
  //
  case cbChartType.ItemIndex of
    0:
    begin
      tmp:=PieSeries1;
      ChangeSeriesType(tmp,TChartSeriesClass(TPieSeries));
      dbchaChart.Series[0].Active := True;
      dbchaChart.Series[1].Active := False;
      dbchaChart.Series[2].Active := False;
      //
      tsPie.TabVisible:=True;
      tsBar.TabVisible:=False;
      tsLine.TabVisible:=False;
    end;
    1:
    begin
      tmp:=Series1;
      ChangeSeriesType(tmp,TChartSeriesClass(TBarSeries));
      dbchaChart.Series[0].Active := False;
      dbchaChart.Series[1].Active := True;
      dbchaChart.Series[2].Active := False;
      //
      tsPie.TabVisible:=False;
      tsBar.TabVisible:=True;
      tsLine.TabVisible:=False;
    end;
    2:
    begin
      tmp:=Series2;
      ChangeSeriesType(tmp,TChartSeriesClass(TLineSeries));
      dbchaChart.Series[0].Active := False;
      dbchaChart.Series[1].Active := False;
      dbchaChart.Series[2].Active := True;
      //
      tsPie.TabVisible:=False;
      tsBar.TabVisible:=False;
      tsLine.TabVisible:=True;
    end;
  end;
end;
//==============================================================================

Answer 2

谢了啊
我调试过了，图形没有改变，而且我在第二个RadioGroup：字段名称（部门，学历，年龄等等）
中选择时，老是报错，我从部门跳到学历时，他老是报adoquery 部门 字段不存在！我已经清空了adoquery.sql，怎么还是出现这种错误？

Answer 3

在DBChart 上 要建立 三个图。