Menggunakan source code delphi di Fast Report

Fast Report

Pertama, kita buat sebuah form dengan sebuah komponen FastReport (TfrxReport) di atasnya. Sebut saja namanya FrxReport1. Kira-kira tampilannya seperti ini:

Klik dua kali pada frxReport1. FastReport Editor akan diaktifkan dengan sebuah report baru yang masih kosong. Silahkan tambahkan tiga buah frxMemo ke page kosong ini.

Nama ketiga memo, mulai dari yang pertama adalah Memo1, Memo2, Memo3. Kini kita akan menjumlahkan nilai Memo1 dan Memo2 dan menampilkan hasilnya di Memo3.

Pindah ke tab Code.

Pilih objek Memo3. Dari Object Dropdown pada Object Inspector.

Klik ganda pada event OnBeforePrint.

Ketikkan kode seperti berikut.

1 2 3 4 5 6 7 8 9 10 11

procedure Page1OnBeforePrint(Sender: TfrxComponent); var hasil: integer; begin hasil :=  StrToInt(Trim(Memo1.Text)) + StrToInt(Trim(Memo2.Text)); Memo3.Text := IntToStr(hasil); end;   begin   end.

Kini hasilnya dapat dilihat. Tekan F9 untuk melakukan preview.

Pertanyaan, bagaimana jika angka pada memo-memo di atas adalah pecahan, bukan integer? Tentu saja, kita harus mengganti tipe data integer menjadi double (tipe pecahan pada Pascal) dan mengganti IntToStr menjadi FloatToStr. Demikian juga, StrToInt menjadi StrToFloat. Lihat perbedaan pada kode berikut:

1 2 3 4 5 6 7 8 9 10 11

procedure Page1OnBeforePrint(Sender: TfrxComponent); var  hasil: Double; begin  hasil :=  StrToFloat(Trim(Memo1.Text)) + StrToFloat(Trim(Memo2.Text));  Memo3.Text := FloatToStr(hasil); end;   begin   end.

Bila dijalankan, kita memperoleh hasil:

Saya sengaja tidak melibatkan database di sini. Meskipun begitu, Anda tetap dapat menerapkan cara ini pada FastReport yang menggunakan database sebagai sumber datanya.

Sumber:https://jokorb.wordpress.com/2011/01/25/menjumlahkan-nilai-memo-pada-fastreport/