A sample report – screenshots

[Otto]

I have finished a report with FASTREPORT.
I show charts for every month and within the chart I compare 2 years (black and green). Under every chart I print the single values.
First I show with xBrowse the whole report and the user can select with tabs the exactly report he wants.
Best regards,
Otto

[Otto]

In the GroupHeader I insert the Charts 1 – 12 for each month.
Then on the OnBeforePrint –event of the Groupheader I set the Chart of the corresponding month visible.
Best regards,
Otto

Code: Select all  Expand view

GroupHeader11OnBeforePrint

procedure GroupHeader11OnBeforePrint(Sender: TfrxComponent);
begin

Chart1.Visible := FALSE ;
Chart2.Visible := FALSE ;
Chart3.Visible := FALSE ;
Chart4.Visible := FALSE ;
Chart5.Visible := FALSE ;
Chart6.Visible := FALSE ;
Chart7.Visible := FALSE ;
Chart8.Visible := FALSE ;
Chart9.Visible := FALSE ;
Chart10.Visible := FALSE ;
Chart11.Visible := FALSE ;
Chart12.Visible := FALSE ;

Chart1.Visible := <Jahr."MONAT"> = 1 ;
Chart2.Visible := <Jahr."MONAT"> = 2 ;
Chart3.Visible := <Jahr."MONAT"> = 3 ;
Chart4.Visible := <Jahr."MONAT"> = 4 ;
Chart5.Visible := <Jahr."MONAT"> = 5 ;
Chart6.Visible := <Jahr."MONAT"> = 6 ;
Chart7.Visible := <Jahr."MONAT"> = 7 ;
Chart8.Visible := <Jahr."MONAT"> = 8 ;
Chart9.Visible := <Jahr."MONAT"> = 9 ;
Chart10.Visible := <Jahr."MONAT"> = 10 ;
Chart11.Visible := <Jahr."MONAT"> = 11 ;
Chart12.Visible := <Jahr."MONAT"> = 12 ;
 
end;