Cara Membuat Laporan Crystal Report dengan Parameter dan Query LIKE (VB.NET)

Terkadang tidak semua data pada laporan harus ditampilkan, agar dapat menampilkan laporan berdasarkan kriteria tertentu perlu dibuat parameter. Parameter disini digunakan untuk mengirimkan sebuah value (nilai) ke Crystal Report sehingga Crystal Report akan menampilkan laporan sesuai dengan Filter yang telah di kirimkan parameter tersebut.

Cara Membuat Laporan Crystal Report dengan Parameter dan Query LIKE (VB.NET):

• Buka project anda. (contoh kasus: menggunakan tb_anggota dengan field: id_anggota, nama_anggota, alamat, telepon)
• Tambahkan sebuah laporan CrystalReport dengan nama “RptAnggota.rpt”

• Lakukan langkah-langkah pembuatan report seperti biasa.
• Pilih “tb_anggota” untuk pembuatan report ini.
• Setelah sampai pada Report Style pilih Table. Klik Finish

• Pada jendela Field Explorer, klik kanan Parameter Fields -> New.

• Pada jendela Create New Parameter, ketikkan “KataKunci” pada kolom Name:.
• Pada Value Options, ubah Show on (Viewer) Panel menjadi Do not show.
• Klik OK.

• Klik kanan pada design report -> Report -> Selection Formula -> Record

• Pada jendela Formula Workshop, ketikkan query pencarian seperti berikut:

{tb_anggota.id_anggota} LIKE "*" + {?KataKunci} + "*"
OR
{tb_anggota.nama_anggota} LIKE "*" + {?KataKunci} + "*"
OR
{tb_anggota.alamat} LIKE "*" + {?KataKunci} + "*"
OR
{tb_anggota.telepon} LIKE "*" + {?KataKunci} + "*"

• Masih pada RptAnggota, klik Main Report Preview dan pada jendela Enter Values kosongkan saja. Klik OK

• Tambahkan sebuah form “LapAnggota” yang digunakan untuk menampilkan laporan dari “RptAnggota.rpt”.
• Buat design form seperti berikut:

• Tambahkan beberapa import di baris paling atas form., Klik 2x btnPreview dan ketikkan syntax berikut:

Imports CrystalDecisions.CrystalReports.Engine

Public Class LapAnggota
  Private Sub btnPreview_Click(sender As Object, e As EventArgs) Handles btnPreview.Click
        Dim ReportKu As New ReportDocument
        'menentukan lokasi report yang akan ditampilkan
        ReportKu.Load("..\..\RptAnggota.rpt")

        'nilai parameter KataKunci di ambil dari inputan txtKataKunci
        ReportKu.SetParameterValue("KataKunci", txtKataKunci.Text)

        'tampilkan ke CrystalReportViewer1
        CrystalReportViewer1.ReportSource = ReportKu
        CrystalReportViewer1.Refresh()
    End Sub
End Class

• Jalankan “LapAnggota” dan perhatikan hasilnya.

*Ketikkan data yang ingin ditampilkan pada txtKataKunci, kemudian klik PREVIEW

Selamat mencoba.. ^_^