1. Object Label
Terdapat satu object label
yang bertuliskan daftar barang (latihan 45).
2. Object
Button
Terdapat satu object
button (preview) yang digunakan untuk menampilkan daftar barang latihan_45_46110001
di dalam latihan_53_46110001.
3. Script
Unique
Untuk script unique dapat dilihat pada Langkah-langkah
mengerjakan latihan_55_46110001.
4.
Even
view_46110001_Click
·
Prosedur Penyelesaian
Langkah
pertama dalam membuat form/ latihan 55 ialah, pada desktop anda, pilih
microsoft visual studio 2008.seperti pada langkah dibawah ini
·
Setelah
itu pilih file kemudian New setelah itu pilih project, maka akan muncul
tampilan seperti dibawah ini
·
Setelah
langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut
silahkan anda mengganti nama form sesuai dengan yang anda inginkan
·
atau
jika anda pernah membuat form sebelumnya, maka langkah selanjutnya yang perlu anda lakukan adalah hanya dengan
membuat buat form baru dengan memilih project kemudian pilih add windows form, seperti pada gambar dibawah
ini.
ØBuatlah form seperti gambar
dibawah ini
Ø Berikut ini adalah rumus untuk
menjalankan form di atas
Public Class latihan_55_46110001
Private Sub view_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110001.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_46110001, Application.StartupPath, "data report.accdb")
Latihan_53_46110001.CrystalReportViewer1.ReportSource = Laporan
'Menampilkan form 53
If Latihan_53_46110001.Visible = False Then
Latihan_53_46110001.Show()
Else
Latihan_53_46110001.Activate()
End If
End Sub
End Class
Private Sub view_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view_46110001.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_46110001, Application.StartupPath, "data report.accdb")
Latihan_53_46110001.CrystalReportViewer1.ReportSource = Laporan
'Menampilkan form 53
If Latihan_53_46110001.Visible = False Then
Latihan_53_46110001.Show()
Else
Latihan_53_46110001.Activate()
End If
End Sub
End Class
Ø langkah selanjutnya Jalankan
program dengan cara klik kanan pada project, lalu pilih Kumpulan_Latihan
46110001 properties, kemudian akan muncul tampilan seperti gambar dibawah ini:
Ø Setelah
mengatur startup form/ jika anda memiliki form navigator maka langkah yang
perlu anda lakukan adalah ganti nama startup dengan nama navigator yang telah
anda buat setelah itu, klik start debug untuk menjalankan form latihan 55
seperti dibawah ini :
Ø Setelah
menekan tombol debug maka tampilan latihan 55 sebagai berikut :
Ø Jika
terdapat kesalahan, maka program akan menunjukkan letak kesalahannya dengan
menampilkan jumlah error atau tampilan peringatan





0 komentar:
Posting Komentar