Latihan_60_46110002

Deskripsi Form Latihan 60

Pada form latihan 60 ada 3 object yang digunakan yaitu Label, TextBox dan Button.

Object Label

Pada form ini yang digunakan ada 2 label “No. Transaksi dan Nama Kasir.

Object TextBox                                                             

Terdapat 2 textbox berstatus input, yang digunakan dalam menginput data berupa no. transaksi dan nama kasir.

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

mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110002.Text)

 

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

 

·  Ketik nama form "Latihan_60_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_60_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_59_46110002, Application.StartupPath, "data report.accdb")

        Latihan_53_46110002.CrystalReportViewer1.ReportSource = Laporan

        'mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110002.Text)

        'Mengatur(Filter)
        Latihan_53_46110002.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110002.Text & "'"

        'Menampilkan for
        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 Latihan60

1.       Klik Start Debugging

2.      Isi No.transaksi dan Nama Kasir di text box sesuai dengan keinginan anda lalu tekan preview

3.      Selamat mencoba