Laihan_56_46110043

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 Priview yang ketika di click akan menampilkan report Latihan 50

Script Unique

Mengatur Filter

        Latihan_53_46110043.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & ISI46110043.Text & "'"

Even

Click

Property

-

Langkah-Langkah Menjalankan Form Latihan 56 46110043

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

Langkah-langkah Menyelesaikan Form Latihan 56 46110043

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_46110043) Label, textbox dan Button.

Ganti nama Label, Textbox dan Button di properties-Name,

Click Kanan pada design Latihan_56_46110043 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class Latihan_56_46110043

    Private Sub VIEW46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles VIEW46110043.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim hani As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = hani.AturDatabase(New Latihan_50_46110043, Application.StartupPath,"datareport.accdb")

        Latihan_53_46110043.CrystalReportViewer1.ReportSource = Laporan

        Latihan_53_46110043.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & ISI46110043.Text & "'"

        If Latihan_53_46110043.Visible = False Then

            Latihan_53_46110043.Show()

        Else

            Latihan_53_46110043.Activate()

        End If

    End Sub

End Class

Save dan Click Start Debugging untuk menjalankan form