Delphi 利用图表分析产品销售走势.rar

Delphi 利用图表分析产品销售走势,根据数据库中，各个商品的销售状况，生成一个曲线图表，直观快速的展现产品的销售走势：
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　 DBChart1.Title.Text.Text:='『' ComboBox1.Text '』利用图表分析产品销售走势';
　　 with ADOQuery1 do
　　 begin
　　 Close;
　　 SQL.Clear;
　　 SQL.Add('select 日期 , sum(金额) as 销售金额 from (select 日期 , 金额 from xsd where 商品名称=''' ComboBox1.Text ''') group by 日期');
　　 Open;
　　 end;
　　 Series1.XLabelsSource:='日期';
　　 DBChart1.Series[0].YValues.valuesource:='销售金额';
　　 DBChart1.Series[0].DataSource:=ADOQuery1;
　　end;