Latihan_58_36110040

Deskripsi Penyelesaian
Latihan_58_36110040
Objek dalam Form Latihan_58:
Object Label
Terdapat tiga label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan tanggal, Dari Tanggal dan Hingga Tanggal.

Object Date TimePicker
Terdapat dua datetimepicker yang digunakan untuk memasukkan date/tanggal dari tanggal dan hingga tanggal.

Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan data rincian transaksi sesuai tanggal yang tertulis pada DateTimePicker dengan melalui byIskandar.

Even
FormLoad
Prosedur penyelesaian
 Buka Project yang telah dibuat sebelumnya klik Add New Item ==>  Add Windows Form

Kemudian beri nama dan klik Add


Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.


Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_58_36110040

    Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110040.Click
        Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport
        LAP = CARI.AturDatabase(New Latihan_50_36110040, Application.StartupPath, "DATA REPORT.ACCDB")

        Latihan_53_36110040.CRV.ReportSource = LAP

        Latihan_53_36110040.CRV.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & dari_36110040.Value.Month & "/" & dari_36110040.Value.Day & "/" & dari_36110040.Value.Year & "# AND {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & hingga_36110040.Value.Month & "/" & hingga_36110040.Value.Day & "/" & hingga_36110040.Value.Year & "#"

        If Latihan_53_36110040.Visible = False Then
            Latihan_53_36110040.Show()
        Else
            Latihan_53_36110040.Activate()
            Latihan_53_36110040.WindowState = FormWindowState.Normal
        End If
    End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5