delphi画饼图.docVIP

unit Unit1; interface 厖n 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; TC