请问:在Delphi编程中,如何指定饼形图的数据源?(100分)

  • 主题发起人 主题发起人 lishuyan
  • 开始时间 开始时间
L

lishuyan

Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi编程中,如何指定饼形图的数据源?
 
看看会有帮助
选择TeeChar的类型:
procedure Form.SeriesClsComboBoxClick(Sender: TObject);
var
SeriesCls : TChartSeriesClass;
mySeries : TChartSeries;
i : integer;
begin
for i := Chart1.SeriesCount-1 downto 0 do
Chart1.Series.Free;

case SeriesClsComboBox.ItemIndex of
0 : SeriesCls := TLineSeries;
1 : SeriesCls := TBarSeries;
2 : SeriesCls := THorizBarSeries;
3 : SeriesCls := TAreaSeries;
4 : SeriesCls := TPointSeries;
5 : SeriesCls := TPieSeries;
6 : SeriesCls := TFastLineSeries;
else
SeriesCls := TPieSeries;
end;

mySeries := SeriesCls.Create(self);
mySeries.ParentChart := Chart1;
mySeries.Clear;
mySeries.Marks.Visible := True;
mySeries.ColorEachPoint := True;

//下面对Series赋值
Dat.myQuery.Open;
Dat.myQuery.First;
while not Dat.myQuery.Eof do
begin
if Dat.myQuery.FieldByName('a1').AsString = '' then
mySeries.Add(Dat.myQuery.FieldByName('a2').Value, '其他', clTeeColor)
else
mySeries.Add(Dat.myQuery.FieldByName('a2').Value, Dat.myQuery.FieldByName('a1').AsString, clTeeColor);
Dat.myQuery.Next;
end;
Dat.myQuery.Close;

end;
 
多谢了!这样在chart中到用过,但是我想能不能象在Excel中那样直接指定一下就可以?
 
这里用DBChart组件
添加一个Series,然后到Series页面,选中要设置的Series,上面又DataSource啊。
 
Tdbchart.SeriesList.DataSources:=TQuery;
 
谢谢各位老兄,我不想用Chart控件,就想在Excel中使用,我想把它作为Web页面。
 
您们到Excel中看一下,然后看看怎麽编程实现?有劳各位了!
 
后退
顶部