latihan_60_46110023

Deskripsi Form Latihan_60_46110023

Form Latihan_60_46110023 terdapat 3 object yaitu  Label, Textbox dan Button

Objek Label

Terdapat 2 objek label yang bertuliskan N0.Transaksi dan Nama Kasir

Objek TextBox

Terdapat 2 objek textbox yang merupakan tempat penginputan No.Transaksi dan Nama Kasir

Objek Button

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

Scrib Unique

-

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_60_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_59_46110023, Application.StartupPath, "datareport.accdb")

        LATIHAN_53_46110023.CrystalReportViewer1.ReportSource = Laporan

        'mengatur nilai parameter

        Laporan.SetParameterValue("nama", NAMA_46110023.Text)

        'Mengatur(Filter)

        LATIHAN_53_46110023.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NOMOR_46110023.Text & "'"

        'Menampilkan for

        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_59_46110023

Deskripsi Latihan_59_46110023
Pada  latihan ini terdapat 3 object yaitu textobject, lineobject, dan Print Date 

Textobject 
Terdapat 5 textobject yang bertuliskan PT X, FAKTUR TRANSAKSI, Jumlah, Makassar, dan Manager Keuangan.  

Lineobject 
Lineobject berfunsi untuk membuat baris dan kolom pada main report 


Print Date
Terdapat 1 object print date tang berfungsi untuk menampilkan tanggal hari ini 

Langkah-langkah membuat latihan_59_46110023

1.    Buka file project yang telah ada

2.    Pilih Add New Item seperti pada gambar dibawah 

   

3.    Kemudian akan muncul halaman seperti dibawah ini, lalu ganti nama report pada kolom “name” lalu pilih add     

                                                                                                                                  

4.    Maka akn muncul halaman seperti ini, pilih as blank report 

5.    Maka halaman report yang baru akan tampil  

6.    Kemudian pada menu “field explorer”, klik kanan “database field” dan pilih “database expert”        

                                                                  

7.    kemudian akan muncul tampilan seperti di bawah ini. Setelah itu, pilih “tables” kemudian pilih data apa yang diperlukan dalam report yang akan dibuat, lalu bawa ke selected tables.  

8.    Desaignlah report seperti yang diinginkan, dengan cara tarik object databese expert yang ada pada database field. Kemudian desaign report dengan memberikan line object pada kolom dan baris.         

      

9.    Untuk melihat hasilnya, pilih “main report preview”, hasilnya seperti berikut

10.  Selesai

latihan_58_46110023

Deskripsi Form Latihan_58_46110023 

Form Latihan_58_46110023 terdapat 3 object yaitu  Label, Textbox dan Button

Objek Label

Terdapat 4 objek label yang bertuliskan "Rincian Transaksi (Latihan 50) berdasarkan Tanggal", "Insert the date will be preview", "Dari tanggal", dan "Sampai Tanggal"

Objek TextBox

Terdapat 2 objek textbox yang merupakan tempat penginputan tanggal, yang akan mencari data dari tanggal ... sampai tanggal ...

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

-

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_58_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, "datareport.accdb")

        LATIHAN_53_46110023.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)

        LATIHAN_53_46110023.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & dtp_46110023.Value.Month & "/" & dtp_46110023.Value.Day & "/" & dtp_46110023.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & dtp1_46110023.Value.Month & "/" & dtp1_46110023.Value.Day & "/" & dtp1_46110023.Value.Year & "#"

        '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_57_46110023

Deskripsi Form Latihan_57_46110023

Form Latihan_57_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

-

Even

click

Prosedur Penyelesaiaan 

1.    Buka project yang telah dibuat

2.    Klik kanan pada nama project yang ada pada solution explorer 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_57_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, "datareport.accdb")

        LATIHAN_53_46110023.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)

        LATIHAN_53_46110023.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & 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