Report Periodik (Filter Report)

1. Buat tampilan seperti form diatas.

2. Buat data environmen baru, dengan cara :

– Klik menu “Project”, pilih “Add Data Environment”,

– Rename “Connection1” dengan : “Koneksi”

– Klik kanan, pilih “Properties”, buat koneksi sesuai dengan database yang digunakan

– Klik kanan, pilih “Add Command”, klik kanan dan copy perintah SQL di bawah ini dan paste pada “SQL Statement”

SELECT id_alokasi, tgl_alokasi, id_it, id_inventaris, id_satuan, id_kondisi, id_lokasi, id_detail, id_detail_lain FROM alokasi ORDER BY id_lokasi

(Sesuaikan dengan tabel pada database, perintah SQL di atas hanya contoh)

3. Copy Source Code Berikut pada form :

Option Explicit
Dim tgl_alokasi As String
Dim Rs As ADODB.Recordset
Dim SQL As String

Private Sub CmdTampil_Click()
Dim SQL As String

SQL = “”
SQL = “SELECT id_alokasi, tgl_alokasi, ” _
& ” id_it, id_inventaris, ” _
& ” id_satuan, id_kondisi, ” _
& ” id_lokasi, id_detail, ” _
& ” id_detail_lain FROM alokasi WHERE ” _
& ” ((tgl_alokasi >= ” _
& ” ‘” & format(TxtTglAwal.Value, “yyyy-MM-dd”) & “‘) ” _
& ” And (tgl_alokasi <= ” _
& ” ‘” & format(TxtTglAkhir.Value, “yyyy-MM-dd”) & “‘ ))”

Set Rs = AdoConn.Execute(SQL)

If Rs.BOF Then
MsgBox “Maaf Alokasi Dengan Periode Tanggal ” _
& ” ” & format(TxtTglAwal.Value, “yyyy-MM-dd”) & ” ” _
& ” S/D ” _
& ” ” & format(TxtTglAkhir.Value, “yyyy-MM-dd”) & ” ” _
& ” Tidak Tersedia!”, vbInformation + vbOKOnly, “Information”
Else
Koneksi.Commands(2).CommandText = SQL
With CReport_PerAlokasi
With .Sections(“Section2”)
.Controls(“Label11″).Caption = ” Tanggal Cetak : ”
.Controls(“Label12″).Caption = ” ” & format(Date, “yyyy-MM-dd”)
.Controls(“Label13″).Caption = ” Tgl Alokasi : ”
.Controls(“label19″).Caption = (TxtTglAwal.Value) & ” ” _
& ” S/D ” _
& ” ” & (TxtTglAkhir.Value)

End With
.Refresh
.WindowState = 2
.Show
End With
End If
Unload Me
End Sub

Private Sub Form_Load()
Dim Lokasi As String
Lokasi = App.Path
Skin1.LoadSkin Lokasi + “\B-Studio.skn”
Skin1.ApplySkin hWnd

Move (Screen.Width – Width) / 2, _
(Screen.Height – Height) / 3

TxtTglAwal.Value = format(Date, “yyyy-MM-dd”)
TxtTglAkhir.Value = format(Date, “yyyy-MM-dd”)

End Sub

Private Sub mdClose_Click()
Unload Me
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: