Deskripsi
Form Latihan_60_46110038:
Form
Latihan_60_46110038 hanya terdapat 3 object yaitu Label, TextBox, dan Button.
Object Label
Di Latihan_60_46110038 ada 2
object label yang bertuliskan nomor transaksi dan nama kasir.
Object TextBox
Di Latihan_60_46110038 ada dua object textbox yang
berstatus input.
Object Button
Di
Latihan_60_46110038 ada satu object button (preview) yang digunakan untuk
menampilkan daftar barang latihan_59_46110038 di dalam latihan_53_46110038
berdasarkan nomor transaksi.
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_60_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_59_46110038, Application.StartupPath, "datareport.accdb")
Latihan_53_46110038.CrystalReportViewer1.ReportSource = Laporan
'mengatur
nilai parameter
Laporan.SetParameterValue("nama", NK46110038.Text)
'Mengatur(Filter)
Latihan_53_46110038.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" &
NT46110038.Text & "'"
'Menampilkan
for
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_60_46110038, klik start
debugging untuk melihat apakah rumus tersebut
bisa terbaca atau tidak.
Tidak ada komentar:
Posting Komentar