0 Rabu, (17/10/2012)

---

Jangan Lupa Tinggalkan Komentar Kalian Ya...!!!

---

Cara membuat crystal report dengan VB6.0 dengan Desain Dari Luar

1. kita buka VB6.0 / program yang sudah kita buat
2. kita buat form baru
3. klik Project => References => pilih yang seperti di bawah ini

     4. setelah itu kita pilih CRViewer seperti gambar di bawah ini

     5. klik double pada CRViewer di form baru

     6. Lalu di form yang ingin di tampilkan di Crystal Report buat Button Print

  7. Double Klik Pada Button yang barusan di buat masukkan Script  seperti di bawah ini..

-----------------------------------------------------------------

Form1.Hide 'Form yang ada Button print

Report.Show 'Form yang buat nampilkan Crystal Reportnya

     Set Rpt = RptApp.OpenReport(App.Path & "\ttx\hasil.rpt") ' menghubungkan ke desain report'

Rpt.DiscardSavedData

StrSql = "select * from terapi1  where id <>'' "

Set rs = conn.Execute(StrSql)  'ambil data dari table  ke recordset

Rpt.database.SetDataSource rs  ' masukan data dari recordset ke crystal report

With Report.CRViewer1      'komponen preview

   .ReportSource = Rpt

   .EnableGroupTree = False ' hiden tree

   .EnableExportButton = True  ' tampilkan tombol export

   .Zoom 100

   .ViewReport ' tampilkan

End With

-----------------------------------------------------------------

  8. Setelah itu kita buka Crystal Report

  9. Sebelum memulai download ttxnya untuk mendesain Klik Disini

 10. Setelah itu ttxnya di open with ke Notepat

(Jangan di ubah tataletaknya hanya di ganti aja hurufnya aja save di Folder project)

 11. Buka Lagi Crystal Report

 12. Klik yang di beri warna seperti gambar di bawah ini

 13. Setelah itu Klik Ok

 14. Akan muncul seperti gambar di bawah ini

 15. Klik More Data Sources yang di beri warna => pilih Active Data => Pilih Active Data (Field Definitions Only) => Klik Browse 

 16. Cari dimana Kamu Meletakkan ttx yang sudah di buat

 17. Kalau Udah Klik Ok

 18. Klik Add lalu Close

 19. Lalu akan muncul Gambar seperti di bawah ini

20. Lihat di gambar yang di lingkari klik Database Fields => Klik  nama ttx yang tadi di buat => geser Fields - Fieldsnya ke Details

21. save di Folder project 

Semoga Berhasil...
Good Luck....

Kalau ada error silakan komentar di bawah ini...!!