Menampilkan Laporan di Crystal Report Berdasarkan Parameter Fields Melalui InputBox di VB.Net

BY Jastis Bago
jastis_quitaris@yahoo.com
admin@niascommunity.web.id
http://niascommunity.web.id

Pendahuluan
Ada beberapa tutor yang pernah saya baca mengenai Parameter Fields di Crystal Report, tapi hampir semuanya menggunakan ComboBox sebagai pemicu untuk menampilkan isi tabel berdasarkan Parameter Fields yang telah diset sebelumnya. Masalah yang saya hadapi adalah ketika program yang saya buat terlalu banyak formnya, dan menggunakan Tools Strip Menu di VB Net dalam menampilkan sebuah laporan,

1

sehingga saya tidak ingin menambah form baru lagi untuk mengeksekusi perintah Parameter Field dalam memanggil/menampilkan laporan. Nah kali ini saya menggunakan InputBox untuk memasukkan Parameter Fields sebagai pemicu menampilkan laporan yang saya inginkan.
Kali ini saya ingin menampilkan absensi siswa berdasarkan Kelas dan Bulan.
Langkah-Langkah :
1. Tambah sebuah crystal report pada project, pada wizard pilih aja As Blank  Report.
2. Melalui Fields Explorer klik kanan pada Database Fields pilih Database Expert,  silahkan buat pilih tabel yang ingin di tampilkan pada report. (Jika koneksi
belum ada, maka silahkan dibuat koneksi baru)
3. Pada Fields Explorer, klik kanan pada Parameter Fields klik New untuk
membuat parameter baru. (Saya membuat parameter kelas dan bulan pada
Laporan Absensi Siswa, karena saya ingin menampilkan Absensi berdasarkan
kelas dan bulan.)

2

4. Klik kanan pada design report lalu pilih Report > Selection Formula >
Record lalu akan muncul Formula Editor :

3

Ket : {tbl_absen_siswa.kelas} , merupakan field tabel yang akan kita
buat sebagai pemicu dalam menampilkan laporan berdasarkan kelas dan
{?kelas} merupakan parameternya.
{tbl_absen_siswa.bulan} , merupakan field tabel yang akan kita buat sebagai pemicu dalam menampilkan laporan berdasarkan bulan dan {?
bulan} adalah parameternya.
5. Pada form utama, klik Tools Strip Menu Absensi Siswa

4

6. Lalu isikan code seperti berikut :

Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
lapabsenisiswa.reportabsensisiwa1.SetParameterValue(“kelas”,
InputBox(“Masukkan Kelas”, “”))
lapabsenisiswa.reportabsensisiwa1.SetParameterValue(“bulan”,
InputBox(“Masukkan Bulan Absensi”, “”))
lapabsenisiswa.MdiParent = Me
lapabsenisiswa.Show()
lapabsenisiswa.WindowState = FormWindowState.Maximized
End Sub

Jika dijalankan maka hasilnya seperti berikut :

5

6

Dan Tampilan Laporannya :

7

Penutup
Cara ini masih sangat sederhana, mengingat belum ada kondisi jika user mengklik
Cancel ataupun isi laporan belum ada. Mudah-mudahan kedepannya saya dapat
membuat tutor barunya.

0Nama Jastis Bago. Lahir Di Nias 27 Juli 1988.
Menjadi Administrator Forum Nias Community dengan alamat
http://niascommunity.web.id
Saat ini sedang menyelesaikan pendidikan S1 jurusan Sistem Informasi
di STMIK Potensi Utama – Medan.
I’m Supernothing
Aku bukan siapa-siapa seperti yang anda kenal. Aku hanya belajar dari
apa yang saya tidak tahu agar saya menjadi tahu.
“Learn what i do not know, sharing i knowledge and doing what i think
is right.”
Read More About Me……http://jastisbago.wordpress.com/

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google

You are commenting using your Google account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s