Membuat Laporan Admin Dengan Crystal Report VB 6.0

Berikut langkahnya :
Buka Project Aplikasi Pembelian anda sebelumnya :

Jika anda lihat gambar diatas, anda telah sukses membuat Form Barang Aplikasi Pembelian

Berikutnya mari kita membuat Laporan Admin.
Pastikan anda sudah install Crystal Report.
Buka Crystal Report anda

Klik Crystal Reprt
Klik File - New

Klik Standard - OK

 

Klik Data - ODBC - MS Access Database - TBL_ADMIN - Add - Close
Klik Next

Pilih Field TBL_ADMIN yang akan dimasukan kedalam laporan database
Klik Finish

Laporan sudah keluar,
Silahkan save dengan nama : Lap_Admin.rpt
Simpan dalam 1 folder bersamaan dengan project Aplikasi Pembelian VB 6.0 anda

Berikut cara memanggilnya :
Buka Project Aplikasi Pembelian VB 6.0 anda
Buka FormMenuUtama
Masukan Crystal Report Control

Masukan Crystal Report Control pada FormMenuUtama

Koding Memanggilnya adalah sebagai berikut :

 Private Sub MnLapAdmin_Click()
    CrystalReport1.ReportFileName = App.Path & "\Lap_Admin.rpt"
    CrystalReport1.WindowState = crptMaximized
    CrystalReport1.RetrieveDataFiles
    CrystalReport1.Action = 1
End Sub