Latihan_58_46110002

Deskripsi Form Latihan 58

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 DateTimePicker

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

Object Button                                                                

Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110002” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110002”.

Even

ButtonClick

Script Unique

Tidak ada script unique pada latihan ini.

Langkah-Langkah Penyelesaian Form  Latihan_58
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

 

·  Ketik nama form "Latihan_58_46110002" pada name kemudian click add 

·  Buat form seperti berikut 

       

   

·         Setelah itu beri teks pada button dan label.

 

·         Kemudian beri nama pada button dan datetimepicker

·  Setelah form selesai masukkan rumus seperti dibawah ini 

Public Class Latihan_58_46110002
    Private Sub View_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110002.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_46110002, Application.StartupPath, "data report.accdb")

        Latihan_53_46110002.CrystalReportViewer1.ReportSource = Laporan

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


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

Langkah-Langkah Menjalankan Form Latihan 58

1.     Klik Start Debugging

2.      Setelah form muncul, input data berupa tanggal, bulan dan tahun pada textbox yang tersedia.

3.  Kemudian klik “Preview” dan form “Latihan_53_46110002” yang berisi Rincian Transaksi berdasarkan “Latihan_50_46110002” akan muncul.

4.      Selamat mencoba.