从表order 中选择outdate>今天的id,outdate,源码如下:
procedure Ttixing.FormCreate(Sender: TObject);
var  todaydate:TDateTime;
begin
  begin
todaydate:=now;
with adoquery1 do
 begin
sql.Clear;
//sql.add('select id,outdate from order where outdate>2003-6-25');
//此条sql 运行oksql.add('select id,outdate from order where outdate>todaydate');
//此条sql不正确,如何修改?数据库为access,outdate为日期型
Prepared;
    Open;
end;
end;
end;