Deskripsi
Form Latihan_56_46110038:
Form
Latihan_56_46110038 hanya terdapat 3 object yaitu Label, Textbox, dan Button.
Object Label
Di Latihan_56_46110038 ada 2
object label yang bertuliskan bertuliskan rincian transaksi (latihan 50)
berdasarkan kode barang, dan masukkan kode barang yang akan di preview.
Object TextBox
Di Latihan_56_46110038 ada dua object textbox yang
berstatus input.
Object Button
Di
Latihan_56_46110038 ada satu object button (preview) yang digunakan untuk
menampilkan daftar barang latihan50_36110047 di dalam latihan53_36110047.
Even
View46110038.Click
Cara
Membuat Form Latihan_60_46110038:
1.
Buka project yang telah dibuat.
2.
pilih Add New Item pada Microsoft Visual Studio 2005/ 2008
3.
Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.
4.
Kemudian buat form sesuai perintah.
5. Setelah
format untuk Latihan_60_46110038 sudah dibuat maka selanjutnya membuat
listing program pada jendela code:
Public Class Latihan_56_46110038
Private Sub View46110038_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles View46110038.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_46110038, Application.StartupPath, "datareport.accdb")
Latihan_53_46110038.CrystalReportViewer1.ReportSource = Laporan
'Mengatur(Filter)
Latihan_53_46110038.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" &
isi46110038.Text & "'"
'Menampilkan
form 53
If
Latihan_53_46110038.Visible = False Then
Latihan_53_46110038.Show()
Else
Latihan_53_46110038.Activate()
End If
End Sub
End Class
Untuk menjalankan Latihan_56_46110038, klik start
debugging untuk melihat apakah rumus tersebut
bisa terbaca atau tidak.
Tidak ada komentar:
Posting Komentar