Latihan_57_46110002

Deskripsi Form Latihan 57

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

Object Label

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

Object TextBox                                                             

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

Object Button                                                                

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

Even

ButtonClick

Script Unique

Tidak ada script unique pada latihan ini.

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

·  Ketik nama form "Latihan_57_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_57_4611002
    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 = "{detailtransaksi.harga} >=" & 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 57

1.      Klik Start Debugging

2.      Setelah form muncul, input data berupa harga 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