Latihan_58_46110038

Deskripsi Form Latihan_58_46110038:

Form Latihan_58_46110038 hanya terdapat 3 object yaitu Label, DataTimePicker, dan Button.

Object Label

Di Latihan_58_46110038  ada 4 object label yang bertuliskan rincian transaksi (latihan 50) berdasarkan tanggal, Insert the date will be preview, dari tanggal, dan hingga tanggal.

Object DateTimePicker

Di Latihan_58_46110038  ada dua object datetimepicker yang digunakan untuk menampilkan tanggal transaksi.

Object Button 

Di Latihan_58_46110038  ada satu object button (preview) yang digunakan untuk menampilkan daftar barang latihan_50_46110038 di dalam latihan_53_46110038.

Even

        View46110038.Click

Cara Membuat Form Latihan_58_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form sesuai perintah.

5.            Setelah format untuk Latihan_58_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

          Public Class Latihan_58_46110038

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

        Latihan_53_46110038.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)

        Latihan_53_46110038.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DTP146110038.Value.Month & "/" & DTP246110038.Value.Day & "/" & DTP146110038.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DTP246110038.Value.Month & "/" & DTP246110038.Value.Day & "/" & DTP246110038.Value.Year & "#"

        'Menampilkan form 53

        If Latihan_53_46110038.Visible = False Then

            Latihan_53_46110038.Show()

        Else

            Latihan_53_46110038.Activate()

        End If

    End Sub

End Class

Untuk menjalankan Latihan_58_46110038, klik start debugging untuk melihat apakah rumus tersebut bisa terbaca atau tidak.