latihan_56_46110004

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

Object Label :
Dalam form ini terdapat dua buah object label yang bertuliskan “Rincian transaksi (latihan 50) berdasarkan kode barang" dan "Insert the code will be preview"

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

Object Textbox:

Dalam form ini terdapat sebuah buah object textbox yang berstatus input yang digunakan untuk menginput kode barang dan setelah di input maka program akan menampilkan laporan berdasarkan kode barang yang diinput.

Script Unique :

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

Even :
Button click

Langkah-langkah penyelesaian form latihan 56

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_56_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

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

        latihan_53_46110004.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        latihan_53_46110004.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & isi_46110004.Text & "'"

        'Menampilkan form 53
        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 56 seperti dibawah ini :

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

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