Question

我想显示日期范围的报告
我有代码

procedure TForm1.ButtonPreviewClick(Sender: TObject);
begin
    ...
    ADOQuery1.Active := False;
    ADOQuery1.SQL.Text:='';
    ADOQuery1.SQL.Text :='SELECT * FROM tablename WHERE datefield BETWEEN :startdate and :enddate';
    ADOQuery1.Parameters.ParamByName('startdate').DataType:= ftdate;
    ADOQuery1.Parameters.ParamByName('endate').DataType:= ftdate;
    ADOQuery1.Parameters.ParamByName('startdate').value:= datetostr(DateTimePicker1.Date);
    ADOQuery1.Parameters.ParamByName('enddate').value:= datetostr(DateTimePicker2.Date) ;
    ADOQuery1.Active := True;
    QuickRep1.Preview;
    ...
 end;

我把4个测试记录放到tablename

number|date
1     |14/8/2015
2     |1/8/2015
3     |31/8/2015
4     |9/8/2015

如果我点击按钮，快速报告只显示第一条记录，无论我选择哪个日期，比如

quickreport

number|date
1     |14/8/2015

具有快速报告属性
qrband title = qrlabel1，标题为“ quickreport ” qrband列标题= qrlabel2标题为“数字”，qrlabel3标题为“日期”左侧 qrband detail = qrdbtext1＆amp;数据集“ adoquery1 ”的qrdbtext2，qrdbtext1上的数据字段“数字字段”和qrdbtext2上的“ datefield ”

如何使用日期范围过滤器显示所有数据？
谢谢你的关注

Delphi7 TADOQuery过滤器在快速报告时不准确

0 个答案: