CHART控件,高手请进!~~ 急~

Question

有一个叫 Total 的表,表中字段名及记录如下:姓名      行为       花费阿一      买烟       800
阿二      买酒       650
阿二      KTV        350
阿二      冼浴       300
阿一      KTV        400我用这样的SQL语句:select 姓名, sum(花费) as 花费 from total group by 姓名实现了按照姓名统计了所有的花费.我想将结果用CHART控件显示出来 ,请高手帮帮我,急~!~~给个代码最好,因为我实在看不懂CHART控件

Answer 1

//一下代码为柱状图显示
var
  B:TBarSeries; 
begin
  B := TBarSeries.Create(nil);
  B.Title := '费用';
  B.Marks.Style := smsvalue;
  Chart1.AddSeries(B);
  Query.First;
  while not Query.Eof do begin
    Chart1.Series[0].Add(Query.FindField('费用').AsInteger,Query.FieldByName('姓名').AsString);
　　Query.Next;
  end;
end;

Answer 2

for NO:=1 to DM.adoq_ShopFloor_Enquiry.RecordCount do
    begin
       Plato_Frm.Chart1.Title.Text.Text:='ShopFloor Plato Analysis';
       Plato_Frm.Chart1.Title.Font.Size:=12;
       Plato_Frm.Series1.Add(DM.adoq_ShopFloor_Enquiry.FieldValues['Counts'],DM.adoq_ShopFloor_Enquiry.FieldValues['LocationCaused']);
       DM.adoq_ShopFloor_Enquiry.Next;
    end;

Answer 3

同意一楼。最简单的实例，在form上置入一chart,在formcreate里一楼的代码即可，但是要实用还得调整很多属性。呵呵