一个复杂报表的图表问题，高分相送

Question

有一个DataSet里面的数据与以下的相似：
 A   B   C   D  E
 A1  B1  C1  D1 E1
 A2  B2  C2  D2 E2现在要出一个柱状图图表，图表样式是这样的：
（B1---E2都是数值）
　数值
     |          C2
     |  C1     | |  E2
     |B1 |  E1 | |D2 | 
     | | |D1 |B2 | | |
　   |_|_|_|_|_|_|_|_|__ 
             A1      A2
就是要在A的每一个区间内，显示B到E的数值柱状图。请问这样的图表用什么工具可以做出来，各位有没有遭到过类似的问题，提供一点提示好吗？谢谢了。

Answer 1

用Tchsrt:
创建一个Series1,选择外观为Bar
编程:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ado1.First;
  While not ado1.Eof do
    begin
    Series1.Add(ado1.FieldByName('B').AsFloat,ado1.FieldByName('A'));
    Series1.Add(ado1.FieldByName('C').AsFloat,'');
    Series1.Add(ado1.FieldByName('D').AsFloat,'');
    Series1.Add(ado1.FieldByName('E').AsFloat,'');
    ado1.Next;
    end;
end;

Answer 2

有两处笔误:
用Tchart:
创建一个Series1,选择外观为Bar
编程:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ado1.First;
  While not ado1.Eof do
    begin
    Series1.Add(ado1.FieldByName('B').AsFloat,ado1.FieldByName('A').asstring);
    Series1.Add(ado1.FieldByName('C').AsFloat,'');
    Series1.Add(ado1.FieldByName('D').AsFloat,'');
    Series1.Add(ado1.FieldByName('E').AsFloat,'');
    ado1.Next;
    end;
end;

Answer 3

用TeeChart7Source可以解决的，没那么麻烦吧！！！

Answer 4

强烈推荐Cell控件！设置报表所见即所得，图表功能尤其强劲！

Answer 5

简单
一个DBChart就搞定了...

Answer 6

是要数据和图表在一张纸上打出来，
TeeChart7Source或Cell控件能实现吗？

Answer 7

DBChart.print.
跟QuickReport一样的..