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.. ^_^
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
