latihan_55_46110004

Deskripsi form latihan 55
Dalam form Latihan 55 terdapat dua object yaitu Label dan Button.

Object Label :
Dalam form ini terdapat sebuah buah object label yang bertuliskan “Daftar Barang (Latihan 45)"

Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “preview” dan “tambah”. Button ini digunakan untuk menampilkan data report yang terdapat di latihan 45.

Script Unique :

Mengatur(Filter)
Latihan53_083.CRV.SelectionFormula = "{barang.kodebarang} = '" & isi.Text & "'"

Even :
Button click

Langkah-langkah penyelesaian form latihan 55

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_55_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_55_46110004

    Private Sub view_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110004.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New latihan_45_46110004, Application.StartupPath, "datareport.accdb")

        latihan_53_46110004.CrystalReportViewer1.ReportSource = Laporan

        'Menampilkan form 53
        If latihan_53_46110004.Visible = False Then
            latihan_53_46110004.Show()
        Else
            latihan_53_46110004.Activate()
        End If
    End Sub
End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini: