Posted by : Debugers Debug Jumat, 14 Desember 2012

Berikut langkah-langkah untuk membuat laporan :
  1. Buat data environment di visual basic
  2. Buat laporan dengan menggunakan data report
Selanjutnya buat form untuk menampilkan laporan yang dibuat tadi seperti gambar berikut ini :

Selanjutnya ketikkan coding berikut ini untuk pada halaman coding editor
Koneksi Database
Private Sub Form_Load()
Me.Dlap.DatabaseName = App.Path + "\MyDatabase.mdb"
Me.txtnota.Enabled = False
Me.ccari.Enabled = False
Me.Dp1.Enabled = False
Me.Dp2.Enabled = False
Me.Dp1.Value = Date
Me.Dp2.Value = Date
End Sub
Menampilkan Laporan

Private Sub CTampil_Click()

'A. Menampilkan Per Periode
If Me.opt3.Value = True Then
de1.Commands(4).CommandText = "
select jual.nota, jual.tgl, jual.kasir, subjual.nota, subjual.kdbar, subjual.nmbar,
subjual.harga, subjual.jml, subjual.subtotal from jual, subjual
where jual.nota = subjual.nota
and jual.tgl between #" & Me.Dp1.Value & "# and #" & Me.Dp2.Value & "#"

Lap_Penjualan.Refresh
Lap_Penjualan.Show
'B. Menampilkan Laporan Per Nota
ElseIf Me.Opt2.Value = True Then
de1.Commands(4).CommandText = "
select jual.nota, jual.tgl, jual.kasir, subjual.nota, subjual.kdbar, subjual.nmbar,
subjual.harga, subjual.jml, subjual.subtotal from jual, subjual
where jual.nota = subjual.nota
and subjual.nota = '" + Me.txtnota.Text + "'"

Lap_Penjualan.Refresh
Lap_Penjualan.Show
'C. Menampilkan Semua Laporan Penjualan
Else
Lap_Penjualan.Refresh
Lap_Penjualan.Show
End If
End Sub
Tuk kali ini sekian dulu semoga bermamfaat dan sampai jumpa lagi di episode selanjutnya debugdebugers.blogspot.

Leave a Reply

Subscribe to Posts | Subscribe to Comments

Welcome to My Blog

Popular Post

About

LINK SOBAT

Tips, Triks AdSense, Tutorial Blog, Free Download E-Book, Bisnis Penghasil Dollar, cara buka Paypal/Alertpay, tips google adsense, bisnis internet, pusat bisnis online, pulsamurah

COBADIBACA.COM

- Copyright © Debugers -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -