Salamilmu's Blog

Home » Pemrograman » Menampilkan Data BLOB pada Laporan menggunakan Crystal Report 8.5 dan VB.Net 2008

Menampilkan Data BLOB pada Laporan menggunakan Crystal Report 8.5 dan VB.Net 2008

November 2013
M T W T F S S
« Jun   Jul »
 123
45678910
11121314151617
18192021222324
252627282930  

Dalam sebuah laporan sangat dibutuhkan isi data yang sejelas-jelasnya, termasuk harus menampilkan sebuah gambar dalam laporan tersebut. Pada contoh laporan data pegawai berikut ini, saya akan coba menampilkan gambar atau photo dari setiap pegawai yang ada dalam sebuah perusahaan katakanlah perusahaan PT. Sakti Mandra Guna.

Program ini adalah lanjutan dari program sebelumnya yang membahas tentang proses manipulasi data yang berkaitan dengan tipe data BLOB pada database Access. Bagi anda yang sudah mengunduh program tersebut silahkan mengikuti tutorial saya ini dan bagi yang belum silahkan download contoh programnya disini http://www.4shared.com/rar/oocqQdJJ/BLOB_project.html

Pertama kali kita buat laporan dengan menggunakan Crystal Report 8.5

Berikut langkah-langkahnya

Buka Crystal Report 8.5 anda.

Pilih Using the Report Expert => pilih OK

report3

 

Pilih tombol database cari database Access dari program sebelumnya dengan nama BLOB.mdb => kemudian pilih table Pegawai => pilih Add => Close

report4

 

Pilih Next => Pilih Add All

report5

 

Lalu pilih Finish

report6

 

Tampilan report diatas masih default layaknya laporan biasa. Untuk menampilkan photo pegawai yang ada pada database, maka harus kita desain terlebih dahulu.

Pada project report anda pilih Design kemudian pilih Insert Fields pada Toolbar kemudian klik dan drag field photo pada Field Explorer

report7

 

Desain report tersebut hingga seperti ini

report8

 

Jangan lupa simpan report tadi dengan nama rptPegawai.rpt.

Ok sekarang langsung buka program sebelumnya, trus tambahkan sebuah form ganti nama form tersebut menjadi frmReport.

Tambahkan sebuah komponen CrystalReportViewer pada frmReport tersebut.

report1

 

Tambahkan coding dibawah ini pada frmReport

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

Try

Dim rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument

Dim str As String = Application.StartupPath & “\rptPegawai.rpt”

rpt.Load(str)

cr.Refresh()

cr.ReportSource = rpt

cr.Show()

cr.RefreshReport()

Me.WindowState = FormWindowState.Maximized

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

Sekarang masuk ke frmBlob tambahkan sebuah button dan ganti pada properties Textnya menjadi Laporan.

report2

 

Klik 2 kali pada button laporan kemudian tambahkan koding frmReport.Show()untuk menampilkan frmReport.

Sekarang jalankan programnya dengan cara menekan tombol F5 pada keyboard computer anda, dan hasilnya seperti berikut

report9

 

Silahkan download program lengkapnya disini http://www.4shared.com/rar/kECTM7a8/BLOB_project__1_.html

Semoga bermanfaat.


2 Comments

  1. kalo DB sql server 2000 caranya sama g?

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: