Menampilkan Nilai Terbilang Di Rave Report

Menanggapi pertanyaan Delphier pengunjung.

Rave report berbeda dengan FastReport yang mendukung scripting, sehingga bila kita ingin menambahkan fungsi-fungsi baru, agak repot. Termasuk bila kita ingin menambahkan fungsi untuk mengubah nilai numerik ke nilai terbilang, misalnya 100 menjadi “seratus”. Jadi, mau tak mau kita harus membuat fungsi tersebut di Delphi, hasilnya baru di kirim ke Rave report.

Saya cenderung menggunakan event OnCalcField() pada TDataset untuk proses pengubahan ini, dan hasilnya disimpan di field baru, kemudian dikirim ke Rave report.

Kita langsung ke langah-langkahnya:

1. Kita buat sebuah projek baru Di Delphi (Delphi 7 ke atas). Saya menggunakan Delphi 2009 for Win32. Delphi 2010 dan RAD Delphi XE pun tidak masalah.
2. Pada form utama, kita tambahkan sebuah koneksi database, sebuah query/table (pokoknya komponen dataset), dan sebuah Datasource. Bila perlu, tambahkan juga sebuah DBGrid dan sebuah Memo untuk menampilkan data di form. Karena saya anggap perlu, saya menambahkan juga kedua komponen terakhir
3. Gunakan unit berisi fungsi-fungsi konversi. Anda bisa mendownloadnya di sini. Simpan hasil ektsraknya (file uTerbilang.pas) ke dalam satu folder dengan projek, kemudian tambahkan ke klausa use unit1 (form utama) dari menu File>Use Unit…
4. Setup koneksi ke database. Kemudian atur SQL/nama tabel untuk komponen query/table. Saya menggunakan Zeos (ZConnection dan ZQuery). Gunakanlah tabel yang mengandung field numeric/integer.Lihat gambar berikut sebagai perbandingan:
   Catatan: Anda bebas menggunakan komponen database apapun dan tabel/database apapun. Asalkan di tabel tersebut terdapat field numerik/integer (sesuai kebutuhan kita). Pada gambar di atas, saya menggunakan Delphi 2009/Zeos/MySQL.
5.  Kini klik kanan pada komponen query. Klik Fields Editor…
   Klik kanan pada window Fields Editor dan klik Add All Fields.
   Setelah itu, klik kanan lagi dan klik New Field.
   
6. Kini kita akan membuat sebuah Calculated Field, yaitu field yang nilainya diisi saat dataset dibuka.
   Pada window New Field berikut:
   
   Masukkan nama field, misalnya “terbilang”, Component biarkan saja nilai defaultnya, Type diisi string dan Size masukkan 255. Field Type pilih Calculated. Klik OK.
7.  Kembali ke Fields Editor. Tutup saja window ini. Pada  form utama, klik pada komponen dataset (ZQuery pada contoh di atas). Pada event OnCalcFields di Object Inspector, klik ganda.
   
8. Ketikkan kode seperti berikut pada event tersebut:
   

   procedure TForm1.ZQuery1CalcFields(DataSet: TDataSet);
   begin
     ZQuery1.FieldByName('terbilang').AsString :=
       MyTerbilang(Zquery1.FieldByName('saldo_awal').AsFloat);
   end;
   

9. Sesuaikanlah nama field “terbilang” dengan nama field pada langkah 6 di atas.  Nama field “saldo_awal” disesuaikan dengan nama field dalam tabel yang akan dikonversi menjadi teks.
10. Proses konversi sudah selesai. Kini tinggal menampilkan ke Report.
    Anda dapat membuat report di Rave report seperti yang biasanya Anda lakukan. Di sana telah ada sebuah field “terbilang” yang berisi hasil konversi. Saya tidak akan membahas tentang penggunaan Rave report di sini.
    Referensi Rave  report:
    http://muhal.wordpress.com/2007/03/14/membuat-rave-report-di-delphi-7/
    http://pekalongan.110mb.com/data/rave.pdf
11.  Untuk menguji, gunakan event OnAfterScroll milik ZQuery:
    

    <pre>
    procedure TForm1.ZQuery1AfterScroll(DataSet: TDataSet);
    begin
      Memo1.Text := ZQuery1.FieldByName('terbilang').AsString;
    end;</pre>
    

12.  Kini jalankan aplikasinya. Di contoh saya, tampilannya seperti ini:
    

Demikian. Semoga ada manfaatnya.

Salam hangat, Delphier

Advertisement