高玉昆

　1. 建立一个新project。
　　2. 放一个Tquery在Tquickrep上，其SQL属性为：select * from customer order by State，Company;(即根据州、公司排序)，
DatabaseName为BCDMome，Active为true.
　　3. 放一个TquickRep控件在Form1上，DataSet为Tquery1.
　　4. 放一个TQRGroups控件在TquickRep上，这时默认为group header。
（任何时候当group中断或更高级别的group中断，这个header都将打印出来，如果有表达式，根据表达式的值显示内容。）
接着添加一个group footer band，添加时，放一个TQRBand控件在报表上，连接TQRGroups的FooterBand属性到这个QRBand，
这时这个新建的TQRBand就成为Group Footer. （TQRGroup的一个重要特性是表达式，任何时候当表达式的值变时Group都将中断，
如表达式是按省列出城市名，当前列出广东省，当属于该省的城市列完后，表达式值改变，这时Group中断，接着显示其他省的城市名。）
TQRGroups的Expression属性设为Query1.State(根据不同的州来中断)。
　　5. 放一个TQRBand控件在报表上，BandType为rbDetail.
　　6.放一个TQRExpr控件在group header上面，其Expression属性为：if(State<>’’，State，’Unknown state’)，
即如果公司的州没填，就归入Unknown state，否则归入State.
　　7.放三个TQRDBText在Detail上，他们的DataSet都指向Query1，DataField分别指向Company，Contact，Phone.
　　8.在放一个TQRExpr控件在group Footer上面，Expression为’Customers in’+State+’:’+Str(Count)
作用是在每个州的公司列完后显示该州总共有多少个公司。
　　9.按右键选预览，应该看到不同的州名及其公司和公司公司总数。

按多个条件分组时在Expression使用"+"号
每页进行统计时在Expression选择函数sum,count等，如果分页后把统计设为0设置属性resetafterprint为true
当没有数据的时候是否打印页头等数据可设置PrintIfEmpty来控制，如果为true，没数据也打印页头，为false，没数据就不打印了。
如果想按分组来分页打印，可设置属性ForceNewPage为true
如果想取的总页数，可先调用 QuickRep1.Prepare 来执行准备工作，再调用QuickRep1.QRPrinter.PageCount来获得总页数，
为了内存安全，一般使用方法如下：
QuickRep1.Prepare;
try
QRLabel2.Caption := inttostr(QuickRep1.QRPrinter.PageCount);
finally
QuickRep1.QRPrinter.Free;
end;
QuickRep1.QRPrinter := nil;
在打印前如果想弹出设置打印机的对话框，可调用方法：QuickRep1.printersetup;
预览方法：QuickRep1.Preview;
打印方法：QuickRep1.Print;
打印前准备方法：QuickRep1.Prepare ；
设置横向打印：QuickRep1.page.orientation := poLandscape
设置纵向打印：QuickRep1.page.orientation := poPortrait
设置纸张类型：QuickRep1.page.pagersize := A4