Latihan_58_46110055

Deskripsi Form Latihan 58

Pada 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 Priviewyang ketika di click akan menampilkan report Latihan 50 berdasarkan tanggal

Script Unique
Tidak ada script unique pada latihan ini.

Even
Click

Property
-

Langkah-langkah Membuat Form Latihan 58 :

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 58”

6. Setelah itu beri teks pada label,DateTimePicker dan Button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.
7. Pilih menu “view” klik  “code”.
8. Masukkan rumus/script berikut :

Public Class Latihan_58_46110055

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

        Latihan_53_46110055.CrystalReportViewer1.ReportSource = Laporan

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


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

9. klik start Debugging