Membuat Laporan Harian di Visual Basic

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)

1. Dim Conn As New ADODB.Connection   
2. Dim RSPenjualan As New ADODB.Recordset   
3. Sub Koneksi()   
4. Set Conn = New ADODB.Connection   
5. Set RSPenjualan = New ADODB.Recordset   
6. Conn.Open "provider=microsoft.jet.oledb.4.0;data source = " & App.Path   
7. & "\dbjual.mdb"   
8. End Sub   
9.    
10. Private Sub Form_Load()   
11. Call Koneksi   
12. RSPenjualan.Open "select distinct tanggal from penjualan order by 1",   
13. Conn   
14. Combo1.Clear   
15. Do While Not RSPenjualan.EOF   
16. Combo1.AddItem RSPenjualan!Tanggal   
17. RSPenjualan.MoveNext   
18. Loop   
19. End Sub   
20.    
21. Private Sub Combo1_Click()   
22. CR.SelectionFormula = "Totext({Penjualan.Tanggal})='" &   
23. CDate(Combo1) & "'"   
24. CR.ReportFileName = App.Path & "\Lap Jual Harian.rpt"   
25. CR.WindowState = crptMaximized   
26. CR.RetrieveDataFiles   
27. CR.Action = 1   
28. End Sub   

Klik Like/share jika anda menyukai tulisan