LATIHAN_55_36110042

Deskripsi Latihan_55_36110042

A.   Object-object dalam Latihan_55_36110042:

1.   Object Button

Terdapat satu object buttob (Preview) yang digunakan untuk menampilkan Latihan_45_36110042 di dalam Latihan_53_36110042.

2.   Object Label

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

B.   Script Unique

Untuk script, silahkan lihat selengkapnya pada Langkah-Langkah Latihan_55_36110042.

C.   Even

PREVIEW_36110042_Click

Langkah-Langkah Latihan_55_36110042

1.    Klik Start lalu pilih Microsoft Visual Studio 2008.

2.    Lalu akan muncul Start Page Microsoft Visual Studio 2008.

3.    Pilih Recent Project “Kumpulan_Latihan_36110042”

4.     Setelah terbuka, pilih icon Add New Item atau Ctrl+Shift+A

5.    Akan terbuka jendela Add New Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_55_36110042”

6.    Kemudian buat form sesuai dengan form di bawah ini.

7.     Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_55_36110042

    Private Sub PREVIEW_36110042_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PREVIEW_36110042.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim x As New ByIskandar.MengaturDataBaseCrystalReport

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

        Latihan_53_36110042.CRV_36110042.ReportSource = Laporan

        If Latihan_53_36110042.Visible = False Then

            Latihan_53_36110042.Show()

        Else

            Latihan_53_36110042.Activate()

            Latihan_53_36110042.WindowState = FormWindowState.Normal

        End If

    End Sub

End Class

8.    Setelah itu, jalankan programnya dengan klik Icon Start Debugging kemudian akan mucul form navigator dan klik Latihan 55.