日期打印报表问题

Question

我想做按日期打印报表，但下面的程序有问题，请指点，谢谢！
procedure TForm1.Button3Click(Sender: TObject);
begin
with unit2.Form2.quickrep1 do begin
        ADOQuery1.close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('select print_date from work_list');
        if  edit1.Text<>'' then
        begin
           ADOQuery1.sql.Add('where time print_date');
           ADOQuery1.Parameters.ParamByName('print_date').DataType := ftdate;
           ADOQuery1.Parameters.ParamByName('print_date').Value := datetimepicker1.date;
       
           ADOQuery1.Parameters.ParamByName('print_date').DataType := ftString;
           ADOQuery1.Parameters.ParamByName('print_date').Value := edit1.text;
         
           ADOQuery1.Prepared:= True;
           ADOQuery1.open;
       end;
     unit2.Form2.qrlabel2.Caption:=datetostr(form1.DateTimePicker1.date);
     unit2.Form2.QuickRep1.Preview;
end;

Answer 1

           ADOQuery1.sql.Add('where time print_date');这一句有错误

Answer 2

           ADOQuery1.Parameters.ParamByName('print_date').DataType := ftdate;
           ADOQuery1.Parameters.ParamByName('print_date').Value := datetimepicker1.date;
       
           ADOQuery1.Parameters.ParamByName('print_date').DataType := ftString;
           ADOQuery1.Parameters.ParamByName('print_date').Value := edit1.text;
这几句写得我怎么看不懂