Membuat Report

Report /laporan sangat penting bagi user databse karena dengan adanaya report user dapat mengetahui tampilan hasil pengolahan data tersebut baik dicetak maupun tidak.Terdapat 2 cara untuk membuat ini
1. Data report
2. Cristal report

1. Data report
Merupakan bawaan dari VB ,untuk koneksi databasenya biasanya menggunakan data enviromet
Berikut langkah langkahnya:
1. Pilih table yang akan menjadi source datanya
2. Tambahkan dataenviroment1 dalam form
3. Tambahkan Command1 untuk memanggil table yang akan dilaporkan datanya. Dalam hal ini, table yang akan
digunakan adalah customer. Lihat perintah SQL SELECT
4. Merancang Laporan Tanpa Kriteria
Pada componentsnya tambahkan designer datareport dengan cara:
1.Tambahkan DataReport dalam project (datareport add)
2.Klik Data Report akan muncul lembar design DataReport yang mempunyai keterangan:
– Section1 : Untuk menampilkan data-data dalam record (field).
– Section2 : Memberi informasi atas untuk setaip halaman
– Section3 : Memberi informasi akhir perhalaman
– Section4 : Memberi informasi header pada laporan
– Section5 : Memberi informasi footer untuk akhir informasi.
3.Hubungkan DataReport tersebut dengan DataEnvironment, lakukan perubahan pada properties DataReport1 tersebut dan
rancang datareport sbb:


4.properties pada section1(Detail) hubungkan ke table dan pilih field yang sesuai
Propertis
5.Pada Form Entri Customer untuk procedure klik pada CommandButton Cetak, panggil rancangan DataReport1 tersebut :

Private Sub Command4_Click()
DataReport1.Show ‘untuk meanggil rancangan DataReport1
End Sub
6.Untuk mencetak maka Form Entri dijalankan dan tombol cetak
Merancang Laporan dengan Kriteria
Yaitu merancang laporan tidak semua data yang ditampilkan tetapi yang ditampilkan sesuai kemauan .berikut contohnya: Misalkan data yang ditampilkan dalam DataReport menurut NID yang dinginkan maka pada procedure CommandButton Cetak diatas harus diketik koding seperti berikut :
Private Sub Command4_Click()
‘Data dicari terlebih dulu sesuai dengan kriteria
DataEnvironment1.Commands(1).CommandText = “Select * from Customer where Nid='” & TxtNID & “‘”
DataReport1.Refresh
DataReport1.Show
DataEnvironment1.rsCommand1.Close ‘DataEnvironment1 ditutup supaya tdk konflik.
End Sub

Untuk lebih jelasnya silakan download file disini

untuk laporan menggunakan cristal report nantikan posting selanjutnya 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s