delphi画饼图

《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默认的,可以更改