Deskripsi & Prosedur Form Latihan_57_36110046
Deskripsi Form Latihan_57_36110046
Pada Form Latihan 57 terdapat
3 object, yaitu button, textbox dan label.
Object
Pada Form
Object Label
Terdapat 2
objek Label (seperti
terlihat gambar di atas)
Object Button
Terdapat 1 objek
Button (seperti terlihat gambar di atas)
Object Textbox
Terdapat 1 objek
Textbox (seperti terlihat gambar di atas)
Script Unique
-
Event
ButtonClick
Property
-
Prosedur Form Latihan_57_36110046
Langkah-langkah mengerjakan Latihan 57, sbb:
1.
Buka Ms. Visual Studio
2.
Klik Create Project
3.
Ketik nama file yang ingin disimpan
4.
Akan terbuka jendela pekerjaan Ms.
Visual Studio
5.
Design form dengan menggunakan tools
pada toolbox
6.
Buat
objek semua objek sesuai dengan design pada latihan 57 dengan toolbox, ikuti gambar
dibawah ini:
7.
Setelah design sudah bagus, saatnya
untuk membuat script
8.
Buat script prosedur sendiri seperti
dibawah ini:
Public Class Latihan_57_36110046
Private Sub
TB_36110046_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
TB_36110046.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_36110046,
Application.StartupPath, "data
report.accdb")
Latihan_53_36110046.CRV_36110046.ReportSource = Laporan
'Mengatur(Filter)
Latihan_53_36110046.CRV_36110046.SelectionFormula = "{detailtransaksi.harga} >=" &
TB_36110046.Text
'Menampilkan form 53
If Latihan_53_36110046.Visible = False Then
Latihan_53_36110046.Show()
Else
Latihan_53_36110046.Activate()
End If
End Sub
End Class
9. Silahkan jalankan
program anda. Wassalam.
Tidak ada komentar:
Posting Komentar