Latihan_56_46110020

Deskripsi Form Latihan_56_46110020

Dalam form ini terdapat Dua object yaitu Label, TextBox dan Button.

Object Label

Dalam form ini terdapat dua objek Label yang bertuliskan “Rincian Transaksi (Latihan 50) berdasarkan kode barang dan Insert the code will be preview”.

Object TextBox

Dalam form ini terdapat satu objek textbox yang di gunakan untuk mengisi kode barang yang anda inginkan pda latihan 50.

Object Button

Dalam form ini terdapat satu objek Button yang bertuliskan “Preview”

Cara Membuat Form Latihan_56_46110020

1.        Buka project yang telah dibuat

2.      Klik kanan pada nama project yang ada pada solution explorer dan Pilih windows form  

    

                                              

3.   Lalu  ganti nama form sesuai dengan nama Latihan “Latihan_56_46110020”

4. Setelah namenya di rename pilih add lalu muncullah form seperti ini :

5. Kemudian mulailah membuat form 56 dengan mengunakan  Label, TextBox dan Button.

6. Lalu buatlah sesuai contoh latihan 56 maka akan menjadi seperti ini :

7. Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_56_46110020

    Private Sub View_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110020.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_46110020, Application.StartupPath, "data report.accdb")

        Latihan_53_46110020.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)

        Latihan_53_46110020.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & ISI_46110020.Text & "'"

        'Menampilkan form 53

        If Latihan_53_46110020.Visible = False Then

            Latihan_53_46110020.Show()

        Else

            Latihan_53_46110020.Activate()

        End If

    End Sub

End Class

8. Jalankan program dengan cara mengklik start debugging seperti berikut :

Langkah-Langkah Membuat Form Latihan _56_46110020

1.        Klik start debugging

2.      Maka data tersebut  akan tampil secara otomatis dan isilah kode barang yang anda inginkan  seperti di bawah :

3.      Setelah itu  klik “preview” dan data report pada Latihan_50_46110020 akan muncul seperti di bawah ini :

4.      Semoga Berhasil J

Script Unique

Untuk mengatur lokasi dan nama database laporan

                Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

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

Untuk Menampilkan form 53

        If Latihan_53_46110020.Visible = False Then

            Latihan_53_46110020.Show()

Untuk Mengatur(Filter)

        Latihan_53_46110020.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & ISI_46110020.Text & "'"

Even

Click