Latihan_59_46110022

05.09 by Unknown
Deskripsi Form Latihan_59_46110022
Dalam form ini terdapat 2 buah object yaitu text object  dan line object.

Text Object
Terdapat 9 buah text object yaitu (Latihan 59, PT X, Rincian transaksi, Nomor transaksi, Tgl transaksi, Jenis Transaksi, Keterangan, Makassar, Kasir).

Line Object
Line object berguna untuk membuat pada kolom dan baris pada report yang dibuat.

Langkah-Langkah Membuat Form Latihan 59 46110022

1     Buka form latihan yang telah dibuat sebelumnya.

2     Pilih menu project kemudian pilih add new item seperti berikut :



3      Kemudian akan muncul tampilan seperti di bawah ini, lalu tuliskan nama file report pada   kolom name lalu klik add seperti berikut :



4      Setelah itu akan muncul tampilan seperti berikut, pilih As a blank report seperti berikut :



5      Kemudian akan muncul tampilan seperti berikut :



6      Lalu, pada field explorer, klik kanan pada “database field” lalu pilih “database expert”,  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.


Dalam latihan ini menggunakan Group name fields yaitu :
Terdapat satu Group name fields (group #1 name) dimana group yang berdasarkan notrans berasal dari mastertransaksi dan detailtransaksi yang dimana Group name field diklik kanan lalu pilih Group Expert Lalu muncullah seperti ini :


7        Setelah “Database Fields” yang ada dalam “Fields Explorer” berisi data base yang telah
d   dipilih sebelumnya, buat “main report “ seperti berikut :



    Dalam menentukkan Harga Jual  yaitu :
> Field Harga : klik kanan pada field Harga pilih insert ==> summary. Setelah itu pada kotak Calculate this summary, pilih SUM. kemudian klik OK.


8       Setelah report selesai dibuat, lihat hasilnya pada “main report preview”, dan hasilnya seperti berikut :



9       Selamat mencoba, semoga berhasil :)







0 komentar

Latihan_60_46110022

05.00 by Unknown
Deskripsi Form Latihan_60_46110022
Dalam form ini terdapat 3 buah object yaitu label, textbox dan button.

Object Label
Terdapat 2 object label yaitu  "no. transaksi" dan "nama kasir".

Object Textbox
Dalam form ini terdapat satu objek textbox yang di gunakan untuk mengisi nomor transaksi dan nama kasir yang  diinginkan pada latihan 59.

Object Button
Terdapat sebuah objek button yaitu "preview" yang berfungsi untuk menjalankan rumus yang telah dibuat.


Script Unique

Untuk mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_59_46110022, Application.StartupPath, "data report.accdb")

Untuk mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110022.Text)
 
 
Even 

Click

Langkah-Langkah Membuat Form Latihan 60_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :




4. Input script di bawah ini :

Public Class Latihan_60_46110022

    Private Sub View46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View46110022.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_59_46110022, Application.StartupPath, "data report.accdb")

        Latihan_53_46110022.CrystalReportViewer1.ReportSource = Laporan

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

        Latihan_53_46110022.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & nama46110022.Text & "'"

        If Latihan_53_46110022.Visible = False Then
            Latihan_53_46110022.Show()
        Else
            Latihan_53_46110022.Activate()
        End If
    End Sub
End Class


     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 60 seperti berikut :




     7. Setelah itu  klik “preview” dan data report pada Latihan_59_46110022 akan muncul seperti di bawah ini :



    8. Selamat mencoba, semoga berhasil :)




0 komentar

Latihan_58_46110022

04.47 by Unknown
Deskripsi Form Latihan_58_46110022
Dalam form ini terdapat 3 buah object yaitu label, textbox dan button.

Object Label
Terdapat 1 object label yaitu  "rincian transaksi" dan "insert the price will be preview".

Object DateTimePicker
Dalam form ini terdapat satu objek textbox yang di gunakan untuk mengisi tanggal atau periode yang  diinginkan pada latihan 50.

Object Button
Terdapat sebuah objek button yaitu "preview" yang berfungsi untuk menjalankan rumus yang telah dibuat.


Script Unique

Untuk Mengatur(Filter)



        Latihan_53_46110022.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & dtp146110022.Value.Month & "/" & dtp146110022.Value.Day & "/" & dtp246110022.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & dtp246110022.Value.Month & "/" & dtp246110022.Value.Day & "/" & dtp246110022.Value.Year & "#"
Even 

Click

Langkah-Langkah Membuat Form Latihan 58_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :



4. Input script di bawah ini :

Public Class Latihan_58_46110022

    Private Sub view46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view46110022.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_50_46110022, Application.StartupPath, "data report.accdb")

        Latihan_53_46110022.CrystalReportViewer1.ReportSource = Laporan

        Latihan_53_46110022.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & dtp146110022.Value.Month & "/" & dtp146110022.Value.Day & "/" & dtp146110022.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & dpt246110022.Value.Month & "/" & dpt246110022.Value.Day & "/" & dpt246110022.Value.Year & "#"

        If Latihan_53_46110022.Visible = False Then
            Latihan_53_46110022.Show()
        Else
            Latihan_53_46110022.Activate()
        End If
    End Sub
End Class


     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 58 seperti berikut :




     7. Setelah itu  klik “preview” dan data report pada Latihan_50_46110022 akan muncul seperti di bawah ini :



    8. Selamat mencoba, semoga berhasil :)




0 komentar

Latihan_57_46110022

04.36 by Unknown
Deskripsi Form Latihan_57_46110022
Dalam form ini terdapat 3 buah object yaitu label, textbox dan button.

Object Label
Terdapat 1 object label yaitu  "rincian transaksi" dan "insert the price will be preview".

