数据库技术[二]12—报表设计.pptVIP

《数据库技术》 讲课：40学时 总 学 时 ：64学时 实验：24学时：（2学时*12次） 教 师 ： 薛昌春 xuechangchun@163.com ;报表设计;TQuickRep组件;TQRSubDetail 组件;TQRBand 组件;出现在所有页上的标题(PageHeader) 标题（只有首页才有）(Title) 所有列的标题(ColumnHeader) 记录的内容，一个字段一列(Detail) 摘要（最后一页才有）(Summary) 出现在所有页上的页脚(PageFooter);TQRExpr 组件;TQRSysData 组件;其他组件：;其他组件：;快速生成报表;;一个使用TQRGoups、TQRExpr控件的报表 　　报表先列出州名，接着列出该州的所有公司及公司总数，一个州列完后空一行（groups中断），列出新的州名，接着列新州下的所有公司，没有填州名的公司统一列在Unknown state下面。 　　1. 建立一个新project。;　　2. 放一个Tquery，其SQL属性为：select * from customer order by State，Company;(即根据州、公司排序)，DatabaseName为DBDEMOS，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.按右键选预览，显示不同的州名及其公司和公司总数。;;QuickReport 条件式打印 　　可以直接在 TQuickReport 的 OnFilter 事件中写明条件判断，OnFilter事件的参数中有一个以 var 声明的 PrintRecord 布尔型变量，将这个变量设为 True(预设值)， 该笔记录便会打印;反之，设为False，就不打印这笔记录. procedure TForm1.QuickReport1Filter(var PrintRecord: Boolean);begin PrintRecord := False; if YourTable.FieldByName(WantedField).AsInteger = 100 then Exit; if YourTable.FieldByName(WantedField).AsInteger = 150 then Exit; PrintRecord := True;