procedure Tsb.FormShow(Sender: TObject);
begin
  Sb.ADODataSet3.Close;
  Sb.ADODataSet3.CommandText:='select 类别,count(*) as 数量 from 商品 group by 类别';
  Sb.ADODataSet3.Open;
  Sb.DBChart1.Series[0].DataSource:=Sb.ADODataSet3;
  Sb.DBChart1.Series[0].XLabelsSource:='类别';
  Sb.DBChart1.Series[0].YValues.ValueSource:='数量';
end;