Skip to main content

[Dokumentasi] Reporting Program VB6 dengan Crystal Report 8.5 menggunakan TTX File (II)

Dalam tulisan kali ini, kita akan menampilkan data dari program aplikasi yang kita buat dengan VB6 ke laporan Crystal Report (TTX File). Di bagian sebelumnya, sudah disampaikan langkah-langkah pembuatan laporan Crystal Report dengan TTX File. Untuk menghubungkan laporan tersebut dari program aplikasi yang kita buat, dapat mengikuti langkah-langkah berikut :
1. Buka IDE Ms. VB 6, pilih New - Standard Exe, kemudian klik tombol Open
2. Pilih menu Project - Component (Ctrl+T), tab Controls akan menampilkan daftar komponen teregister yang dapat kita gunakan untuk program aplikasi kita, ceklis komponen Crystal Report Viewer Control, kemudian klik tombol OK
3. Pilih menu Project - References, ceklis Crystal Reports 8.5 ActiveX Designer Run Time Library dan Microsoft ActiveX Data Objects 2.x Library, kemudian klik tombol OK
4. Pada Toolbox akan menambah 1 komponen dengan nama CRViewer, drag komponen tersebut dan drop di form yang kita gunakan.
5. Atur tata letak komponen tersebut pada form, dalam kasus ini saya gunakan code berikut :
   Private Sub Form_Resize()
    CRViewer1.Top = 0
    CRViewer1.Left = 0
       CRViewer1.Width = Me.Width - 250
    CRViewer1.Height = Me.Height - 600
End Sub
5. Deklarasikan objek-objek berikut :
   Private cryApp As CRAXDRT.Application
   Private rptApp As CRAXDRT.Report
   Private oCn As New ADODB.Connection
   Private oRst As New ADODB.Recordset

6. Dalam contoh ini saya tambahkan prosedur koneksi ke database (tergantung jenis database yg digunakan, dalam kasus ini digunakan SQL Server), seperti berikut :
   Private Sub ConnectDB()
      With oCn
        .Provider = "SQLOLEDB"
        .Properties("Data Source") = "(LOCAL)"
        .Properties("User ID") = "user"   'Username SQL
        .Properties("Password") = "password"  'Password SQL
        .Properties("Initial Catalog") = "Barang"    'Nama Database
        .CursorLocation = adUseClient
        .ConnectionTimeout = 0
        
        If .State = adStateOpen Then .Close
        .Open
     End With
   End Sub
7. Pada event form_load, ketik kode berikut ini :
   Private Sub Form_Load()
       'Setting form Maximized
       Me.WindowState = vbMaximized
       
       'Memanggil prosedur koneksi database
       Call ConnectDB
       
       'Membuka recordset dari tabel barang (tabel barang memiliki field Kode, NamaBarang dan Jumlah)
       With oRst
         If .State = adStateOpen Then .Close
           .Open "Select Kode, NamaBarang, Jumlah From Barang", oCn
       End With
      
       'Dalam contoh ini, file report disimpan di C:\testing dengan nama file rptBarang.rpt
       Set cryApp = New CRAXDRT.Application
       Set rptApp = cryApp.OpenReport("C:\Testing\rptBarang.rpt")
       'Setting data source report dari recordset
       rptApp.Database.SetDataSource oRst
       
       'Assign report ke komponen CRViewer untuk ditampilkan
       CRViewer1.ReportSource = rptApp
      CRViewer1.ViewReport
       
       Do While CRViewer1.IsBusy
           DoEvents
       Loop
      
      CRViewer1.Zoom 100
   End Sub
8. Jika ingin menggunakan parameter pada laporan, maka tambahkan listing kode berikut di kode di atas
       rptApp.ParameterFields.GetItemByName("paramTest").ClearCurrentValueAndRange
       rptApp.ParameterFields.GetItemByName("paramTest").AddCurrentValue "Test"
