Cara Menampilkan isi List View ke Crystal Report

Banyak dari kita dalam pembuatan aplikasi yang ingin mengambil nilai di ListView untuk langsung di passing ke Crystal Report untuk dijadikan laporan. terkadang timbul kendala buat kita dalam menemukan code yang tepat untuk melaksanakan perintah tersebut. Berhubung baru dapet ilmu baru nga ada salahnya buat berbagi dengan anda.Dalam menampilkan isi ListView ke Crystal Report dalam program kali ini, anda tidak perlu report-repot untuk membuat database nya. Dengan kata lain, program ini langsung bisa berjalan tanpa berhubungan dengan SQL, Access, atau MySQL. Intinya program ini hanya membutuhkan DataSet untuk membangun koneksi dari ListView ke Crystal Report Viewer nya.
Adapun langkah-langkahnya sebagai berikut :
Pertama-tama download dulu XML Schema yang sudah dibuat.
Buat Form untuk eksekusi perintah. Berikut contoh tampilan nya :
Keterangan :
1–>Textbox1
2–>Textbox2
3–>Textbox3
4–>ListView1
5–>txtCounter
6–>Button1
7–>Button2

Setelah tampilannya dibuat, maka masukan coding berikut. buat di Form1
Public Class Form1
Dim i As Integer
Dim namaorang, teleponorang As String
Dim usiaorang As Integer
#Region “Tampilan Untuk ListView”
‘– Membuat judul kolom untuk ListView –
Sub DaftarView()
Dim colNama, colUsia, colTelp As ColumnHeader
colNama = New ColumnHeader
With colNama
.Text = “Nama”
.TextAlign = HorizontalAlignment.Left
.Width = 70
End With
colUsia = New ColumnHeader
With colUsia
.Text = “Usia”
.TextAlign = HorizontalAlignment.Left
.Width = 120
End With
colTelp = New ColumnHeader
With colTelp
.Text = “Telepon”
.TextAlign = HorizontalAlignment.Left
.Width = 200
End With
‘–menampilkan judul kolom ke ListView –
With Me.ListView1
.Columns.Add(colNama)
.Columns.Add(colUsia)
.Columns.Add(colTelp)
.View = View.Details
.GridLines = True
End With
End Sub
‘– mengisi data pada listView –
Private Sub IsiListView()
i = Val(txtCounter.Text)
txtCounter.Text = Str(Val(txtCounter.Text) + 1)
ListView1.Items.Add(“”)
ListView1.Items(ListView1.Items.Count – 1).SubItems.Add(“”)
ListView1.Items(ListView1.Items.Count – 1).SubItems.Add(“”)
ListView1.Items(ListView1.Items.Count – 1).SubItems.Add(“”)
namaorang = TextBox1.Text
usiaorang = TextBox2.Text
teleponorang = TextBox3.Text
ListView1.Items(i).SubItems(0).Text = namaorang
ListView1.Items(i).SubItems(1).Text = usiaorang
ListView1.Items(i).SubItems(2).Text = teleponorang
End Sub
‘– Bersihkan layar isian form –
Sub Bersih()
Me.TextBox1.Clear()
Me.TextBox2.Clear()
Me.TextBox3.Clear()
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Call IsiListView()
Me.TextBox1.Text = “”
Me.TextBox2.Text = “”
Me.TextBox3.Text = “”
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, “Perhatian”)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DaftarView()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘Objek dari report yang kita buat
Dim MyRpt As New crReport
‘Dataset dan Datarow objek yang diperlukan untuk membuat Data Source
Dim row As DataRow = Nothing
Dim DS As New DataSet
‘Add Table ke Dataset
DS.Tables.Add(“ListViewData”)
‘Add Kolom ke Table
With DS.Tables(0).Columns
.Add(“Field1″, Type.GetType(“System.String”))
.Add(“Field2″, Type.GetType(“System.String”))
.Add(“Field3″, Type.GetType(“System.String”))
End With
‘Loop Listview dan Menambahkan sebuah Row ke Table untuk setiap Listviewitem
For Each LVI As ListViewItem In ListView1.Items
row = DS.Tables(0).NewRow
row(0) = LVI.SubItems(0).Text
row(1) = LVI.SubItems(1).Text
row(2) = LVI.SubItems(2).Text
DS.Tables(0).Rows.Add(row)
Next
‘Set Report Source Ke Database
MyRpt.SetDataSource(DS)
‘Memasukan Report ke CRViewer Control
‘Dispose Dataset
DS.Dispose()
DS = Nothing
Form2.CrystalReportViewer1.ReportSource = MyRpt
Form2.ShowDialog()
End Sub
End Class

Setelah selesai dengan Form1, maka langkah selanjutnya adalah membuat Crystal Report. kita asumsikan anda sudah tahu cara membuatnya. Cuma yang agak sedikit beda adalah pengambilan data source nya. Yang biasa kita menggunakan database.
sekarang kita menggunakan DataSet. Caranya adalah setelah kita klik di properties project yang kita buat > Add> New Items > Reporting > Crystal Report > Beri nama crystal report-nya (dalam hal ini gw memakai nama “crReport”

Setelah kita klik Ok, maka kita akan dibawa ke Crystal Report Gallery.anda tinggal klik Ok aja. Setelah itu kita langsung ke Standard Report Creation Wizard. Disitu anda pilih ADO.NET > Double Click Make New Connection > kita akan dibawa ke halaman Connection.
Sekarang anda tinggal pilih File Path nya. Adapun File Path nya sendiri adalah Report Schema.xsd yang tadi di download link-nya. anda harus ingat dimana anda menaruh file tersebut.
Lanjut ke Class Name dalam hal ini gw kasih nama ListViewData. anda bisa isi dengan nama yang sama juga (.red ListViewData ). Perhatian : Jangan centang Use DataSet from Class , langsung klik tombol finish.

Setelah kita klik tombol finish, maka akan berlanjut ke halaman Data Source. Lo klik tanda “>” untuk memasukan ListViewData ke Selected Tables. Terus klik Next.
Selanjutnya adalah ke halaman Fields. Lo tinggal klik “>>” untuk memasukan semua fields yang ada di ListViewData. Karena program yang ini hanya melibatkan 3 fields saja (Nama, Usia, Telepon) maka ada baiknya fields yang dipakai hanya sampai 3. Dan fields dari 4 sampai 8 lo buang. Caranya tinggal highlight satu-satu dari field 4 – field 8 dan klik “<”. Lalu klik next > next > next > finish.
anda sudah membuat halaman Crystal Report nya. Sekarang tinggal edit Field di Section2 (Page Header). Dan beri title : Nama -(untuk Field1), Usia -(untuk Field2), Telepon -(untuk Field3). Jangan edit Section3 (Details) karena sesuai namanya “Details”, maka itu untuk value yang akan lo tampilin di Crystal Report Viewer nantinya.
Sekarang membuat Form untuk menampilkan Crystal Report. Dalam hal ini dengan nama Form2. Di Form2, anda tinggal cari Crystal Report Viewer di ToolBox. Drag and Drop ke Form2. Sekarang sudah selesai. anda tinggal klik F5 untuk jalankan program nya

Cara Menampilkan isi List View ke Crystal Report

0 comments:

Baca Lainnya

Kategori