Posted by : Unknown 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.

{ 3 komentar... read them below or Comment }

  1. gmna caranya buat langkah 1 dan 2 nya ???

    BalasHapus
  2. Beberapa rename objectnya gak jelas Gan. Lampirin index nya Gan, nuhun

    BalasHapus

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 -