！！！！！这个问题，我想了，做了一个晚上，还是没有搞定，帮我！！！！！

Question

ADOquery.SQL.Add('select * from Table_User where User_Date>GetDate()');
//for SQL Server

Answer 1

ADOQuery1.SQL.Add('select * from Table_User where User_Date>:date');ADOQuery1.Parameters.ParamByName('date').Value := Now;

Answer 2

ADOQuery1.SQL.Add('select * from Table_User where (User_Date>:date)and(User_No>10)');有错？

Answer 3

'select * from Table_User where User_Date>"'+formatdatetime('YYYY-MM-DD',date)+'"'
~~~~~~~~~~~~~~~~~~~~~
'select * from Table_User where User_Date>to_date(''YYYY-MM-DD'','''+datetostr(date)+''')'
'select * from Table_User where User_Date>sysdate'
//for oracle

Answer 4

procedure TForm1.Table1AfterInsert(DataSet: TDataSet);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := Format(
'select *'#13#10 +
'from Table_User'#13#10 +
'where (User_Date>''%s'') and (User_No>10)'#13#10,
//     (User_Date>#%s#) //for Access
    [FormatDateTime('YYYY-MM-DD', Now)]);
  ADOQuery1.Open;
end;

Answer 5

to ：　zswangII(伴水II)(需要充充电)(副本)'where (User_Date>''%s'') and (User_No>10)'#13#10,
//    (User_Date>#%s#) //for Access
    [FormatDateTime('YYYY-MM-DD', Now)]);
不用加连接符啊：）