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;
1