Rabu, 23 Januari 2013
LATIHAN_56_36110043
Latihan_56_36110043
DISKRIPSI
A.
Object Label
Terdapat dua object label yang
bertuliskan rincian transaksi (latihan 50) berdasarkan kode barang, dan
masukkan kode barang yang akan di preview.
B.
Object
Button
Terdapat
satu object button (preview) yang digunakan untuk menampilkan daftar barang
latihan_50_36110043 di dalam latihan_53_36110043.
C.
Script
Unique
Untuk script unique dapat dilihat pada Langkah-langkah
mengerjakan latihan_56_36110043.
D.
Even
Button1_Click
LANGKAH-LANGKAH
1.
BUKA
Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft
Visual Studio 2008
2.
Click icon "Add new Item"
3.
Pilih Windows Form, lalu isi
Name dengan Nama Latihan._56_36110043 dan click add
4.
Buat design Form sesuai dengan Form
diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan
ini.}
5.
Ganti nama setiap object kecuali
Label menggunakan "Properties Window"
6.
Klik 2x pada design form yang telah
dibuat untuk membuka lembar Scripnya.
7.
Masukkkan Scrip di bawah ini..
Public Class latihan_56_36110043
Private Sub View_36110043_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles View_36110043.Click
Dim
Laporan As New
CrystalDecisions.CrystalReports.Engine.ReportDocument
'mengatur
lokasi dan nama database laporan
Dim x As New
ByIskandar.MengaturDataBaseCrystalReport
Laporan = x.AturDatabase(New latihan_50_36110043, Application.StartupPath, "DATA REPORT.accdb")
latihan_53_36110043.crv_36110043.ReportSource
= Laporan
'Mengatur(Filter)
latihan_53_36110043.crv_36110043.SelectionFormula
= "{barang.kodebarang} = '" &
label_36110043.Text & "'"
'Menampilkan
form 53
If
latihan_53_36110043.Visible = False Then
latihan_53_36110043.Show()
Else
latihan_53_36110043.Activate()
End If
End Sub
End Class
8. Jalankan program dengan
menggunakan “start debugging”
9.
Klik save untuk menyimpan Form
INI…….
Langganan:
Postingan (Atom)