Membuat Laporan Harian Dengan Crystal Report

Catatan :
Anda harus membuat database yang terdiri dari tabel Barang, Penjualan dan detailjual
yang semuanya telah berisi data hasil transaksi
Buatlah laporan dengan bentuk seperti gambar di bawah ini dan simpan dengan nama
Lap Jual Harian

Catatan :
Bentuk laporan ini dirancang dengan menggabungkan nama barang yang sama, sehingga
tidak akan muncul nama barang berkali-kali.
Hasil laporan jika program dijalankan akan terlihat seperti gambar di bawah ini

Buatlah form seperti gambar di bawah ini (jangan lupa tambahkan objek Crystal report ke

dalam form kemudian mengganti namanya menjadi CR)

Coding:

Dim Conn As New ADODB.Connection

Dim RSPenjualan As New ADODB.Recordset

Sub Koneksi()

Set Conn = New ADODB.Connection

Set RSPenjualan = New ADODB.Recordset

Conn.Open "provider=microsoft.jet.oledb.4.0;data source = " & App.Path

& "\dbjual.mdb"

End Sub

Private Sub Form_Load()

Call Koneksi

RSPenjualan.Open "select distinct tanggal from penjualan order by 1",

Conn

Combo1.Clear

Do While Not RSPenjualan.EOF

Combo1.AddItem RSPenjualan!Tanggal

RSPenjualan.MoveNext

Loop

End Sub

Private Sub Combo1_Click()

CR.SelectionFormula = "Totext({Penjualan.Tanggal})='" &

CDate(Combo1) & "'"

CR.ReportFileName = App.Path & "\Lap Jual Harian.rpt"

CR.WindowState = crptMaximized

CR.RetrieveDataFiles

CR.Action = 1

End Sub

Milan Tomic

Hi. I’m Designer of Blog Magic. I’m CEO/Founder of ThemeXpose. I’m Creative Art Director, Web Designer, UI/UX Designer, Interaction Designer, Industrial Designer, Web Developer, Business Enthusiast, StartUp Enthusiast, Speaker, Writer and Photographer. Inspired to make things looks better.