如何实现三个维度的柱状统计图? (100分)

  • 主题发起人 主题发起人 另一块砖
  • 开始时间 开始时间

另一块砖

Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现如下统计图:
Y
^
|
| |-8| |--| |--|
| |-5| | |--| | |--|--|
| |-2|-4|-7| |--|--|--| |--| | |
| |-1|-3| | |--| | | |--|--|--|
| |-0| |-6| |--|--|--| |--|--| |
|___|__|__|__|____|__|__|__|____|__|__|__|________>X
因此应该有9个(0至8)series。第0、3、6个series的MultiBar应为mbside,其余应为mbStacked,试验程序如下:
procedure TForm1.FormCreate(Sender: TObject);
var
barseries:Tbarseries;
i:integer;
begin
for i:=0 to 8do
begin
barseries:=Tbarseries.Create(self);
self.DBChart1.AddSeries(barseries);
if (i=0) or (i=3) or (i=6) then
barseries.MultiBar:= mbside
else
barseries.MultiBar:= mbstacked;
DBChart1.Series.Add(1,inttostr(i));
DBChart1.Series.Add(1,inttostr(i));
DBChart1.Series.Add(1,inttostr(i));
end;
end;
运行结果好像barseries.MultiBar:= mbside没有起作用,它把9个图层都摞在一个柱里了。
请问各位专家有什么办法实现这样的统计图呢?谢谢~
 
用ActiveX面板下的Chartfx控件。
 
delphi说:"license information for Tchartfx not found,you can not use this control in design mode"
为什么??!!~
 
用DATA Control 的 DBChart 标准控件!!!!!!!!!
 
后退
顶部