Rabu, 02 November 2016

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

Salimware , , , Tidak ada komentar:
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
Pilih tombol database cari database Access dari program sebelumnya dengan nama BLOB.mdb -> kemudian pilih table Pegawai => pilih Add => Close
 
Pilih Next => Pilih Add All

Lalu pilih Finish


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


Desain report tersebut hingga seperti ini

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.
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.

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 

 

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

Semoga bermanfaat.
, , ,

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)