Tutorial - Step by Step Grouping pada Data Report vb 6.0 dengan Data Environment

Baca Juga

Pada Posting sebelumnya saya menyajikan source code Grouping pada Data Report, nah yang ini adalah tutorial step by step cara membuatnya.

Buka Visual Basic 6.0, pilih standard EXE, open ..

Tambahkan Data Environment, 

klik Menu Project >> More ActiveX Designers...>> Data Environment

SETTING DATA ENVIRONMENT

Setelah itu akan muncul jendela data Environment1, klik kanan pada Connection1 dan pilih Properties...

Pilih connection, sesuai dengan database yang digunakan, kali ini saya menggunakan database MS Access, kemudian klik Next

Setelah itu pada tab connection, lakukan langkah-langkah berikut ini :

1. klik pada tombol ...

2. cari lokasi dimana database berada

3. klik open

4. apabila perlu lakukan tes terhadap koneksi database dengan klik tombol Test Connection

5. Klik OK

Selanjutnya klik kanan Connection1, Add Command

Pada Command1, lakukan langkah-langkah sebagai berikut :

1. Klik kanan pada Command1, Properties ...

2. Pada souce data, pilih option Database Object, pilih Table

3. Object Name isi dengan tabel yang ingin ditampilkan
4. akhiri dengan tombol Apply

Selanjutnya :

1. klik tab Grouping;

2. Centang Group command object;

3. Pilih field yang akan dijadikan sebagai grouping;

4. klik tombol >

5. akhiri dengan tombol Apply

Selanjutnya :

1. klik tab Aggregates untuk menampilkan jumlah atau aggregat lainnya untuk setiap group

2. klik Add;

3. Set filed yang akan ditampilkan aggregatnya pada Aggregate Setting;

4. Akhiri dengan Apply dan OK.

Sampai disini, selesai untuk setting Data Environmentnya, apabila langkah-langkah diatas dilakukan dengan benar, maka pada jendela DataEnvironment1 akan seperti gambar dibawah ini.

SETTING DATA REPORT

klik Menu Project >> Add Data Report

Set properties Datareport1 sebagai berikut :

Data Source = DataEnvironmet1

Data Member = Command1_Grouping

Klik kanan pada DataReport1 dan pilih Insert Group Header/Footer

Kemudian Susun beberapa RptLabel dan RptTexBox 

Untuk mengisi fieldnya klik pada RptTexbox, kemudian pada properties pilih nama field pada Data Field seperti gambar dibawah ini :

Lakukan langkah tersebut untuk semua RptTexbox

untuk menampilkan reportnya, tambahkan sebuah commandbutton pada Form dan ketikkan code dibawah ini :

Private Sub Command1_Click()
    DataReport1.WindowState = vbMaximized
    DataReport1.Show
End Sub

hasil akhirnya kurang lebih akan seperti ini :

Demikian semoga bermanfaat.

Link downloadnya bisa dilihat  disini