Latihan 58

Deskripsi

1. objek datagridview
objek ini digunakan untuk menampilkan form latihan 53

2. objek datetimepicker
objek ini berfungsi untuk menginput tanggal yang akan disortir pada report yang ingin ditampilkan

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class latihan_58_46110008

    Private Sub View_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110004.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_46110008, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110008.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110008.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DTP1_46110008.Value.Month & "/" & DTP1_46110008.Value.Day & "/" & DTP1_46110008.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DTP2_46110008.Value.Month & "/" & DTP2_46110008.Value.Day & "/" & DTP2_46110008.Value.Year & "#"


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