Filtering Data Report Pada VB 6.0

Selasa, 11 Januari 2011

Membuat data laporan?
apakah mesti menggunakan Ms. Office, atau Open Office?
jawabannya tidak, bahkan dengan aplikasi pembuat program seperti Visual Basic 6.0 kita bisa membuat laporan yang sangat berkualitas.

Hasilnya akan tampak seperti gambar di samping, namun pembuatannya tidak semudah menggunakan Ms. Office ataupun pen Office.

Baiklah, langsung saja saya jelaskan cara-caranya.

1. Siapkan waktu Anda, karena dalam membuat program tidaklah semudah membalikkan tangan.

2. Pastikan Anda sudah mandi terlebih dahulu.
ha~ha, just kidding.

3. Langsung aja ke TKP.
Chekidoooooot.

4. Pada contoh ini saya menggunakan sebuah databases Access (dbsurat.mdb) dangan sebuah tabel yang saya beri nama surat dan dengan struktur sebagai berikut :

5. Buat sebuah project baru dan tambahkan dua buah komponen pada project anda

6. Desain form seperti dibawah ini

7. Selanjutnya silahkan atur koneksi ADODC1 dengan database dbsurat.mdb yang sudah kita buat, dan atur recordsetnya ke tabel surat.

8. Aktifkan DataGrid1, atur properti DataSource-nya  dengan ADODC1 dan pastikan ketika form anda di running hasilnya seperti berikut :

9. Selanjutnya anda buat sebuah DataEnvironment

10. Atur koneksinya dengan tabel surat yang sudah kita buat

11.Buat sebuah DataReport, atur properti DataSource dengan DataEnvironment1 dan DataMember dengan Command1


12. Atur tampilan sebagai berikut :


13. Selanjutnya kita kembali ke Form, aktifkan DataGrid1 dan tambahkan satu even procedure pada DataGrid1 – Double Klik, dan tambahkan code sebagai berikut :

Private Sub DataGrid1_DblClick()
‘ ujikan apakah recordset tabel surat dalam keadaan terbuka atau tidak,
‘ jika terbuka (1) maka ditutup
If DataEnvironment1.rsCommand1.State = 1 Then
DataEnvironment1.rsCommand1.Close
End If
‘buka recordset tabel surat
DataEnvironment1.rsCommand1.Open
‘refresh data pada recordset tabel surat
DataEnvironment1.rsCommand1.Requery
‘filter data berdasarkan nomor surat
DataEnvironment1.rsCommand1.Filter = “no_surat=’” & Adodc1.Recordset(0) & “‘”
‘tampilkan datareport
DataReport1.Show
End Sub



14. Setelah semuanya selesai running form anda dan klik ganda pada datagrid anda, pastikan hasilnya seperti gambar dibawah, jika tidak, maka anda harus mengulang kembali. ha~ha.
tetap semangat, karena menjadi seorang programer harus memiliki ketelitian dan tingkat kesabaran yang tinggi.
apalagi pada saat coding error, sabar sabar sabar.

Untuk kode program dan projectnya bisa Anda download disini

Share this article :

0 komentar:

Speak up your mind

Tell us what you're thinking... !

Followers on Facebook

 
Copyright © 2011. Jangan Malu Menjadi Programer - All Rights Reserved
Proudly powered by Blogger