Sabtu, 26 Maret 2011

Membuat Reeport dengan Rave

Karena project Perpustakaan sebelumnya sudah dibuat, pada modul 2. Membuat menu, maka pada kesempatan ini adalah melengkapi frmanggota yaitu dengan cara:
  1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.
  2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan project PRjpustaka, lalu klik prjpustaka dan klik open
  3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan Cetak  Data Anggota, dan pada name ketikkan frmcetakanggota.
  4. Klik menu View, lalu klik forms dan double klik frmenu, klik file pada frmmenu, klik anggota dan ketikkan :
  5. frmcetakanggota.show;
  6. Klik menu View, lalu klik forms dan double klik frmcetakanggota, lengkapi form tersebut seperti gambar berikut :
Gambar 1. Membuat form Cetak Anggota

Catatan :
Form disamping terdiri dari :
Ado connection, ADoQuery dan Dataset
Button1 untuk cetak dan Button2 untuk Cancel
Untuk membuat laporan kita menggunakan dua komponen pallete RAVE yaitu :
RVProject dan RVDataSetConnection
Mengkoneksikan database


  • Klik ADOQuery1 pada Form, klik ConnectionString (…), klik Build, Klik Microsoft Office 12.0 Acces Database Engine OLEDB Provider (untuk office 2007) tetapi kalau menggunakan office XP dapat dipilih Microsoft jet OLEDB 4.0, test connection




  • Dan klik next, pada data source ketikkan : D:\perpustakaan\perpustakaan.accdb, dan yang terakhir klik test connection. Apabila test connection tampil keterangan tes connection succeeded, maka koneksinya sudah benar, tutup semua windows koneksi dengan cara klik OK. kembali ke frmCetakanggota.




  • Masih pada Adoquery1, klik SQL pada properties, lalu ketikkan :



  • select * From anggota
    Dan Klik Active pada properties ganti false menjadi true.

  • Mengaktifkan DataSource, yaitu dengan cara klik Datasource pada form anggota, lalu klik Dataset pilih Adoquery1




  • Mengkoneksikan RVDataSetConnection  dengan dataset, dengan cara klik RVDataSetConnection, pada properties klik Dataset, lalu pilih AdoQuery1




  • Langkah-langkah membuat laporan dengan menggunakan RAVE

    1. Klik menu Tools pada delphi, klik RAVE designer
    2. Klik file, Klik New
    3. Klik File, Klik New Data Object
    4. Klik Direct Dataview
    5. Apabila sebelumnya pernah membuat laporan dengan rave, maka akan ditampilkan pesan “Warning! Duplicate Design-time Data Connections found with name “RvDataSetConnection1”. Lalu klik Ok dan klik tombol Next
    6. Klik finish
    7. Klik RVDatasetconnection1 (DT), lalu Klik Finish
    8. Untuk  memastikan data yang akan dibuatkan reportnya dapat dilihat pada sudut kanan lembar kerja Rave yaitu seperti gambar berikut, dengan cara klik Data view Dictionary, Klik Dataview.
    9. Klik menu tools pada Rave, lalu klik Report Wizard, Klik Simple Table
    10. Klik Dataview1 dan Klik Next, Klik All (untuk mengikutsertakan seluruh data yang ada pada table) atau klik field tertentu saja yang akan ditampilkan, lalu klik Next, Klik Next, Klik next dan yang terakhir klik Generate
    11. Untuk melihat hasil report dapat diklik menu File pada RAVE, lalu klik Execute report1 dan Klik OK
    12. Tutup laporan
    13. Klik Menu file pada RAVE, lalu Klik Save As, perintah ini untuk menyimpan Report, tentukan folder sama dengan project Delphi disimpan, beri nama file dengan nama PRJAnggota.rav, lalu Klik Save
    10.  Kembali Menu Project Delphi
    11.  Klik RVProject1, lalu pada properties klik ProjectFile, Klik tombol titik-titik, pilih file report yang akan ditampilkan (PRJanggota.rav) dan klik OK
    12.  Selanjutnya adalah Double klik pada tombol Cetak dan ketikkan koding sebagai berikut :
    01procedure TFrmCetBuku.Button1Click(Sender: TObject);
    02begin
    03adoquery1.Close;
    04adoquery1.SQL.clear;
    05adoquery1.SQL.Add('select kode, judulbuku from Anggota');
    06adoquery1.Open;
    07adoquery1.Active := true;
    08RVproject1.Execute;
    09RVproject1.ExecuteReport('prjbuku.rav');
    10end;

    Tidak ada komentar:

    Posting Komentar