如何在XE7中更改fastreport布局 [英] How to change the fastreport layout in xe7

问题描述

我想根据数据集值更改快速报表中的布局或范围，如何在fastreport 5.0中完成此操作，并且我正在使用delphiXE7

如果这是一张车票，我想打印车如果我想打印其自行车的详细信息，我的数据集将包含所有订单的值，其中某些订单可能包含汽车和自行车票，因此，当我基于数据生成报告（报告是我的应用程序的票）时设置值，如果我想显示它的车，并且如果它要显示它的自行车图像，则基于数据集值和不同样式的不同自行车图像怎么办？

I want to change the Layout or band in fast report depending upon the dataset value ,how can be this done in fastreport 5.0 AND I am using delphiXE7
If it's a car ticket I want to print car and if its bike I want to print the bike details ,My data set have values of all orders in which some orders may have car and bike tickets so , When I generate the report (report is the ticket for my application) based on the data set value if its car I want to show car images and if its bike different images of bike based on data set values and different style how can this be done?

或可以通过更改.fr3文件来完成？

OR This can be done by changing the .fr3 file?

  with  frxCODOrdersDBDataset.DataSet do
    begin
       First;
    while not Eof do
    begin     
      if FieldByName('draw_name').AsString='CAR_TICKET' then
       begin
   frxCODOrdersReport.LoadFromFile(ExtractFilePath(Application.ExeName) + '\WebTicketPdf\CarTicketPdf.fr3');
   frxCODOrdersReport.PrepareReport();
       end
       else if FieldByName('draw_name').AsString='BIkE_TICKET' then
       begin
   frxCODOrdersReport.LoadFromFile(ExtractFilePath(Application.ExeName) + '\WebTicketPdf\BikeTicketPdf.fr3');
       end;
      Next;
    end;
    end;
   Screen.Cursor := crDefault;  // Or you can restore a saved cursor.
   frxCODOrdersReport.ShowReport();

但是上面的代码会生成，并且仅打印或生成第一个车票pdf。

But above code generates and this prints or generates only first car ticket pdf only .

推荐答案

var IsFirst: Boolean;
with  frxCODOrdersDBDataset.DataSet do
begin
  First;
  IsFirst := True;
  while not Eof do
   begin     
      if FieldByName('draw_name').AsString='CAR_TICKET' then
       begin
        frxCODOrdersReport.LoadFromFile(ExtractFilePath(Application.ExeName) + '\WebTicketPdf\CarTicketPdf.fr3');
        frxCODOrdersReport.PrepareReport(IsFirst);
       end
   else if FieldByName('draw_name').AsString='BIkE_TICKET' then
     begin
       frxCODOrdersReport.LoadFromFile(ExtractFilePath(Application.ExeName) + '\WebTicketPdf\BikeTicketPdf.fr3');
       frxCODOrdersReport.PrepareReport(IsFirst);
     end;
    if IsFirst then IsFirst := False; 
    Next;
  end;
end;
Screen.Cursor := crDefault;  // Or you can restore a saved cursor.
frxCODOrdersReport.ShowPreparedReport();

这篇关于如何在XE7中更改fastreport布局的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！