delphi Tchart画图

Tchart画图

Tchart初始化：

      Chart1.FreeAllSeries(nil);
     chart1.LeftAxis.SetMinMax(0,JXL);
     chart1.BottomAxis.SetMinMax(KSTime,KSTime+CXTime);

Tchart画折线图：

1、设置线条LineSeries的横坐标为时间格式，双击Chart控件在Series页面下General页面设置；
2、按时间升序排列查询数据库中需要的数据；
3、记录集中做一个循环，从第一条到最后一条,使用AddXY添加曲线点；
  First;
  While not AdoQuery.Eof do
  begin
    LineSeries.AddXY(AdoQuery.FieldValues[日期], AdoQuery.FieldValues[数值]);
    Next;
  end;
4、LineSeries.Active := True; 完成！
5、动态创建线条曲线时：
  var LS: TLineSeries;
  begin
    //删除已有Series
    Chart1.FreeAllSeries(nil);
    LS := TLineSeries.Create(Chart1);
    LS.Active := False;
    LS.Title  := '测试';
    LS.LinePen.Width    := 1;
    LS.XValues.DateTime := True;
    //循环添加
    ......
    //添加并显示
    LS.Active := True;
    Chart1.AddSeries(LS);
  end;

Tchart画点图：

     point1 := Tpointseries.Create(Chart1);
     point1.Active := False;
     point1.Title := '有效PCA';
     point1.SeriesColor :=clyellow;
     point1.XValues.DateTime := True;

     point1.AddXY(PCAChangeTime,CXL);

     Chart1.AddSeries(point1);
     point1.Active :=true;

Tchart画饼图：

     Chart1.FreeAllSeries(nil);
     Pie := TPieSeries.Create(Chart1);
     Pie.Active := False;
     Pie.AddPie(QS,'全身麻醉',clgreen);
     Pie.AddPie(ZGN,'椎管内麻醉',CLblue);
     Pie.AddPie(FH,'复合麻醉',CLred);
     Pie.AddPie(JM,'静脉麻醉',CLyellow);
     Pie.AddPie(JB,'局部麻醉',clpurple );
     Pie.AddPie(JC,'基础麻醉',clLtGray);
     Chart1.AddSeries(Pie);
     Pie.Active := true;

Tchart坐标为时间格式：

LS.XValues.DateTime := True;

Tchart上下坐标轴都显示：

     chart1.Series[0].HorizAxis :=aBothHorizAxis;
     chart1.TopAxis.SetMinMax(0,CXTime);