📄 04.dialog and script.fr3
字号:
<?xml version="1.0" encoding="utf-8"?>
<TfrxReport Version="3.22" DotMatrixReport="False" EngineOptions.UseFileCache="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.Author="A. Fediachov" ReportOptions.ConnectionName="FR Demo Base" ReportOptions.CreateDate="37871,9959574884" ReportOptions.Description.Text="This report shows how to use dialog selection filter and scripts in client-server mode." ReportOptions.LastChange="38874,0343504861" ReportOptions.VersionBuild="0" ReportOptions.VersionMajor="1" ReportOptions.VersionMinor="0" ReportOptions.VersionRelease="0" ScriptLanguage="PascalScript" ScriptText.Text="// VERY IMPORTANT! // If you want use of the script and dialog forms in client-server mode please follow // the next rules: // 1. You can use global report script for fill any data in the forms controls. // 2. You should place any DB components (SQL, table, etc) on report page not on the form. // 3. You can use 'OnDeactivate' event handler of the dialg form for setup of // global variables and further use in queryes, etc. var s: String; i: Integer; // 'OnDeactivate' event handler procedure DialogPage1OnDeactivate(Sender: TfrxComponent); begin s := ComboBox1.Text; i := Pos('''', s); if i > 0 then Insert('''', s, i); Set('CompSelected', ''''+ s + ''''); // 'CompSelected' variable is used in 'Sales' query on the report page end; // Global report script begin Customers.Open; // fill in a combobox on the form while not Customers.EOF do begin ComboBox1.Items.Add(Customers.FieldByName('Company').AsString); Customers.Next; end; ComboBox1.ItemIndex := 0; // set first item as default Customers.Close; end." OnStartReport="frxReport1OnStartReport" PropData="08446174617365747301010C2400000020446174615365743D2253616C65732220446174615365744E616D653D2253616C65732200010C2C00000020446174615365743D22437573746F6D6572732220446174615365744E616D653D22437573746F6D657273220000095661726961626C657301010C16000000204E616D653D22204E65772043617465676F7279312200010C2A000000204E616D653D22436F6D7053656C6563746564222056616C75653D2227416374696F6E20436C756227220000055374796C650100">
<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="325,03958" Width="755,906">
<TfrxMemoView Name="Memo5" Left="3,77953" Top="3,77953000000002" Width="710,55164" 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" ParentFont="False" Text="[Page#]"/>
</TfrxPageFooter>
<TfrxGroupHeader Name="Band4" Height="45,35436" Left="0" Top="18,89765" Width="755,906" Condition="Sales."Cust No"">
<TfrxMemoView Name="Memo17" Left="3,77953" Top="0" Width="272,12616" Height="18,89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="5" GapX="6" ParentFont="False" VAlign="vaCenter" Text="Company"/>
<TfrxMemoView Name="Memo19" Left="275,90569" Top="0" Width="177,63791" Height="18,89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="4" ParentFont="False" VAlign="vaCenter" Text="Phone"/>
<TfrxMemoView Name="Memo20" Left="453,5436" Top="0" Width="260,78757" Height="18,89765" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-13" Font.Name="Arial" Font.Style="0" Frame.Typ="6" ParentFont="False" VAlign="vaCenter" Text="Fax"/>
<TfrxMemoView Name="Memo21" Left="275,90569" Top="18,89765" Width="177,63791" Height="26,45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" ParentFont="False" VAlign="vaCenter" Text="[Sales."Phone"]"/>
<TfrxMemoView Name="Memo22" Left="453,5436" Top="18,89765" Width="260,78757" Height="26,45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="2" ParentFont="False" VAlign="vaCenter" Text="[Sales."FAX"]"/>
<TfrxMemoView Name="Memo18" Left="3,77953" Top="18,89765" Width="272,12616" Height="26,45671" Color="8388608" Font.Charset="1" Font.Color="16777215" Font.Height="-19" Font.Name="Arial" Font.Style="2" Frame.Typ="1" GapX="6" ParentFont="False" VAlign="vaCenter" Text="[Sales."Company"]"/>
</TfrxGroupHeader>
<TfrxGroupHeader Name="Band5" Height="37,7953" Left="0" Top="86,92919" Width="755,906" Condition="Sales."Order No"">
<TfrxMemoView Name="Memo3" Left="3,77953" Top="18,89765" Width="52,91342" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo8" Left="3,77953" Top="0" Width="124,72449" Height="18,89765" Color="12632256" Frame.Typ="1" GapX="4" Text="Order No [Sales."Order No"]"/>
<TfrxMemoView Name="Memo9" Left="128,50402" Top="0" Width="585,82715" Height="18,89765" Color="12632256" Frame.Typ="2" Text="Date [Sales."Sale Date"]"/>
<TfrxMemoView Name="Memo10" Left="56,69295" Top="18,89765" Width="71,81107" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="Part"/>
<TfrxMemoView Name="Memo11" Left="128,50402" Top="18,89765" Width="279,68522" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="Description"/>
<TfrxMemoView Name="Memo12" Left="408,18924" Top="18,89765" Width="83,14966" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="Price"/>
<TfrxMemoView Name="Memo13" Left="491,3389" Top="18,89765" Width="60,47248" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="Qty"/>
<TfrxMemoView Name="Memo14" Left="551,81138" Top="18,89765" Width="90,70872" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="Total"/>
<TfrxMemoView Name="Memo31" Left="642,5201" Top="18,89765" Width="71,81107" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" ParentFont="False" Text=""/>
</TfrxGroupHeader>
<TfrxMasterData Name="Band6" Height="18,89765" Left="0" Top="147,40167" Width="755,906" Columns="1" ColumnWidth="200" ColumnGap="20" DataSet="Sales" DataSetName="Sales" RowCount="0">
<TfrxMemoView Name="Memo2" Left="3,77953" Top="0" Width="52,91342" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo23" Left="56,69295" Top="0" Width="71,81107" Height="18,89765" DataField="Part No" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[Sales."Part No"]"/>
<TfrxMemoView Name="Memo24" Left="128,50402" Top="0" Width="279,68522" Height="18,89765" DataField="Description" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="[Sales."Description"]"/>
<TfrxMemoView Name="Memo25" Left="408,18924" Top="0" Width="83,14966" Height="18,89765" DataField="List Price" DataSet="Sales" DataSetName="Sales" DisplayFormat.FormatStr="%2.2m" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[Sales."List Price"]"/>
<TfrxMemoView Name="Memo26" Left="491,3389" Top="0" Width="60,47248" Height="18,89765" DataField="Qty" DataSet="Sales" DataSetName="Sales" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haCenter" ParentFont="False" Text="[Sales."Qty"]"/>
<TfrxMemoView Name="Memo27" Left="551,81138" Top="0" Width="90,70872" Height="18,89765" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Arial" Font.Style="0" HAlign="haRight" ParentFont="False" Text="[<Sales."Qty">*<Sales."List Price">]"/>
<TfrxMemoView Name="Memo32" Left="642,5201" Top="0" Width="71,81107" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" ParentFont="False" Text=""/>
</TfrxMasterData>
<TfrxGroupFooter Name="Band7" Height="30,23624" Left="0" Top="234,33086" Width="755,906">
<TfrxMemoView Name="Memo28" Left="3,77953" Top="0" Width="710,55164" Height="18,89765" Color="12632256" DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Frame.Typ="11" Text="Total sales this customer: [Sum(<Sales."Qty">*<Sales."List Price">)]"/>
</TfrxGroupFooter>
<TfrxGroupFooter Name="Band8" Height="22,67718" Left="0" Top="188,9765" Width="755,906">
<TfrxMemoView Name="Memo1" Left="3,77953" Top="0" Width="52,91342" Height="22,67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="1" ParentFont="False" Text=""/>
<TfrxMemoView Name="Memo15" Left="56,69295" Top="0" Width="585,82715" Height="22,67718" 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" ParentFont="False" Text="Total this order: [Sum(<Sales."Qty">*<Sales."List Price">)]"/>
<TfrxMemoView Name="Memo33" Left="642,5201" Top="0" Width="71,81107" Height="22,67718" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" Frame.Typ="2" ParentFont="False" Text=""/>
</TfrxGroupFooter>
<TfrxADOQuery Name="Sales" UserName="Sales" CloseDataSource="True" FieldAliases.Text="a.CustNo=Cust No Company=Company Addr1=Addr1 Addr2=Addr2 City=City State=State Zip=Zip Country=Country Phone=Phone FAX=FAX a.TaxRate=Tax Rate Contact=Contact LastInvoiceDate=Last Invoice Date b.OrderNo=Order No b.CustNo=b.Cust No SaleDate=Sale Date ShipDate=Ship Date EmpNo=Emp No ShipToContact=Ship To Contact ShipToAddr1=Ship To Addr1 ShipToAddr2=Ship To Addr2 ShipToCity=Ship To City ShipToState=Ship To State ShipToZip=Ship To Zip ShipToCountry=Ship To Country ShipToPhone=Ship To Phone ShipVIA=Ship VIA PO=PO Terms=Terms PaymentMethod=Payment Method ItemsTotal=Items Total b.TaxRate=b.Tax Rate Freight=Freight AmountPaid=Amount Paid c.OrderNo=c.Order No ItemNo=Item No c.PartNo=Part No Qty=Qty Discount=Discount d.PartNo=d.Part No VendorNo=Vendor No Description=Description OnHand=On Hand OnOrder=On Order Cost=Cost ListPrice=List Price" SQL.Text="select * from customer a, orders b, items c, parts d where a.custno = b.custno and b.orderno = c.orderno and c.partno = d.partno and a.company = :1 order by a.company, b.orderno" CommandTimeout="30" PropData="0A506172616D657465727301010C45000000204E616D653D2231222044617461547970653D22667457696465537472696E67222045787072657373696F6E3D22262336303B436F6D7053656C6563746564262336323B220000"/>
<TfrxADOQuery Name="Customers" UserName="Customers" CloseDataSource="True" FieldAliases.Text="CustNo=CustNo Company=Company Addr1=Addr1 Addr2=Addr2 City=City State=State Zip=Zip Country=Country Phone=Phone FAX=FAX TaxRate=TaxRate Contact=Contact LastInvoiceDate=LastInvoiceDate" SQL.Text="select * from customer order by company" CommandTimeout="30" PropData="0A506172616D65746572730100"/>
</TfrxReportPage>
<TfrxDialogPage Name="DialogPage1" Font.Charset="1" Font.Color="0" Font.Height="-11" Font.Name="Tahoma" Font.Style="0" BorderStyle="bsDialog" Caption="Selection" Height="168" Left="346" Top="263" Width="402" OnDeactivate="DialogPage1OnDeactivate">
<TfrxLabelControl Name="Label1" Left="16" Top="28" Width="76" Height="13" Caption="Select customer" Color="-16777201"/>
<TfrxComboBoxControl Name="ComboBox1" Left="120" Top="24" Width="257" Height="21" Color="-16777211" Items.Text="" Text="ComboBox1" ItemIndex="-1"/>
<TfrxButtonControl Name="Select" Left="160" Top="84" Width="75" Height="25" Caption="Select" Default="True" ModalResult="1"/>
</TfrxDialogPage>
</TfrxReport>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -