Cara Membuat Laporan Harian dengan Crystal Report di VB6

Artikel Terkait Crystal Report
Belajar VB - Kursus VB - Tutorial Visual Basic 6.0 dan Visual Basic .Net - Visual Basic Indonesia. Pada Pembelajaran Crystal Report kali ini adalah Cara Membuat Laporan Harian Dengan Crystal Report.
Cara Membuat Laporan Harian dengan Crystal Report di VB6

Membuat Laporan Harian dengan Crystal Report di VB6

Berikut langkahnya :
1. Membuat sebuah Folder
Buatlah Folder pada Drive D: dengan nama folder "Belajar VB"

2. Buatlah Database dengan MS Office Access
Buatlah Database dengan nama : DBBelajarvb.mdb
Kemudian buatlah Tabel Transaksi dengan Design Tabel sebagai berikut :

Setelah selesai membuat Design Tabel Transaksi diatas, Masukan secara manual isi Tabel Transaksi sebagai sample nya. Sebagai contoh kami masukan data dibawah ini :
Pada isi Tabel diatas terdapat tanggal yang berbeda-beda.
Setelah selesai mengisi manual, masukan Database DBBelajarvb.mdb tersebut pada Folder "Belajar VB" yang telah kita buat pada langkah 1

3. Membuat Laporan Dengan Crystal report
Buka Aplikasi Crystal Report anda
Jika muncul seperti Gambar diatas anda Klik Cancel saja dulu
Klik File
New
Pilih Standard - Klik OK
Klik Database
Double Klik Find Database File
Kemudian anda cari ke Folder D:\Belajar VB
Klik DBBelajarvb - Kemudian Klik Open
Kemudian Klik Add
Klik close
Klik Next
Klik Add All
Kemudian Klik Finish
Maka akan Muncul seperti gambar dibawah :
Klik File - Save
Simpan pada Folder yang sama yaitu "Belajar VB" dan beri nama Laporan Harian

Pembuatan Laporan dengan Crystal Report selesai, sekarang kita lanjut ke Tahap 4

4. Membuat Project VB 6 dan Memanggil Laporan Harian
Buka Aplikasi VB 6.0 Anda
Simpan Form1 dan Project1 anda pada Folder "Belajar VB"
Buatlah Form Seperti gambar dibawah ini :

Form diatas hanya ditambahkan Frame1, DTPicker1, Command1 dan CrystalReport1
Kemudian Masukan Koding dibawah ini :
Private Sub Command1_Click()
        CrystalReport1.SelectionFormula = "Totext({Transaksi.Tanggal})= '" & CDate(DTPicker1) & "'"
        CrystalReport1.ReportFileName = App.Path & "\Laporan Harian.rpt"
        CrystalReport1.WindowState = crptMaximized
        CrystalReport1.RetrieveDataFiles
        CrystalReport1.Action = 1
End Sub

Silahkan jalankan Project VB 6 anda
sebagai contoh kita akan memanggil Laporan Harian pada tanggal  1 Juni 2019
Kemudian Klik Cetak
Maka akan Muncul :


Mudah Bukan ???
Untuk hasil latihan diatas anda bisa KLIK LINK INI
Jika anda mengalami kesulitan atau ada yang ingin ditanyakan, anda bisa berkomentar di bawah


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).