Object Textbox
Dalam form ini terdapat satu objek textbox yang di gunakan untuk mengisi kode barang yang  diinginkan pada latihan 50.

Object Button
Terdapat sebuah objek button yaitu "preview" yang berfungsi untuk menjalankan rumus yang telah dibuat.


Script Unique
 ___
Even 

Click

Langkah-Langkah Membuat Form Latihan 57_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :




4. Input script di bawah ini :

Public Class Latihan_57_46110022

    Private Sub view46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view46110022.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_50_46110022, Application.StartupPath, "data report.accdb")

        Latihan_53_46110022.CrystalReportViewer1.ReportSource = Laporan

        Latihan_53_46110022.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & tb46110022.Text

        If Latihan_53_46110022.Visible = False Then
            Latihan_53_46110022.Show()
        Else
            Latihan_53_46110022.Activate()
        End If
    End Sub
End Class


     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 57 seperti berikut :



     7. Setelah itu  klik “preview” dan data report pada Latihan_50_46110022 akan muncul seperti di bawah ini :



    8. Selamat mencoba, semoga berhasil :)




0 komentar

Latihan_56_46110022

04.29 by Unknown
Deskripsi Form Latihan_56_46110022
Dalam form ini terdapat 3 buah object yaitu label, textbox dan button.

Object Label
Terdapat 1 object label yaitu  "rincian transaksi" dan "insert the code will be preview".

Object Textbox
Dalam form ini terdapat satu objek textbox yang di gunakan untuk mengisi kode barang yang  diinginkan pada latihan 50.

Object Button
Terdapat sebuah objek button yaitu "preview" yang berfungsi untuk menjalankan rumus yang telah dibuat.


Script Unique

Untuk mengatur lokasi dan nama database laporan
                Dim ega As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_50_46110022, Application.StartupPath, "data report.accdb")

Untuk Menampilkan form 53
        If Latihan_53_46110022.Visible = False Then
            Latihan_53_46110022.Show()

Untuk Mengatur(Filter)
        Latihan_53_46110022.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & ISI_46110022.Text & "'"
Even
Click

Langkah-Langkah Membuat Form Latihan 56_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :



4. Input script di bawah ini :

Public Class Latihan_56_46110022

    Private Sub view46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles view46110022.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim ega As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = ega.AturDatabase(New Latihan_50_46110022, Application.StartupPath, "data report.accdb")

        Latihan_53_46110022.CrystalReportViewer1.ReportSource = Laporan

        Latihan_53_46110022.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & tb46110022.Text & "'"

        If Latihan_53_46110022.Visible = False Then
            Latihan_53_46110022.Show()
        Else
            Latihan_53_46110022.Activate()
        End If
    End Sub
End Class


     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 56 seperti berikut :




     7. Setelah itu  klik “preview” dan data report pada Latihan_50_46110022 akan muncul seperti di bawah ini :



    8. Selamat mencoba, semoga berhasil :)




0 komentar

Latihan_55_46110022

04.16 by Unknown
Deskripsi Form Latihan_55_46110022
Dalam form ini terdapat 2 buah object yaitu label dan button.

Object Label
Terdapat 1 object label yaitu  daftar barang(Latihan 54).

Object Button
Terdapat sebuah objek button yaitu "preview" yang berfungsi untuk menjalankan rumus yang telah dibuat.


Script Unique

Untuk mengatur lokasi dan nama database laporan
        Dim ega As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_45_46110022, Application.StartupPath, "data report.accdb")

Untuk Menampilkan form 53
        If Latihan_53_46110022.Visible = False Then
            Latihan_53_46110022.Show()
Even
Click

Langkah-Langkah Membuat Form Latihan 55_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :




4. Input script di bawah ini :

Public Class Latihan_55_46110022

    Private Sub preview46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview46110022.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim ega As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = ega.AturDatabase(New Latihan_45_46110022, Application.StartupPath, "data report.accdb")

        Latihan_53_46110022.CrystalReportViewer1.ReportSource = Laporan

        If Latihan_53_46110022.Visible = False Then
            Latihan_53_46110022.Show()
        Else
            Latihan_53_46110022.Activate()
        End If
    End Sub
End Class


     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 55 seperti berikut :



     7. Setelah itu  klik “preview” dan data report pada Latihan_45_46110022 akan muncul seperti di bawah ini :

   



    8. Selamat mencoba, semoga berhasil :)




0 komentar

Latihan_54_46110022

03.46 by Unknown
Deskripsi Form Latihan_54_46110022
Dalam form ini terdapat 2 buah object yaitu label dan button.

Object Label
Terdapat 1 object label yaitu  daftar barang(Latihan 54).

Object Button
Terdapat sebuah objek button yaitu "preview" yang berfungsi untuk menjalankan rumus yang telah dibuat.


Script Unique

Untuk menampilkan laporan yang ada pada Data Report :
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_45_46110022
Even
Click

Langkah-Langkah Membuat Form Latihan 54_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :



4. Input script di bawah ini :

Public Class Latihan_54_46110022

    Private Sub preview46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview46110022.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_45_46110022

        Latihan_53_46110022.CrystalReportViewer1.ReportSource = laporan

        If Latihan_53_46110022.Visible = False Then
            Latihan_53_46110022.Show()
        Else
            Latihan_53_46110022.Activate()
        End If
    End Sub
End Class


     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 54 seperti berikut :

     7. Setelah itu  klik “preview” dan data report pada Latihan_45_46110022 akan muncul seperti di bawah ini :

   


 

    8. Selamat mencoba, semoga berhasil :)




0 komentar
Langganan: Postingan (Atom)