latihan_56_46110023

Deskripsi Form Latihan_56_46110023

Form Latihan_56_46110023 terdapat 3 object yaitu  Label, Textbox dan Button

Objek Label

Terdapat 2 objek label yang bertuliskan "Rincian Transaksi (Latihan 50) berdasarkan Kode Barang" dan "Insert the Code will be preview"

Objek TextBox

Terdapat 1 objek textbox yang merupakan tempat penulisan kode barang yang ingin ditampilkan

Objek Button
Terdapat  1 objek button yang bertuliskan Preview yang apabilah ditekan maka akan menampilkan form latihan 53 yang berisikan data report dari latihan 50 

Scrib Unique

LATIHAN_53_46110023.CrystalReportViewer1.SelectionFormula =   "{barang.kodebarang} = '" & isi_46110023.Text & "'"

=>mengatur (filter) kode barang yang ingin ditampilkan

Even

click

Prosedur Penyelesaiaan 

1.    Buka project yang telah dibuat

2.    Klik menu project yang ada pada menubar dan Pilih windows form 

  

                                                    

3.    Ganti nama form sesuai dengan nama latihan 

4.    Buatlah form seperti gambar ini             

                                                                     

5.    Ganti nama pada semua objek kecuali objek label

6.    Masukkan rumus berikut :

Public Class LATIHAN_56_46110023

Private Sub View_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110023.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_46110023,Application. StartupPath,"data report.accdb")

 LATIHAN_53_46110023.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)

 LATIHAN_53_46110023.CrystalReportViewer1.SelectionFormula =   "{barang.kodebarang} = '" & isi_46110023.Text & "'"

        'Menampilkan form 53

        If LATIHAN_53_46110023.Visible = False Then

            LATIHAN_53_46110023.Show()

        Else

            LATIHAN_53_46110023.Activate()

        End If

    End Sub

End Class

7.    Uji program dengan mengklik debugging

8.    selesai

latihan_55_46110023

Deskripsi Form Latihan_55_46110023

Form Latihan_55_46110023 terdapat 2 object yaitu  Label dan Button

Objek Label

Terdapat satu objek label yang bertuliskan Data Barang (latihan 45)

Objek Button 
Terdapat  1 objek button yang bertuliskan Preview yang apabilah ditekan maka akan menampilkan form latihan 53 yang berisikan data report dari latihan 45

Scrib Unique

Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

   Laporan = botto.AturDatabase(New LATIHAN_45_46110023, Application. StartupPath, "data report.accdb")

=>mengatur lokasi dan nama database laporan 

Even

click

Prosedur Penyelesaiaan

1.   Buka project yang telah dibuat

2.   Klik menu project yang ada pada menubar dan Pilih windows form        

                                              

3.   Ganti nama form sesuai dengan nama latihan 

4.   Buatlah form seperti gambar ini     

                                                                          

5.   Ganti nama pada semua objek kecuali objek label

6.   Masukkan rumus berikut :

Public Class LATIHAN_55_46110023

    Private Sub view_46110023_Click(ByVal sender As System.Object, ByVal e As     System.EventArgs) Handles VIEW_46110023.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_46110023, Application. StartupPath, "data report.accdb")

   LATIHAN_53_46110023.CrystalReportViewer1.ReportSource = Laporan

        'Menampilkan form 53

        If LATIHAN_53_46110023.Visible = False Then

            LATIHAN_53_46110023.Show()

        Else

            LATIHAN_53_46110023.Activate()

        End If

    End Sub

End Class

7.    Uji program dengan mengklik debugging

8.   Selesai

latihan-54_46110023

Deskripsi Form Latihan_54_46110023

Form Latihan_54_46110023 terdapat 2 object yaitu  Label dan Button

Objek Label

Terdapat satu objek label yang bertuliskan Data Barang (latihan 45)

Objek Button 
Terdapat  1 objek button yang bertuliskan Preview yang apabilah ditekan maka akan menampilkan form latihan 53 yang berisikan data report dari latihan 45

Scrib Unique

 Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

 laporan = New LATIHAN_45_46110023
=> berfungsi untuk menghubungkan dengan CrystalReports

Even

click

Prosedur Penyelesaiaan

1.    Buka project yang telah dibuat

2.    Klik menu project yang ada pada menubar dan Pilih windows form    

                                                   

3.    Ganti nama form sesuai dengan nama latihan 

4.    Buatlah form seperti gambar ini      

                                                                         

5.    Ganti nama pada semua objek kecuali objek label

6.    Masukkan rumus berikut :

Public Class LATIHAN_54_46110023

    Private Sub view_46110023_Click(ByVal sender As System.Object, ByVal e  As System.EventArgs) Handles VIEW_46110023.Click

  Dim laporan As New CrystalDecisions.CrystalReports.Engine. ReportDocument

        laporan = New LATIHAN_45_46110023

        LATIHAN_53_46110023.CrystalReportViewer1.ReportSource = laporan

        If LATIHAN_53_46110023.Visible = False Then

            LATIHAN_53_46110023.Show()

        Else

            LATIHAN_53_46110023.Activate()

        End If

    End Sub

End Class

Uji program dengan mengklik debugging

7.    Selesai

latihan_53_46110023

Deskripsi Form Latihan_53_46110023

Form Latihan_53_46110023 hanya terdapat object CrystalReportViewer.

Object CrystalReportViewer

CrystalReportViewer berfungsi untuk menampilkan report yang telah dibuat sebelumnya.

Scrib Unique 

-

Even 

- 

Prosedur Penyelesaiaan 

1.    Buka project yang telah dibuat

2.    Klik menu project yang ada pada menubar dan Pilih windows form  

                                                     

3.    Ganti nama form sesuai dengan nama latihan 

4.    Buatlah form seperti gambar ini 

                                   

5.    selesai