Latihan_60_46110041

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 yaituNo. Transaksi dan Nama Kasir

Object Button

Terdapat  1 Button yaitu Priviewyang ketika di click akan menampilkan report Latihan 59 berdasarkan Nomor Transaksi dan akan Menampilkan Nama Kasir

Script Unique

Mengatur Nilai Parameter

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

Even

Click

Langkah-Langkah Menjalankan Form Latihan_60_46110041

Click Start Debugging untuk menjalankan Script Latihan_60_46110041

Langkah-langkah Menyelesaikan Form Latihan_60_46110041

1.     Buka project yang telah dibuat.

2.     Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add

3.     Buat desain form sesuai yang diinginkan (Latihan_60_46110041) Label, Textbox dan Button.

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

5.     Click Kanan pada design Latihan_60_46110041 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_60_46110041

Private Sub View_46110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110041.Click

Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New LATIHAN_59_46110041, Application.StartupPath, "data report.accdb")

        LATIHAN_53_46110041.CrystalReportViewer1.ReportSource = Laporan

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

LATIHAN_53_46110041.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110041.Text & "'"

        If LATIHAN_53_46110041.Visible = False Then

            LATIHAN_53_46110041.Show()

        Else

            LATIHAN_53_46110041.Activate()

        End If

    End Sub

End Class

6.     Save dan Click Start Debugging untuk menjalankan form