Parameter String di Crystal report

Parameter String di Crystal report

Kita akan mencoba melakukan sebuah tutorial tentang Parameter String di Crystal Report. Parameter disini maksudnya adalah kita mengirimkan sebuah value (nilai) berupa string ke Crystal Report sehingga Crystal Report akan menampilkan Laporan sesuai dengan Filter yang telah di kirimkan sebagai Parameter. Untuk memulainya kita akan menggunakan Struktur database yang sudah di jelaskan disini.

Kita akan membuat sebuah ilustrasi untuk tutorial kali ini yaitu : Kita akan membuat sebuah laporan yang menampilkan Data Mahasiswa yang telah kita Filter berdasarkan Nama. Misal jika kita memasukan Nama Ari, maka data mahasiswa yang muncul adalah mereka yang bernama Ari saja. langkah-langkahnya adalah sebagai berikut :
1. Buka Visual Studio dan Beri Nama ParStringCR
2. Silahkan tambahkan Crystal Report yang sudah di buat dilatihan pertama dengan cara Add Existing File di Solution Explorernya : Perhatikan gambar berikut :

Atau silahkan jika mau mengulang langkahnya dan membuat dari awal CRnya.
4. Setelah itu pastikan ada di daerah kerja design Crystal Reportnya. dan perhatikan di Tab Field Explorer atau jika tidak muncul bisa pilih menu Crystal Report > Field Explorer.

5. Perhatikan di Dialog Field Explorer sbb :

6. Lakukan langkahnya yaitu Klik kanan dan Pilih New Sehingga muncul kotak dialog ini :

Masukan Parameter Namenya dengan Nama dan Prompting Textnya

7. Lalu di Crystal Report Design Klik kanan dan Pilih Report > Selection > Record, perhatikan gambar berikut :

Maka akan muncul kotak dialog Formula Workshop dan isikan sama seperti gambar :

8. Setelah itu design Form1 manjadi sebagai berikut :

9. Bagian ke coding Sekarang Coding code berikut :

   1: Imports CrystalDecisions.CrystalReports.Engine

   2: Imports CrystalDecisions.Shared

   3: Public Class Form1

   4:     Private Sub btnTampilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampilkan.Click

   5:         Dim cryRpt As New ReportDocument

   6:         cryRpt.Load(Application.StartupPath & "crvTutor.rpt")

   7:  

   8:         Dim crParameterFieldDefinitions As ParameterFieldDefinitions

   9:         Dim crParameterFieldDefinition As ParameterFieldDefinition

  10:         Dim crParameterValues As New ParameterValues

  11:         Dim crParameterDiscreteValue As New ParameterDiscreteValue

  12:  

  13:         crParameterDiscreteValue.Value = txtNamaMahasiswa.Text

  14:         crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields()

  15:         crParameterFieldDefinition = crParameterFieldDefinitions.Item("nama")

  16:         crParameterValues = crParameterFieldDefinition.CurrentValues

  17:  

  18:         crParameterValues.Clear()

  19:         crParameterValues.Add(crParameterDiscreteValue)

  20:         crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

  21:  

  22:         crvMahasiswa.ReportSource = cryRpt

  23:         crvMahasiswa.Refresh()

  24:     End Sub

  25: End Class

10. Maka berikut setelah dijalankan.

 Sekian :) Source code nya bisa didownload sini :

sumber :  http://netvbnet.blogspot.com/2011/12/parameter-string-di-crystal-report.html