01.simple list.fr3

DELPHI报表控件 DELPHI报表控件

<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="Demonstrates how to create simple list report." ReportOptions.LastChange="38447,5559902083" ScriptLanguage="PascalScript" ScriptText.Text="procedure frxReport1OnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  ADODataBase1.DatabaseName := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + &#60;PathToDatabase&#62;;&#13;&#10;  ADODataBase1.Connected := True;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Page1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if (&#60;Param1&#62; = null) and (&#60;Param2&#62; = null) then&#13;&#10;    Header1.Visible := False;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2C00000020446174615365743D22437573746F6D6572732220446174615365744E616D653D22437573746F6D657273220000095661726961626C657301010C0F000000204E616D653D22204D79566172732200010C0E000000204E616D653D22506172616D312200010C0E000000204E616D653D22506172616D322200010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746142617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
  <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="" OnBeforePrint="Page1OnBeforePrint">
    <TfrxReportTitle Name="Band1" Height="26,45671" Left="0" Top="18,89765" Width="755,906">
      <TfrxMemoView Name="Memo1" Align="baWidth" Left="0" Top="3,77953" Width="755,906" Height="22,67718" 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="Band2" Height="34,01577" Left="0" Top="68,03154" Width="755,906">
      <TfrxMemoView Name="Memo4" Left="204,09462" Top="7,55906" Width="158,74026" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Memo.Text="Address" ParentFont="False"/>
      <TfrxMemoView Name="Memo5" Left="377,953" Top="7,55906" Width="120,94496" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Memo.Text="Contact" ParentFont="False"/>
      <TfrxMemoView Name="Memo6" Left="514,01608" Top="7,55906" Width="83,14966" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Memo.Text="Phone" ParentFont="False"/>
      <TfrxMemoView Name="Memo7" Left="612,28386" Top="7,55906" Width="102,04731" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Memo.Text="Fax" ParentFont="False"/>
      <TfrxMemoView Name="Memo3" Left="7,55906" Top="7,55906" Width="181,41744" Height="18,89765" Color="16777215" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="8" Memo.Text="Company" ParentFont="False"/>
    </TfrxPageHeader>
    <TfrxPageFooter Name="Band3" Height="26,45671" Left="0" Top="317,48052" Width="755,906">
      <TfrxMemoView Name="Memo2" Left="3,77953" Top="7,55905999999999" Width="710,55164" Height="15,11812" Color="16777215" 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 [Page] of [TotalPages]" ParentFont="False"/>
    </TfrxPageFooter>
    <TfrxMasterData Name="Band4" Height="22,67718" Left="0" Top="234,33086" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Customers" DataSetName="Customers" RowCount="0">
      <TfrxMemoView Name="Memo13" Left="3,77953" Top="0" Width="714,33117" Height="18,89765" DataSetName="Customers" Highlight.Font.Charset="1" Highlight.Font.Color="-370606080" Highlight.Font.Height="-13" Highlight.Font.Name="Arial" Highlight.Font.Style="0" Highlight.Color="15790320" Highlight.Condition="&#60;Line#&#62; mod 2" Memo.Text="" WordWrap="False"/>
      <TfrxMemoView Name="Memo9" Left="204,09462" Top="0" Width="173,85838" Height="18,89765" DataField="Addr1" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;Addr1&#34;]"/>
      <TfrxMemoView Name="Memo10" Left="377,953" Top="0" Width="136,06308" Height="18,89765" DataField="Contact" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;Contact&#34;]"/>
      <TfrxMemoView Name="Memo11" Left="514,01608" Top="0" Width="98,26778" Height="18,89765" DataField="Phone" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;Phone&#34;]"/>
      <TfrxMemoView Name="Memo12" Left="612,28386" Top="0" Width="102,04731" Height="18,89765" DataField="FAX" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;FAX&#34;]"/>
      <TfrxMemoView Name="Memo8" TagStr="[Customers.&#34;Cust No&#34;]" Left="7,55906" Top="0" Width="196,53556" Height="18,89765" DataField="Company" DataSet="Customers" DataSetName="Customers" Memo.Text="[Customers.&#34;Company&#34;]"/>
    </TfrxMasterData>
    <TfrxHeader Name="Header1" Height="49,13389" Left="0" Top="162,51979" Width="755,906">
      <TfrxMemoView Name="Memo14" Left="7,55906" Top="3,77952999999999" Width="733,22882" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Memo.Text="Param1 = [Param1]" ParentFont="False"/>
      <TfrxMemoView Name="Memo15" Left="7,55906" Top="22,67718" Width="733,22882" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Memo.Text="Param2 = [Param2]" ParentFont="False"/>
    </TfrxHeader>
  </TfrxReportPage>
  <TfrxDialogPage Name="DialogPage1" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Height="200" Left="251" Top="121" Width="300">
    <TfrxADOQuery Name="Customers" UserName="Customers" CloseDataSource="True" FieldAliases.Text="CustNo=Cust No&#13;&#10;Company=Company&#13;&#10;Addr1=Addr1&#13;&#10;Addr2=Addr2&#13;&#10;City=City&#13;&#10;State=State&#13;&#10;Zip=Zip&#13;&#10;Country=Country&#13;&#10;Phone=Phone&#13;&#10;FAX=FAX&#13;&#10;TaxRate=Tax Rate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=Last Invoice Date" SQL.Text="select * from customer order by company" Database="ADODatabase1" PropData="05704C65667402300470546F7002080A506172616D65746572730100"/>
    <TfrxADODatabase Name="ADODatabase1" LoginPrompt="False" PropData="05704C65667402300470546F70023C"/>
  </TfrxDialogPage>
</TfrxReport>