Deskripsi dan Prosedur Latihan_60_36110039

Deskripsi latihan_60_36110039:

A.           Object Label

Terdapat dua object label yang bertuliskan nomor transaksi dan nama kasir.

B.            Object Textbox

         Terdapat dua object textbox yang berstatus input.

C.           Object Button

Terdapat satu object button (preview) yang digunakan untuk menampilkan daftar barang latihan_59_36110039 di dalam latihan_53_36110039 berdasarkan nomor transaksi.

D.           Script Unique

                   Untuk script unique dapat dilihat pada prosedur menjalankan latihan_60_36110039.

E.            Even  

PREVIEW_36110039_Click

PROSEDUR PENYELESAIAN:

 1.          Buka project yang telah dibuat, dan buka solution explorer

 2.          Klik  kanan nama project ==> add ==> new item

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

  

4.       Kemudian buat form seperti dibawah ini: 

                       

5.      Berikut adalah rumus untuk  menjalankan  latihan_60_36110039.

Public Class Latihan_60_36110039

    Private Sub PREVIEW_36110039_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PREVIEW_36110039.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim x As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = x.AturDatabase(New Latihan_59_36110039, Application.StartupPath, "Data Report.accdb")

        Laporan.SetParameterValue("NamaKasir", KASIR_36110048.Text)

        Latihan_53_36110039.CRV_36110039.ReportSource = Laporan

        Latihan_53_36110039.CRV_36110039.SelectionFormula = "{DetailTransaksi.Notrans} = '" & NO_36110048.Text & "'"

        If Latihan_53_36110039.Visible = False Then

            Latihan_53_36110039.Show()

        Else

            Latihan_53_36110039.Activate()

        End If

    End Sub

End Class

6.    Setelah rumus selesai, program dijalankan dengan menggunakan start debugging.