Deskripsi Penyelesaian Latihan_58_36110041

Deskripsi Penyelesaian

Latihan_58_36110041

A.     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.

B.     Even

FormLoad

 

Prosedur penyelesaian

1.       Buka Project yang telah dibuat sebelumnya klik Add New Item ==>  Add Windows Form

       

2.      Kemudian beri nama dan klik Add

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

4.      Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_60_36110041

   

    Private Sub preview_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110041.Click

        Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport

        LAP = CARI.AturDatabase(New Latihan_59_36110041, Application.StartupPath, "DATA REPORT.ACCDB")

        LAP.SetParameterValue("RENA", nama_36110041.Text)

        Latihan_53_36110041.CRV.ReportSource = LAP

        Latihan_53_36110041.CRV.SelectionFormula = "{DETAILTRANSAKSI.NOTRANS} > " & notrans_36110041.Text

        If Latihan_53_36110041.Visible = False Then

            Latihan_53_36110041.Show()

        Else

            Latihan_53_36110041.Activate()

            Latihan_53_36110041.WindowState = FormWindowState.Normal

        End If

    End Sub

End Class

5.      Setelah itu, jalankan programnya dengan menekan F5