Latihan_58_46110022
Deskripsi
Form Latihan_58_46110022
Dalam form ini terdapat 3 buah
object yaitu label, textbox dan button.
Object
Label
Terdapat 1 object label yaitu "rincian transaksi" dan "insert the price will be preview".
Object DateTimePicker
Object DateTimePicker
Dalam form ini
terdapat satu objek textbox yang di gunakan untuk
mengisi tanggal atau periode yang diinginkan pada latihan 50.
Object
Button
Terdapat sebuah objek button yaitu "preview" yang berfungsi untuk menjalankan rumus yang telah dibuat.
Script
Unique
Untuk Mengatur(Filter)
Latihan_53_46110022.CrystalReportViewer1.SelectionFormula =
"datevalue({mastertransaksi.tanggaltransaksi}) = #" & dtp146110022.Value.Month & "/" & dtp146110022.Value.Day
& "/" & dtp246110022.Value.Year & "#" &
"and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & dtp246110022.Value.Month & "/" & dtp246110022.Value.Day
& "/" & dtp246110022.Value.Year & "#"
Even
Click
Langkah-Langkah
Membuat Form Latihan 58_46110022
1. Buat form baru seperti
langkah berikut :
2. Input nama form pada kolom
yang tersedia, lalu klik "add" seperti berikut :
3. Buat desain form seperti
gambar berikut :
4. Input script di bawah ini :
Private Sub view46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view46110022.Click
Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
Laporan = botto.AturDatabase(New Latihan_50_46110022, Application.StartupPath, "data report.accdb")
Latihan_53_46110022.CrystalReportViewer1.ReportSource = Laporan
Latihan_53_46110022.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & dtp146110022.Value.Month & "/" & dtp146110022.Value.Day & "/" & dtp146110022.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & dpt246110022.Value.Month & "/" & dpt246110022.Value.Day & "/" & dpt246110022.Value.Year & "#"
If Latihan_53_46110022.Visible = False Then
Latihan_53_46110022.Show()
Else
Latihan_53_46110022.Activate()
End If
End Sub
End Class
5.
Jalankan program dengan cara
mengklik start debugging seperti berikut :
6. Setelah menekan start debug, maka akan
tampil hasil dari latihan 58 seperti berikut :
7. Setelah itu klik “preview” dan data report pada
Latihan_50_46110022 akan muncul seperti di bawah ini :
8. Selamat mencoba, semoga berhasil :)
Postingan
