Question

delphi DBchart 怎样实现多个字段图表显示

delphi 中用DBChart显示图表,数据库中,字段名称有:收入,支出,利润,现在想把这三个字段比较数值都同时显示在DBChart的柱形图上,求高手代码帮助.

Answer 1

通过添加多个Series来实现，每个Series对应一个字段，这样就会出现一个统计图（柱状图为例），每个月都会并列三条柱，三条柱分别是你的收入,支出,利润了

Answer 2

一个Delphi7下的简单例子（两条柱，注意需要引用Series单元）：
procedure TForm1.btn1Click(Sender: TObject);
var
RedSeries, BlueSeries: TBarSeries;
I: Integer;
begin
cht.SeriesList.Clear;

RedSeries := TBarSeries.Create(cht);
BlueSeries := TBarSeries.Create(cht);
//图表线条名称
RedSeries.Title := '一月份';
BlueSeries.Title := '二月份';

//标记出该点的值
RedSeries.Marks.Visible := True;
RedSeries.Marks.Style := smsValue;
BlueSeries.Marks.Visible := True;
BlueSeries.Marks.Style := smsValue;
//填充数据，这里需要根据你的实际情况来
for I := 1 to 5 do
begin
RedSeries.Add(I, IntToStr(I), clRed);
BlueSeries.Add(5 - I, IntToStr(I), clBlue);
end;

cht.AddSeries(RedSeries);
cht.AddSeries(BlueSeries);

cht.Title.Text.Text := '柱状图';
cht.BottomAxis.Title.Caption := '数值';

//设置图表的渐变
cht.Gradient.Visible := True;
cht.Gradient.StartColor := clGreen;
cht.Gradient.EndColor := clYellow;

//禁止图表滚动
cht.AllowPanning := pmNone;

cht.Refresh;
end;

Answer 3

先添加柱形图样式，然后在Series中设置收入，支出和利润字段。