101.fr3

这个是功能强大的报表软件

<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="4.0a" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.DoubleBuffered="False" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="37907,6514537153" ReportOptions.Description.Text="Demonstrates new cross-tab features:&#13;&#10;&#13;&#10;- Improved cells management&#13;&#10;&#13;&#10;- Side-by-side crosses&#13;&#10;&#13;&#10;- Resize the cross-tab cells manually&#13;&#10;&#13;&#10;- Cell headers&#13;&#10;&#13;&#10;- Join equal cells&#13;&#10;&#13;&#10;- Objects inside the table" ReportOptions.LastChange="39013,0573746644" ScriptLanguage="PascalScript" ScriptText.Text="procedure DBCross4Cell0OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if Value &#60; 100 then&#13;&#10;  begin&#13;&#10;    DBCross4Object1.Color := clMaroon;&#13;&#10;    DBCross4Object2.Color := clWhite;&#13;&#10;    DBCross4Object3.Color := clWhite;&#13;&#10;  end&#13;&#10;  else if Value &#60; 3000 then&#13;&#10;  begin&#13;&#10;    DBCross4Object1.Color := $00CCFF;&#13;&#10;    DBCross4Object2.Color := $00CCFF;&#13;&#10;    DBCross4Object3.Color := clWhite;&#13;&#10;  end&#13;&#10;  else&#13;&#10;  begin&#13;&#10;    DBCross4Object1.Color := $00CC98;&#13;&#10;    DBCross4Object2.Color := $00CC98;&#13;&#10;    DBCross4Object3.Color := $00CC98;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." PropData="044C656674026003546F7003700108446174617365747301010C3100000020446174615365743D225265706F7274446174612E43726F737344532220446174615365744E616D653D2243726F7373220000095661726961626C65730100055374796C650100">
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
  <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxReportTitle Name="ReportTitle1" Height="45,35436" Left="0" Top="18,89765" Width="718,1107" Child="Child4">
      <TfrxMemoView Name="Memo1" Left="0" Top="0" Width="340,1577" Height="30,23624" Color="15790320" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="-2147483640" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Color="8421504" Frame.Typ="15" GapX="10" ParentFont="False" VAlign="vaCenter" Text="Improved cells"/>
      <TfrxMemoView Name="Memo2" Left="340,1577" Top="0" Width="377,953" Height="30,23624" Color="13434879" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Frame.Color="8421504" Frame.Typ="14" HAlign="haCenter" ParentFont="False" Wysiwyg="False" VAlign="vaCenter" Text="You can tune up each element to build perfect-looking tables."/>
    </TfrxReportTitle>
    <TfrxChild Name="Child1" Height="128" Left="0" Top="321,26005" Width="718,1107" Child="Child2">