DESKRIPSI
FORM LATIHAN 57
Form Latihan
ini Terdapat tiga object yaitu label , textbox dan Button
Object Label
Dalam form latihan ini
terdapat dua label yang bertuliskan “Rincian transaksi (latihan 50) berdasarkan kode barang" dan "Insert price will be preview"
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.
Dalam form ini terdapat sebuah object button yang
bertuliskan preview, untuk menampilkan data report
Script
Unique
Tidak terdapat script unik pada latihan ini
Even
Buttonclick
Langkah-
Langkah Membuat Form Latihan 57
1.
Buka File Microsoft Visual Studio Anda
lalu pilih projectà Add windows form
2.
Ganti nama sesuai dengan nama latihan57
3.
Lalu pilih object yang ada di latihan57
4.
Masukkan Script sebagai berikut
Public Class Latihan_57_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_50_46110024, Application.StartupPath, "DATA REPORT.mdb")
Latihan_53_46110024.CrystalReportViewer1.ReportSource = Laporan
'Mengatur(Filter)
Latihan_53_46110024.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & isi_46110024.Text
'Menampilkan form 53
If Latihan_53_46110024.Visible = False Then
Latihan_53_46110024.Show()
Else
Latihan_53_46110024.Activate()
End If
End Sub
End Class
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_50_46110024, Application.StartupPath, "DATA REPORT.mdb")
Latihan_53_46110024.CrystalReportViewer1.ReportSource = Laporan
'Mengatur(Filter)
Latihan_53_46110024.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & isi_46110024.Text
'Menampilkan form 53
If Latihan_53_46110024.Visible = False Then
Latihan_53_46110024.Show()
Else
Latihan_53_46110024.Activate()
End If
End Sub
End Class
Untuk memudahkan pakailah navigator
Pilih tombol start debugging lalu pilih form Latihan 57, maka jendela Latihan 57 akan muncul




0 komentar:
Posting Komentar