delphi 画图表，曲线图

最新推荐文章于 2020-09-12 05:15:53 发布

黑贝是条狗

最新推荐文章于 2020-09-12 05:15:53 发布

阅读量5.7k

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/y281252548/article/details/84570739

版权

delphi 专栏收录该内容

143 篇文章 8 订阅

订阅专栏

dbchart 图表连接 datasource

先双击dbchart 创建一个图表类型 Series[0]

多个则 Series[N]

绑定列

   DChar.Series[0].Title := '日均人数';
   DChar.Series[0].DataSource := MemReport;


    DChar.Series[0].Marks.ArrowLength := 20;
    DChar.Series[0].XLabelsSource := 'acitemname';
    DChar.Series[0].YValues.ValueSource := 'daysavg';
    DChar.Series[0].marks.Visible := True;
    DChar.Series[0].marks.Style:= smsvalue;

    DChar.Series[0].CheckDataSource;

chart 曲线图

var
  lcs: TFastLineSeries;

begin


  //画走势图
  cht1.SeriesList.Clear;
  cht1.Title.Text.Text := MemMaster.FieldByName('MOTHERNAME').AsString + '的宝宝:' +
  MemMaster.FieldByName('babyNAME').AsString + '体重走势图';
  lcs := TFastLineSeries.Create(cht1);
  lcs.Title := '体重' ;

  lcs.Marks.Style := smsvalue;
  lcs.Marks.Arrow.Visible := True;
  lcs.Marks.Callout.ArrowHead := ahSolid;
  lcs.Marks.Callout.ArrowHeadSize := 10;
  lcs.Marks.Visible := True;
  lcs.SeriesColor := clRed;
  with MemMaster do
  begin
    DisableControls;
    Last;
    while not Bof  do
    begin
      lcs.AddY(FieldByName('weight').AsFloat,  FormatDateTime('yyyymmdd',FieldByName('sodate').AsDateTime), clRed);
      Prior;
    end;
    First;
    EnableControls;
  end;

  cht1.AddSeries(lcs);