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

Verizon mempertahankan peringkat jaringan nirkabel teratas

Untuk kesembilan kalinya berturut-turut, Verizon telah muncul di posisi teratas dalam uji coba seminua RootMetrics dari operator nirkabel utama di AS. Untuk kesembilan kalinya berturut-turut, jaringan nirkabel terbesar di negara tersebut telah menempati posisi teratas dalam keseluruhan kinerja jaringan, menurut firma pengujian independen RootMetrics. Dalam uji coba terakhirnya terhadap empat operator nirkabel utama, RootMetrics memberi peringkat Verizon keenam kategori untuk paruh kedua tahun 2017. Ketika sampai pada kinerja keseluruhan dalam kehandalan, kecepatan, koneksi data dan panggilan, Verizon berada di peringkat 1. AT & T berada di peringkat kedua secara keseluruhan, sementara Sprint menempati posisi ketiga dan T-Mobile berada di peringkat keempat. Verizon menyapu penghargaan tidak hanya di tingkat nasional, tapi juga di tingkat negara bagian dan metro. Di 125 kota terbesar di AS, dibutuhkan waktu hampir dua kali jumlah penghargaan pertama sebagai AT & T, ...
Post a Comment
Read more