VB6 - crystal report

belajar - belajar lagi, lama tidak belajar VB. Dulu tidak bisa tapi sekarang malah lupa. Buka buka contekan lag karena si Bos minta dibikinin print Barcode label pake machine printer SATO, printer khusus barcode label yang kertas roll. Cukup sulit ternyata pake PHP-CrystalReport. PHP ke pdf bisa, tapi ternyata hasil pdf nya dianggap sebagai "image" oleh mesin SATO tadi. Garis garis barcodenya keluar, tapi tidak sebaguse bila memakai programming desktop (VB/PB).

dulu pernah bisa PHP - CrystalReport, tapi entah kemane tuh file.

bila VB6 seperti ini cara ngeprint report pake Crystalreport:

Private Sub CMD_CETAK_Click()
CrystalReport1.Connect = "ODBC;DRIVER=SQL SERVER;" & "UID=sa;PWD=password;SERVER=server;DATABASE=barcode"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub


:::kalo ada 1 databox saja maka akan seperti ini:::.

Private Sub Command1_Click()
CrystalReport1.Connect = "ODBC;DRIVER=SQL SERVER;" & "UID=sa;PWD=password;SERVER=IT-DEPT;DATABASE=vmi"
CrystalReport1.SelectionFormula = "{MBSG_TBL.MBSG_BSGRP} = '" & DataCombo1.Text & "'"
CrystalReport1.ReportFileName = App.Path & "\Rexim.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub


:::kalo ada 1 text box saja maka akan seperti ini:::.

Private Sub Command1_Click()
CrystalReport1.Connect = "ODBC;DRIVER=SQL SERVER;" & "UID=sa;PWD=password;SERVER=IT-DEPT;DATABASE=vmi"
CrystalReport1.SelectionFormula = "{MBSG_TBL.MBSG_BSGRP} = '" & txt_kode.Text & "'"
CrystalReport1.ReportFileName = App.Path & "\Rexim.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub


:::kalo digabung 1 databox dan 1 text box maka akan seperti ini:::.

Private Sub Command1_Click()
CrystalReport1.Connect = "ODBC;DRIVER=SQL SERVER;" & "UID=sa;PWD=password;SERVER=IT-DEPT;DATABASE=vmi"
CrystalReport1.SelectionFormula = "{MBSG_TBL.MBSG_BSGRP} = '" & DataCombo1.Text & "'" & " OR " & "{MBSG_TBL.MBSG_BSGRP} = '" & txt_kode.Text & "'"
CrystalReport1.ReportFileName = App.Path & "\Rexim.rpt"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action = 1
End Sub


:::kalo ada 1 databox dan 1 DTPicker maka akan seperti ini:::.