如何匯總query的數值字段

Question

在Query的OnCalcFields事件中编写程序便可：procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
     label1.caption := IntToStr(StrToInt(label1.caption)+DataSet.FieldByName('字段名').AsInteger;
end;

Answer 1

select sum(field) from table

Answer 2

query1.Sql.Add('Select Sum(YorField) as MySum from YourTable');
query1.open;
showmessage(Query1.fieldbyname('MySum').asString);

Answer 3

用联合查询语句
  select kk from table
  union 
  select sum(kk) as kk from table

Answer 4

to fengyun77 
我照你的方法做這段程序卻好像沒有執行﹐還有哪些設置嗎﹖
如果用sql再進行一sum匯總是可以但這們卻會改變dbgrid的顯示

Answer 5

这是我做设计时用到的汇总SQL语句，我就不修改了，你自己斟酌自己的情况自己修改吧。
SELECT zgxx.部门, COUNT( * ),SUM(基本工资),SUM(工龄工资),SUM(书报费),SUM(教辅津贴),SUM(生活津贴),SUM(物价补贴),SUM(洗理费),SUM(应时补贴),SUM(附加工资),SUM(房租),SUM(水费),SUM(电费),SUM(其它扣款),SUM(病假扣款),SUM(事假扣款),SUM(应发工资),SUM(实发工资)
FROM Zgxx
   INNER JOIN Gongzi
   ON  (Gongzi.职工号 = Zgxx.职工号 ) and (月份=:mon)
GROUP BY Zgxx.部门