Question

急！关于delphi打印控件QuickRep的问题!!!

我用delphi的打印控件QuickRep， 用QRBand（BandType:=rbDetail）→QRDBText来循环显示数据库的内容. 其中数据库是固定了10条记录...现在每次都能够显示我数据库的10条记录..不管这10条记录的值是否为空！ 现在我想实现，要是记录的值为空的话，就不会出现在打印预览上面。这样应该要如何实现。

Answer 1

报表的预览界面的出现是通过调用QuickRep1.Preview方法来实现的,报表的数据是数据集组件通过执行SQL语句来提供的.因此只要通过SQL语句就可以控制报表预览界面是否出现了.在SQL语句的where子句中做点手脚就可以了.如数据表有:zd1,zd2...zd6,而zd3,zd4,zd5三个段如果某一个为空的话,打印预览将没有意义.这样你的where子句就可以这样写:where zd3<>null or zd4<>null or zd5<>null, 如果你这10条记录中,每条记录中有一个字段的值为空时,那么数据集组件所提取的记录数就为零.在数据集组件被打开后,你就可以通过检查记录数是否为零,来决定报表预览界面是否出现.如果不为零,则调用QuickRep1.Preview,反之抛出一个消息框,告诉用户没有合适的数据预览.