高手帮看看,为什么没有结果呢,谢谢!数据库中有smalldatetime字段sfrq
一,当日分类汇总数据
With ADOQuery1 Do
begin
SQL.Clear;
SQL.Add('select distinct sfxm,sum(ysje) a,sum(jme) b ,sum(tfe) c , ');
SQL.Add('sum(tfe) c ,sum(bje) d,sum(ssje) e ,sum(qfe) f from gl_xysf');
SQL.Add(' where sfrq = '+DateToStr(now()));
SQL.Add(' group by sfxm ');
open;
end;
二、一段时间分类汇总
With ADOQuery1 Do
begin
SQL.Clear;
SQL.Add('select distinct sfxm,sum(ysje) a,sum(jme) b ,sum(tfe) c , ');
SQL.Add('sum(tfe) c ,sum(bje) d,sum(ssje) e ,sum(qfe) f from gl_xysf');
SQL.Add(' where sfrq between ' + IntToStr(Trunc(Datetimepicker1.Date)) + ' and ' + IntToStr(Trunc(Datetimepicker1.Date)));
SQL.Add(' group by sfxm order by sfxm');
Open;
end;
还有按月汇总,按年汇总,咋写DateTime字段与DateTimePicker 的比较语句呢?
一,当日分类汇总数据
With ADOQuery1 Do
begin
SQL.Clear;
SQL.Add('select distinct sfxm,sum(ysje) a,sum(jme) b ,sum(tfe) c , ');
SQL.Add('sum(tfe) c ,sum(bje) d,sum(ssje) e ,sum(qfe) f from gl_xysf');
SQL.Add(' where sfrq = '+DateToStr(now()));
SQL.Add(' group by sfxm ');
open;
end;
二、一段时间分类汇总
With ADOQuery1 Do
begin
SQL.Clear;
SQL.Add('select distinct sfxm,sum(ysje) a,sum(jme) b ,sum(tfe) c , ');
SQL.Add('sum(tfe) c ,sum(bje) d,sum(ssje) e ,sum(qfe) f from gl_xysf');
SQL.Add(' where sfrq between ' + IntToStr(Trunc(Datetimepicker1.Date)) + ' and ' + IntToStr(Trunc(Datetimepicker1.Date)));
SQL.Add(' group by sfxm order by sfxm');
Open;
end;
还有按月汇总,按年汇总,咋写DateTime字段与DateTimePicker 的比较语句呢?
解决方案 »
- 为什么要在这个地方声明变量呢?
- 最小化啟動與操作,外部程序
- 对于跳出 invalid pointer operation 的错误,是否有方法能跟踪问题在哪里?
- 请各位做过语音卡的大哥们帮帮小弟~~非技术问题
- ADOQuery数据集刷新,fastReport报表不刷新的问题
- tchart 中怎么改图形的颜色
- 请问是否有对Delphi源程序进行自动排版的工具?
- MS SQL Server数据库管理员需要那些技能和品质?散分!
- 关于OleContainer嵌入的问题,如何屏蔽WORD的右键菜单
- 最近要考3级A,有些题不会做,参考书上好像也没有。若谁能帮助请访问http://cjsyf_cn.myetang.com/3a.htm
- 如何使用delphi做三层?
- 走過路過的來看看,fastReport問題?
SQL.Add(' where sfrq = '''+DateToStr(now())+''''); SQL.Add(' where sfrq between ''' + IntToStr(Trunc(Datetimepicker1.Date)) + ''' and ''' + IntToStr(Trunc(Datetimepicker1.Date))+'''');
where (logdate >= '2009-11-25 00:00') //得是这种格式才帅~