delphi画饼图.docVIP

unit Unit1;interfacetype TForm1 = class(TForm) Chart1: TChart; Series1: TPieSeries;var Form1: TForm1; ps: TPieSeries;implementation$R *.dfmprocedure 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.Valuej-1 := 10; end else begin ps.ExplodedSlice.Valuej-1 := 0; end; end;end;end.用TCHART和DBCHART都可以: 双击DBCHART-点ADD.新增饼图-选SERIES选项卡-选MARKS选项卡-选STYLE的值为LABEL AND PERCENT; 在程序中用语句: dbchart1.series0.add(200,一月); dbchart1.series0.add(220,二月); 很简单啊,用 TChart控件啊,DELPHI有自带的把数据库中的数据获取到了然后用TChart显示出来就行了,有波行图有饼图等等,自己可以选需要的图以下是我以前写的一写代码procedure TForm5.BitBtn1Click(Sender: TObject);varnum:array0.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; numi:=fieldbyname(numb).AsInteger ; if numi0 then self.Series1.Add(numi,quotedstr(inttostr(agebegi