Latihan_56_46110024

DESKRIPSI FORM LATIHAN 56

Form Latihan  ini Terdapat  tiga object yaitu label , textbox dan Button

Object Label

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

Object Textbox

Dalam form latihan ini terdapat satu textbox yang berstatus input yang digunakan untuk menginput kode barang dan setelah di input maka program akan menampilkan laporan berdasarkan kode barang yang diinput

  

Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan preview, untuk menampilkan data report 

Script  Unique

Mengatur(Filter)
        Latihan53_083.CRV.SelectionFormula = "{barang.kodebarang} = '" & isi.Text & "'"

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

Even

Buttonclick

Langkah- Langkah Membuat Form Latihan  56

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2. Ganti nama sesuai dengan nama latihan56

3. Lalu pilih object yang ada di latihan56

4. Masukkan Script sebagai berikut

Public Class Latihan_56_46110024

    Private Sub View_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110024.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_46110024, Application.StartupPath, "DATA REPORT.mdb")

        Latihan_53_46110024.CrystalReportViewer1.ReportSource = Laporan

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

        'Menampilkan form 53
        If Latihan_53_46110024.Visible = False Then
            Latihan_53_46110024.Show()
        Else
            Latihan_53_46110024.Activate()
        End If
    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan  56

Untuk memudahkan pakailah navigator

Pilih tombol start debugging lalu pilih form Latihan 56, maka jendela Latihan 56akan muncul 

Isi kode barang di text box sesuai dengan keinginan anda lalu tekan preview