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

hevin 2004-11-08 11:03:38
有一个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的数值柱状图。请问这样的图表用什么工具可以做出来,各位有没有遭到过类似的问题,提供一点提示好吗?谢谢了。
...全文
135 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
wu_small 2004-11-11
  • 打赏
  • 举报
回复
高:)
zzlazio 2004-11-11
  • 打赏
  • 举报
回复
简单
一个DBChart就搞定了...
gobiz 2004-11-11
  • 打赏
  • 举报
回复
强烈推荐Cell控件!设置报表所见即所得,图表功能尤其强劲!
highway_programmer 2004-11-11
  • 打赏
  • 举报
回复
用TeeChart7Source可以解决的,没那么麻烦吧!!!
chenylin 2004-11-11
  • 打赏
  • 举报
回复
有两处笔误:
用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;
chenylin 2004-11-11
  • 打赏
  • 举报
回复
用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;
zwb666 2004-11-11
  • 打赏
  • 举报
回复
DING
hevin 2004-11-11
  • 打赏
  • 举报
回复
不是吧,没人遇到过这样的问题?
star_Qin 2004-11-11
  • 打赏
  • 举报
回复
up
hevin 2004-11-11
  • 打赏
  • 举报
回复
UP
zzlazio 2004-11-11
  • 打赏
  • 举报
回复
DBChart.print.
跟QuickReport一样的..
hevin 2004-11-11
  • 打赏
  • 举报
回复
是要数据和图表在一张纸上打出来,
TeeChart7Source或Cell控件能实现吗?

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