Steema Central

Code: Select all

    for i:=0 to nSeries-1 do
      with AddSeries(TBarSeries) do
      begin
        Marks.Hide;
        Name:=GetNewSeriesName(Self);
        FillSampleValues;
      end;

Code: Select all

uses Chart, DBChart, Series, Engine, FireDAC.Comp.Client;

var Chart1: TDBChart;
var MemTable1: TFDMemTable;

procedure TForm1.FormCreate(Sender: TObject);
var val: double;
    i: Integer;
begin
  MemTable1:=TFDMemTable.Create(Self);
  with MemTable1 do
  begin
    Name:='MemTable1';

    FieldDefs.Add('Price', ftCurrency);
    with FieldDefs.AddFieldDef do
    begin
      Name:='Name';
      DataType:=ftString;
      DisplayName:='Name';
    end;

    CreateDataSet;
    Open;

    val:=1000+Random(500);
    for i:=1 to 5 do
    begin
      AppendRecord([val, 'val'+IntToStr(i)]);
      val:=val+Round(Random(10)-4.5);
    end;
  end;

  Chart1:=TDBChart.Create(Self);

  with Chart1 do
  begin
    Parent:=Self;
    Align:=TAlignLayout.Client;
    Color:=TAlphaColors.White;
    Gradient.Visible:=False;
    Walls.Back.Color:=TAlphaColors.White;
    Walls.Back.Gradient.Visible:=False;
    View3D:=False;

    Legend.TextStyle:=ltsRightPercent;

    with AddSeries(TPieSeries) do
    begin
      Marks.Style:=smsValue;
      DataSource:=MemTable1;
      YValues.ValueSource:='Price';
      XLabelsSource:='Name';
    end;
  end;
end;

Code: Select all

/********* TABLE INTERBASE 2020 UPDATE 5*******/
CREATE TABLE TR_MGRUPPO 
(
        PK_PROGRESSIVO	INTEGER DEFAULT 0 NOT NULL,
        FK_MG	INTEGER DEFAULT 0 NOT NULL,
        TOT_ORE	DOUBLE PRECISION DEFAULT 0 NOT NULL,
        TOT_COSTO	DOUBLE PRECISION DEFAULT 0 NOT NULL,
        TOT_ORE_ISTITUZIONALI	DOUBLE PRECISION DEFAULT 0 NOT NULL,
 PRIMARY KEY (PK_PROGRESSIVO)
);


/***** DATA FOR TABLE *****/
PK_PROGRESSIVO;FK_MG;TOT_ORE;TOT_COSTO;TOT_ORE_ISTITUZIONALI
251;1;7540;240008,73;103445,4
252;2;642;29766;2111,22
253;3;0;0;0
254;4;536;40200;2306,26
255;5;1937;145275;12641,48
256;6;91;3353;4565,23
257;7;963;66112,12;3308,36
258;8;314;23550;1552,57
259;9;1321,3;49284,49;14719,08
260;10;1390;52870,9;4062,34

Code: Select all

uses Editor.Chart, Editor.DBChart, Chart, DBChart, Series, Engine, FireDAC.Comp.Client, Data.DB;

var PieChart, BarChart: TDBChart;
var MemTable1: TFDMemTable;

procedure TForm1.EditPieButtonClick(Sender: TObject);
begin
  TChartEditForm.Edit(Self, PieChart);
end;

procedure TForm1.EditBarButtonClick(Sender: TObject);
begin
  TChartEditForm.Edit(Self, BarChart);
end;

procedure TForm1.FormCreate(Sender: TObject);
var val: double;
    i: Integer;
begin
  MemTable1:=TFDMemTable.Create(Self);
  with MemTable1 do
  begin
    Name:='TR_MGRUPPO';

    FieldDefs.Add('PK_PROGRESSIVO', ftInteger);
    FieldDefs.Add('FK_MG', ftInteger);
    FieldDefs.Add('TOT_ORE', ftFloat);
    FieldDefs.Add('TOT_COSTO', ftCurrency);
    FieldDefs.Add('TOT_ORE_ISTITUZIONALI', ftCurrency);

    CreateDataSet;
    Open;

    AppendRecord([251, 1, 7540, 240008.73, 103445.4]);
    AppendRecord([252, 2, 642, 29766, 2111.22]);
    AppendRecord([253, 3, 0, 0, 0]);
    AppendRecord([254, 4, 536, 40200, 2306.26]);
    AppendRecord([255, 5, 1937, 145275, 12641.48]);
    AppendRecord([256, 6, 91, 3353, 4565.23]);
    AppendRecord([257, 7, 963, 66112.12, 3308.36]);
    AppendRecord([258, 8, 314, 23550, 1552.57]);
    AppendRecord([259, 9, 1321.3, 49284.49, 14719.08]);
    AppendRecord([260, 10, 1390, 52870.9, 4062.34]);
  end;

  PieChart:=TDBChart.Create(Self);
  BarChart:=TDBChart.Create(Self);

  with PieChart do
  begin
    Parent:=Self;
    Align:=TAlignLayout.Client;
    Color:=TAlphaColors.White;
    Gradient.Visible:=False;
    Walls.Back.Color:=TAlphaColors.White;
    Walls.Back.Gradient.Visible:=False;

    Legend.TextStyle:=ltsRightPercent;
    Legend.FontSeriesColor:=True;

    with AddSeries(TPieSeries) do
    begin
      Marks.Hide;
      DataSource:=MemTable1;
      YValues.ValueSource:='TOT_COSTO';
      XLabelsSource:='TOT_COSTO';
    end;
  end;

  with BarChart do
  begin
    Parent:=Self;
    Align:=TAlignLayout.Right;
    Color:=TAlphaColors.White;
    Gradient.Visible:=False;
    Walls.Back.Color:=TAlphaColors.White;
    Walls.Back.Gradient.Visible:=False;
    Width:=Form1.Width div 2;

    Legend.TextStyle:=ltsRightPercent;
    Legend.FontSeriesColor:=True;

    with AddSeries(TBarSeries) do
    begin
      Marks.Hide;
      DataSource:=MemTable1;
      YValues.ValueSource:='TOT_COSTO';
      XLabelsSource:='TOT_COSTO';
      ColorEachPoint:=True;
    end;
  end;
end;