催还单.fr3

地址档案管理系统

<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" DotMatrixReport="False" EngineOptions.MaxMemSize="10000000" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="38280.8481338542" ReportOptions.Description.Text="单井档案总目录" ReportOptions.Name="催还单" ReportOptions.LastChange="38294.6042608796" ScriptLanguage="PascalScript" ScriptText.Text="procedure Button1OnClick(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." PropData="044C656674021803546F7003480108446174617365747301010C2800000020446174615365743D227172795F6368642220446174615365744E616D653D227172795F636864220000095661726961626C65730100055374796C650100">
  <TfrxReportPage Name="Page1" Orientation="poLandscape" PaperWidth="297" PaperHeight="210" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxReportTitle Name="ReportTitle1" Height="41.57483" Left="0" Top="18.89765" Width="1046.92981">
      <TfrxMemoView Name="Memo1" Left="461.10266" Top="0" Width="105.82684" Height="37.7953" Font.Charset="1" Font.Color="0" Font.Height="-32" Font.Name="Arial" Font.Style="1" Memo.Text="催还单" ParentFont="False"/>
    </TfrxReportTitle>
    <TfrxPageFooter Name="PageFooter1" Height="22.67718" Left="0" Top="374.17347" Width="1046.92981">
      <TfrxSysMemoView Name="SysMemo1" Left="408.18924" Top="0" Width="181.41744" Height="18.89765" Memo.Text="[PAGE#] of [TOTALPAGES#]"/>
      <TfrxSysMemoView Name="SysMemo2" Left="7.55906" Top="3.77953000000008" Width="94.48825" Height="18.89765" Memo.Text="[DATE]"/>
    </TfrxPageFooter>
    <TfrxGroupHeader Name="GroupHeader1" Height="124.72449" Left="0" Top="120.94496" Width="1046.92981" Condition="qry_chd.&#34;id&#34;" KeepTogether="True">
      <TfrxMemoView Name="Memo2" Left="3.77953" Top="68.03154" Width="978.89827" Height="18.89765" DataSet="qry_chd" DataSetName="qry_chd" Memo.Text="[qry_chd.&#34;dname&#34;]　的　[qry_chd.&#34;name&#34;]　同志，您借阅了以下档案，请尽快归还："/>
      <TfrxMemoView Name="Memo4" Left="0" Top="30.23624" Width="128.50402" Height="18.89765" DataSet="qry_chd" DataSetName="qry_chd" Memo.Text="电话：[qry_chd.&#34;TELE&#34;]"/>
      <TfrxMemoView Name="Memo5" Left="162.51979" Top="30.23624" Width="177.63791" Height="18.89765" DataSet="qry_chd" DataSetName="qry_chd" Memo.Text="地址：[qry_chd.&#34;ADDR&#34;]"/>
      <TfrxMemoView Name="Memo9" Left="408.18924" Top="105.82684" Width="94.48825" Height="18.89765" Memo.Text="借阅日期"/>
      <TfrxMemoView Name="Memo10" Left="548.03185" Top="105.82684" Width="94.48825" Height="18.89765" Memo.Text="档案号"/>
      <TfrxMemoView Name="Memo11" Left="744.56741" Top="105.82684" Width="94.48825" Height="18.89765" Memo.Text="套号"/>
      <TfrxLineView Name="Line1" Left="0" Top="15.11812" Width="1043.15028" Height="0" Frame.Typ="4"/>
    </TfrxGroupHeader>
    <TfrxMasterData Name="MasterData1" Height="22.67718" Left="0" Top="268.34663" Width="1046.92981" ColumnWidth="0" ColumnGap="0" DataSet="qry_chd" DataSetName="qry_chd" RowCount="0">
      <TfrxMemoView Name="Memo6" Left="400.63018" Top="0" Width="98.26778" Height="18.89765" DataField="jydate" DataSet="qry_chd" DataSetName="qry_chd" Memo.Text="[qry_chd.&#34;jydate&#34;]"/>
      <TfrxMemoView Name="Memo7" Left="548.03185" Top="0" Width="132.28355" Height="18.89765" DataField="DAH" DataSet="qry_chd" DataSetName="qry_chd" Memo.Text="[qry_chd.&#34;DAH&#34;]"/>
      <TfrxMemoView Name="Memo8" Left="748.34694" Top="0" Width="60.47248" Height="18.89765" DataField="TH" DataSet="qry_chd" DataSetName="qry_chd" Memo.Text="[qry_chd.&#34;TH&#34;]"/>
    </TfrxMasterData>
    <TfrxGroupFooter Name="GroupFooter1" Height="0" Left="0" Top="313.70099" Width="1046.92981"/>
    <TfrxLineView Name="Line2" Left="3.77953" Top="317.48052" Width="1043.15028" Height="0" Frame.Typ="4"/>
  </TfrxReportPage>
  <TfrxDialogPage Name="DialogPage1" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" BorderStyle="bsDialog" Caption="催还单" Height="200" Left="266" Top="150" Width="300">
    <TfrxADODatabase Name="ADODatabase1" DatabaseName="Provider=SQLOLEDB.1;Password=gauser;Persist Security Info=True;User ID=gauser;Initial Catalog=GA4;Data Source=dsvr;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=gauser;Use Encryption for Data=False;Tag with column collation when possible=False" LoginPrompt="False" Connected="True" PropData="05704C6566740300010470546F700208"/>
    <TfrxEditControl Name="Edit1" Left="108" Top="56" Width="121" Height="21" Color="-16777211" MaxLength="0" PasswordChar="0"/>
    <TfrxEditControl Name="Edit2" Left="108" Top="92" Width="121" Height="21" Color="-16777211" MaxLength="0" PasswordChar="0"/>
    <TfrxButtonControl Name="Button1" Left="60" Top="132" Width="75" Height="25" Caption="确定" ModalResult="1" OnClick="Button1OnClick"/>
    <TfrxLabelControl Name="Label1" Left="44" Top="56" Width="60" Height="13" AutoSize="False" Caption="起始日期：" Color="-16777201"/>
    <TfrxLabelControl Name="Label2" Left="44" Top="92" Width="60" Height="13" AutoSize="False" Caption="终止日期：" Color="-16777201"/>
    <TfrxLabelControl Name="Label3" Left="68" Top="16" Width="160" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Caption="请确定借阅日期的范围" Color="-16777201"/>
    <TfrxButtonControl Name="Button2" Left="172" Top="132" Width="75" Height="25" Cancel="True" Caption="取消" ModalResult="2"/>
    <TfrxADOQuery Name="qry_chd" UserName="qry_chd" FieldAliases.Text="name=name&#13;&#10;id=id&#13;&#10;dname=dname&#13;&#10;TELE=TELE&#13;&#10;ADDR=ADDR&#13;&#10;jydate=jydate&#13;&#10;DAH=DAH&#13;&#10;TH=TH" SQL.Text="SELECT DISTINCT&#13;&#10;      TOP 100 PERCENT b.name, b.id, c.name AS dname, b.TELE, b.ADDR, a.jydate, a.DAH,&#13;&#10;      a.TH&#13;&#10;FROM dbo.DWDZ c INNER JOIN&#13;&#10;      dbo.DZ b ON c.id = b.dwid INNER JOIN&#13;&#10;      dbo.JYK a ON b.id = a.id&#13;&#10;WHERE (b.id IN&#13;&#10;          (SELECT id&#13;&#10;         FROM jyk&#13;&#10;         WHERE ghdate IS NULL and jydate&#62;=:BeginDate and jydate&#60;=:EndDate))" Database="ADODatabase1" PropData="05704C6566740300010470546F7002400A506172616D657465727301010C3B000000204E616D653D22426567696E44617465222044617461547970653D22667444617465222045787072657373696F6E3D2245646974312E546578742200010C39000000204E616D653D22456E6444617465222044617461547970653D22667444617465222045787072657373696F6E3D2245646974322E54657874220000"/>
  </TfrxDialogPage>
</TfrxReport>