<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Tag="21650" Version="6.6.0" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="495615" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="38589,6742914352" ReportOptions.Description.Text="Demonstrates how to combine rich interactive possibilities of FastReport to build a complicate report. " ReportOptions.Name="Interactive exchange rates" ReportOptions.LastChange="43917,0285203588" ScriptLanguage="PascalScript" ScriptText.Text="var&#13;&#10;  FirstDate, LastDate: TDate;&#13;&#10;  LastRate: Extended;&#13;&#10;&#13;&#10;procedure IntervalGauge1OnContentChanged(Sender: TfrxComponent; ModifyObjects: TList; var Refresh: Boolean);&#13;&#10;var&#13;&#10;  List: TList;&#13;&#10;  View: TfrxChartView;&#13;&#10;  i: Integer;&#13;&#10;begin&#13;&#10;  View := nil;&#13;&#10;  List := PreviewPages.Page[PreviewPages.CurPage].AllObjects;&#13;&#10;  for i := 0 to List.Count - 1 do&#13;&#10;    if (List[i] is TfrxView) then&#13;&#10;    begin&#13;&#10;      if (TfrxView(List[i]).TagStr = 'ChartUSD') then&#13;&#10;      begin&#13;&#10;        View := TfrxChartView(List[i]);&#13;&#10;        View.Chart.BottomAxis.Automatic := False;&#13;&#10;&#13;&#10;        View.Chart.BottomAxis.Maximum := Round(TfrxIntervalGaugeView(Sender).IntervalGauge.EndValue);&#13;&#10;        View.Chart.BottomAxis.Minimum := Round(TfrxIntervalGaugeView(Sender).IntervalGauge.StartValue);&#13;&#10;        // thre are two ways to save changes of object to XML&#13;&#10;        // First: Use ModifyObjects list param and add object to the list&#13;&#10;        ModifyObjects.Add(View);&#13;&#10;      end;&#13;&#10;    end;&#13;&#10;  // refresh preview&#13;&#10;  Refresh := True;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Chart1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);&#13;&#10;var&#13;&#10;  aChart: TfrxChartView;&#13;&#10;begin&#13;&#10;  aChart := TfrxChartView(Sender);&#13;&#10;  if aChart.ClickedVal1 &#60;&#62; '' then&#13;&#10;  begin&#13;&#10;    aChart.Hyperlink.Value :=  '''' + aChart.ClickedVal1 + '''' + ';' + FloatTOStr(aChart.Chart.BottomAxis.Minimum) + ';' + FloatToStr(aChart.Chart.BottomAxis.Maximum);&#13;&#10;    aChart.Hyperlink.Kind := hkDetailPage;&#13;&#10;  end&#13;&#10;  else&#13;&#10;    aChart.Hyperlink.Kind := hkNone;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10; TfrxMasterData(Sender).Visible := (&#60;CurrentLine&#62; &#62;= &#60;FilterMin&#62;) and (&#60;CurrentLine&#62; &#60;= &#60;FilterMax&#62;);&#13;&#10;  Set('CurrentLine', &#60;CurrentLine&#62; + 1);&#13;&#10;  if (FirstDate = 0) and (TfrxMasterData(Sender).Visible) then&#13;&#10;    FirstDate := &#60;ADOQuery1.&#34;date&#34;&#62;;&#13;&#10;  if TfrxMasterData(Sender).Visible then&#13;&#10;    LastDate := &#60;ADOQuery1.&#34;date&#34;&#62;;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure MasterData1OnAfterPrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  TfrxMasterData(Sender).Visible := True;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportTitle1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('CurrentLine', 1);&#13;&#10;  FirstDate := 0;&#13;&#10;  LastRate := 0;&#13;&#10;  LastDate := 0;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Footer1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Engine.ProcessObject(FilterMin);&#13;&#10;  FirstDate := 0;&#13;&#10;  LastRate := 0;&#13;&#10;  LastDate := 0;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Line1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  aLine: TfrxLineView;&#13;&#10;begin&#13;&#10;  aLine := TfrxLineView(Sender);&#13;&#10;  aLine.ArrowStart := (LastRate &#60; &#60;ADOQuery1.&#34;gbp&#34;&#62;);&#13;&#10;  aLine.ArrowEnd := (LastRate &#62; &#60;ADOQuery1.&#34;gbp&#34;&#62;);&#13;&#10;  if aLine.ArrowStart then&#13;&#10;    aLine.Frame.Color := clGreen&#13;&#10;  else if aLine.ArrowEnd then&#13;&#10;    aLine.Frame.Color := clRed&#13;&#10;  else&#13;&#10;    aLine.Frame.Color := clSkyBlue;&#13;&#10;  LastRate := &#60;ADOQuery1.&#34;gbp&#34;&#62;;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." OnReportPrint="frxReportAbstractOnReportPrint">
  <Datasets>
    <item DataSet="ADOQuery1" DataSetName="ADOQuery1"/>
    <item DataSet="CAD1999" DataSetName="CAD1999"/>
    <item DataSet="CAD2000" DataSetName="CAD2000"/>
    <item DataSet="CAD2001" DataSetName="CAD2001"/>
    <item DataSet="CAD2002" DataSetName="CAD2002"/>
    <item DataSet="CAD2003" DataSetName="CAD2003"/>
    <item DataSet="CAD2004" DataSetName="CAD2004"/>
    <item DataSet="CAD2005" DataSetName="CAD2005"/>
    <item DataSet="EUR1999" DataSetName="EUR1999"/>
    <item DataSet="EUR2000" DataSetName="EUR2000"/>
    <item DataSet="EUR2001" DataSetName="EUR2001"/>
    <item DataSet="EUR2002" DataSetName="EUR2002"/>
    <item DataSet="EUR2003" DataSetName="EUR2003"/>
    <item DataSet="EUR2004" DataSetName="EUR2004"/>
    <item DataSet="EUR2005" DataSetName="EUR2005"/>
    <item DataSet="GBP1999" DataSetName="GBP1999"/>
    <item DataSet="GBP2000" DataSetName="GBP2000"/>
    <item DataSet="GBP2001" DataSetName="GBP2001"/>
    <item DataSet="GBP2002" DataSetName="GBP2002"/>
    <item DataSet="GBP2003" DataSetName="GBP2003"/>
    <item DataSet="GBP2004" DataSetName="GBP2004"/>
    <item DataSet="GBP2005" DataSetName="GBP2005"/>
    <item DataSet="JPY1999" DataSetName="JPY1999"/>
    <item DataSet="JPY2000" DataSetName="JPY2000"/>
    <item DataSet="JPY2001" DataSetName="JPY2001"/>
    <item DataSet="JPY2002" DataSetName="JPY2002"/>
    <item DataSet="JPY2004" DataSetName="JPY2004"/>
    <item DataSet="JPY2005" DataSetName="JPY2005"/>
    <item DataSet="YPY2003" DataSetName="YPY2003"/>
  </Datasets>
  <Variables>
    <item Name=" DetailVar"/>
    <item Name="ChartValue" Value="'27.04.2005'"/>
    <item Name="FilterMin" Value="71"/>
    <item Name="FilterMax" Value="135"/>
    <item Name="CurrentLine" Value="79"/>
  </Variables>
  <Styles>
    <item Name="Title" Font.Charset="1" Font.Color="16777215" Font.Height="-16" Font.Name="Arial" Font.Style="1" Frame.Typ="0" Fill.BackColor="8388608"/>
    <item Name="Header" Font.Charset="1" Font.Color="128" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="0"/>
    <item Name="Group header" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="0" Fill.BackColor="15790320"/>
    <item Name="Data" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="0"/>
    <item Name="Group footer" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="0"/>
    <item Name="Header line" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="8" Frame.Width="2"/>
  </Styles>
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000">
    <TfrxADOQuery Name="GBP1999" UserName="GBP1999" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select date, gbp&#13;&#10;from currency_quoting&#13;&#10;where gbp &#62; 0&#13;&#10;and date &#62;= #1/01/99#&#13;&#10;and date &#60;= #12/31/99#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674023C0470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="CAD1999" UserName="CAD1999" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, CAD&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where cad &#62; 0&#13;&#10;and date &#62;= #1/01/99#&#13;&#10;and date &#60;= #12/31/99#" SQLSchema="eAGLdkksSXRKLE6N5eUKDvSxNTEwMrYwMTAx4eWKDklMykktBkok2yaXFhWl5iVXxheW5pdk5qXrGJqCkJGBAZAyAKp1L8pMAao0sAWal6qDoTxZx1DHAAx5uQxtnR1d8CuJ9snMywbZDAC9cC7y" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674027C0470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="EUR1999" UserName="EUR1999" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, EUR&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where EUR &#62; 0&#13;&#10;and date &#62;= #1/01/99#&#13;&#10;and date &#60;= #12/31/99#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403BC000470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="JPY1999" UserName="JPY1999" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, JPY&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where JPY &#62; 0&#13;&#10;and date &#62;= #1/01/99#&#13;&#10;and date &#60;= #12/31/99#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403FC000470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="GBP2000" UserName="GBP2000" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select date, gbp&#13;&#10;from currency_quoting&#13;&#10;where gbp &#62; 0&#13;&#10;and date &#62;= #1/01/00#&#13;&#10;and date &#60;= #12/31/00#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674033C010470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="GBP2001" UserName="GBP2001" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select date, gbp&#13;&#10;from currency_quoting&#13;&#10;where gbp &#62; 0&#13;&#10;and date &#62;= #1/01/01#&#13;&#10;and date &#60;= #12/31/01#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674037C010470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="GBP2002" UserName="GBP2002" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select date, gbp&#13;&#10;from currency_quoting&#13;&#10;where gbp &#62; 0&#13;&#10;and date &#62;= #1/01/02#&#13;&#10;and date &#60;= #12/31/02#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403BC010470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="GBP2003" UserName="GBP2003" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select date, gbp&#13;&#10;from currency_quoting&#13;&#10;where gbp &#62; 0&#13;&#10;and date &#62;= #1/01/03#&#13;&#10;and date &#60;= #12/31/03#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403FC010470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="GBP2004" UserName="GBP2004" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select date, gbp&#13;&#10;from currency_quoting&#13;&#10;where gbp &#62; 0&#13;&#10;and date &#62;= #1/01/04#&#13;&#10;and date &#60;= #12/31/04#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674033C020470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="GBP2005" UserName="GBP2005" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select date, gbp&#13;&#10;from currency_quoting&#13;&#10;where gbp &#62; 0&#13;&#10;and date &#62;= #1/01/05#&#13;&#10;and date &#60;= #12/31/05#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674037C020470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="CAD2000" UserName="CAD2000" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, CAD&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where cad &#62; 0&#13;&#10;and date &#62;= #1/01/00#&#13;&#10;and date &#60;= #12/31/00#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403BC020470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="CAD2001" UserName="CAD2001" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, CAD&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where cad &#62; 0&#13;&#10;and date &#62;= #1/01/01#&#13;&#10;and date &#60;= #12/31/01#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403FC020470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="CAD2002" UserName="CAD2002" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="          SELECT Date, CAD&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where cad &#62; 0&#13;&#10;and date &#62;= #1/01/02#&#13;&#10;and date &#60;= #12/31/02#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674033C030470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="CAD2003" UserName="CAD2003" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, CAD&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where cad &#62; 0&#13;&#10;and date &#62;= #1/01/03#&#13;&#10;and date &#60;= #12/31/03#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674037C030470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="CAD2004" UserName="CAD2004" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, CAD&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where cad &#62; 0&#13;&#10;and date &#62;= #1/01/04#&#13;&#10;and date &#60;= #12/31/04#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403BC030470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="CAD2005" UserName="CAD2005" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, CAD&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where cad &#62; 0&#13;&#10;and date &#62;= #1/01/05#&#13;&#10;and date &#60;= #12/31/05#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403FC030470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="EUR2000" UserName="EUR2000" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, EUR&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where EUR &#62; 0&#13;&#10;and date &#62;= #1/01/00#&#13;&#10;and date &#60;= #12/31/00#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674033C040470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="EUR2001" UserName="EUR2001" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, EUR&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where EUR &#62; 0&#13;&#10;and date &#62;= #1/01/01#&#13;&#10;and date &#60;= #12/31/01#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674037C040470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="EUR2002" UserName="EUR2002" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="                    SELECT Date, EUR&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where EUR &#62; 0&#13;&#10;and date &#62;= #1/01/02#&#13;&#10;and date &#60;= #12/31/02#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403BC040470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="EUR2003" UserName="EUR2003" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, EUR&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where EUR &#62; 0&#13;&#10;and date &#62;= #1/01/03#&#13;&#10;and date &#60;= #12/31/03#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403FC040470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="EUR2004" UserName="EUR2004" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, EUR&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where EUR &#62; 0&#13;&#10;and date &#62;= #1/01/03#&#13;&#10;and date &#60;= #12/31/03#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674033C050470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="EUR2005" UserName="EUR2005" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, EUR&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where EUR &#62; 0&#13;&#10;and date &#62;= #1/01/05#&#13;&#10;and date &#60;= #12/31/05#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674037C050470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="JPY2000" UserName="JPY2000" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, JPY&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where JPY &#62; 0&#13;&#10;and date &#62;= #1/01/00#&#13;&#10;and date &#60;= #12/31/00#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403BC050470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="JPY2001" UserName="JPY2001" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, JPY&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where JPY &#62; 0&#13;&#10;and date &#62;= #1/01/01#&#13;&#10;and date &#60;= #12/31/01#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403FC050470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="JPY2002" UserName="JPY2002" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, JPY&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where JPY &#62; 0&#13;&#10;and date &#62;= #1/01/02#&#13;&#10;and date &#60;= #12/31/02#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674033C060470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="YPY2003" UserName="YPY2003" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, JPY&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where JPY &#62; 0&#13;&#10;and date &#62;= #1/01/03#&#13;&#10;and date &#60;= #12/31/03#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C656674037C060470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="JPY2004" UserName="JPY2004" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, JPY&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where JPY &#62; 0&#13;&#10;and date &#62;= #1/01/04#&#13;&#10;and date &#60;= #12/31/04#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403BC060470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="JPY2005" UserName="JPY2005" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="SELECT Date, JPY&#13;&#10;FROM&#13;&#10;    currency_quoting&#13;&#10;where JPY &#62; 0&#13;&#10;and date &#62;= #1/01/05#&#13;&#10;and date &#60;= #12/31/05#" CommandTimeout="30" LockType="ltReadOnly" PropData="05704C65667403FC060470546F7002140A506172616D65746572730100"/>
    <TfrxADOQuery Name="ADOQuery1" UserName="ADOQuery1" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="select date, gbp&#13;&#10;from currency_quoting&#13;&#10;where (gbp &#62; 0) and (date &#62;= :pStartDate) and (date &#60;= :pEndDate)                                        &#13;&#10;  " CommandTimeout="30" LockType="ltReadOnly" PropData="05704C6566740391000470546F7003A5000A506172616D657465727301010669204E616D653D2270537461727444617465222044617461547970653D22667444617465222045787072657373696F6E3D22456E636F64654461746528596561724F6628537472546F4461746528262336303B436861727456616C7565262336323B29292C312C3129220001066B204E616D653D2270456E6444617465222044617461547970653D22667444617465222045787072657373696F6E3D22456E636F64654461746528596561724F6628537472546F4461746528262336303B436861727456616C7565262336323B2929202B20312C312C3129220000"/>
  </TfrxDataPage>
  <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="419,99958333" PaperHeight="240,31310417" PaperSize="256" LeftMargin="10,00125" RightMargin="10,00125" TopMargin="10,00125" BottomMargin="10,00125" ColumnWidth="0" ColumnPositions.Text="" Frame.Typ="0" MirrorMode="0" HGuides.Text="650,77" VGuides.Text="80,00000002&#13;&#10;1374,99999997">
    <TfrxChild Name="Child1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="747,77067196" Left="0" Top="80" Width="1511,80097635823" ToNRows="0" ToNRowsMode="rmCount">
      <TfrxChartView Name="Chart1" AllowVectorExport="True" Left="1,25" Top="8,10400529" Width="1511,812" Height="506,45702" OnPreviewClick="Chart1OnPreviewClick" Hyperlink.Kind="hkDetailPage" Hyperlink.DetailPage="Page2" Hyperlink.ReportVariable="ChartValue;FilterMin;FilterMax" HighlightColor="0" Cursor="-21" Frame.Color="16700346" Frame.Typ="7" Frame.Width="3" TagStr="ChartUSD" PropData="[encoded data, 7340 characters]"/>
      <TfrxMemoView Name="Memo1" AllowVectorExport="True" Left="0,83333333" Top="514,08823529" Width="1512,84153" Height="233,68243667" Font.Charset="1" Font.Color="-16777208" Font.Height="-19" Font.Name="Arial" Font.Style="1" Frame.Color="16700346" Frame.Typ="11" Frame.Width="3" Fill.BackColor="16577515" HAlign="haCenter" ParentFont="False" Text="EXCHANGE RATES"/>
      <TfrxIntervalGaugeView Name="IntervalGauge1" AllowVectorExport="True" Left="61,66666667" Top="497,00490196" Width="1422,66666666" Height="63,0906" OnContentChanged="IntervalGauge1OnContentChanged" Fill.BackColor="16577515" Frame.Typ="0" IntervalGauge.Kind="gkHorizontal" IntervalGauge.Angle="180" IntervalGauge.MinorScale.Font.Charset="1" IntervalGauge.MinorScale.Font.Color="-16777208" IntervalGauge.MinorScale.Font.Height="-11" IntervalGauge.MinorScale.Font.Name="Tahoma" IntervalGauge.MinorScale.Font.Style="0" IntervalGauge.MinorScale.Ticks.Length="18" IntervalGauge.MinorScale.Ticks.Width="1" IntervalGauge.MinorScale.Ticks.Color="0" IntervalGauge.MinorScale.ValueFormat="%1.0f" IntervalGauge.MinorScale.Visible="False" IntervalGauge.MinorScale.VisibleDigits="False" IntervalGauge.MinorScale.Bilateral="False" IntervalGauge.MajorScale.Font.Charset="1" IntervalGauge.MajorScale.Font.Color="-16777208" IntervalGauge.MajorScale.Font.Height="-11" IntervalGauge.MajorScale.Font.Name="Tahoma" IntervalGauge.MajorScale.Font.Style="0" IntervalGauge.MajorScale.Ticks.Length="25" IntervalGauge.MajorScale.Ticks.Width="2" IntervalGauge.MajorScale.Ticks.Color="0" IntervalGauge.MajorScale.ValueFormat="%1.0f" IntervalGauge.MajorScale.Visible="True" IntervalGauge.MajorScale.VisibleDigits="True" IntervalGauge.MajorScale.Bilateral="False" IntervalGauge.Pointer.BorderWidth="2" IntervalGauge.Pointer.BorderColor="0" IntervalGauge.Pointer.Width="8" IntervalGauge.Pointer.Color="255" IntervalGauge.PointerKind="pkBand" IntervalGauge.MajorStep="30" IntervalGauge.MinorStep="30" IntervalGauge.Margin.Left="20" IntervalGauge.Margin.Top="10" IntervalGauge.Margin.Right="20" IntervalGauge.Margin.Bottom="10" IntervalGauge.Maximum="253" IntervalGauge.Minimum="1" IntervalGauge.EndValue="253" IntervalGauge.StartValue="1"/>
      <TfrxMemoView Name="Memo6" AllowVectorExport="True" Left="168,46236559" Top="570,77" Width="544" Height="105,33333334" Font.Charset="1" Font.Color="7097145" Font.Height="-21" Font.Name="Arial" Font.Style="1" Frame.Typ="0" ParentFont="False" VAlign="vaCenter" Text="Use gauge bar from above to set slice of dates:&#13;&#10;- mouse click and drag right or left bar side;&#13;&#10;- mouse wheel to move slice of dates;"/>
      <TfrxMemoView Name="Memo7" AllowVectorExport="True" Left="943,51695616" Top="570,77" Width="544" Height="105,33333334" Font.Charset="1" Font.Color="7097145" Font.Height="-21" Font.Name="Arial" Font.Style="1" Frame.Typ="0" ParentFont="False" VAlign="vaCenter" Text="Use chart series switch from right upper corner to hide or show chart series.&#13;&#10;Click on chart series to build detail report for selected dates slice."/>
      <TfrxPictureView Name="Picture1" AllowVectorExport="True" Left="62,58064516" Top="570,77" Width="98,70967742" Height="97,93548387" Frame.Typ="0" Picture.PropData="[encoded data, 6338 characters]" HightQuality="True" Transparent="False" TransparentColor="16777215"/>
      <TfrxPictureView Name="Picture2" AllowVectorExport="True" Left="838,06451613" Top="570,77" Width="98,70967742" Height="97,93548387" Frame.Typ="0" Picture.PropData="[encoded data, 6338 characters]" HightQuality="True" Transparent="False" TransparentColor="16777215"/>
    </TfrxChild>
    <TfrxReportTitle Name="Band1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="42,73626374" Left="0" Top="16" Width="1511,80097635823" Child="Child1">
      <TfrxMemoView Name="Memo5" AllowVectorExport="True" Left="0" Top="0" Width="1512" Height="41,30769231" Font.Charset="1" Font.Color="16777215" Font.Height="-24" Font.Name="Arial" Font.Style="1" Frame.Typ="0" Fill.BackColor="16629143" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Interactive exchange rate"/>
    </TfrxReportTitle>
  </TfrxReportPage>
  <TfrxReportPage Name="Page2" Visible="False" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" Frame.Typ="0" MirrorMode="0" HGuides.Text="104,68691358&#13;&#10;128,52753084" VGuides.Text="106,06333371&#13;&#10;278,82844221&#13;&#10;699,15044578&#13;&#10;25,00444464&#13;&#10;683,07923119">
    <TfrxMasterData Name="MasterData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="18,89765" Left="0" Top="188,9765" Width="718,1107" OnAfterPrint="MasterData1OnAfterPrint" OnBeforePrint="MasterData1OnBeforePrint" ColumnWidth="0" ColumnGap="0" DataSet="ADOQuery1" DataSetName="ADOQuery1" RowCount="0">
      <TfrxMemoView Name="ADOQuery1date" IndexTag="1" AllowVectorExport="True" Left="106,06333371" Top="0" Width="172,7651085" Height="18,89765" DataField="date" DataSet="ADOQuery1" DataSetName="ADOQuery1" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="[ADOQuery1.&#34;date&#34;]"/>
      <TfrxMemoView Name="ADOQuery1gbp" IndexTag="2" AllowVectorExport="True" Left="278,82844221" Top="0" Width="420,32200357" Height="18,89765" DataField="gbp" DataSet="ADOQuery1" DataSetName="ADOQuery1" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="[ADOQuery1.&#34;gbp&#34;]"/>
      <TfrxMemoView Name="Line" IndexTag="1" AllowVectorExport="True" Left="25,00444464" Top="0" Width="81,05888907" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" ParentFont="False" VAlign="vaCenter" Text="[Line]"/>
      <TfrxLineView Name="Line1" AllowVectorExport="True" Left="683,07923119" Top="3,39393939000001" Width="0" Height="11,11111111" OnBeforePrint="Line1OnBeforePrint" Color="32768" ArrowEnd="True" ArrowLength="4" ArrowSolid="True" Frame.Color="255" Frame.Typ="1" Frame.Width="3"/>
    </TfrxMasterData>
    <TfrxHeader Name="Header1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="43,42518084" Left="0" Top="120,94496" Width="718,1107" ReprintOnNewPage="True">
      <TfrxMemoView Name="Memo2" IndexTag="1" AllowVectorExport="True" Left="106,06333371" Top="24,52753084" Width="172,7651085" Height="18,89765" DataSet="ADOQuery1" DataSetName="ADOQuery1" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Fill.BackColor="-16777201" ParentFont="False" VAlign="vaCenter" Text="Date"/>
      <TfrxMemoView Name="Memo3" IndexTag="2" AllowVectorExport="True" Left="278,82844221" Top="24,52753084" Width="420,32200357" Height="18,89765" DataSet="ADOQuery1" DataSetName="ADOQuery1" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Fill.BackColor="-16777201" ParentFont="False" VAlign="vaCenter" Text="Rate">
        <Formats>
          <item/>
          <item/>
        </Formats>
      </TfrxMemoView>
      <TfrxMemoView Name="Memo4" IndexTag="1" AllowVectorExport="True" Left="25,00444464" Top="24,52753084" Width="81,05888907" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Fill.BackColor="-16777201" ParentFont="False" VAlign="vaCenter" Text="Line"/>
      <TfrxMemoView Name="FilterMin" IndexTag="1" AllowVectorExport="True" Left="25,00444464" Top="0,686913579999995" Width="674,14600114" Height="23,84061726" AllowHTMLTags="True" Font.Charset="1" Font.Color="7097145" Font.Height="-19" Font.Name="Arial" Font.Style="0" Frame.Typ="15" Fill.BackColor="-16777201" ParentFont="False" Processing.ProcessAt="paCustom" Text="GBP to USD exchange rates from &#60;b&#62;[FirstDate]&#60;/b&#62; to &#60;b&#62;[LastDate]&#60;/b&#62;">
        <Formats>
          <item/>
          <item/>
        </Formats>
      </TfrxMemoView>
    </TfrxHeader>
    <TfrxReportTitle Name="ReportTitle1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="42,16483517" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="ReportTitle1OnBeforePrint">
      <TfrxMemoView Name="Memo8" AllowVectorExport="True" Left="13,33777797" Top="0" Width="702,57017544" Height="39,87912088" Font.Charset="1" Font.Color="16777215" Font.Height="-24" Font.Name="Arial" Font.Style="1" Frame.Typ="0" Fill.BackColor="16629143" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Exchange rates [YearOf(StrToDate(&#60;ChartValue&#62;))]"/>
    </TfrxReportTitle>
    <TfrxFooter Name="Footer1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Frame.Typ="0" Height="47,85714286" Left="0" Top="230,55133" Width="718,1107" OnBeforePrint="Footer1OnBeforePrint"/>
  </TfrxReportPage>
</TfrxReport>
