Latihan_60_46110020

Deskripsi Form Latihan_60_46110020

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

Object Label

Dalam form ini terdapat dua objek Label yang bertuliskan “No.Transsaksi dan Kasir”

Object TextBox

Dalam form ini terdapat Dua objek textbox yang di gunakan untuk mengisi No.transaksi dan Nama Kasir.

Object Button

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

Cara Membuat Form Latihan_60_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_60_46110020”

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

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

6. Lalu buatlah sesuai contoh latihan 60 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_60_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_59_46110020, Application.StartupPath, "data report.accdb")

        Latihan_53_46110020.CrystalReportViewer1.ReportSource = Laporan

        'mengatur nilai parameter

        Laporan.SetParameterValue("nama", NK_46110020.Text)

        'Mengatur(Filter)

        Latihan_53_46110020.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110020.Text & "'"

        'Menampilkan for

        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 _60_46110020

1.        Klik start debugging

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

3.      Setelah itu  klik “preview” dan data report pada Latihan_59_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_59_46110020, Application.StartupPath, "data report.accdb")

Untuk mengatur nilai parameter

        Laporan.SetParameterValue("nama", NK_46110020.Text)

Even

Click