9. Running program aplikasi, yang telah dibuat, jika terdapat error, lakukan debugging...
Selanjutnya, silahkan kembangkan sendiri report anda dengan mengeksplorasi fungsi-fungsi yang ada... :)
Labels:

Comments

Post a Comment

Popular posts from this blog

Twitter memposting keuntungan pertama meski ada masalah bot

Jaringan sosial lambat berkembang karena berkaitan dengan kekhawatiran akan jutaan akun palsu yang melakukan tweet dan retweet di seluruh platform.   Ada jutaan akun palsu yang melakukan tweet , retweet dan like ke sebagian besar akun terkenal di Twitter. Jadi apa yang akan dilakukan perusahaan tentang hal itu?   Masalahnya telah menggelegak di bawah permukaan di Twitter selama bertahun-tahun. Tapi itu dibawa ke permukaan oleh The New York Times, yang menemukan perusahaan yang menghasilkan uang dengan menggunakan bots - program komputer otomatis yang terkadang berperan sebagai orang sungguhan - untuk memperbanyak pengikut selebriti, eksekutif bisnis, dan bahkan anggota dewan Twitter sendiri sebenarnya punya. Twitter mulai membersihkan jutaan akun palsu untuk menanggapi hal ini. Sulit untuk mengatakan berapa banyak akun palsu di luar sana. Sebuah studi yang dirilis tahun lalu menemukan bahwa sebanyak 15 persen akun Twitter aktif dikendalikan oleh bot. Twitter menga...
Post a Comment
Read more

Manfaat Temulawak bagi Kesehatan

Temulawak merupakan tanaman rempah asli Indonesia yang memiliki beragam khasiat untuk kesehatan. Bagian yang sering dimanfaatkan adalah bagia akar atau sering jug disebut dengan rimpang. Bagian inilah yang sering diolah untuk dijadikan sebagai obat berbagai penyakit. Khasiat dari tanaman temulawak adalah untuk mengatasi gangguan ginjal, melancarkan pencernaan, menyehatkan jantung, dan menjaga kesehatan hati. Sebenarnya masih banyak jenis penyakit lain yang bisa disembuhkan dengan tanaman obat ini. Apalagi bila penggunaannya dikombinasikan dengan tanaman obat lain, tentu khasiatnya akan semakin terasa. Manfaat Temulawak bagi Kesehatan Berikut ini manfaat temulawak bagi kesehatan: 1. Melancarkan Proses Pencernaan Manfaat temulawak yang pertama adalah melancarkan proses pencernaan. Hal ini dikarenakan temulawak mengandung senyawa yang diketahui dapat merangsang produksi empedu, yang dapat membantu meningkatkan kesehatan pencernaan dan mengatasi masalah pencernaan. 2....
Post a Comment
Read more

Tim Apple bergabung dengan Alipay untuk merajai China

Industri pembayaran mobile China menghasilkan lebih dari $ 9 triliun per tahun, dan Alipay adalah pemimpin pasar. Apple memenangkan medali perak China tahun lalu, dengan iPhone 7 Plus menjadi ponsel terlaris kedua di negara berpenduduk pada 2017. Pada 2018, raksasa elektronik tersebut mencari emas. Dalam sebuah langkah yang tidak biasa, Apple bermitra dengan Ant Financial, perusahaan afiliasi raksasa e-commerce Alibaba, untuk memungkinkan pelanggan membeli produk di toko dan online menggunakan Alipay, sistem pembayaran yang bersaing dengan Apple Pay. Sebagai gantinya, aplikasi Alipay akan memiliki bagian khusus untuk pembelian App Store. Meskipun layanan seperti PayPal dan Alipay dapat digunakan di App Store, iTunes dan Apple Music, Ant Financial menggembar-gemborkan ini sebagai pertama kalinya Apple mengizinkan metode pembayaran mobile pihak ketiga di toko fisiknya. China adalah pasar yang sangat besar untuk Apple, dengan penjualan $ 9,8 miliar pada kuartal keempat tahun 2017 saja....
Post a Comment
Read more