Latihan_58_46110045

Pada form latihan 58 ada 3 object yang digunakan yaitu Label, DateTimePicker dan Button..

Object Label

Pada form ini yang digunakan ada 2 “Rincian Transaksi (Latihan 50) berdasarkan Tanggal, Insert the date will be preview, Dari Tanggal dan Sampai Tanggal.

Object Button
  Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110045” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110045”.

Object DateTimePicker

Pada latihan 58 terdapat 2 datetimepicker. Datetimepicker digunakan dalam menginput data berupa tahun, bulan dan tanggal.

 

Even
ButtonClick

Langkah-Langkah membuat Form Latihan_58

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_58  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain menggunakan toolbox

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_58_46110045
    Private Sub View_46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110045.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New latihan_50_46110045, Application.StartupPath, "data report.accdb")

        Latihan_53_46110045.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110045.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DTP1_46110045.Value.Month & "/" & DTP1_46110045.Value.Day & "/" & DTP1_46110027.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DTP2_46110045.Value.Month & "/" & DTP2_46110045.Value.Day & "/" & DTP2_46110045.Value.Year & "#"


        'Menampilkan form 53
        If Latihan_53_46110045.Visible = False Then
            Latihan_53_46110045.Show()
        Else
            Latihan_53_46110045.Activate()
        End If
    End Sub
End Class

6.    Klik start debugging