LATIHAN_55_36110052

Latihan_55_36110052

A.    Object-object dalam Latihan_55_36110052

1.      Object label

Terdapat 1 object label yang bertuliskan DAFTARBARANG

2.      Object button

Terdapat 1 object button yang bertuliskan preview

B.     Script Unique

Untuk script, silahkan lihat selengkapnya pada Langkah-langkah kerja  latihan_55_36110052

B.     Even

PREVIEW_36110052_Click

Langkah-langkah kerja  latihan_55_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_55_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public Class LATIHAN_55_36110052

    Private Sub PREVIEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PREVIEW.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_36110052, Application.StartupPath, "Data Report.accdb")

        'Mengisi report source

        LATIHAN_53_36110052.VIA.ReportSource = Laporan

        'Menampilkan form lain

        If LATIHAN_53_36110052.Visible = False Then

            LATIHAN_53_36110052.Show()

        Else

            LATIHAN_53_36110052.Activate()

            LATIHAN_53_36110052.WindowState = FormWindowState.Normal

        End If

    End Sub

End Class

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI