有關TDBChart控件設置!(50分)

  • 主题发起人 主题发起人 WilliamGui
  • 开始时间 开始时间
W

WilliamGui

Unregistered / Unconfirmed
GUEST, unregistred user!
我用一個TDBChart控件, 表示Table中一條記錄各字段的百份比,
如有一條記錄:
鋼 20% 銅30% 其它50%
可以表示出來﹐就是label顯示不到圖上﹐我的意思是說每個百份比前應該說明是鋼﹑還是銅或其它,
如何設置? 明白我的意思嗎?
 
1,简单方法:放三个label控件
2,如果钢、铜、其它均为某字段的值,则将该字段设置为bottomAxis,且将其labels的
style选为text即可。
 

開始我也是這樣﹐可是還是有問題﹐
因為這三項值顯示的位置會變化﹐難道還要判斷坐標不成?
另外﹐我想你也用過這些圖表功能吧? 如何﹐打印出圖表出來呢?
或者有什么別的更好的組件包,我用TeeChart Pro, 覺得很麻煩。
如果你愿意幫我這個忙﹐我可Send我的程式給你瞧瞧﹐不要笑我就是了。
OK﹖

 
procedure TForm1.BitBtn1Click(Sender: TObject);
var i,j,k:integer;
i1,j1,k1:string;
begin
form1.Series1.Clear;
i:=random(30);
j:=random(30);
k:=random(30);
i1:=inttostr(Round(i/(i+j+k)*100));
j1:=inttostr(Round(j/(i+j+k)*100));
k1:=inttostr(Round(k/(i+j+k)*100));
form1.Series1.AddBar(i,'铜'+' '+i1+'%',clTeeColor);
form1.Series1.AddBar(j,'铁'+' '+j1+'%',clTeeColor);
form1.Series1.AddBar(k,'金'+' '+k1+'%',clTeeColor);
end;

不管你要什么数据,数据应是已经存在的,预先读取就好了。
不过要是数据很多的话这方法就不好用了,
不是很明白你的意思。希望对你有帮助。
 
看demo
有很详细的说明
 
多人接受答案了。
 
后退
顶部