Latihan_56_46110037

-->

Deskripsi Form Latihan 56

Terdapat 3 object yaitu Label, Textbox dan Button

Object Label

Terdapat 2 yaitu  Rincian Transaksi berdasarkan kode Barang dan Insert the Code will be Preview.

Object Textbox

Terdapat 1 textbox yaitu untuk menginput kode barang yang ingin dilihat

Object Button

Terdapat  1 Button yaitu Priviewyang ketika di click akan menampilkan report Latihan 50

Script Unique

Mengatur Filter

        LATIHAN_53_46110037.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & ISI_46110037.Text & "'"

Even

Click

Property

-

Langkah-Langkah Menjalankan Form Latihan 56 46110037

Click Start Debugging untuk menjalankan Script Latihan_56_46110037, masukkan kode barang yang ingin dilihat, click Preview untuk manampilkan laporan tersebut

Langkah-langkah Menyelesaikan Form Latihan 56 46110037

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_56_46110037) Label, textbox dan Button.
• Ganti nama Label, Textbox dan Button di properties-Name,
• Click Kanan pada design Latihan_56_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_56_46110037

    Private Sub View_46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LIAT_46110037.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim INNA As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = INNA.AturDatabase(New LATIHAN_50_46110037, Application.StartupPath, "data report.accdb")

        LATIHAN_53_46110037.CrystalReportViewer1.ReportSource = Laporan

        LATIHAN_53_46110037.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & ISI_46110037.Text & "'"

        If LATIHAN_53_46110037.Visible = False Then

            LATIHAN_53_46110037.Show()

        Else

            LATIHAN_53_46110037.Activate()

        End If

    End Sub

End Class

• Save dan Click Start Debugging untuk menjalankan form