Fastreport使用经验.pdfVIP

Fastreport 使用经验 [FORMATDATETIME(mm-dd, [IBqryShipDate.CLOSEDATE])] [FORMATDATETIME(mm/dd/yy, [IbqryOrderForm.ORDERDATE])] 金额总计：[FORMATFLOAT(#########0.00, [TotalAmount])] [FORMATFLOAT(#,##0.00,[qryDetail.JinE])] 订单数量：[COUNT(band1)] 数量合计：[SUM([IBqryShipDate.QUANTITY])] 婚否：[IF([IbqryPersonal.ISMARRIAGED]=1, 是, 否)] [IF([qryData.CLOSEDATE]=0,,[FORMATDATETIME(yyyy-mm-dd, [qryData.CLOSEDATE])])] [IF([qryCustoms.EXPORTDATE]=0,,[DateEngStyle([qryCustoms.EXPORTDATE])])] [IF([qryPrints.TOTAL1]=0,,[qryPrints.TOTAL1])] [IF([qryPrint.CURDATE]=0,,[FORMATDATETIME(mm-dd,[qryPrint.CURDATE])])] [IF([qryPrint.STYPE]=0, [Ban], [Huo])] [Copy([qryData.WASHMETHOD],1,8)] while iCount 4 do begin ShowBand(Child1); iCount := iCount + 1; end; begin if FreeSpace SubBand1.Height then NewPage else begin iTotal10 := iTotal10 + 1; if iTotal10 10 then NewPage; end; end 在 Delphi 程序中访问报表对象 最基本的方法就是 frxReport1.FindObject 。然后把返回的对象强制转换成它的类型，当然， 在报表中必须真的有这么个东东。如改变一个 Tfrxmemoview 的内容，可以这样写 TfrxMemoView(frxReport1.FindObject(memo1)).Text:=jade; 还可以用 TfrxReportPage 的 FindBand 方法，这个方法的参数是 Band 类，如报表抬头就 可以直接使用这个方法，因为抬头一个页中只有一个，如果有多个同样的类。则不能使用这 种方法。如果要使用 TfrxreportPage，一般可以用这样的代码 TfrxReportPage(frxReport1.Pages[0]) 。当然，如果你的这个页是对话框型的，则不行了。 但一般都是报表型的。 ******使用上下标 在 Fastreport 中使用上下标是很简单的，只要用一个Tfrxmemoview，把AllowHTMLTags 属性设为真，就可以使用网页标签来实现上下标了，如 12sup2/sup与 24sub3/sub。就分别是 2 为上标，3 为下标。 ******打印页码 打印页码是很简单的，只要加入一些常量即可，如打印第几页共几页就可以使用 第[Page#]页 共[TotalPages#]页 这里要注意的一点是如果想正确显示总页数，必须选中二次报表。 ******动态建立变量及变量组 建立变量组名 frxreport1.Variables.Add.Name:= +变量组名; 建立变量名 frxreport1.Variables.AddVariable(组名，如果为不存的组或空，则为默认组，这里不需 要空格,变量名,变量初始值); 例如要建立变量组 Yuan,二个变量 Yuan1,Yuan2，则为 frxreport1.Variables.Add.Name:= Yuan;注意前面是空格 frxreport1.Variables.AddVariable(Yuan,Yuan1,初始值) frxreport1.Variables.AddVariable(Yuan,Yuan2,初始值) ******共用 TFrxreport 及 TfrxDBDataSet 一个程序中，不管多么大的程序，只要打印或预览时是模式的，则完全可以共用一个 TFrxreport