Latihan_56_46110009

Deskripsi Penyelesaian

Latihan_56_46110009

A.     Objek dalam Form Latihan_56:

Object Label

Terdapat dua label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan kode barang dan Masukkan kode barang yang akan dipreview.

Object Text Box

Terdapat satu textbox status input digunakan untuk memasukkan nilai/text Kode Barang yang akan ditampilkan.

Object Button

Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan sesuai kode barang yang tertulis pada textbox kode_36110038 dengan melalui byIskandar.

B.     Even

FormLoad

Prosedur penyelesaian

1.       Buka Project yang telah dibuat sebelumnya klik Add New Item ==>  Add Windows Form

2.      Kemudian beri nama dan klik Add

3.      Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.      Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_56_46110009

    Private Sub preview_46110009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_46110009.Click

        Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport

        LAP = CARI.AturDatabase(New Latihan_50_46110009, Application.StartupPath, "DATA REPORT.ACCDB")

        Latihan_53_46110009.CRV.ReportSource = LAP

        Latihan_53_46110009.CRV.SelectionFormula = "{DETAILTRANSAKSI.KODEBARANG} = '" & kode_46110009.Text & "'"

        If Latihan_53_46110009.Visible = False Then

            Latihan_53_46110009.Show()

        Else

            Latihan_53_46110009.Activate()

            Latihan_53_46110009.WindowState = FormWindowState.Normal

        End If

    End Sub

End Class

5.      Setelah itu, jalankan programnya dengan menekan F5