delphi画饼图

delphi画饼图

ID:39548409

大小:33.00 KB

页数:3页

时间:2019-07-06

delphi画饼图_第1页
delphi画饼图_第2页
delphi画饼图_第3页
资源描述:

《delphi画饼图》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、unitUnit1;interface……typeTForm1=class(TForm)Chart1:TChart;Series1:TPieSeries;……varForm1:TForm1;ps:TPieSeries;implementation{$R*.dfm}procedureTForm1.FormCreate(Sender:TObject);beginps.Free;ps:=TPieSeries.Create(self);ps.Clear;ps.Repaint;ps.CustomXRadius:=70;ps.CustomYRadius

2、:=70;ps.Marks.Arrow.Visible:=False;ps.Marks.ArrowLength:=-50;ps.Marks.Transparent:=True;ps.Marks.Frame.Visible:=False;ps.Marks.Style:=smsLabel;ps.ParentChart:=Chart1;ps.AddPie(10,'第一部分',clRed);ps.AddPie(20,'第二部分',clGreen);ps.AddPie(5,'第三部分',clBlue);end;procedureTForm1.Butt

3、on1Click(Sender:TObject);beginMoveDesPart(1);end;procedureTForm1.Button2Click(Sender:TObject);beginMoveDesPart(2);end;procedureTForm1.Button3Click(Sender:TObject);beginMoveDesPart(3);end;procedureTForm1.MoveDesPart(i:Integer);varj:Integer;beginforj:=1to3dobeginifj=ithenbeg

4、inps.ExplodedSlice.Value[j-1]:=10;endelsebeginps.ExplodedSlice.Value[j-1]:=0;end;end;end;end.用TCHART和DBCHART都可以:双击DBCHART-->点'ADD...'新增饼图-->选"SERIES"选项卡-->选"MARKS"选项卡-->选"STYLE"的值为"LABELANDPERCENT";在程序中用语句:dbchart1.series[0].add(200,'一月');dbchart1.series[0].add(220,'二月');很

5、简单啊,用TChart控件啊,DELPHI有自带的把数据库中的数据获取到了然后用TChart显示出来就行了,有波行图有饼图等等,自己可以选需要的图以下是我以前写的一写代码procedureTForm5.BitBtn1Click(Sender:TObject);varnum:array[0..20]ofinteger;i,ageend,agebegin:integer;beginself.Series1.Clear;fori:=0to9dobeginagebegin:=10*i;ageend:=10*i+9;withadoquery1dobe

6、ginclose;sql.Clear;sql.Text:='selectcount(*)asnumbfrompeopleinformationwhereagebetween'+inttostr(agebegin)+'and'+inttostr(ageend);open;num[i]:=fieldbyname('numb').AsInteger;ifnum[i]<>0thenself.Series1.Add(num[i],quotedstr(inttostr(agebegin))+'至'+quotedstr(inttostr(ageend))

7、+'岁');end;end;end;TChart双击后可以增加一个图,这个图的名字是series1默认的,可以更改

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。