Cara Membuat Program Laporan Dengan Seleksi Data Pada Visual Basic 6.0 Dan Crystal Report 8.5

Cara Membuat Program Laporan Dengan Seleksi Data Pada Visual Basic 6.0 Dan Crystal Report 8.5 | iNFO.oi - Seperti yang pernah saya janjikan sebelumnya, kali ini kita akan membahas lebih lanjut tentang bagaimana cara membuat laporan dengan seleksi data.

Mungkin sobat bingung apa yang dimaksud dengan seleksi data. Saya narasikan secara sederhana dan singkat sebagai berikut :

Kita akan membuat program laporan data siswa berdasarkan kelasnya, jadi laporan yang akan tampil di Crystal  Report nantinya adalah data siswa berdasarkan kelas yang sobat pilih melalui program Visual Basic. Maksudnya, jika sobat memilih kelas XII-IPA-1 melalui Visual Basic maka di Crystal Report yang tampil hanyalah data-data siswa kelas XII-IPA-1 saja, sedangkan kelas lainnya tidak akan tampil.

Kalau sobat masih bingung, kita langsung cobakan saja membuat programnya, jika sudah selesai nanti, saya yakin sobat akan mengerti dengan sendirinya. Sekarang, silakan sobat ikuti langkah-langkah berikut ini :

• Buatlah sebuah database menggunakan MS Office Access 2003 (Jika menggunakan MS Access 2003 keatas, pastikan disimpan dengan format 2003 yaitu *.mdb). Beri nama database trsebut dengan nama latihan.mdb.
• Simapanlah database tersebut pada sebuah folder yang nantinya pada folder tersebut kita juga akan menyimpan program laporan dan project Visual Basic.
• Buat satu buah File/tabel dengan nama tbbelajar dengan field-field sebagai berikut :

• Masukkan beberapa buah record kedalam file tersebut. Sobat bisa melakukan secara manual atau dengan membuat program Entry di Visual Basic 6.0 terlebih dahulu. Untuk membuat program entry, silakan sobat buka kembali tutorial sebelumnya.
• Sebagai contoh, coba sobat masukkan data-data berikut ini kedalam file/tabel tbbelajar yang sobat buat tadi :

• Jika sudah, buatlah disain di Crystal Report 8.5 seperti gambar dibawah ini. Disini saya tidak lagi menjelaskan langkah-langkah membuat disainnya. Untuk sobat yang belum tahu caranya silakan buka kembali tutorial saya yang berjudul Cara Membuat Program Laporan Dengan Crystal Report 8.5 Dan Visual Basic 6.0. Berikut disain yang harus sobat bikin :

• Setelah itu simpan disain tersebut dalam satu folder dengan database yang sobat buat tadi.
• Agar program tidak error saat dipindah folderkan nantinya, klik menu Database, pilih Set Location kemudian klik tombol Same As Report dan klik tombol Done.

Disain Visual Basic 6.0

Kemudian buat sebuah project baru di Visual Basic 6.0 (Gunakan VB Enterprise Edition Controls).
Kita harus mengaktifkan Crystal Report Control yang berada di Visual Basic terlebih dahulu. Caranya klik menu Project kemudian pilih Componets.
Cari Crystal Report Control yang berada di list, beri tanda check list kemudian klik OK.

• Buat disain di form Visual Basic seperti gambar dibawah ini :

• Buatlah sebuah Module dengan cara, Klik menu Project kemudian pilih Add Module dan masukkan script berikut ini pada Module tersebut :

Global conn As ADODB.Connection Global rssiswa As ADODB.Recordset Sub koneksi() On Error GoTo gagal: Set conn = New ADODB.Connection conn.Provider = "microsoft.jet.oledb.4.0" conn.CursorLocation = adUseClient conn.Open App.Path & "\latihan.mdb" Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

• Sekarang kita kembali ke Form Laporannya, aturlah Interval Timer 1 menjadi 360. Kemudian double klik pada Timer 1 dan masukkan script berikut tepat diantara Private Sub Timer1_Timer() dengan End Sub :

Label4.Caption = Format(Date, "dd MMMM YYYY")

• Setelah itu, double klik pada form, dan masukkan script berikut tepat diantara Private Sub Form_Load() dengan End Sub :

koneksi On Error GoTo kosong: Set rssiswa = New ADODB.Recordset rssiswa.LockType = adLockOptimistic rssiswa.CursorType = adOpenDynamic rssiswa.Open "select * from tbbelajar", conn, , , adCmdText rssiswa.MoveFirst Max = rssiswa.RecordCount For X = 1 To Max Combo1.AddItem rssiswa.Fields(5) rssiswa.MoveNext Next kosong: If (Err.Number = 3021) Then MsgBox "File Siswa Masih Kosong", vbOKOnly, "Informasi" Exit Sub End If

• Terakhir, double klik pada tombol Cetak dan masukkan script berikut tepat diantara Private Sub Command1_Click() dengan End Sub :

On Error GoTo pesan: If Combo1.Text = "Pilih Kelas" Then MsgBox "Kelas Belum Dipilih", vbInformation, "Informasi" Else If Text1.Text = "" Or Text2.Text = "" Then MsgBox "Data Yang Anda Masukkan Belum Lengkap", vbInformation, "Warning" Else CrystalReport1.ReportFileName = App.Path & "\lap-per-kelas.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.SelectionFormula = "{tbbelajar.kelas}= '" & Combo1.Text & "'" CrystalReport1.WindowState = crptMaximized CrystalReport1.Formulas(0) = "namakepsek='" & Text1.Text & "'" CrystalReport1.Formulas(1) = "nip='" & Text2.Text & "'" CrystalReport1.Action = 0 pesan: If (Err.Number = 20533) Then MsgBox "Data Base Tidak Bisa Diakses...!", vbInformation, App.Title Exit Sub End If End If End If

Bagaimana..., tidak terlalu sulit kan...?

Kalau sobat masih bingung, sobat bisa download contoh programnya Disini

Sekian dulu tutorial dari saya yang berjudul Cara Membuat Program Laporan Dengan Seleksi Data Pada Visual Basic 6.0 Dan Crystal Report 8.5. Selamat mencoba dan semoga bermanfaat.