Filter laporan dengan crystal report melalui visual basic

Filter laporan dengan crystal report melalui visual basic

  12/15/2008 06:36:00 AM    DIBACA ORG

---

Tentu saja laporan yang dibuat tidak selalu berupa daftar panjang, seperti kita membuat laporan sederhana dengan crystal report. Pihak manajemen biasanya membutuhan laporan yang berdasarkan kriteria-kriteria tertentu. Misalnya untuk laporan mahasiswa, pihak manajemen ingin mencetak daftar mahasiswa per tempat kelahirannya, atau manajer ingin melihat laporan penjualan perbulannya, atau ingin melihat kartu stok per barang, dan lain sebagainya.

Kemampuan untuk memfilter merupakan syarat utama untuk membuat laporan yang baik, untuk memfilter laporan kita bisa menggunakan Selection Formula



misalkan kita melihat tampilan diatas adalah laporan daftar mahasiswa, dengan nomor bp, nama, alamat, tempat lahir, tanggal lahir, nama ortu, dan status aktif, kita ingin memfilter mahasiswa berdasarkan tempat lahirnya, misalnya yang lahir di Pariaman saja (ada 2 orang pada contoh, nobp 205002, dan nobp 205003. Seperti telah disebut sebelumnya kita harus menggunakan selection formula, caranya klik Report > Edit Selection Formula > Record



Sehingga muncullah Record Selection Formula Editor, yang memiliki 3 buah jendela, pada jendela sebelah kiri (pada contoh) terdapat field-field yang kita gunakan dalam database, double click pada tempat_lahir sehingga muncul tulisan {mahasiswa.tempat_lahir}, tambahkan disebelahnya tanda = "Pariaman" yang berarti kita ingin menampilkan daftar mahasiswa yang tempat lahirnya di pariaman saja. Setelah itu klik simpan (gambar disket paling kiri) untuk menyimpan formlua



Setelah selesai maka crystal report menunjukkan 2 buah pilihan yakni "Use saved data" dan "Refresh Data", pilih Refresh data, dan akibatnya data yang muncul adalah data mahasiswa yang tempat lahirnya di pariaman saja. Trus, bagaimana mengaplikasikannya kedalam visual basic?, coba tambahkan sebuah form dengan sebuah combo untuk tempat lahir dan sebuah tombol preview seperti ini:



selanjutnya pada command preview click tambahkan kode berikut:

Private Sub Command1_Click()


CrystalReport1.ReportFileName = App.Path & "\report1.rpt"


CrystalReport1.Connect = "DSN=dsnmahasiswa;UID=sa;PWD=as;database=akademik"


CrystalReport1.ReplaceSelectionFormula "{mahasiswa.tempat_lahir}='" & Combo1.Text & "'"


CrystalReport1.Action = 1


End Sub

perhatikan pada baris bercetak tebal adalah baris yang menunjukkan bahwa laporan akan sangat tergantung pada isi dari Combo1.text, replace selection formula berfungsi sama dengan selection formula yang telah kita bahas pada saat modus disain crystal report, oiikk!