Latihan_58_46110001

Object-object dalam Latihan_58_46110001  
1.      Object Label 
Terdapat dua object label yang bertuliskan rincian transaksi (latihan 50) berdasarkan harga, dan masukkan harga minimal yang akan di preview. 
2.      Object Button

Terdapat satu object button (preview) yang digunakan untuk menampilkan daftar barang latihan_50_46110001 di dalam latihan_53_46110001. 
3.      Script Unique
Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan latihan_58_46110001.
4.      Even 
view_46110001_Click 
·         Prosedur Penyelesaian
 
Langkah pertama dalam membuat form/ latihan 58 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_58_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_50_46110001, Application.StartupPath, "data report.accdb")

        latihan_53_46110001.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        latihan_53_46110001.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DTP1_46110001.Value.Month & "/" & DTP1_46110001.Value.Day & "/" & DTP1_46110001.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DTP2_46110001.Value.Month & "/" & DTP2_46110001.Value.Day & "/" & DTP2_46110001.Value.Year & "#"


        'Menampilkan form 53
        If latihan_53_46110001.Visible = False Then
            latihan_53_46110001.Show()
        Else
            latihan_53_46110001.Activate()
        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub DTP2_46110001_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTP2_46110001.ValueChanged

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub DTP1_46110001_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTP1_46110001.ValueChanged

    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 58 seperti dibawah ini :

Ø  Setelah menekan tombol debug maka tampilan latihan 58 sebagai berikut :

 

 

Ø  Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya dengan menampilkan jumlah error atau tampilan peringatan