LATIHAN_56_36110043

Latihan_56_36110043

DISKRIPSI

A.      Object Label

Terdapat dua object label yang bertuliskan rincian transaksi (latihan 50) berdasarkan kode barang, dan masukkan kode barang yang akan di preview.

B.       Object Button

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

C.      Script Unique

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

D.      Even

Button1_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._56_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_56_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_50_36110043, Application.StartupPath, "DATA REPORT.accdb")

        latihan_53_36110043.crv_36110043.ReportSource = Laporan

        'Mengatur(Filter)

        latihan_53_36110043.crv_36110043.SelectionFormula = "{barang.kodebarang} = '" & label_36110043.Text & "'"

        'Menampilkan form 53

        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…….