用dbchart啊。 with DBChart1 do begin AddSeries(TPieSeries.Create(self)); end; with Series[DBChart1.SeriesCount-1] do begin DataSource:=Query_Pic; XValues.Name := 'X'; Xvalues.DateTime:=true; XValues.ValueSource :='value_coll_date'; YValues.Name := 'Y'; YValues.ValueSource :=Tempvalues; end;
with DBChart1 do
begin
AddSeries(TPieSeries.Create(self));
end;
with Series[DBChart1.SeriesCount-1] do
begin
DataSource:=Query_Pic;
XValues.Name := 'X';
Xvalues.DateTime:=true;
XValues.ValueSource :='value_coll_date';
YValues.Name := 'Y';
YValues.ValueSource :=Tempvalues;
end;