Latihan_60_46110024

DESKRIPSI FORM LATIHAN 60

 

Form Latihan  ini Terdapat  tiga object yaitu label , Textbox dan Button

 

Object Label

Dalam form latihan ini terdapat dua label yang bertuliskan“No.Transaksi" dan "Nama Kasir"

 

Object Textbox

Dalam form ini terdapat dua buah buah object textbox yang berstatus input yang digunakan untuk menginput No. Transaksi dan Nama Kasir. Setelah di input maka program akan menampilkan laporan berdasarkan No. Transaksi yang diinput dan di laporan yang ditampilakan akan terinput nama kasir.

  Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan preview, untuk menampilkan data report 

Script  Unique

mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110004.Text)

 

Even

Buttonclick

 

Langkah- Langkah Membuat Form Latihan  60

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2. Ganti nama sesuai dengan nama latihan 60

3. Lalu pilih object yang ada di latihan 60

4.Buat form sampai menghasilkan form seperti di bawah ini

 

 

 5. Masukkan Script sebagai berikut

Public Class Latihan_60_46110024

    Private Sub View_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110024.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_46110024, Application.StartupPath, "DATA REPORT.mdb")

        Latihan_53_46110024.CrystalReportViewer1.ReportSource = Laporan

        'mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110024.Text)

        'Mengatur(Filter)
        Latihan_53_46110024.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110024.Text & "'"

        'Menampilkan for
        If Latihan_53_46110024.Visible = False Then
            Latihan_53_46110024.Show()
        Else
            Latihan_53_46110024.Activate()
        End If
    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan  60

Untuk memudahkan pakailah navigator

Pilih tombol start debugging lalu pilih form Latihan 60, maka jendela Latihan_60_46110024 akan muncul

Isi No.transaksi dan Nama Kasir di text box sesuai dengan keinginan anda lalu tekan preview

Latihan_59_46110024

DESKRIPSI FORM LATIHAN 59

 

Pada Latihan ini terdapat 3 object yaitu Text Object, Line Object, dan Box Object

Text Object

Terdapat  dua Text Object yang bertuliskan Latihan 59, PT.X,  Rincian Transaksi dengan menggunakan text objext ada toolbox.

Line Object

Dalam form ini digunakan untuk garis untuk membatasi kolom

Box  Object

  Dalam form ini Box Object digunakan untuk membuat kolom

Langkah- Langkah Membuat Form Latihan  59

  1. Buka Project yang anda telah buat sebelumnya

  2. Pilih menu Project =>Add Windows Form

 

   

     3. pilih categories “Reporting”, lalu templates “ Crystal Report”. Lalu ubah nama report sesuai dengan keinginan.

 

  4. Setelah itu akan muncul kotak dialog “Crystal Report Galleries”. Pilih as a blank report. Setelah itu tekan OK.

 

5. Setelah itu akan muncul main report. Pada Field Explorer pilih Database Fields kemudian Database Expert

 

 6.   Setelah muncul kotak dialog Database expert. Pilih create new connection. Lalu pilih OLE DB (ADO).

 

7. Kotak dialog OLE DB (ADO) akan muncul. setelah itu, pilih provider Microsoft office 12.0 access database engine OLE DB Prov. Kemudian tekan tombol next. 

 

 8. Kemudian, isi data source, berdasarkan dimana tempat database tersimpan. Lalu tekan next dan finish.

 

9. Kemudian pada dataexpert => create new connetion => OLE DB (ADO) akan muncul bebrapa table. Tapi, pada latihan ini pilih table Barang, Detail transaksi dan Master transaksi lalu tekan tanda > lalu ok. 

 

 

10.  Kemudian pilih seret kode barang, nama barang dari table barang dan notrans, unit, dan harga dari table detailtransaksi  tanggaltransaksi, jenistransaksi dan keterangan dari table mastertransaksi pada section 3 (details).

 

13.   Untuk membuat field total unit dan total jumlah  pada section 4, klik kanan field unit dan @jumlah   pada section 3 lalu pilih insert > summary. Pada calculate this summary pilih fungsi SUM lalu tekan OK. Setelah field terbuat seret pada section 4

 

 

Tampilan Latihan 59

Latihan_58_46110024

DESKRIPSI FORM LATIHAN 58

Form Latihan  ini Terdapat  tiga object yaitu label , Date Time Picker dan Button

Object Label

