LATIHAN_55_36110043

Latihan_55_36110043

DISKRIPSI

Pada latihan ini ada tiga object yang digunakan yaitu :

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_36110043 di dalam latihan_53_36110043.

C.      Script Unique

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

D.   Even

Button_Click

LANGKAH-LANGKAH

1.      BUKA  Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft Visual Studio 2008

2.      Click icon "Add new Item" 

 

3.      Pilih Windows Form, lalu isi Name dengan Nama Latihan._55_36110043 dan click add

 

4.      Buat design Form sesuai dengan Form diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}

5.       Ganti nama setiap object kecuali Label menggunakan "Properties Window"

6.       Klik 2x pada design form yang telah dibuat  untuk membuka lembar Scripnya.

7.       Masukkkan Scrip di bawah ini..

Public Class latihan_55_36110043

    Private Sub view_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_36110043.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_45_36110043, Application.StartupPath, "data report.accdb")

        latihan_53_36110043.crv_36110043.ReportSource = Laporan

        'Menampilkan form

        If latihan_53_36110043.Visible = False Then

            latihan_53_36110043.Show()

        Else

            latihan_53_36110043.Activate()

        End If

    End Sub

End Class

8.      Jalankan program dengan menggunakan  “start debugging”

 

9.      Klik save untuk menyimpan Form INI…….