怎么用DBChart在一个图上显示多条线？在线等待！

Question

X轴是时间，Y轴是水位值，怎么按不同的测试水位的仪器在DBChart上显示多条线？就是有几个测试水位的仪器，就有几条线？
有例子请发到：[email protected]一定给分！！！！急急急

Answer 1

procedure TForm_SJFX_CPXSJGFX.showChart2(itype: integer; Dset: TQuery;
  num:integer; sTitle: string);
var
  vPie: TPieSeries;
  vBar: TBarSeries;
  vLine: TLineSeries;
  i, icolor: integer;
  sf, se: string;
begin
  i := 0;  if itype = 0 then
  begin
    vLine := TLineSeries.Create(nil);
    vLine.ParentChart := DBChart;
    vLine.XLabelsSource := xlabel;
    vLine.Marks.Style := smsLabelPercent;
    DBChart.AddSeries(vLine);
  end
  else if itype = 2 then
  begin
    vPie := TPieSeries.Create(nil);
    vPie.ParentChart := DBChart;
    vPie.XLabelsSource := xlabel;
    vPie.Marks.Style := smsLabelPercent;
    DBChart.AddSeries(vPie);
  end
  else
  begin
    vLine := TLineSeries.Create(nil);
    vLine.ParentChart := DBChart;
    vLine.XLabelsSource := xlabel;
    vLine.Marks.Style := smsLabelPercent;
    DBChart.AddSeries(vLine);
  end;
  DBChart.series[num].title := sTitle;
//  DBChart.series[num].add(0,'0',getcolor(icolor));
    while not Dset.eof do
    begin
      DBChart.Series[icolor].Add(Dset.fields[1].asfloat, Dset.fields[0].asstring, clblue);//颜色可以根据num决定不同的series有不同的颜色
      Dset.next;
    end;
  end
end;