Dalam form latihan ini terdapat dua label yang bertuliskan “Rincian transaksi (latihan 50) berdasarkan kode barang" dan "Insert date will be preview"

Object Date Time Picker

Dalam form ini terdapat dua buah object date time picker yang berstatus input yang digunakan untuk menginput tanggal transaksi dan setelah di input maka program akan menampilkan laporan berdasarkan tanggal transaksi yang diinput.

  Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan preview, untuk menampilkan data report 

Script  Unique

Tidak terdapat script unik pada latihan ini

Even

Buttonclick

Langkah- Langkah Membuat Form Latihan  58

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2. Ganti nama sesuai dengan nama latihan58

3. Lalu pilih object yang ada di latihan58

4. Masukkan Script sebagai berikut

Public Class Latihan_58_46110024

    Private Sub View_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110024.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_46110024, Application.StartupPath, "DATA REPORT.mdb")

        Latihan_53_46110024.CrystalReportViewer1.ReportSource = Laporan

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


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

Langkah-Langkah Menjalankan Form Latihan  58

Untuk memudahkan pakailah navigator

Pilih tombol start debugging lalu pilih form Latihan 58, maka jendela Latihan 58 akan muncul 

Isi tanggal sesuai dengan perintah di datetimepicker sesuai dengan keinginan anda lalu tekan preview

Latihan_57_46110024

DESKRIPSI FORM LATIHAN 57

 

Form Latihan  ini Terdapat  tiga object yaitu label , textbox dan Button

 

Object Label

Dalam form latihan ini terdapat dua label yang bertuliskan “Rincian transaksi (latihan 50) berdasarkan kode barang" dan "Insert price will be preview"

 

Object Textbox

Dalam form ini terdapat sebuah buah object textbox yang berstatus input yang digunakan untuk menginput harga barang dan setelah di input maka program akan menampilkan laporan berdasarkan harga barang yang diinput.

  Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan preview, untuk menampilkan data report 

Script  Unique

Tidak terdapat script unik pada latihan ini
 

Even

Buttonclick

 

Langkah- Langkah Membuat Form Latihan  57

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2. Ganti nama sesuai dengan nama latihan57

3. Lalu pilih object yang ada di latihan57

4. Masukkan Script sebagai berikut

Public Class Latihan_57_46110024

    Private Sub View_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110024.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_46110024, Application.StartupPath, "DATA REPORT.mdb")

        Latihan_53_46110024.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110024.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & isi_46110024.Text

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

 

Langkah-Langkah Menjalankan Form Latihan  57

Untuk memudahkan pakailah navigator

Pilih tombol start debugging lalu pilih form Latihan 57, maka jendela Latihan 57 akan muncul 

 

Isi harga barang di text box sesuai dengan keinginan anda lalu tekan preview

Latihan_56_46110024

DESKRIPSI FORM LATIHAN 56

Form Latihan  ini Terdapat  tiga object yaitu label , textbox dan Button

Object Label

Dalam form latihan ini terdapat dua label yang bertuliskan “Rincian transaksi (latihan 50) berdasarkan kode barang" dan "Insert the code will be preview"

Object Textbox

Dalam form latihan ini terdapat satu textbox yang berstatus input yang digunakan untuk menginput kode barang dan setelah di input maka program akan menampilkan laporan berdasarkan kode barang yang diinput

  

Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan preview, untuk menampilkan data report 

Script  Unique

Mengatur(Filter)
        Latihan53_083.CRV.SelectionFormula = "{barang.kodebarang} = '" & isi.Text & "'"

mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New latihan_50_46110004, Application.StartupPath, "datareport.accdb")

Even

Buttonclick

Langkah- Langkah Membuat Form Latihan  56

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form

2. Ganti nama sesuai dengan nama latihan56

3. Lalu pilih object yang ada di latihan56

4. Masukkan Script sebagai berikut

Public Class Latihan_56_46110024

    Private Sub View_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110024.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_46110024, Application.StartupPath, "DATA REPORT.mdb")

        Latihan_53_46110024.CrystalReportViewer1.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110024.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & isi_46110024.Text & "'"

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

End Class

Langkah-Langkah Menjalankan Form Latihan  56

Untuk memudahkan pakailah navigator

Pilih tombol start debugging lalu pilih form Latihan 56, maka jendela Latihan 56akan muncul 

Isi kode barang di text box sesuai dengan keinginan anda lalu tekan preview