Jumat, Mei 01, 2009

Skrip Pascal di FastReport

FastReport mempunyai fitur FastScript, skrip untuk membantu pengolahan data yang akan ditampilkan dalam report. Contoh:


var iHitungLaktasi, iHitungNonLaktasi : Integer;


procedure MemoShowTypeOnBeforePrint(Sender: TfrxComponent);

begin

if (=1) then
begin
MemoShowType.Text := '';

Inc(iHitungNonLaktasi);
end else if (=2) then
begin
MemoShowType.Text := '*';
Inc(iHitungLaktasi);
end;
MemoJumlahLaktasi.Text := ' Jumlah Laktasi : ' + IntToStr(iHitungLaktasi);
MemoJumlahNonLaktasi.Text := ' Jumlah Non Laktasi : ' + IntToStr(iHitungNonLaktasi);
end;


procedure RptFirstAidUsageOnBeforePrint(Sender: TfrxComponent);

begin

iHitungLaktasi := 0;

iHitungNonLaktasi := 0;
end;

begin

end.


Perlu dipahami kapan suatu event terjadi atau dieksekusi oleh FastReport.