procedure TForm1.Button1Click(Sender: TObject);

var

//  series1:TBarSeries;

//  series2:TPieSeries;

//  series3:TAreaSeries;

//  series4:TCircledSeries;

//  series5:TFastLineSeries;

  myseries:TBarSeries;

begin

  with ADOQuery1 do

  begin

    close;

    sql.Clear;

    SQL.Text:='select 客户编号,sum(订单数量) 订单数量 from lsddbiao group by 客户编号';

    Open;

  end; 

  DBChart1.View3D:=false;

  DBChart1.FreeAllSeries;

  myseries:= TBarSeries.Create(self);

  With myseries do

  begin

    ParentChart := DBChart1;

    marks.Style:= smsvalue;

    DataSource := ADOQuery1;

    XLabelsSource :='客户编号';

    YValues.ValueSource :='订单数量';

  end;

end;