Menguasai Crystal Report Untuk VB.Net Part 1

 CoretanCode

Cara Cepat & Mudah Menguasai Crystal Report Untuk VB.Net Part 1

Postingan kali ini saya akan membahas tentang bagaimana  cara menggunakan crystal report di VB.Net .

Apa itu crystal report ? singkatnya crystal report yaitu tools untuk membuat report / laporan / struk yang dapat dimodifikasi sesuai kebutuhan program / aplikasi anda.

Sebelum memulai, anda harus menginstall crystal report dahulu kedalam komputer, sesuai dengan versi VB.Net yang anda gunakan, pada percobaan kali ini saya menggunakan VB.Net 2010 , Crystal Report dan Database Access ( .accdb )

Download disini.

CoretanCode_Crystal_Report_VB-Net-downloadLalu pilih versi 13.0.15.xxxx , pada kolom Fixed Issues dan MSI 32 bit. Setelah selesai download, lalu instal crystal report ( Visual Studio harus di close terlebih dahulu pada saat instal berlangsung ), Untuk mempersingkat waktu saya asumsikan download dan instal Crystal Report berjalan dengan baik dan selesai.

Kemudian buat sebuah aplikasi baru dengan nama project “BebasTerserahAnda” lalu ubah Target Framework menjadi 4.0.

CoretanCode_Crystal_Report_VB-Net-1

Sebelumnya anda harus membuat database accessnya terlebih dahulu pada folder bin ->debug.CoretanCode_Crystal_Report_VB-Net-sett-database

Buat nama databasenya “db.accdb” dengan tabel dan field seperti berikut :

Kembali ke project, tambahkan Crystal Report Viewer  pada Toolbox Reporting.

CoretanCode_Crystal_Report_VB-Net-2

Kemudian Add New item kedalam project lalu pilih Reporting -> Crystal ReportsCoretanCode_Crystal_Report_VB-Net-3

Kemudian Crystal Report Gallery akan tampil lalu pilih As a Blank Report

CoretanCode_Crystal_Report_VB-Net-4

Kemudian pada bagian Field Explorer klik kanan lalu pilih Database Expert

CoretanCode_Crystal_Report_VB-Net-5

Kemudian pada bagian inilah kita menentukan database jenis apa yang akan digunakan untuk report. Karena menggunakan database access maka pilih Create New Connection ->klik dua kali OLE DB (ADO).

CoretanCode_Crystal_Report_VB-Net-6

Kemudian pilih Microsoft Office 12.0 Access Database Engine OLE DB Provider. Lalu Next

CoretanCode_Crystal_Report_VB-Net-7

Kemudian akan tampil dialog Connection Information, lalu lengkapi informasi database agar terhubung dengan crystal report.

  • Data Source”, pilih database pada folder debug project yang telah dibuat sebelumnya
  • Office Database Type”, pilih Access
  • User ID”, isi dengan “Admin
  • Jet System Database” & “Jet Database Password” dikosongkan.

Lalu Next. ( liat gambar dibawah )

CoretanCode_Crystal_Report_VB-Net-8

Kemudian klik dua kali “t_barang” maka akan pindah ke kolom sebelah kanan lalu OK.

CoretanCode_Crystal_Report_VB-Net-9

Kemudian jika berhasil anda maka akan terlihat seperti gambar dibawah ini, lalu anda dapat (drag & drop) field-field tabel dari “Field Explorer” pada  database kedalam “Main Report” .

CoretanCode_Crystal_Report_VB-Net-10Kemudian atur dan sesuaikan agar tabel-tabel report terlihat rapi seperti gambar dibawah.

CoretanCode_Crystal_Report_VB-Net-10a

Setelah selesai klik Main Report Preview dibagian bawah, untuk melihat hasil tampilan akhir report.

CoretanCode_Crystal_Report_VB-Net-10b

Kemudian kembali ke Form, klik kanan pada “CrystalReport1.rpt” , ubah “Copy to Output Directory” menjadi “Copy Always”.CoretanCode_Crystal_Report_VB-Net-select_Cr

Kemudian tambahkan code berikut kedalam Form1.

Dim report1 As New CrystalReport1
Sub verify_info_db()
Try
CrystalReportViewer1.ReportSource = Nothing

‘======================================================
‘ Code dibawah untuk menghubungkan antara crystal report dan database
Dim A As CrystalDecisions.CrystalReports.Engine.Table
Dim B As CrystalDecisions.Shared.TableLogOnInfo
report1.Load(“CrystalReport1.rpt”)

For Each A In report1.Database.Tables
B = A.LogOnInfo
With B.ConnectionInfo
.ServerName = “db.accdb” ‘Database access : path database, Database mysql : server database misal localhost / 127.0.0.1
.UserID = “” ‘ User ID database
.Password = “” ‘ Password database
.DatabaseName = “” ‘
End With
A.ApplyLogOnInfo(B)
Next A
‘======================================================
Catch ex As Exception
MsgBox(“File report tidak ditemukan !”, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
verify_info_db()

CrystalReportViewer1.ReportSource = report1
Me.CrystalReportViewer1.RefreshReport()

End Sub

Selesai, jalankan aplikasi lalu liat hasilnya. Jika berhasil maka akan seperti digambar dibawah ini.

CoretanCode_Crystal_Report_VB-Net-Hasil-

Gimana mudah bukan ? Jika masih gagal, periksa kembali dari awal dengan teliti. Pastikan semua langkah langkah telah di lakukan dengan benar.

“Selamat Mencoba”

Untuk postingan berikutnya bagian Part II akan membahas “Membuat Selection Formula Crystal Report VB.Net

Download Aplikasi & Source Code di sini

Password WinRar : CoretanCode

 

Comments

Popular posts from this blog

Font Notasi Angka Untuk membuat Partitur Lagu Not Angka

Download Berbagai Font Notasi Angka Terbaik dan Cara Penulisan di MS Word

16+ Font dan Kode untuk Membuat Simbol Musik di Word