如何计算DBGrid中某一列的总和?

Question

如题.我用的是 ADOQuery连接数据库，比如说我想把某列的总和用一个Label 显示出来
我知道数据库里可以用 SELECT SUM(Cmoney) from ComCun 来计算
但是怎样不改变DBGrid里的内容，直接就实现把计算的结果在Label.Caption中显示出来随便问一个很菜的问题，怎样实现在Edit输入内容后按回车键时的响应跟按Botton1的响应一样?
有按回车时响应的事件吗?谢谢

Answer 1

1.
function SumDataset(ADataSet: TDataSet; AFieldName: String): Double;
var
  sBook: TBookStr;
begin
  Result := 0.0;
  with ADataSet do
  begin
    sBook := Book;
    DisableControls;
    try
      First;
      while not Eof do
      begin
        Result := Result + FieldByName(AFieldName). AsFloat;
        Next;
      end;
    finally
      Book := sBook;
      EnabledControls;
    end;
  end; 
end;2.
procedure TfmLogin.edtDBPasswordKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then //ENTER
    btnLogin.Click
  else
    inherited;
end;

Answer 2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then 
    button1.onClick(Sender);
end;

Answer 3

用dxdbgrid,显示某一列的汇总值（或总个数）：
设置summaryFooterType，为cstSum（或cstAvg）、并设置summaryFormat
还有dxDBGrid的DefaultFields为True、edgoLoadAllRecords为True

Answer 4

http://search.csdn.net/Expert/topic/2071/2071222.xml?temp=.5195276