DELPHI与SQL SERVER 谁能告诉我如何动态实现小计。合计及显示表的部分字段

Question

select id, sum(value) from table group by id --合计
select id, sum(value) from table group by id WITH CUBE --小计
select field1, field2 from table --显示表的部分字段

Answer 1

//我为什么？什么都答呀！//小记
procedure TForm1.ADOQuery1BeforePost(DataSet: TDataSet);
begin
  DataSet['金额'] := DataSet.FieldByName('价格').AsFloat *
    DataSet.FieldByName('数量').AsFloat;
end;//合计
procedure TForm1.ADOQuery1AfterPost(DataSet: TDataSet);
var
  vBook: string;
  vSum: Real;
begin
  vSum := 0;
  with DataSet do begin
    vBook := Book;
    while not Eof do begin
      vSum := vSum + FieldByName('数量').AsFloat;
      Next;
    end;
    Book := vBook;
  end;
  Edit1.Text := FloatToStr(vSum);
end;