Deskripsi dan Prosedur Latihan_55_36110039

Deskripsi latihan_55_36110039:

A.           Object Label

Terdapat satu object label yang bertuliskan daftar barang (latihan 45).

B.            Object Button

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

C.           Script Unique

         Untuk script unique dapat dilihat pada prosedur menjalankan latihan_55_36110039.

D.           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_55_36110039.

                  Public Class Latihan_55_36110039

    Private Sub PREVIEW_36110039_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PREVIEW_36110039.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim x As New ByIskandar.MengaturDataBaseCrystalReport

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

        Latihan_53_36110039.CRV_36110039.ReportSource = Laporan

        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.