Deskripsi Penyelesaian
Latihan_58_46110009
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_58_46110009
Private Sub
preview_46110009_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
preview_46110009.Click
Dim LAP
As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim
CARI As New
ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_50_46110009, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_46110009.CRV.ReportSource
= LAP
Latihan_53_46110009.CRV.SelectionFormula
= "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >=
#" & dari_46110009.Value.Month & "/"
& dari_46110009.Value.Day & "/"
& dari_46110009.Value.Year & "# AND {MASTERTRANSAKSI.TANGGALTRANSAKSI}
<= #" & hingga_46110009.Value.Month & "/" & hingga_36110038.Value.Day
& "/" & hingga_46110009.Value.Year
& "#"
If
Latihan_53_46110009.Visible = False Then
Latihan_53_46110009.Show()
Else
Latihan_53_46110009.Activate()
Latihan_53_46110009.WindowState =
FormWindowState.Normal
End If
End Sub
End Class
5.
Setelah itu, jalankan programnya dengan menekan F5
Tidak ada komentar:
Posting Komentar