不能对时间进行查询？这边精彩哦

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  Form1: TForm1;
  asql:string;
begin
  asql:='select * from 安装记录表.db where';
  if CheckBox1.Checked then  asql:=asql+'  (安装日期> :d1) and (安装日期< :d2)';
  if asql<>'' then
  begin
  with query1 do
  begin
  close;
  sql.text:=asql;
  if CheckBox1.Checked  then  begin
  query1.Params[0].AsDateTime:=DateTimePicker1.Date;
  query1.Params[1].AsDateTime:=DateTimePicker2.Date;
  end;
  datasource1.DataSet :=query1;
  query1.Open;
  end;
end;
end;end.

Answer 1

if CheckBox1.Checked then  asql:=asql+'  (安装日期 between ''' + ':d1' + ''' and ''' +':d2''';

Answer 2

其实对付这种问题自己动动手就可以解决：
在form上放个Edit1，然后来一句
Edit1.Text:=asql;
将获得的这个Edit1.Text拷贝到SQLExplorer里面去验证一下，
会有提示出错信息！
我这个是对付这类问题的方法，不针对这个问题！