Skript

V příkladu Naplnění reportu daty - QueryToCells jsme si ukázali naplnění reportu pomocí QueryToCells. Nyní modifikujeme report tak, abychom mohli vybrat kam se budou data v reportu plnit.

procedure OnBeforeReport(Sender : TReportProperty);

var

 r : integer;                                    

begin

 Sheet.RowCount:=5;  

 Sheet.ColCount:=5;

 r:=4;            

 BDEQuery1.Query.Open;

 while not BDEQuery1.Query.eof do

 begin

   Sheet['B'+IntToStr(r)].Cells:=BDEQuery1.Query.FieldByName('jmeno').AsString;

   Sheet['D'+IntToStr(r)].Cells:=BDEQuery1.Query.FieldByName('pocet').AsString;

   with Sheet['D'+IntToStr(r)] do

   begin

     Format:=6;

     Font.Color:=clNavy;

     Font.Style:=fsBold;                                              

   end;            

   inc(r,2);

   while Sheet.RowCount<=r do Sheet.AddRow;                                                                                      

   BDEQuery1.Query.Next;                              

 end;          

 BDEQuery1.Query.Close;                

end;

begin

end.