Latihan_58_46110043

Deskripsi Form Latihan 58
Terdapat 3 object yaitu Label, DateTimePicker dan Button
Object Label
Terdapat 2 yaitu  Rincian Transaksi berdasarkan harga dan Insert the Price will be Preview.
Object DateTimePicker
Terdapat 2 textbox yaitu Dari Tanggal dan Sampai Tanggal
Object Button
Terdapat  1 Button yaitu Priview yang ketika di click akan menampilkan report Latihan 50 berdasarkan tanggal


Script Unique
Tidak ada script unique pada latihan ini.
Even
Click
Property
-

Langkah-Langkah Menjalankan Form Latihan 58 46110043
Click Start Debugging untuk menjalankan Script Latihan_58_46110043

Langkah-langkah Menyelesaikan Form Latihan 58 46110043
Buka project yang telah dibuat.
Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
Buat desain form seperti gambar di atas (Latihan_58_46110043) Label, DateTimePicker dan Button.
Ganti nama LabelDateTimePicker dan Button di properties-Name,
Click Kanan pada design Latihan_58_46110043 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class Latihan_58_46110043

    Private Sub VIEW46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VIEW46110043.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim hani As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = hani.AturDatabase(New Latihan_50_46110043, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110043.CrystalReportViewer1.ReportSource = Laporan

        Latihan_53_46110043.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DATE46110043.Value.Month & "/" & DATE46110043.Value.Day & "/" & DATE46110043.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DATE246110043.Value.Month & "/" & DATE246110043.Value.Day & "/" & DATE246110043.Value.Year & "#"

        If Latihan_53_46110043.Visible = False Then
            Latihan_53_46110043.Show()
        Else
            Latihan_53_46110043.Activate()
        End If
    End Sub

End Class
Save dan Click Start Debugging untuk menjalankan form