Deskripsi dan Prosedur Latihan_58_36110039

Deskripsi latihan_58_36110039:

A.           Object Label

Terdapat tiga object label yang bertuliskan rincian transaksi (latihan 50) berdasarkan tanggal, dari tanggal, dan hingga tanggal.

B.            Object DateTimePicker

Terdapat dua object datetimepicker yang digunakan untuk menampilkan tanggal transaksi.

C.           Object Button 

Terdapat satu object button (preview) yang digunakan untuk menampilkan daftar barang latihan_50_36110039 di dalam latihan_53_36110039.

D.           Script Unique

                           Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan latihan_58_36110039.

E.            Even

        PREVIEW_36110039_Click

PROSEDUR PENYELESAIAN:

 1.          Buka project yang telah dibuat, dan buka solution explorer

 2.          Klik  kanan nama project ==> add ==> new item

         

   

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

           

4.       Kemudian buat form seperti dibawah ini: 

                       

5.      Setelah design form selesai  dibuatlah rumusnya, Berikut adalah  rumus untuk     menjalankan  latihan_58_36110039.

Public Class Latihan_58_36110039

    Private Sub PREVIEW_36110048_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PREVIEW_36110048.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'Mengatur lokasi dan nama database laporan

        Dim x As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = x.AturDatabase(New Latihan_50_36110039, Application.StartupPath, "Data Report.accdb")

        'Mengisi report source

        Latihan_53_36110039.CRV_36110039.ReportSource = Laporan

        'Mengatur filter

        Latihan_53_36110039.CRV_36110039.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DARI_36110048.Value.Month & "/" & DARI_36110048.Value.Day & "/" & DARI_36110048.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & HINGGA_36110048.Value.Month & "/" & HINGGA_36110048.Value.Day & "/" & HINGGA_36110048.Value.Year & "#"

        'Menampilkan form lain

        If Latihan_53_36110039.Visible = False Then

            Latihan_53_36110039.Show()

        Else

            Latihan_53_36110039.Activate()

            Latihan_53_36110039.WindowState = FormWindowState.Normal

        End If

    End Sub

End Class

6.    Setelah rumus selesai, program dijalankan dengan menggunakan start debugging.