Latihan_60_46110043

Deskripsi Form Latihan 60
Terdapat 3 object yaitu Label, Textbox dan Button
Object Label
Terdapat 2 yaitu  Rincian Transaksi berdasarkan harga dan Insert the Price will be Preview.
Object Textbox
Terdapat 2 textbox yaitu No. Transaksi dan Nama Kasir
Object Button
Terdapat  1 Button yaitu Priview yang ketika di click akan menampilkan report Latihan 59 berdasarkan Nomor Transaksi dan akan Menampilkan Nama Kasir


Script Unique
Mengatur Nilai Parameter
 Laporan.SetParameterValue("nama", kasir46110043.Text)
Even
Click
Property
-

Langkah-Langkah Menjalankan Form Latihan 60 46110043
Click Start Debugging untuk menjalankan Script Latihan_60_46110043

Langkah-langkah Menyelesaikan Form Latihan 60 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_60_46110043) Label, Textbox dan Button.
Ganti nama Label, Textbox dan Button di properties-Name,
Click Kanan pada design Latihan_60_46110043 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class Latihan_60_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_59_46110043, Application.StartupPath, "datareport.accdb")

        Latihan_53_46110043.CrystalReportViewer1.ReportSource = Laporan

        Laporan.SetParameterValue("nama", kasir46110043.Text)

        Latihan_53_46110043.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & transaksi46110043.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