Deskripsi form Latihan_55_46110003
Dalam form Latihan_55_46110003 terdapat dua object yaitu Label dan Button.
Dalam form Latihan_55_46110003 terdapat dua object yaitu Label dan Button.
Object Label :
Dalam form ini terdapat sebuah buah object label yang bertuliskan “Daftar Barang (Latihan_45_46110003)"
Dalam form ini terdapat sebuah buah object label yang bertuliskan “Daftar Barang (Latihan_45_46110003)"
Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “preview” dan “tambah”. Button ini digunakan untuk menampilkan data report yang terdapat di Latihan_45_46110003.
Dalam form ini terdapat sebuah object button yang bertuliskan “preview” dan “tambah”. Button ini digunakan untuk menampilkan data report yang terdapat di Latihan_45_46110003.
Script Unique :
Mengatur(Filter)
Latihan53_083.CRV.SelectionFormula = "{barang.kodebarang} = '" & isi.Text & "'"
Latihan53_083.CRV.SelectionFormula = "{barang.kodebarang} = '" & isi.Text & "'"
Even :
Button click
Langkah-langkah
penyelesaian form Latihan_55_46110003:
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_55_46110003
Private Sub view_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
preview_46110003.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_45_46110003, Application.StartupPath, "data report.accdb")
Latihan_53_46110003.CRV_46110003.ReportSource = Laporan
'Menampilkan
form 53
If
Latihan_53_46110003.Visible = False Then
Latihan_53_46110003.Show()
Else
Latihan_53_46110003.Activate()
End If
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar