关于delphi的TDBChart

Question

用 ADOQuery 做数据集时,ADOQuery的sql是动态设置的,那 TDBChart 怎样动态设置数据源,Series的对应字段值怎样动态指定,麻烦具体说说..不胜感激。

Answer 1

procedure TFrmChart.SeSkinButton2Click(Sender: TObject);
 
var
Series1:TLineSeries;
Str:string;
i:integer;
begin
   with DM.DataModule1.CDS do
  begin
  close;
  commandtext:='select *  from table1';
  Open;
  end;  str:='Field1';//字段名
  with DM.DataModule1 do
  begin
   Series1:=TlineSeries.Create(self);
   Series1.ParentChart:=Chart1;
  //图标
  series1.Title:='aaaff'
  //标题
  Chart1.Title.Text.Clear;
  chart1.Title.Text.Add('fffffff');
  Series1.DataSource:=dm.DataModule1.CDS;
  Series1.XLabelsSource:='yyyyyyy;
  Series1.YValues.ValueSource:=str;
  chart1.LeftAxis.AutomaticMinimum:=False;
  Chart1.LeftAxis.Minimum:=0;
  end;end;