Tutorial VISUAL BASIC (Active Report) bagian 1

Tutorial Active Report bagian 1

Active Report adalah salah satu tool yang digunakan untuk pembuatan report di visual basic, mulai dari report yang sederhana sampai yang komplek, berikut contoh beberapa report yang bisa dibuat menggunakan active report.

Selain itu active report juga sudah terintegrasi dengan IDE visual basic sehingga pembuatan report pun menjadi lebih menyenangkan, lalu bagaimana cara meload datanya ? Caranya gampang cukup menggunakan query biasa seperti query-query yang digunakan dalam pembuatan aplikasi.

Untuk contoh pada tutorial pertama ini kita akan menampilkan data siswa dengan struktur tabel seperti berikut :

1. Mendesain report

Mendesain report di Active Report sama mudahnya seperti mendesain tampilan di form, tinggal drag komponennya kemudian ganti nilai properties masing-masing komponennya sesuai kebutuhan.

Oke langsung saja aktifkan project vb Anda kemudian klik kanan di nama project -> Add -> Data Dynamics ActiveReport 2.0

jika berhasil pada panel project explorer akan ketambahan node baru dengan nama Designers

kita akan mengganti nilai dari properties Name dan Caption seseusai setting berikut :

Nama = arLapSiswa
Caption = Laporan Data Siswa

untuk properties yang lain bisa Anda ganti nilainya sesuai kebutuhan.

Berikutnya kita akan menambahkan judul report, objek yang akan digunakan adalah objek label

nilai caption dari labelnya kita abaikan saja, karena akan kita ganti pada saat runtime (program dijalankan).

Setelah selesai menambahkan judul reportnya, kita akan menambahkan judul kolom, objek yang digunakan masih sama yaitu label

selanjutnya kita akan menambahkan border untuk judul kolom nya, caranya adalah dengan menyeleksi label “No.” sampai “Tanggal Lahir”, kemudian klik kanan pada salah satu label yang diseleksi pilih Format Border

pilih jenis border pada pilihan Line Styles, kemudian pada bagian Preview border yang diaktifkan hanya bagian “Atas”, “Kiri” dan “Bawah”

selanjutkan kita akan menambahkan border untuk label ayah

Gimana? jadi terlihatkan perbedaannya kenapa dipisah pembuatan border label “Ayah” dengan label lainnya.

Hasil akhir penambahan border judul kolom

Berikutnya kita akan menambahkan objek TextBox yang akan digunakan untuk menampilkan data

Khusus untuk textbox “No.” (tag merah) properties Textnya diset = 0, untuk textBox lainnya diabaikan saja dan kemudian untuk menambahkan border langkah-langkahnya sama seperti sebelumnya, hanya saja border bagian “Atas” tidak aktifkan

kemudian untuk setting border textbox ayah

ada satu komponen lagi yang akan kita tambahkan yaitu komponen ADO Data Control dan saya rasa tidak perlu lagi dijelaskan apa kegunaan komponen ini.

Berikut adalah hasil akhir desain report siswanya.

2. Kode untuk report

Active Report sama seperti form dan komponen lainnya mempunyai event-event yang bisa kita isikan kode program sesuai kebutuhan, biasanya nama event tersebut diawali oleh nama sectionya, contoh :

pada contoh diatas section “Detail” mempunyai beberapa event yaitu AfterPrint, BeforePrint, Format.

Disini saya hanya akan mencontohkan penggunaan event Format dan BeforePrint.

01 Private Sub Detail_Format()
02     With adoSiswa.Recordset

 

03         If Not .EOF Then
04             txtNo.Text = Val(txtNo.Text) + 1

 

05   
06             txtNIS.Text = .Fields(“nomorinduk”).Value

 

07             txtNama.Text = .Fields(“nama”).Value
08             txtTempatLahir.Text = “”
& .Fields(“tempat_lahir”).Value ‘ untuk menghandle nilai null

 

09   
10             If IsDate(.Fields(“tgl_lahir”).Value) Then

 

11                 txtTglLahir.Text = Format(.Fields(“tgl_lahir”).Value, “dd/MM/yyyy”)
12             Else

 

13                 txtTglLahir.Text = “”
14             End If

 

15   
16             txtAyah.Text = “”
& .Fields(“ayah”).Value ‘ untuk menghandle nilai null

 

17         End If
18     End With

 

19 End Sub

Sampai disini report sudah siap digunakan/dipanggil via aplikasi

3. Memanggil report dari aplikasi

Balik ke form visual basic kemudian buat desain form seperti gambar berikut :

kemudian untuk menampilkan reportnya ketik kode berikut :

01 Private Sub cmdPreview_Click()
02     Dim strCon  As String

 

03     Dim strSql  As String
04   

 

05     strCon = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=”
& App.Path & “\sampleDb.mdb”
06     strSql = “SELECT * FROM siswa”

 

07   
08     With arLapSiswa

 

09         .adoSiswa.ConnectionString = strCon
10         .adoSiswa.Source = strSql

 

11   
12         .lblHeader1.Caption = “SEKOLAH MENGENGAH …”

 

13         .lblHeader2.Caption = “Laporan Data Siswa”
14   

 

15         .Show
16     End With

 

17 End Sub

Gimana ? Simple kan

jalankan program kemudian klik tombol “Tampilkan Report”, akan ditampilkan hasil preview data siswanya.

waduhh, ternyata setelah pindah ke halaman 2 ada data siswa yang nampil tidak sesuai harapan, lihat gambar berikut :

Setelah diusut ternyata penyebabnya adalah nilai dari tempat lahirnya terlalu panjang sehingga tampilan report jadi berantakan, nah bagaimana cara menyelesaikan masalah ini ? Disinilah peran penting dari event Detail_BeforePrint.

Oke kita kembali lagi ke desain report siswanya kemudian tambahkan kode berikut pada event Detail_BeforePrint :

1 Private Sub Detail_BeforePrint()
2     txtNo.Height = Detail.Height

 

3     txtNIS.Height = Detail.Height
4     txtNama.Height = Detail.Height

 

5     txtTempatLahir.Height = Detail.Height
6     txtTglLahir.Height = Detail.Height

 

7     txtAyah.Height = Detail.Height
8 End Sub

Klo sudah jalankan lagi programnya dan kita lihat hasil reportnya

Case closed sampai ketemu lagi

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s