📄 15.totals in group header.fr3
字号:
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" Version="3.15a" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871.9959574884" ReportOptions.Description.Text="This report demonstrates how to show group total in the group header. The report is two-pass report. On first pass the group totals are accumulated in the variables, on final pass they are printed in the group header." ReportOptions.LastChange="38533.1640945023" ScriptLanguage="PascalScript" ScriptText.Text="procedure Band7OnBeforePrint(Sender: TfrxComponent); begin Set(<Sales."Company">, Sum(<Sales."Qty">*<Sales."List Price">)); end; procedure Memo4OnBeforePrint(Sender: TfrxComponent); begin if Engine.FinalPass then Memo4.Text := 'Sum: ' + VarToStr(Get(<Sales."Company">)); end; begin end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2253616C65732220446174615365744E616D653D2253616C6573220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
<TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="5" RightMargin="5" TopMargin="5" BottomMargin="5" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
<TfrxADOQuery Name="Sales" UserName="Sales" CloseDataSource="True" FieldAliases.Text="a.CustNo=Cust No Company=Company Addr1=Addr1 Addr2=Addr2 City=City State=State Zip=Zip Country=Country Phone=Phone FAX=FAX a.TaxRate=a.TaxRate Contact=Contact LastInvoiceDate=LastInvoiceDate b.OrderNo=Order No b.CustNo=b.CustNo SaleDate=Sale Date ShipDate=ShipDate EmpNo=EmpNo ShipToContact=ShipToContact ShipToAddr1=ShipToAddr1 ShipToAddr2=ShipToAddr2 ShipToCity=ShipToCity ShipToState=ShipToState ShipToZip=ShipToZip ShipToCountry=ShipToCountry ShipToPhone=ShipToPhone ShipVIA=ShipVIA PO=PO Terms=Terms PaymentMethod=PaymentMethod ItemsTotal=ItemsTotal b.TaxRate=b.TaxRate Freight=Freight AmountPaid=AmountPaid c.OrderNo=c.OrderNo ItemNo=Item No c.PartNo=Part No Qty=Qty Discount=Discount d.PartNo=d.PartNo VendorNo=VendorNo Description=Description OnHand=OnHand OnOrder=OnOrder Cost=Cost ListPrice=List Price" SQL.Text="select * from customer a, orders b, items c, parts d where a.custno = b.custno and b.orderno = c.orderno and c.partno = d.partno order by a.company, b.orderno" PropData="0A506172616D65746572730100"/>
<TfrxPageFooter Name="Band1" Height="22.67718" Left="0" Top="364" Width="755.906">
<TfrxMemoView Name="Memo5" Left="3.77953" Top="3.77953000000002" Width="710.55164" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Frame.Width="2" HAlign="haRight" Memo.Text="[Page#]" ParentFont="False"/>
</TfrxPageFooter>
<TfrxReportTitle Name="Band2" Height="26.45671" Left="0" Top="16" Width="755.906">
<TfrxMemoView Name="Memo6" Left="3.77953" Top="3.77953" Width="710.55164" Height="18.89765" Color="8421376" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" HAlign="haCenter" Memo.Text="Customers" ParentFont="False" VAlign="vaCenter"/>
</TfrxReportTitle>
<TfrxPageHeader Name="Band3" Height="22.67718" Left="0" Top="64" Width="755.906" PrintOnFirstPage="False">
<TfrxMemoView Name="Memo16" Left="3.77953" Top="3.77952999999999" Width="710.55164" Height="15.11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="4" Frame.Width="2" Memo.Text="" ParentFont="False"/>
</TfrxPageHeader>
<TfrxGroupHeader Name="Band4" Height="45.35436" Left="0" Top="108" Width="755.906" Condition="Sales."Cust No"">
<TfrxMemoView Name="Memo17" Left="3.77953" Top="0" Width="272.12616" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="5" GapX="6" Memo.Text="Company" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo19" Left="275.90569" Top="0" Width="177.63791" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" Memo.Text="Phone" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo20" Left="453.5436" Top="0" Width="260.78757" Height="18.89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="6" Memo.Text="Fax" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo21" Left="275.90569" Top="18.89765" Width="177.63791" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Sales."Phone"]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo22" Left="453.5436" Top="18.89765" Width="260.78757" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="2" Memo.Text="[Sales."FAX"]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo18" Left="3.77953" Top="18.89765" Width="272.12616" Height="26.45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="1" GapX="6" Memo.Text="[Sales."Company"]" ParentFont="False" VAlign="vaCenter"/>
<TfrxMemoView Name="Memo4" Left="593.38621" Top="0" Width="120.94496" Height="18.89765" OnBeforePrint="Memo4OnBeforePrint" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Memo.Text="Sum:" ParentFont="False" VAlign="vaCenter"/>
</TfrxGroupHeader>
<TfrxGroupHeader Name="Band5" Height="37.7953" Left="0" Top="172" Width="755.906" Condition="Sales."Order No"">
<TfrxMemoView Name="Memo3" Left="3.77953" Top="18.89765" Width="52.91342" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo8" Left="3.77953" Top="0" Width="124.72449" Height="18.89765" Color="12632256" Frame.Typ="1" GapX="4" Memo.Text="Order No [Sales."Order No"]"/>
<TfrxMemoView Name="Memo9" Left="128.50402" Top="0" Width="585.82715" Height="18.89765" Color="12632256" Frame.Typ="2" Memo.Text="Date [Sales."Sale Date"]"/>
<TfrxMemoView Name="Memo10" Left="56.69295" Top="18.89765" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Part" ParentFont="False"/>
<TfrxMemoView Name="Memo11" Left="128.50402" Top="18.89765" Width="279.68522" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Description" ParentFont="False"/>
<TfrxMemoView Name="Memo12" Left="408.18924" Top="18.89765" Width="83.14966" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Price" ParentFont="False"/>
<TfrxMemoView Name="Memo13" Left="491.3389" Top="18.89765" Width="60.47248" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Qty" ParentFont="False"/>
<TfrxMemoView Name="Memo14" Left="551.81138" Top="18.89765" Width="90.70872" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Total" ParentFont="False"/>
<TfrxMemoView Name="Memo31" Left="642.5201" Top="18.89765" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxGroupHeader>
<TfrxMasterData Name="Band6" Height="18.89765" Left="0" Top="228" Width="755.906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Sales" DataSetName="Sales" RowCount="0">
<TfrxMemoView Name="Memo2" Left="3.77953" Top="0" Width="52.91342" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo23" Left="56.69295" Top="0" Width="71.81107" Height="18.89765" DataField="Part No" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Sales."Part No"]" ParentFont="False"/>
<TfrxMemoView Name="Memo24" Left="128.50402" Top="0" Width="279.68522" Height="18.89765" DataField="Description" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Memo.Text="[Sales."Description"]" ParentFont="False"/>
<TfrxMemoView Name="Memo25" Left="408.18924" Top="0" Width="83.14966" Height="18.89765" DataField="List Price" DataSetName="Sales" DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[Sales."List Price"]" ParentFont="False"/>
<TfrxMemoView Name="Memo26" Left="491.3389" Top="0" Width="60.47248" Height="18.89765" DataField="Qty" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Sales."Qty"]" ParentFont="False"/>
<TfrxMemoView Name="Memo27" Left="551.81138" Top="0" Width="90.70872" Height="18.89765" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" Memo.Text="[<Sales."Qty">*<Sales."List Price">]" ParentFont="False"/>
<TfrxMemoView Name="Memo32" Left="642.5201" Top="0" Width="71.81107" Height="18.89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxMasterData>
<TfrxGroupFooter Name="Band7" Height="30.23624" Left="0" Top="312" Width="755.906" OnBeforePrint="Band7OnBeforePrint">
<TfrxMemoView Name="Memo28" Left="3.77953" Top="0" Width="710.55164" Height="18.89765" Color="12632256" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Frame.Typ="11" Memo.Text="Total sales this customer: [Sum(<Sales."Qty">*<Sales."List Price">)]"/>
</TfrxGroupFooter>
<TfrxGroupFooter Name="Band8" Height="22.67718" Left="0" Top="268" Width="755.906">
<TfrxMemoView Name="Memo1" Left="3.77953" Top="0" Width="52.91342" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
<TfrxMemoView Name="Memo15" Left="56.69295" Top="0" Width="585.82715" Height="22.67718" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" HAlign="haRight" Memo.Text="Total this order: [Sum(<Sales."Qty">*<Sales."List Price">)]" ParentFont="False"/>
<TfrxMemoView Name="Memo33" Left="642.5201" Top="0" Width="71.81107" Height="22.67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
</TfrxGroupFooter>
</TfrxReportPage>
</TfrxReport>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -