代码如下,
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)]条记录。
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)]条记录。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货