Dear Programmers,
kali ini aku coba share gimana cara mengirimkan parameter crystal report
utk menampilkan teks melalui koding vb environment.
disini aku coba berikan beberapa alternatif utk menampilkan teks tsb
jadi ada pilihan yg dibuat, mana yg cocok, silahkan pilih :-)
dan report ini didasarkan utk versi 8.5
report dibuat berdasarkan dgn visual basic activex designner melalui menu
project
tapi ini juga berlaku utk report berdasarkan file rpt
'--perhatikan :
pertama-tama, reference kan Crystal Report 8.5 activeX Designer Run time Library
kedua, ambil component crystal viewer Control
ketiga letakkan kode ini di form_load yg ada CRViewer nya
seperti biasa silahkan copy paste :-)
'----------------------cara pertama
'--ini membuat object teks dgn memanggil fungsi api miliknya crystal report
'--dan diletakkan pada section6 atau Page Header
Call Report.Section6.AddTextObject("Hallo dunia", 5040, 120)
keterangan : hallo dunia adalah teks yg mau ditampilkan, bisa juga diganti dg
textbox nya vb atau
dateTimePicker
5040 adalah posisi left dan 120 posisi top
section6 adalah page header bisa juga diganti dgn section aja
tanpa 6, hanya
penulisan nya sedikit beda
'----------------------cara kedua
'--cara ini dgn memanfaatkan class textobject milik nya crystal report
'--jadi perlu ditambahkan sintak spt ini di deklarisi
'-- dim cTeks as Craxdrt.TextObject
Set cTeks = Report.Section6.ReportObjects("Text1")
cTeks.SetText "Percobaan"
keterangan : Text1 adalah text object miliknya crystal report - bukan di vb loh.
jadi cara buatnya biasanya klik kanan pada crystal report pilih
insert pilih text
object.
"Percobaan" adalah teks yg mau ditampilin
'-----------------------cara ketiga
'--cara ini memanfaatkan parameter crystal report utk mengirim teks via vb
'--pertama buat dulu parameter dgn nama misalnya : pTeks (tanpa perlu
dirubah-rubah settingannya)
'--parameter ini dibuat pada form crystal report, klik kanan object parameter -
new
Report.ParameterFields.GetItemByName("pTeks").AddCurrentValue "Testing"
keterangan : Testing adalah teks yg mau ditampilkan, bisa juga diganti dgn
kaliamat yg ada di
textboxnya vb atau dateTimePicker utk ambil tgl
misal " & text1.text & "
ok guys, segitu dulu tips n triks nya.
mudah-mudahan bermanfaat
salam
Lilis Suryani ArjaMaya
____________________________________________________________________________________
Got a little couch potato?
Check out fun summer activities for kids.
http://search.yahoo.com/search?fr=oni_on_mail&p=summer+activities+for+kids&cs=bz
