代码如下,
if xsbb.RadioGroup1.ItemIndex=1  then
beginxsbb.ADOQuery5.close;
xsbb.ADOQuery5.sql.Clear;
xsbb.ADOQuery5.sql.add('select  *  from  jpjs  where  jzrq>='+''''+datetostr(datetimepicker1.date)+'''');
xsbb.ADOQuery5.sql.add('and  jzrq<='+''''+datetostr(datetimepicker2.date)+'''');
xsbb.adoquery5.sql.add('and  jplb='+''''+'国内'+'''');
xsbb.adoquery5.SQL.add('and   jzqk='+''''+'已结'+'''');
xsbb.adoquery5.sql.add('order  by  jpid');
xsbb.ADOQuery5.open;
if xsbb.adoquery5.RecordCount=0  then  showmessage('国内票在这段时间内没有销售过!')
else
begin
xsbb.frDBDataSet5.DataSet:=xsbb.adoquery5;
xsbb.frReport5.Dataset:=xsbb.frDBDataSet5;wpath:=extractfilepath(paramstr(0));
xsbb.frReport5.LoadFromFile(wpath+'gnjs.frf');
xsbb.frReport5.ShowReport;
end;
    count  内容为:共有[COUNT(aa)]条记录。