我想做按日期打印报表,但下面的程序有问题,请指点,谢谢!
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;
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;
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;
这几句写得我怎么看不懂