来呀 难到我了 ( 积分: 0 )

//我想在提取出当前的年，合成像2001－01－00和2001－01－31再用到查询中当条件；

var
start,stop:string;
sum2:single;
lp:tsystemtime;
begin
L1.Visible:=false;
Box1.Visible:=false;
shengcheng.Visible:=false;
L2.Visible:=true;
money.Visible:=true;
L3.Visible:=true;
time.Visible:=true;

getsystemtime(lp);
if Box1.Text='1月' then
begin
start:=datetostr(encodedate(lp.wYear,01,00));//
start:=datetostr(encodedate(lp.wYear,01,31));
with ADOquery1 do
begin
close;
sql.Clear;
SQL.Add('select sum(停车计费) as sum1 from 计费表 where 出库时间 between :s1 and :s2');
Parameters.ParamByName('s1').Value:=start;
Parameters.ParamByName('s2').Value:=stop;

open;
sum2:=strtofloat(fieldbyname('sum1').AsString);
end;
money.Text:=floattostr(sum2);
end;

end;

火大了 0分还发这么多重复的帖子浪费空间 怀疑你的人品