Menampilkan Laporan dengan Crystal Report di .NET

Setelah membuat program kurang puas/pas rasanya klo belum membuat laporan nya. Laporan yang dibuat kali ini dengan bantuan Crystal Report pada VB.NET. Berikut ini contoh coding nya :

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine

Dim objConInfo As New ConnectionInfo
Dim objTabLogOnInfo As New TableLogOnInfo
Dim objTable As Tables
Dim objRepDOC(5) As ReportDocument
Dim rpt_str(5) As String

Public Sub deklarasi_crystal()
objRepDOC(0) = New KartuPasien
objRepDOC(1) = New LapKeuangan
objRepDOC(2) = New LapKunjungan
objRepDOC(3) = New KitirAntri

rpt_str(0) = “KartuPasien”
rpt_str(1) = “LapKeuangan”
rpt_str(2) = “LapKunjungan”
rpt_str(3) = “KitirAntri”
End Sub

Public Function tampilkan_Laporan(ByVal nama_lap As String) As Object
Dim i, idx As Integer
For i = 0 To rpt_str.Length – 1
If UCase(rpt_str(i)) = UCase(nama_lap) Then
idx = i
End If
Next

objTabLogOnInfo = objRepDOC(idx).Database.Tables(0).LogOnInfo

objConInfo.ServerName = “(local)”
objConInfo.DatabaseName = “DB_KLINIKSMS”
objConInfo.IntegratedSecurity = True

objTable = objRepDOC(idx).Database.Tables

objTabLogOnInfo.ConnectionInfo = objConInfo

‘objRepDOC(idx).Database.Tables(0).ApplyLogOnInfo(objTabLogOnInfo) Ga Usah Login

Return objRepDOC(idx)
End Function

Coding diatas di deklarasikan pada module.vb tersendiri

Private Sub FrmLapKeuangan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try

deklarasi_crystal()

CrystalReportViewer1.ReportSource = xmodul.tampilkan_Laporan(“LapPembayaran”)
CrystalReportViewer1.SelectionFormula = “{TT_KUNJUNGAN.D_TGLKUNJUNGAN} IN DATE (‘” & tglbyrawal.ToString(“d”) & “‘) TO DATE (‘” & tglbyrakhir.ToString(“d”) & “‘) ”

CrystalReportViewer1.RefreshReport()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

coding diatas diketik pada form yang menampung laporan / yang ada CrystalReportViewer.

xmodul.tampilkan_Laporan(“LapPembayaran”)
LapPembayaran ==> namalaporan.rpt

2 Tanggapan

  1. kalo nampilin data yang bertipe BLOB di crystal reportnya gmn??

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 )

Gambar Twitter

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

Foto Facebook

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

Foto Google+

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

Connecting to %s

%d blogger menyukai ini: