Kamis, 16 Juni 2011

Nomor Urut laporan

Pada Rave report
1.tambahkan komponen CalcText, letakkan pada tempat yang diinginkan (pada kolom No)
2.set properti CalcType ke ctCount
3.set proprti DataView dan DataField yang sesuai, untuk DataField Anda bisa gunakan field apa aja, misal field Nama
4.pada EventEditor, tambahkan event OnBeforePrint:
Code:
Self.Text := '';

5.pada EventEditor, tambahkan event onGetText:
Code:
if Value = '' then
Self.Text := '0';
else
Self.Text := Value;
end if;

6.setting properties running total menjadi true
7.setting properties controler arahkan pada data band Anda masing-masing.
8.Selesai…..

Jalankan form untuk menampilkan laporan tadi….




Pada quick Report
1.Desain kembali report kita
2.Kita menggunakan objek qrexpr dari komponen qreport.
3.Kita memerlukan variabel. Ini ada di coding, dobel klik form, Pada bagian var, ketikkan
iNomor : Integer = 0;
artinya kita membuat variabel dengan nama inomor bertipe integer dengan nilai awal adalah 0.
4.Pada qexpr1 kita buat coding berikut
Inc(iNomor);
Value := FormatFloat('0', iNomor);

5.Selesai, jalankan form tersebut….

1 komentar:

  1. Mba klo ingin mengulang ke no urutan 1 lagi jika sudah sampai no urutan 5 ..?

    BalasHapus