Deskripsi form
latihan 57
Dalam form Latihan 57 terdapat Tiga object yaitu Label, Textbox dan Button.
1.Buat form baru seperti gambar dibawah ini,
2. Ketikkan nama form latihan_57_xxxxx, lalu klik add
3. Buat form seperti gambar di bawah ini:
4. Setelah itu input script berikut ini :
Public Class latihan_57_46110004
Private Sub View_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110004.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_46110004, Application.StartupPath, "datareport.accdb")
latihan_53_46110004.CrystalReportViewer1.ReportSource = Laporan
'Mengatur(Filter)
latihan_53_46110004.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & isi_46110004.Text
'Menampilkan form 53
If latihan_53_46110004.Visible = False Then
latihan_53_46110004.Show()
Else
latihan_53_46110004.Activate()
End If
End Sub
End Class
5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:
6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 57 seperti dibawah ini :
7. Setelah menekan tombol debug maka tampilan latihan 57 sebagai berikut :
8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.
Dalam form Latihan 57 terdapat Tiga object yaitu Label, Textbox dan Button.
Object Label :
Dalam form ini terdapat dua buah object label yang bertuliskan “Rincian transaksi (latihan 50) berdasarkan harga" dan "Insert the price will be preview"
Dalam form ini terdapat dua buah object label yang bertuliskan “Rincian transaksi (latihan 50) berdasarkan harga" dan "Insert the price will be preview"
Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “preview”. Button ini digunakan untuk menampilkan data report yang terdapat di latihan 50.
Object Textbox:
Script Unique :
Pada latihan ini tidak terdapat script uniqueDalam form ini terdapat sebuah object button yang bertuliskan “preview”. Button ini digunakan untuk menampilkan data report yang terdapat di latihan 50.
Object Textbox:
Dalam form ini terdapat sebuah buah object textbox
yang berstatus input yang digunakan untuk menginput harga barang dan
setelah di input maka program akan menampilkan laporan berdasarkan harga
barang yang diinput.
Script Unique :
Even :
Button click
Button click
Langkah-langkah penyelesaian form latihan 57
1.Buat form baru seperti gambar dibawah ini,
2. Ketikkan nama form latihan_57_xxxxx, lalu klik add
3. Buat form seperti gambar di bawah ini:
4. Setelah itu input script berikut ini :
Public Class latihan_57_46110004
Private Sub View_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110004.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_46110004, Application.StartupPath, "datareport.accdb")
latihan_53_46110004.CrystalReportViewer1.ReportSource = Laporan
'Mengatur(Filter)
latihan_53_46110004.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & isi_46110004.Text
'Menampilkan form 53
If latihan_53_46110004.Visible = False Then
latihan_53_46110004.Show()
Else
latihan_53_46110004.Activate()
End If
End Sub
End Class
5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:
6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 57 seperti dibawah ini :
7. Setelah menekan tombol debug maka tampilan latihan 57 sebagai berikut :
8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.
Langganan:
Posting Komentar (Atom)







0 komentar:
Posting Komentar