Pemakaian DataReport pada VB
Hendra, S.T.
Mengenal Data Environment dan Data Report Data Environment merupakan salah satu fasilitas pengolahan data pada Visual Basic. Fasilitas ini diperkenalkan sejak Visual Basic 6. Pada umumnya Data Environment digunakan untuk merancang sumber data yang akan digunakan dalam pembuatan laporan yang menggunakan Data Report. Mempersiapkan Data Environment 1. Pada menu Project, More Activex Designer, Pilih Data Environment, dan akan menambahkan menambahkan suatu Data Environmnet pada project anda pada kelompok Designer.
2. Klik kanan pada Connection1 dan pilih properties. Aturlah properties seperti pada ADODC untuk koneksi data ke Pentacom.mdb 3. Klik kanan pada Connection1 dan pilih Add Command
4. Klik kanan pada Command1, dan pilih properties. Aturlah properties sebagai berikut : Pada General, Datasource, pilih SQL Statement, dan ketik SELECT Pemasok.* FROM Pemasok WHERE KodePemasok >= DariKode AND KodePemasok <= SampaiKode; Dalam hal ini DariKode dan SampaiKode merupakan parameter. Membuat report dengan Data Report 1. Pada menu Project, pilih Add Data Report, dan akan menambah DataReport1 pada bagian Designer project anda.
Indoprog
1
Pemakaian DataReport pada VB
Hendra, S.T.
2. Aturlah properti DataReport1 sebagai berikut : Data Source = DataEnvironment1 DataMember = Command1 3. Klik kanan pada DataReport1 dan pilih Retrieve Structure, dan rancanglah report anda seperti sebagai berikut ini :
Membuat Form untuk input Parameter 1. Buatlah Form Berikut
Indoprog
2
Pemakaian DataReport pada VB
Hendra, S.T.
2. Lakukan koding untuk OkButton berikut : Private Sub OKButton_Click() DataEnvironment1.Connection1.ConnectionString = MyConn.ConnectionString DataEnvironment1.Command1 txtKodeDari.Text, txtKodeSampai.Text Me.Hide DataReport1.Show Unload Me End Sub
Indoprog
3
Pemakaian DataReport pada VB
Hendra, S.T.
Child Command pada Data Environment Child command pada Data Environment berguna untuk pembuatan laporan yang berjenjang yang berasal dari dua tabel atau lebih yang berkaitan. Pada modul ini kita akan membuat Cetak Faktur pembelian. Membuat sumber data dengan Child Command 1. Pada DataEnvironment1, tambahkan sebuah Command, dan beri nama command tersebut FakturBeli 2. Aturlah sumber datanya menjadi : Select Nomor, Tanggal, Beli.KodePemasok, Total, Nama, Alamat1, Alamat2, Alamat3 From Beli Inner Join Pemasok On Beli.KodePemasok = Pemasok.KodePemasok Where Nomor = NomorFaktur 3. Tambahkan Child Command untuk command FakturBeli dengan klik kanan dan Add Child Command, dan beri nama Detail 4. Aturlah sumber datanya menjadi : Select * From BeliDetail; Dan pada Relation buatlah suatu relation berdasarkan Nomor.
Membuat Faktur Penjualan 1. Pada Menu Project, pilih Add Data Report 2. Atur DataSource = DataEnvironment1, dan DataMember=FakturBeli Indoprog
4
Pemakaian DataReport pada VB
Hendra, S.T.
3. Design Faktur Pembelian anda dengan tampilan berikut
Membuat Form Cetak Faktur Pembelian 1. Buat Form Berikut
2. Lakukan koding sebagai berikut : Private Sub OKButton_Click() Set DataEnvironment1.Connection1.ConnectionString = MyConn.ConnectionString DataEnvironment1.FakturBeli txtNoFaktur.Text Me.Hide DataReport2.Show Unload Me End Sub Project Buatlah Cetak Faktur Penjualan dan Adjust.
Indoprog
5
Pemakaian DataReport pada VB
Hendra, S.T.
Membuat Report dengan Group dan Grand Total Kadang-kadang dalam laporan kita perlu membuat Group, Total dan Grand Total. Visual Basic menyediakan fasilitas tersebut dengan membuat Command yang memiliki Group. Membuat sumber data dengan Command yang memiliki Group 5. Pada DataEnvironment1, tambahkan sebuah Command, dan beri nama command tersebut DaftarPembelian 6. Aturlah sumber datanya menjadi : Select Nomor, Tanggal, Beli.KodePemasok, Total, Nama From Beli Inner Join Pemasok On Beli.KodePemasok = Pemasok.KodePemasok Where Tanggal >= DariTanggal And Tanggal <= SampaiTanggal Dimana : DariTanggal dan SampaiTanggal merupakan parameter. 7. Buatlah grouping berdasarkan Tanggal
8. Buatlah Total dengan nama TotalHarian
Indoprog
6
Pemakaian DataReport pada VB
Hendra, S.T.
9. Tambahkan Grand Total, dengan nama Command GrandTotal
Membuat Laporan Pembelian 4. Pada Menu Project, pilih Add Data Report 5. Atur DataSource = DataEnvironment1, dan DataMember=GrandTotalDaftar 6. Design Laporan Pembelian anda dengan tampilan berikut
Indoprog
7
Pemakaian DataReport pada VB
Hendra, S.T.
Membuat Form Cetak Laporan Pembelian 3. Buat Form Berikut, dengan menggunakan DTPicker yang merupakan Microsoft Common Control-2
4. Lakukan koding sebagai berikut : Private Sub OKButton_Click() DataEnvironment1.GrandTotalDaftar DTDariTanggal, DTSampaiTanggal DaftarPembelian.Title = "Dari : " & DTDariTanggal & " s/d " & DTSampaiTanggal Me.Hide DaftarPembelian.Show Unload Me End Sub
Indoprog
8
