Deskripsi Form Latihan 60
Terdapat 3 object yaitu Label, Textbox dan Button
Object Label
Terdapat 2 yaitu Rincian Transaksi berdasarkan harga dan Insert
the Price will be Preview.
Object Textbox
Terdapat 2 textbox yaituNo. Transaksi dan Nama Kasir
Object Button
Terdapat 1 Button yaitu
Priviewyang ketika di click akan menampilkan report Latihan 59 berdasarkan Nomor
Transaksi dan akan Menampilkan Nama Kasir
Script Unique
Mengatur Nilai Parameter
Laporan.SetParameterValue("nama", NK_46110037.Text)
Even
Click
Property
-
Langkah-Langkah Menjalankan Form Latihan
60 46110037
Click Start Debugging untuk menjalankan Script Latihan_58_46110037
Langkah-langkah
Menyelesaikan Form Latihan 60 46110037
- Buka project yang telah dibuat.
- Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form
kemudian ketik nama form yang diinginkan lalu click Add
- Buat desain form seperti gambar di atas (Latihan_60_46110037) Label, Textbox dan Button.
- Ganti nama Label, Textbox dan
Button di properties-Name,
- Click Kanan pada design Latihan_60_46110037 lalu pilih View Code kemudian buatlah Script seperti
dibawah ini:
Public Class LATIHAN_60_46110037
Private Sub
View_46110037_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
View_46110037.Click
Dim Laporan As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
Laporan =
botto.AturDatabase(New LATIHAN_59_46110037,
Application.StartupPath, "data
report.accdb")
LATIHAN_53_46110037.CrystalReportViewer1.ReportSource = Laporan
Laporan.SetParameterValue("nama",
NK_46110037.Text)
LATIHAN_53_46110037.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" &
NT_46110037.Text & "'"
If LATIHAN_53_46110037.Visible = False Then
LATIHAN_53_46110037.Show()
Else
LATIHAN_53_46110037.Activate()
End If
End Sub
End Class
- Save dan Click Start Debugging untuk menjalankan form
Tidak ada komentar:
Posting Komentar