DELPHI6的 DBchart 控件用法，谢谢，急，马上给分

Question

实现动态建立SERIES,同时改变形状。如折线，饼形 
TAreaSeries
TBarSeries
TCircledSeries
TCustomBarSeries
TCustomSeries
TFastLineSeries
THorizBarSeries
TLineSeries
TPieSeries
TPointSeries
TSeriesPointer
总共有11个SERIES可供选择。
创建一个FORM，放DBCHART组件，TABLE组件，两个按钮。TABLE组件连接表，当然你也可以用QUERY等。
看以下例子：
procedure TForm1.Button1Click(Sender: TObject);//   曲线
var myseries:TLineSeries;
begin
dbchart2.SeriesList.Clear;
myseries:= TLineSeries.Create(self);
myseries.ParentChart:=dbchart2;
myseries.DataSource:=table1;
myseries.XValues.ValueSource:='yf';
myseries.YValues.ValueSource:='gz';
end;procedure TForm1.Button2Click(Sender: TObject);//   柱状
var myseries:TBarSeries;
begin
dbchart2.SeriesList.Clear;
myseries:= TBarSeries.Create(self);
myseries.ParentChart:=dbchart2;
myseries.DataSource:=table1;
myseries.XValues.ValueSource:='yf';
myseries.YValues.ValueSource:='gz';
end;

Answer 1

j:=0;
   i:=0;
   self.Query1.Close;
   self.Query1.SQL.Clear;
   sql:='select tb form PHS_leader970 where (time = t) and (cq=0)';
   self.Query1.SQL.Add('sql');
   query1.Next;
   query1.ParamByName('tb').Value:= self.DBChart1.Series[1].XValue[j+1] ;
   self.Query1.Open;