Latihan_56_46110002

Deskripsi Form Latihan 56

Pada form latihan 56 ada 3 object yang digunakan yaitu Label, Textbox dan Button.

Object Label

Pada form ini yang digunakan ada 2 “Rincian Transaksi (Latihan 50) berdasarkan Kode Barang dan Insert the Code will be preview”.

Object TextBox                                                             

Terdapat 1 textbox berstatus input, yang digunakan dalam menginput data berupa kode.

Object Button                                                                

Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110007” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110007”.

Even

ButtonClick

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_46110002, Application.StartupPath, "datareport.accdb")

 

Langkah-Langkah Penyelesaian Form Latihan_56
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

 

·  Ketik nama form "Latihan_56_46110002" pada name kemudian click add 

·  Buat form seperti berikut 

   

       

·         Setelah itu beri teks pada button dan label.

·         Kemudian beri nama pada button dan textbox

·  Setelah form selesai masukkan rumus seperti dibawah ini 

Public Class Latihan_56_46110002
    Private Sub View_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110002.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_46110002, Application.StartupPath, "data report.accdb")

        Latihan_53_46110002.CrystalReportViewer1.ReportSource = Laporan

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

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

 

Langkah-Langkah Menjalankan Form Latihan 56

1.         klik  Start Debugging

2.      Setelah form muncul, input data berupa kode pada textbox yang tersedia.

3.   Kemudian klik “Preview” dan form “Latihan_53_46110002” yang berisi Rincian Transaksi berdasarkan “Latihan_50_46110002” akan muncul.

            4.      Selamat mencoba