Lompat ke konten Lompat ke sidebar Lompat ke footer

Widget HTML #1

Membuat Laporan Harian Crystal Report di VB .Net 2010

Probskomputer - Kembali lagi di tutorial Laporan Crystal Report pada VB .Net 2010, kali ini kami akan membahas tentang cara Membuat Laporan Harian Dengan VB .Net 2010.

Cara Membuat Laporan Harian Crystal Report Pada VB .Net 2010

Berikut langkahnya :

LANGKAH #1
Buatlah Sebuah Project dengan VB .Net 2010
Saya membuat Project dengana Nama : AppProject dan saya menyimpan di Drive D:\Laporan\Harian
Klik OK
Cara Membuat Laporan Harian Crystal Report Pada VB .Net 2010
Pada Form1, saya tambahkan DateTimePicker1 dan Button1


LANGKAH #2
Buatlah Database dengan nama : DBJNM.mdb
Buatlah Tabel Dengan nama : Penjualan
Berikut design tabel Penjualan beserta isisnya (kami menggunakan database access .mdb)

Cara Membuat Laporan Harian Crystal Report Pada VB .Net 2010
Simpan database Pada Folder Bin/Debug pada Project VB .Net 2010 yang telah anda buat pada langkah1

LANGKAH #3
Jika sudah membuat database saatnya kita buat laporan dengan crystal report.
Buka Crystal Report Pada komputer anda
Klik File - New :
Klik Standard - OK
Klik Database - Database Files - Find Database File - Pilih Database DBJNM.mdb yang telah anda buat
Klik Penjualan - Add - kemudian klik Close
Klik Next - Add All - Finish

Maka akan muncul gambar dibawah ini :

Cara Membuat Laporan Harian Crystal Report Pada VB .Net 2010
Silahkan anda Save dengan nama : LaporanHarian.rpt
Jika sudah sukses membuat seperti gambar diatas, kita langjutkan pada Form1 di langkah 1
Pada Form1 tambahkan Crystal Report Control
Kemudian Masukan Koding dibawah ini :
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click AxCrystalReport1.SelectionFormula = "totext({Penjualan.Tanggal})='" & Format(DateTimePicker1.Value, "dd/MM/yyyy") & "'" AxCrystalReport1.ReportFileName = "LaporanHarian.rpt" AxCrystalReport1.WindowState = Crystal.WindowStateConstants.crptMaximized AxCrystalReport1.RetrieveDataFiles() AxCrystalReport1.Action = 1 End SubEnd Class
Jika sudah silahkan pilih tanggal sesuai dengan Transaksi Tanggal.
Kemudian Klik Button Cetak Laporan
Harusnya Muncul data sesuai dengan yang ada didatabase

Semoga Bermanfaat untuk anda.