你可以这样啊,如果用SQL语句查询的话 with adoquery1 do begin Close; SQL.clear; SQL.Add('select * from 表名 where 日期 between :xDate1 and :xDate2') Parameters[0].value:=Date1; //这个Date1是个变量,看你是从何处得来。 Parameters[1].value:=Now(); Open; end;
更正一下,上面的sql.add()后面漏了一个分号
楼上不是的 加不加()是一样的! 如果你的date1由datetimepicker获得的时间参数的话 date1>now是可以通过编译的 我试验过的!例如 Var date:TdateTime; begin Label1.Caption := DateTimeToStr(Now); Date:=DateTimePicker1.DateTime; if Date>now then showmessage('hello'); end;
To aiirii(ari) ;你是在误导楼主吧,加不加括号是一样的,borland为了照顾从C转到Delphi的习惯,调用一个过程加不加括号是一样的,到时会被编译器忽略,
先申明一下,我用的是bde,不是ado,应该怎么做?
with adoquery1 do begin Close; SQL.clear; SQL.Add('select * from 表名 where 日期 between :xDate1 and :xDate2') Parameters[0].value:=Date1; //这个Date1是个变量,看你是从何处得来。 Parameters[1].value:=Now(); Open; end;
你如要用到函數,應該用 Now(), 加個();
with adoquery1 do
begin
Close;
SQL.clear;
SQL.Add('select * from 表名 where 日期 between :xDate1 and :xDate2')
Parameters[0].value:=Date1; //这个Date1是个变量,看你是从何处得来。
Parameters[1].value:=Now();
Open;
end;
如果你的date1由datetimepicker获得的时间参数的话
date1>now是可以通过编译的 我试验过的!例如
Var
date:TdateTime;
begin
Label1.Caption := DateTimeToStr(Now);
Date:=DateTimePicker1.DateTime;
if Date>now then
showmessage('hello');
end;
begin
Close;
SQL.clear;
SQL.Add('select * from 表名 where 日期 between :xDate1 and :xDate2')
Parameters[0].value:=Date1; //这个Date1是个变量,看你是从何处得来。
Parameters[1].value:=Now();
Open;
end;