Membuat Laporan Menggunakan Datareport di Visual basic 6

Untuk saudara Yuda Roten sahabat saya dari bandung mengerjakan aplikasi vb6 menggunakan data report dan masih error maka saya mencoba menjelaskan mengenai data report, pertama saya secara standart saya mau menjelaskan mulai dari fase bahwa program vbnya sudah siap, dan database menggunakan Microsoft acces, dan menggunakan adodc

FASE PERTAMA

Siapkan sebuah koneksi menggunakan  Data environment

Klik kanan di project pilih (add> More active Designers> data environment)

 

cara untuk menambahkan data environment 

Atur koneksi antara database dan data environment

Klik kanan pilih properties

 

cara untuk membuka properties connection1

 Atur data Link Properties

Klik tab provider pilih Microsoft Jet 4.0 OLEDB Provider

Klik Tab connection pada gambar no 1 pilih database yang digunakan dan pilih no 2 untuk tes connection bila berhasil  koneksi berhasil

Data Link Properties

Bila saya katakana ini baru pada fase pertama selesai, selanjutnya masuk fase kedua

FASE KEDUA

Atur  profil dari report kita (ini bahasa dan cara berfikir saya)

Klik  kanan  Connection1 > add command > rename sesuai dengan nama yang sesuai selera kalian

Atur Command Report (misalkan saya menggunakan lapstock)

Klikkanan lapstock> pilih properties > atur Source of data

Database object > table

bila kita menggunakan table di database kebetulan saya menggunakan table stock barang

Object name > Stock_barang

Apply Ok

Pengaturan command properties

 Sampai disini saya bias kembali katakana bahwa kita telah sampai pada fase kedua dan baru memasuki fase ketiga

FASE KETIGA

Tambahkan data report ke dalam program laporan yang telah kita buat

Klik kanan di project > pilih add > data report

Agar gampang maka Restore Layar properties laporan agar gampang memindahkan laporan

ukuran data environtment dan data report yang dikecilkan

Klik dan tahan command di data environment (lapstock) geser ke dalam ruang data report dan lepaskan

Aturlah susunan report di data report

Susun tata letak setiap field agar laporan kita sesuai dengan laporan yang kita butuhkan

Ada yang perlu diperhatikan bahwa kita membutuhkan komponen tambahan  yaitu pageset.dll sebagai orientasi dari report kita bisa landscape copy paste pageset.dll  ke dalam window>system 32 dan selanjutnya di refrencee kita lakukan adalah untuk menambahkan component tersebut kedalam project kita. Caranya adalah

Refrencee > browse > temukan lokasi pageset.dll yang telah kita copy paste kedalam system 32 window

Deklasikan pageset tersebut dilokasi  dimana tempat report kita diletakan misalkan saya di form 1 maka

contoh sourcenya

Dim cetak As New PageSet.PrinterControl

Private Sub Command1_Click()

cetak.ChngOrientationLandscape

lapstock.Show

End Sub

Apakah program telah selesai jawabnya belum karena masih error

Atur  datareport propertiesnya

Datasource = dataenvironment

Datamember = stock (sesuai dengan nama command laporan di data environment)

selesai

bila kamu mau contoh jadinya silahkan download gambar dibawah ini!!!

Untuk download pageset.dll klik gambar dibawah ini!!!

untuk kembali ke depan maka klik gambar dibawah ini