PUSAT INFORMATIKA


Home » , , » Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic

Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic

#khusus artikel soal latihan
Untuk tetap menjaga setiap usaha belajar rekan-rekan menjawab setiap pertanyaan dari soal-soal dibawah, kunci jawaban hanya di share ke Group Follower dan Lingkaran G-Plus blog ini saja..

Semangat belajaar... ^_^

Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic 6.0


Untuk membuat sebuah laporan transaksi biasanya diperlukan sebuah kompabilitas tanggal. Kali ini penulis akan mencoba membahas bagaimana cara membuat laporan berdasarkan tanggal tertentu.
Dengan asumsi sebagai berikut :

Terdapat 3 jenis pencetakan, yaitu pertanggal, perperiode dan keseluruhan laporan transaksi.
untuk name dari masing masing objek, silahkan sesuaikan dengan listing berikut :

Private Sub proses_Click()
If pilih.Text = "Keseluruhan" Then
    DataEnvironment1.rspenjualan.Filter = ""
    lappenjualan.Sections("section4").Controls("akhir").Visible = False
    lappenjualan.Sections("section4").Controls("awal").Visible = False
    lappenjualan.Show
ElseIf pilih.Text = "Per Tanggal" Then
    DataEnvironment1.rspenjualan.Filter = "tgl ='" & tawal.Value & "'"
    lappenjualan.Sections("section4").Controls("awal").Caption = Format(tawal.Value, "dd MMMM yyyy")
    lappenjualan.Sections("section4").Controls("akhir").Visible = False
    lappenjualan.Refresh
    lappenjualan.Show
ElseIf pilih.Text = "Per Periode" Then
    DataEnvironment1.rspenjualan.Filter = "tgl >='" & tawal.Value & "' and tgl<= '" & takhir.Value & "'"
    lappenjualan.Sections("section4").Controls("awal").Caption = Format(tawal.Value, "dd MMMM yyyy")
    lappenjualan.Sections("section4").Controls("akhir").Caption = Format(takhir.Value, "dd MMMM yyyy")
    lappenjualan.Refresh
    lappenjualan.Show
Else
    MsgBox "silahkan pilih jenis pencetakan", vbCritical, "kesalahan cetak"
End If
End Sub

semoga bisa membantu...



Bagikan :

0 komentar:

Poskan Komentar

yuu.. kita budayakan berkomentar.. bersilaturahmi itu memperpanjang umur... ^_^

Incoming Search: , , , Membuat Laporan Berdasarkan Tanggal Tertentu Pada DataReport Visual basic

Pencarian

Penulis

Artikel terkait

Sponsor

Fanspage

Google+ Followers

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Pusat Informatika - All Rights Reserved
Template Modify by Creating Website
Proudly powered by Blogger