Latihan_60_46110024

DESKRIPSI FORM LATIHAN 60

 

Form Latihan  ini Terdapat  tiga object yaitu label , Textbox dan Button

 

Object Label

Dalam form latihan ini terdapat dua label yang bertuliskan“No.Transaksi" dan "Nama Kasir"

 

Object Textbox

Dalam form ini terdapat dua buah buah object textbox yang berstatus input yang digunakan untuk menginput No. Transaksi dan Nama Kasir. Setelah di input maka program akan menampilkan laporan berdasarkan No. Transaksi yang diinput dan di laporan yang ditampilakan akan terinput nama kasir.

  Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan preview, untuk menampilkan data report 

Script  Unique

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

 

Even

Buttonclick

 

Langkah- Langkah Membuat Form Latihan  60

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2. Ganti nama sesuai dengan nama latihan 60

3. Lalu pilih object yang ada di latihan 60

4.Buat form sampai menghasilkan form seperti di bawah ini

 

 

 5. Masukkan Script sebagai berikut

Public Class Latihan_60_46110024

    Private Sub View_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110024.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_46110024, Application.StartupPath, "DATA REPORT.mdb")

        Latihan_53_46110024.CrystalReportViewer1.ReportSource = Laporan

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

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

        'Menampilkan for
        If Latihan_53_46110024.Visible = False Then
            Latihan_53_46110024.Show()
        Else
            Latihan_53_46110024.Activate()
        End If
    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan  60

Untuk memudahkan pakailah navigator

Pilih tombol start debugging lalu pilih form Latihan 60, maka jendela Latihan_60_46110024 akan muncul

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