100分求一个非SQL的统计。

[cclh]

数据库Table1： 金额 日期
2003-3-4
如日期类型不对可改。
两个输入年，月的SpinEdit1，SpinEdit2；
一个按钮:procedure TForm2.Button1Click(Sender: TObject);

各位大虾帮忙做个月统计，在一个Edit中显示。
谢谢！

[cclh]

不知是哪出问题：
由于连接SQL出问题，我用select '合计',sum，运行时select Undeclared identifier: 'select'
用with table1 do, 时with Declaration expected but 'WITH' found
用您的var date,date1,date2:datetime; 时出现
Undeclared identifier: 'datetime'
是否我的DELPHI7企业版出了问题

[Shiyl]

procedure TForm2.Button1Click(Sender: TObject);
var date,date1,date2:datetime;
begin
date1:=strtodate(spinedit1.text);
while date1<strtodate(spinedit2.text) do
begin
adoquery.sql.clear;
adoquery.sql.add('select '',金额 from table1
union
select '合计',sum(金额) from table1');
adoquery.open;
date1:=date1+1;
end;
end;
试试

[frogshero]

monthBegin,monthend:string;
monthBegin:=yearedit.text+'-'+monthedit.text+'-01';
monthEnd:=yearedit.text+'-'+inttostr(strtoint(monthedit.text)+1)+'-01';
'select sum(金额) from table where 日期>='+quotedstr(monthbegin)+' and 日期<'+quotedstr(monthEnd);

[frogshero]

混分﹐up

[dyf2001]

adoquery.sql:=
'select sum(金额) from table where 日期 >= toDate('+
QuotedStr(spinedit1.text+'-1') + ', ' + QuotedStr('yyyy-mm-dd') +
' and 日期 < toDate('+ QuotedStr(spinedit2.text+'-1') +
', ' + QuotedStr('yyyy-mm-dd')

oracle中

[dyf2001]

漏掉两个括号，更正如下：
adoquery.sql:=
'select sum(金额) from table where 日期 >= toDate('+
QuotedStr(spinedit1.text+'-1') + ', ' + QuotedStr('yyyy-mm-dd') +
'） and 日期 < toDate('+ QuotedStr(spinedit2.text+'-1') +
', ' + QuotedStr('yyyy-mm-dd')+‘）’

[qianguob]

Undeclared identifier: 'datetime'
是否我的DELPHI7企业版出了问题


应该定义为 Tdatetime ;

[ASPCOMjsp]

应该定义为 Tdatetime ;

[cclh]

各位由于没有SQL，这些句子运行都出现Undeclared identifier：adoquery.sql不知是否能用？
我用DELPHI自有的order选4个字段，第四个为EmpNo.编了一个只对列求和的程序，可益出了。各位帮看看哪不对，
procedure TForm1.Button1Click(Sender: TObject);
var
sd:integer;
begin
with Table1 Do
begin
sd:=0;
first;
while not EOF do
sd:=sd+Fields[3].value;
next;
end;
Edit1.text:=IntToStr(sd);
end;