delphi画饼图

unit Unit1;

interface

……

type

TForm1 = class(TForm)

Chart1: TChart;

Series1: TPieSeries;

……

var

Form1: TForm1;

ps: TPieSeries;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); begin

ps.Free;

ps := TPieSeries.Create(self);

ps.Clear;

ps.Repaint;

ps.CustomXRadius := 70;

ps.CustomYRadius := 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;

procedure TForm1.Button1Click(Sender: TObject); begin

MoveDesPart(1);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

MoveDesPart(2);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

MoveDesPart(3);

end;

procedure TForm1.MoveDesPart(i: Integer);

var

j: Integer;

begin

for j := 1 to 3 do

begin

if j = i then

begin

ps.ExplodedSlice.Value[j-1] := 10;

end

else

begin

ps.ExplodedSlice.Value[j-1] := 0;

end;

end;

end;

end.

用TCHART和DBCHART都可以: 双击DBCHART-->点'ADD...'新增饼图-->选"SERIES"选项卡-->选"MARKS"选项卡-->选"STYLE"的值为"LABEL AND PERCENT"; 在程序中用语句: dbchart1.series[0].add(200,'一月'); dbchart1.series[0].add(220,'二月');

很简单啊,用TChart控件啊,DELPHI有自带的

把数据库中的数据获取到了然后用TChart显示出来就行了,有波行图有饼图等等,自己可以选需要的图

以下是我以前写的一写代码

procedure TForm5.BitBtn1Click(Sender: TObject);

var

num:array[0..20] of integer;

i,ageend,agebegin:integer;

begin

self.Series1.Clear;

for i:=0 to 9 do

begin

agebegin:=10*i;

ageend:=10*i+9;

with adoquery1 do

begin

close;

sql.Clear;

sql.Text:='select count(*) as numb from peopleinformation where age between '

+inttostr(agebegin)+' and '+inttostr(ageend);

open;

num[i]:=fieldbyname('numb').AsInteger ;

if num[i]<>0 then

self.Series1.Add(num[i],quotedstr(inttostr(agebegin))+'至'+quotedstr(inttostr(ageend))+'岁');

end;

end;

end;

TChart双击后可以增加一个图,这个图的名字是series1默认的,可以更改