⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 04.master-detail-subdetail.fr3

📁 DELPHI报表控件 DELPHI报表控件
💻 FR3
字号:
🔍 
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Name="" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9961568403" ReportOptions.Description.Text="Demonstrates how to create Master/Detail/SubDetail report. This report contains three data-bands which are connected to datasets." ReportOptions.LastChange="38447,5095741667" 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;begin&#13;&#10;&#13;&#10;end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D224974656D732220446174615365744E616D653D224974656D732200010C2C00000020446174615365743D22437573746F6D6572732220446174615365744E616D653D22437573746F6D6572732200010C2600000020446174615365743D224F72646572732220446174615365744E616D653D224F7264657273220000095661726961626C657301010C11000000204E616D653D222044617461626173652200010C2C000000204E616D653D2250617468546F4461746162617365222056616C75653D22272E2E5C64656D6F2E6D646227220000055374796C650100">
  <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="">
    <TfrxPageFooter Name="Band1" Height="22,67718" Left="0" Top="472,44125" Width="755,906">
      <TfrxMemoView Name="Memo5" Left="3,77953" Top="3,77953000000002" Width="706,77211" 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="18,89765" Width="755,906">
      <TfrxMemoView Name="Memo6" Left="3,77953" Top="3,77953" Width="706,77211" 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="vaBottom"/>
    </TfrxReportTitle>
    <TfrxPageHeader Name="Band3" Height="22,67718" Left="0" Top="68,03154" Width="755,906">
      <TfrxMemoView Name="Memo22" Left="3,77953" Top="3,77952999999999" Width="706,77211" 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>
    <TfrxMasterData Name="Band4" Height="45,35436" Left="0" Top="151,1812" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Customers" DataSetName="Customers" RowCount="0">
      <TfrxMemoView Name="Memo23" Left="11,33859" Top="0" Width="283,46475" 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="Company" ParentFont="False" VAlign="vaCenter"/>
      <TfrxMemoView Name="Memo24" Left="11,33859" Top="18,89765" Width="283,46475" Height="26,45671" Color="8388608" DataField="Company" DataSetName="Customers" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Customers.&#34;Company&#34;]" ParentFont="False" VAlign="vaCenter"/>
      <TfrxMemoView Name="Memo25" Left="294,80334" Top="0" Width="173,85838" 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="Memo26" Left="468,66172" Top="0" Width="162,51979" 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="Fax" ParentFont="False" VAlign="vaCenter"/>
      <TfrxMemoView Name="Memo27" Left="294,80334" Top="18,89765" Width="173,85838" Height="26,45671" Color="8388608" DataField="Phone" DataSetName="Customers" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Customers.&#34;Phone&#34;]" ParentFont="False" VAlign="vaCenter"/>
      <TfrxMemoView Name="Memo28" Left="468,66172" Top="18,89765" Width="162,51979" Height="26,45671" Color="8388608" DataField="FAX" DataSetName="Customers" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Memo.Text="[Customers.&#34;FAX&#34;]" ParentFont="False" VAlign="vaCenter"/>
      <TfrxMemoView Name="Memo29" Left="631,18151" Top="0" Width="79,37013" Height="45,35436" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="3" Frame.Typ="6" Memo.Text="" ParentFont="False" VAlign="vaCenter"/>
      <TfrxMemoView Name="Memo7" Left="3,77953" Top="0" Width="7,55906" Height="45,35436" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="3" Frame.Typ="5" Memo.Text="" ParentFont="False" VAlign="vaCenter"/>
    </TfrxMasterData>
    <TfrxDetailData Name="Band5" Height="18,89765" Left="0" Top="219,21274" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Orders" DataSetName="Orders" RowCount="0">
      <TfrxMemoView Name="Memo4" Left="3,77953" Top="0" Width="3,77953" Height="18,89765" Color="12632256" 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="7,55906" Top="0" Width="117,16543" Height="18,89765" Color="12632256" DataSet="Orders" DataSetName="Orders" Memo.Text="Order No [Orders.&#34;OrderNo&#34;]"/>
      <TfrxMemoView Name="Memo9" Left="124,72449" Top="0" Width="585,82715" Height="18,89765" Color="12632256" DataSet="Orders" DataSetName="Orders" Frame.Typ="2" Memo.Text="Sale Date [Orders.&#34;SaleDate&#34;]"/>
    </TfrxDetailData>
    <TfrxFooter Name="Band6" Height="26,45671" Left="0" Top="260,78757" Width="755,906">
      <TfrxMemoView Name="Memo10" Left="3,77953" Top="0" Width="706,77211" Height="18,89765" Color="12632256" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Frame.Typ="11" Memo.Text="Total sales this customer: [Sum(&#60;Items.&#34;Qty&#34;&#62;*&#60;Items.&#34;Price&#34;&#62;, Band8)]"/>
    </TfrxFooter>
    <TfrxHeader Name="Band7" Height="18,89765" Left="0" Top="309,92146" Width="755,906">
      <TfrxMemoView Name="Memo3" Left="3,77953" Top="0" Width="41,57483" 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="Memo11" Left="45,35436" Top="0" Width="56,69295" Height="15,11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Part" ParentFont="False"/>
      <TfrxMemoView Name="Memo12" Left="109,60637" Top="0" Width="226,7718" Height="15,11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Description" ParentFont="False"/>
      <TfrxMemoView Name="Memo13" Left="343,93723" Top="0" Width="79,37013" Height="15,11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Price" ParentFont="False"/>
      <TfrxMemoView Name="Memo14" Left="430,86642" Top="0" Width="56,69295" Height="15,11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Qty" ParentFont="False"/>
      <TfrxMemoView Name="Memo15" Left="495,11843" Top="0" Width="79,37013" Height="15,11812" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="Total" ParentFont="False"/>
      <TfrxMemoView Name="Memo30" Left="574,48856" Top="0" Width="136,06308" 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"/>
    </TfrxHeader>
    <TfrxSubdetailData Name="Band8" Height="15,11812" Left="0" Top="351,49629" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Items" DataSetName="Items" RowCount="0">
      <TfrxMemoView Name="Memo2" Left="3,77953" Top="0" Width="41,57483" Height="15,11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" Memo.Text="" ParentFont="False"/>
      <TfrxMemoView Name="Memo16" Left="45,35436" Top="0" Width="56,69295" Height="15,11812" DataField="Part No" DataSetName="Items" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Items.&#34;Part No&#34;]" ParentFont="False"/>
      <TfrxMemoView Name="Memo17" Left="109,60637" Top="0" Width="226,7718" Height="15,11812" DataField="Part Name" DataSetName="Items" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" Memo.Text="[Items.&#34;Part Name&#34;]" ParentFont="False"/>
      <TfrxMemoView Name="Memo18" Left="343,93723" Top="0" Width="79,37013" Height="15,11812" DataField="Price" DataSetName="Items" 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="[Items.&#34;Price&#34;]" ParentFont="False"/>
      <TfrxMemoView Name="Memo19" Left="430,86642" Top="0" Width="56,69295" Height="15,11812" DataField="Qty" DataSetName="Items" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" Memo.Text="[Items.&#34;Qty&#34;]" ParentFont="False"/>
      <TfrxMemoView Name="Memo20" Left="495,11843" Top="0" Width="79,37013" Height="15,11812" 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="[&#60;Items.&#34;Qty&#34;&#62;*&#60;Items.&#34;Price&#34;&#62;]" ParentFont="False"/>
      <TfrxMemoView Name="Memo31" Left="574,48856" Top="0" Width="136,06308" Height="15,11812" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" Memo.Text="" ParentFont="False"/>
    </TfrxSubdetailData>
    <TfrxFooter Name="Band9" Height="22,67718" Left="0" Top="389,29159" Width="755,906">
      <TfrxMemoView Name="Memo1" Left="3,77953" Top="0" Width="41,57483" 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="Memo21" Left="45,35436" Top="0" Width="529,1342" Height="18,89765" 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(&#60;Items.&#34;Qty&#34;&#62;*&#60;Items.&#34;Price&#34;&#62;, Band8)]" ParentFont="False"/>
      <TfrxMemoView Name="Memo32" Left="574,48856" Top="0" Width="136,06308" 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"/>
    </TfrxFooter>
  </TfrxReportPage>
  <TfrxDialogPage Name="DialogPage1" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" Height="200" Left="354" Top="151" Width="300">
    <TfrxADODatabase Name="ADODatabase1" LoginPrompt="False" PropData="05704C65667402200470546F700260"/>
    <TfrxADOQuery Name="Items" UserName="Items" CloseDataSource="True" FieldAliases.Text="OrderNo=OrderNo&#13;&#10;ItemNo=ItemNo&#13;&#10;a.PartNo=Part No&#13;&#10;Qty=Qty&#13;&#10;Discount=Discount&#13;&#10;b.PartNo=b.PartNo&#13;&#10;VendorNo=VendorNo&#13;&#10;Description=Part Name&#13;&#10;OnHand=OnHand&#13;&#10;OnOrder=OnOrder&#13;&#10;Cost=Cost&#13;&#10;ListPrice=Price" Master="Orders" SQL.Text="select * from items a, parts b&#13;&#10;where a.partno=b.partno&#13;&#10;and a.orderno=:orderno&#13;&#10;order by itemno" Database="ADODatabase1" PropData="05704C656674039C000470546F7002080A506172616D657465727301010C24000000204E616D653D226F726465726E6F222044617461547970653D226674496E7465676572220000"/>
    <TfrxADOQuery Name="Customers" UserName="Customers" CloseDataSource="True" FieldAliases.Text="CustNo=CustNo&#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=TaxRate&#13;&#10;Contact=Contact&#13;&#10;LastInvoiceDate=LastInvoiceDate" SQL.Text="select * from customer order by company" Database="ADODatabase1" PropData="05704C65667402200470546F7002080A506172616D65746572730100"/>
    <TfrxADOQuery Name="Orders" UserName="Orders" CloseDataSource="True" FieldAliases.Text="OrderNo=OrderNo&#13;&#10;CustNo=CustNo&#13;&#10;SaleDate=SaleDate&#13;&#10;ShipDate=ShipDate&#13;&#10;EmpNo=EmpNo&#13;&#10;ShipToContact=ShipToContact&#13;&#10;ShipToAddr1=ShipToAddr1&#13;&#10;ShipToAddr2=ShipToAddr2&#13;&#10;ShipToCity=ShipToCity&#13;&#10;ShipToState=ShipToState&#13;&#10;ShipToZip=ShipToZip&#13;&#10;ShipToCountry=ShipToCountry&#13;&#10;ShipToPhone=ShipToPhone&#13;&#10;ShipVIA=ShipVIA&#13;&#10;PO=PO&#13;&#10;Terms=Terms&#13;&#10;PaymentMethod=PaymentMethod&#13;&#10;ItemsTotal=ItemsTotal&#13;&#10;TaxRate=TaxRate&#13;&#10;Freight=Freight&#13;&#10;AmountPaid=AmountPaid" Master="Customers" SQL.Text="select * from orders&#13;&#10;where custno = :custno&#13;&#10;order by saledate" Database="ADODatabase1" PropData="05704C65667402600470546F7002080A506172616D657465727301010C23000000204E616D653D22637573746E6F222044617461547970653D226674496E7465676572220000"/>
  </TfrxDialogPage>
</TfrxReport>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -