Crystal Report : Filter Menggunakan Dataset dan DateTimePicker

Pada pembahasan mengenai Crystal report kali ini adalah filterisasi dengan menggunakan fungsi between dari dateTimePicker dan menggunakan konsep koneksi Disconnected Environment yaitu Dataset dan ini sesuai dengan usulan dari teman saya johan regar

Duh ini apa lagi seh ? kok banyak review nya ?

baik ini rasanya capek ya kok banyak bener review mengenai Crystal Report, yah namanya juga share jadinya kan banyak versi sehingga menjadikan kita semakin berkreasi lebih dan lebih lagi untuk membuat pelaporan yang bervariasi, sebelumnya baca dahulu review crystal report saya sebelumnya

Mulai dengan membuat file Crystal Report baru





Caranya seperti review saya sebelumnya yang membedakan adalah pada saat koding


Disini saya memakai 2 buah DateTimePicker sebagai filter dan button sebagai penampil isi report, penggunaan Dataset yang mana memungkinkan anda untuk melakukan selection formula secara coding query langsung ke dalam table pada database dengan mem-binding Dataset yang merupakan representasi dari table dan crystal reportnya, serta saya menggunakan database SQL Server 2005


Koding Time


ok langsung saja


Imports System.CrystalReports.Shared
imports System.Data.SqlClient


Public Class1


Dim xKoneksi As new SqlConnection
Dim xcom As new SqlCommand
Dim ds As new Dataset
Dim da As SqlDataAdapter
Dim ReportPembelian as new CReportBeli


Private Sub Form1_Load(Byval sender As System.Object, Byval e As System.EvenArgs) Handles me.Load
xKoneksi.ConnectionString="Data Source=NAMA_SERVER;Initial Catalog=NAMA_DB;Integrated Security=true"
xKoneksi.open()
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Try

xcom.CommandText = "SELECT PEMBELIAN.no_nota," & _
"PEMBELIAN.nama_supplier, "PEMBELIAN.tanggal_nota, detil_pembelian.kode_barang," & _ "detil_pembelian.nama_barang,detil_pembelian.jumlah_beli, detil_pembelian.harga, " & _ "detil_pembelian.total, PEMBELIAN.total_pembelian, PEMBELIAN.Keterangan " & _

"FROM PEMBELIAN, detil_pembelian WHERE" & _
"PEMBELIAN.no_nota = detil_pembelian.no_nota_pembelian and " & _
"PEMBELIAN.tanggal_nota BETWEEN '" & datetimepicker1.value & "'" & "and" & _
"'" & datetimepicker2.value & "'"
da = New SqlDataAdapter(xcom.CommandText, xKoneksi)
da.Fill(ds, "tblAlias")

ReportPembelian.SetDataSource(ds.Tables("tblAlias"))


CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.ReportSource = ReportPembelian


Catch (Ex As Excepyion)


End Try


End Sub


End Class


Silahkan mencoba versi yang baru ini menggunakan fungsi Between dari datetimepicker dan ditampilkan saat anda meng-klik button. thx to johan regar


by


WAL

Crystal Report : Source Code Filter dengan Bulan dan Tahun (2)

Pada bagian Crystal report kali ini adalah versi lain dari filter berdasarkan bulan dan tahun dan ini adalah masukan dari teman saya tegar thx for masukannya bro

Apa yang dibutuhkan

Tetap saja sama seperti posting saya sebelumnya Filter Bulan dan Tahun baca dulu, tidak ada yang berubah dan yang membedakan dengan postingan sebelumnya ada pada saat koding jadi kita langsung menuju koding.


Koding Time

Public Form ClassTransaksi

Dim xReports as new ReportPenjualan

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Try

ReportPenjualan.Load()

CrystalReportViewer1.ReportSource = xReport
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = “{Transaksi.TglTransaksi} in datetime(” & cbTahun.Text & “,” & cbBulan.SelectedIndex + 1 & “,1) to datetime(” & cbTahun.Text & “,” & cbBulan.SelectedIndex + 1 & “,” & Now.Day.ToString() & “)”
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Ini apaan lagi, kok beda terus bedanya apa ma yang kemarin ?

ha4 oke2 untuk yang kali ini sesuai dengan saran dari teman saya tegar saya akan coba tidak menggunakan select case akan tetapi menggunakan fungsi dari event combobox yaitu selectedindex, yang mana (” & cbTahun.Text & “,” & xBulan.ToString() & “,1) menjadi (” & cbTahun.Text & “,” & cboBulan.selectedIndex + 1 & “,1) dikarenakan xBulan merupakan bagian dari select case maka di ganti seperti di atas

ini adalah versi yang lain dari pemanipulasian Crystal Report silahkan di coba dan terima kasih buat akang tegar buat masukannya

by

WAL

Crystal Report : Langkah Membuat Drill Down Report

Pada artikel sebelumnya mengenai filterisasi crystal report dengan menggunakan inputan user kali ini saya ingin sharing mengenai crystal report juga tetapi hanya langkah awal memulai membuat report secara drill down

tidak perlu lama-lama langsung saja kita mulai, topik yang kali ini kita bahas meliputi :
- Laporan Drill Down yang interaktif
- Grafik data
- Kondisional format data

Dalam sharing sederhana ini saya akan mencoba mendemokan caranya, untuk report saya menggunakan report wizard.

1. Tambahkan Crystal Report file ke dalam project anda, maka akan muncul Crystal Report Gallery Window, dalam menu pop up ini pilihlah "Using the Report Expert"
lalu centang opsi "Drill Down"



2.Set Data Source Koneksi ke dalam database nya menggunakan apa (sesuai dengan database yang anda gunakan)



3. Setelah keluar databasenya dan keluar tablenya maka pilih SALES, STORE & TITLE sebagai contoh untuk ditampilkan dalam Crystal Report



4. Grup Tab, grup tab di sini memiliki fungsi untuk mengkategorikan data



5. Total Tab, tab ini mempunyai fungsi untuk melakukan berbagai macam summary type seperti halnya sum, avg, dll seperti pada excel



6. Drill Tab, mempunyai fungsi dimana secara spesifik anda dapat menyembunyikan sementara dan dapat di lihat ketika di klik



7. Chart Tab, dalam fungsi ini anda dapat memilih tipe chart yang anda kehendaki, chart akan ditambahkan pada Data Source yang diminta dan bersifat dinamis sesuai dengan konsep drill down



8. Data Tab, dalam fungsi ini anda akan dihadapkan pada pilihan yang akan anda tampilkan pada chart yang mana merefleksikan keseluruhan laporan



semoga tambahan ini bisa membantu anda dalam memanipulasi Crystal Reports dan selamat mencoba

by

Wal

Crystal Report : Source Code Filter Inputan User

Nah kali ini saya mau share lagi bagi2 nah ini masih soal Filtering di Crystal Report nah kali ini maunya filter berdasarkan nama kolom dan tetap memakai combobox seperti pada ulasan saya sebelumnya di Filter Bulan dan Tahun

Lama langsung aja lah

baik lama ya? he3 oke ini yang anda butuhkan untuk percobaan kali ini
1. Combobox (1 buah) sebagai trigger pilihan nama kolom nya
2. CrystalReportViewer untuk menampilkan/menempelkan crystalreport pada form

Ok komponen udah jelas ini lalu ?

Ok kali ini yang mau saya buat case study nya adalah menampilkan id_Penjualan di Combobox lalu dari Value yang ada dari Combobox di klik maka akan langsung terjadi perubahan dan sedangkan Button untuk menampilkan semua data

Paham ? Koding Time

Imports System.Data.SqlClient
Public Class FormCR

Dim ds As New DataSet
Dim da As SqlDataAdapter
Dim xKoneksi as SqlConnection
Dim NewCR as new ReportPenjualan

Private Sub FormCR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Try
If xKoneksi.State=Connection.Open()
xKoneksi.Close()
End If
xKoneksi.ConnectionString="Data Source=NAMA_SERVER;Initial Catalog=NAMA_DATABASE;Integrated Security=True"
xKoneksi.Open()

Dim query As String
query="Select id_penjualan from Transaksi_Penjualan"
da=New SqlDataAdapter(query,xKoneksi)
da.Fill(ds,"TblAlias")

For i As Int32 = 0 To ds.Tables("TblAlias").Rows.Count - 1
Combobox1.Items.Add(ds.Tables("TblAlias").rows(i).Item(0).ToString
End For
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub

End Sub

Private Sub Combobox1_SelectedIndexChanged(Byval sender As System.Object, Byval e As System.EventArgs)Handles Combobox1.SelectedIndexChanged
Try
CrystalReportViewer1.ReportSource = NewCR
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = "{Transaksi_Penjualan.id_penjualan}='" & Combobox1.Text & "'"
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Sudah ? bagaimana pusing ?

Itu berarti anda sudah pada jalur yang tepat dan silahkan mencoba

by

WAL