Membuat Laporan Admin Dengan Crystal Report VB 6.0

Pada tutorial kali ini adalah lanjutan dari tahap sebelumnya, kini kita akan Membuat Laporan Admin Dengan Crystal Report VB 6.0.

Langkah sebelumnya :
1. Membuat Project Aplikasi Pembelian
2. Membuat Form Menu Utama
3. Membuat Database dan Tabel
4. Membuat Koneksi Database Dengan Module
5. Membuat Form Login Aplikasi Pembelian
6. Membuat Koding Logout Aplikasi Pembelian 
7. Membuat Form Master Admin
8. Membuat Tabel Supplier dan Tabel Barang Pada Database
9. Membuat Form Supplier Aplikasi Pembelian
10. Membuat Form Barang Aplikasi Pembelian

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


Silahkan KLIK DISINI untuk melanjutkan ke tahap berikutnya..

4 comments:

  1. min kok di odbc crystal report saya tidak ditemukan database nya ya?

    ReplyDelete
    Replies
    1. Dear Samuel,
      Tidak adanya bagaimana?
      Apakah sudah dibutakan Database? Apakah Ingat menyimpannya dimana?
      Mohon dijelaskan lebih detail ya...

      Salam
      JNM

      Delete
  2. CrystalReport1.Action = 1
    Bang ko itu koding nya Debug yah ? kata nya Not Connect Sql Server

    ReplyDelete
    Replies
    1. Dear Rifky,
      koq sql server yah?
      kan databasenya access
      Apakah sudah mengikuti dari tahap pertama?
      mohon informasinya...

      Salam
      JNM

      Delete