急！！！如何实现数据的统计？？（用query中的sum()该如何实现？？）急！！！！

Question

????  select [ Field1,Field2,] sum(Field3) NewFieldName
         from Table
         [ where ....]
         group by [ Field1,Field2 ] 
         [ having sum(Field3) >= xxx ]   select sum(score) total 
         from stu_score  select stu_no,sum(score) stu_total
         from stu_score
         group by stu_no是这个吗? 

Answer 1

i try but i failed!!my 问题 is with date1.Query1 do
           begin
           Close;
           SQL.Clear;
           SQL.Add('select * from dingdan');
           SQL.Add('where date3=today');
   //        SQL.Add('group by sum(zongji)');
           try
           Open;
           except
           execsql
           end;
           end;

Answer 2

with date1.Query1 do
          begin
          Close;
          SQL.Clear;
          SQL.Add('select sum(zongji) from dingdan');
>>          SQL.Add('where date3=today'); 这里改成相应的条件
          try
          Open;
          except
>>          execsql  open了不用再execute了
          end;
          end;

Answer 3

let me try thank you!!还有一个问题today=今天
哪今月和今年有没有函数代表哪？还是用这一种办法呢！
var
  Present: TDateTime;
  Year, Month, Day: Word;
begin
Present:=date1.Table1Date3.Value;
DecodeDate(Present, Year, Month, Day);
end;

Answer 4

出现了非法字段的信息！！！！help!!

Answer 5

today 是非法字段？？？??真的有点胡涂了！！！

Answer 6

where date3='mm-dd-yyyy'给你所用的数据库,表的结构来看看

Answer 7

to launch 谢谢了！！
I  done it你看看这样行不行！
var
i:string;
begin
i:=datetostr(date);
 with date1.Query2 do
           begin
           Close;
           SQL.Clear;
           SQL.Add('select sum(zongji) from dingdan');
           SQL.Add('where date3=:a');
           ParamByName('a').asdatetime:=strtodate(i);   //        SQL.Add('group by sum(zongji)');
           try
           Open;
           except
           execsql
           end;
           end;
if date1.Query2.FindFirst then
//form3.QuickRep1.Print
else
begin
application.MessageBox('对不起今天你没有输入记录','警告',0);
end;
还有一个问题哪今月和今年有没有函数代表哪？

Answer 8

to launch 谢谢了！！
I  done it你看看这样行不行！
var
i:string;
begin
i:=datetostr(date);
 with date1.Query2 do
           begin
           Close;
           SQL.Clear;
           SQL.Add('select sum(zongji) from dingdan');
           SQL.Add('where date3=:a');
           ParamByName('a').asdatetime:=strtodate(i);   //        SQL.Add('group by sum(zongji)');
           try
           Open;
           except
           execsql
           end;
           end;
if date1.Query2.FindFirst then
//form3.QuickRep1.Print
else
begin
application.MessageBox('对不起今天你没有输入记录','警告',0);
end;
还有一个问题哪今月和今年有没有函数代表哪？你的oicq号码能给我吗？

Answer 9

可以变通啊。查今天
          SQL.Add('where date3>=:a and date3<=:b');
          ParamByName('a').asdatetime:=strtodate(i);
          ParamByName('b').asdatetime:=strtodate(i);
查当月
          DecodeDate(date1, Year, Month, Day);
          SQL.Add('where date3>=:a and date3<=:b');
          ParamByName('a').asdatetime:=encode(year,month,1);
          date2:=incmonth(date);
          decodedate(date2,yy,mm,dd);
          date2:=encode(yy,mm,1); //得到下个月一号
          ParamByName('b').asdatetime:=date2-1;
当年
          DecodeDate(date1, Year, Month, Day);
          SQL.Add('where date3>=:a and date3<=:b');
          ParamByName('a').asdatetime:=encode(year,1,1);
          ParamByName('a').asdatetime:=encode(year,12,31);

Answer 10

更正 encode 应该为 encodedate