latihan_60_46110004

Deskripsi form latihan 60
Dalam form Latihan 60 terdapat Tiga object yaitu Label, Textbox dan Button.

Object Label :
Dalam form ini terdapat dua buah object label yang bertuliskan “No.Transaksi" dan "Nama Kasir"

Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “preview”. Button ini digunakan untuk menampilkan data report yang terdapat di latihan 59.

Object Textbox:

Dalam form ini terdapat dua buah buah object textbox yang berstatus input yang digunakan untuk menginput No. Transaksi dan Nama Kasir. Setelah di input maka program akan menampilkan laporan berdasarkan No. Transaksi yang diinput dan di laporan yang ditampilakan akan terinput nama kasir.

Script Unique :

mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110004.Text)

Even :
Button click

Langkah-langkah penyelesaian form latihan  60

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_60_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_60_46110004

    Private Sub View_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110004.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New latihan_59_46110004, Application.StartupPath, "datareport.accdb")

        latihan_53_46110004.CrystalReportViewer1.ReportSource = Laporan

        'mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110004.Text)

        'Mengatur(Filter)
        latihan_53_46110004.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110004.Text & "'"

        'Menampilkan for
        If latihan_53_46110004.Visible = False Then
            latihan_53_46110004.Show()
        Else
            latihan_53_46110004.Activate()
        End If
    End Sub
End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 60 seperti dibawah ini :

7. Setelah menekan tombol debug maka tampilan latihan 60 sebagai berikut :

8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.