Latihan_58_46110024

DESKRIPSI FORM LATIHAN 58

Form Latihan  ini Terdapat  tiga object yaitu label , Date Time Picker dan Button

Object Label

Dalam form latihan ini terdapat dua label yang bertuliskan “Rincian transaksi (latihan 50) berdasarkan kode barang" dan "Insert date will be preview"

Object Date Time Picker

Dalam form ini terdapat dua buah object date time picker yang berstatus input yang digunakan untuk menginput tanggal transaksi dan setelah di input maka program akan menampilkan laporan berdasarkan tanggal transaksi yang diinput.

  Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan preview, untuk menampilkan data report 

Script  Unique

Tidak terdapat script unik pada latihan ini

Even

Buttonclick

Langkah- Langkah Membuat Form Latihan  58

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2. Ganti nama sesuai dengan nama latihan58

3. Lalu pilih object yang ada di latihan58

4. Masukkan Script sebagai berikut

Public Class Latihan_58_46110024

    Private Sub View_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110024.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_46110024, Application.StartupPath, "DATA REPORT.mdb")

        Latihan_53_46110024.CrystalReportViewer1.ReportSource = Laporan

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


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

Langkah-Langkah Menjalankan Form Latihan  58

Untuk memudahkan pakailah navigator

Pilih tombol start debugging lalu pilih form Latihan 58, maka jendela Latihan 58 akan muncul 

Isi tanggal sesuai dengan perintah di datetimepicker sesuai dengan keinginan anda lalu tekan preview