我有个表
列名  桌号  消费内容    金额
      001   香烟        23
      001   酒          20
      001   饮料        8
      002   香烟        12
      002  点心         7


怎么样可以得到以下显示列表
                 消费内容
   桌号     香烟  酒  饮料  点心   合计
   001       23  20   8     0       51
   002       0    0    0     7      8
   合计                             59


请高手指点下  delphi 里怎么写