Deskripsi Penyelesaian
Latihan_60_36110040
Objek dalam Form Latihan_60:
Object Label
Terdapat tiga label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan tanggal, Dari Tanggal dan Hingga Tanggal.
Object Date TimePicker
Terdapat dua datetimepicker yang digunakan untuk memasukkan date/tanggal dari tanggal dan hingga tanggal.
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan data rincian transaksi sesuai tanggal yang tertulis pada DateTimePicker dengan melalui byIskandar.
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_60_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110041.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_59_36110040, Application.StartupPath, "DATA REPORT.ACCDB")
LAP.SetParameterValue("RENA", nama_36110040.Text)
Latihan_53_36110040.CRV.ReportSource = LAP
Latihan_53_36110040.CRV.SelectionFormula = "{DETAILTRANSAKSI.NOTRANS} > " & notrans_36110040.Text
If Latihan_53_36110040.Visible = False Then
Latihan_53_36110040.Show()
Else
Latihan_53_36110040.Activate()
Latihan_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Senin, 28 Januari 2013
Latihan_59_36110040
Deskripsi Penyelesaian
Latihan_59_36110040
Objek dalam Form Latihan_59:
Form Latihan_59 terdapatdua object yaitu:
1. text object digunakan untuk menuliskan PT X, Faktur Transaksi, Nomor Transaksi, Tanggal, Jenis Transaksi dan Keterangan.
2. line object digunakan untuk membuat kolom dan baris pada report.
Database field berasal dari table Barang, Detail Transaksi dan Master Transaksi yang terdiri dari field Kode Barang, Nama Barang, Unit dan Harga dengan Keterangan:
Buat Grup Name Fields berdasarkan Nomor Transaksi.
Untuk membuat jumlah Harga, klik kanan pada kolom harga kemudian insert summary dengan memilih field DETAILTRANSAKSI.HARGA.
Gunakan Print Date pada Special field untuk menampilkan tanggal.
Buat Parameter fields untuk memasukkan nama kasir.
Prosedur Penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Pilih As a Blank Report
Masukkan jenis database yang ingin dimasukkan, klik kanan pada Database Fields yang ada dalam kotak Fields Explorer ==> pilih Database Expert
Buat tampilan Main Report
Setelah itu akan tampil Main Report Preview
Latihan_59_36110040
Objek dalam Form Latihan_59:
Form Latihan_59 terdapatdua object yaitu:
1. text object digunakan untuk menuliskan PT X, Faktur Transaksi, Nomor Transaksi, Tanggal, Jenis Transaksi dan Keterangan.
2. line object digunakan untuk membuat kolom dan baris pada report.
Database field berasal dari table Barang, Detail Transaksi dan Master Transaksi yang terdiri dari field Kode Barang, Nama Barang, Unit dan Harga dengan Keterangan:
Buat Grup Name Fields berdasarkan Nomor Transaksi.
Untuk membuat jumlah Harga, klik kanan pada kolom harga kemudian insert summary dengan memilih field DETAILTRANSAKSI.HARGA.
Gunakan Print Date pada Special field untuk menampilkan tanggal.
Buat Parameter fields untuk memasukkan nama kasir.
Prosedur Penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Pilih As a Blank Report
Masukkan jenis database yang ingin dimasukkan, klik kanan pada Database Fields yang ada dalam kotak Fields Explorer ==> pilih Database Expert
Buat tampilan Main Report
Setelah itu akan tampil Main Report Preview
Latihan_58_36110040
Deskripsi Penyelesaian
Latihan_58_36110040
Objek dalam Form Latihan_58:
Object Label
Terdapat tiga label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan tanggal, Dari Tanggal dan Hingga Tanggal.
Object Date TimePicker
Terdapat dua datetimepicker yang digunakan untuk memasukkan date/tanggal dari tanggal dan hingga tanggal.
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan data rincian transaksi sesuai tanggal yang tertulis pada DateTimePicker dengan melalui byIskandar.
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_58_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110040.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_50_36110040, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110040.CRV.ReportSource = LAP
Latihan_53_36110040.CRV.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & dari_36110040.Value.Month & "/" & dari_36110040.Value.Day & "/" & dari_36110040.Value.Year & "# AND {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & hingga_36110040.Value.Month & "/" & hingga_36110040.Value.Day & "/" & hingga_36110040.Value.Year & "#"
If Latihan_53_36110040.Visible = False Then
Latihan_53_36110040.Show()
Else
Latihan_53_36110040.Activate()
Latihan_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Latihan_58_36110040
Objek dalam Form Latihan_58:
Object Label
Terdapat tiga label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan tanggal, Dari Tanggal dan Hingga Tanggal.
Object Date TimePicker
Terdapat dua datetimepicker yang digunakan untuk memasukkan date/tanggal dari tanggal dan hingga tanggal.
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan data rincian transaksi sesuai tanggal yang tertulis pada DateTimePicker dengan melalui byIskandar.
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_58_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110040.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_50_36110040, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110040.CRV.ReportSource = LAP
Latihan_53_36110040.CRV.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & dari_36110040.Value.Month & "/" & dari_36110040.Value.Day & "/" & dari_36110040.Value.Year & "# AND {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & hingga_36110040.Value.Month & "/" & hingga_36110040.Value.Day & "/" & hingga_36110040.Value.Year & "#"
If Latihan_53_36110040.Visible = False Then
Latihan_53_36110040.Show()
Else
Latihan_53_36110040.Activate()
Latihan_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Latihan_57_36110040
Deskripsi Penyelesaian
Latihan_57_36110040
Objek dalam Form Latihan_57:
Object Label
Terdapat dua label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan harga dan Masukkan Harga minimal yang akan dipreview.
Object Text Box
Terdapat satu textbox status input digunakan untuk memasukkan nilai/text Harga minimal yang akan ditampilkan.
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan sesuai Harga Minimal yang tertulis pada textbox dengan melalui byIskandar.
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_57_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110040.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_50_36110040, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110040.CRV.ReportSource = LAP
Latihan_53_36110040.CRV.SelectionFormula = "{DETAILTRANSAKSI.HARGA} > " & harga_36110040.Text
If Latihan_53_36110040.Visible = False Then
Latihan_53_36110040.Show()
Else
Latihan_53_36110040.Activate()
Latihan_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Latihan_57_36110040
Objek dalam Form Latihan_57:
Object Label
Terdapat dua label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan harga dan Masukkan Harga minimal yang akan dipreview.
Object Text Box
Terdapat satu textbox status input digunakan untuk memasukkan nilai/text Harga minimal yang akan ditampilkan.
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan sesuai Harga Minimal yang tertulis pada textbox dengan melalui byIskandar.
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_57_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110040.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_50_36110040, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110040.CRV.ReportSource = LAP
Latihan_53_36110040.CRV.SelectionFormula = "{DETAILTRANSAKSI.HARGA} > " & harga_36110040.Text
If Latihan_53_36110040.Visible = False Then
Latihan_53_36110040.Show()
Else
Latihan_53_36110040.Activate()
Latihan_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Latihan_56_36110040
Deskripsi Penyelesaian
Latihan_56_36110040
Objek dalam Form Latihan_56:
Object Label
Terdapat dua label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan kode barang dan Masukkan kode barang yang akan dipreview.
Object Text Box
Terdapat satu textbox status input digunakan untuk memasukkan nilai/text Kode Barang yang akan ditampilkan.
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan sesuai kode barang yang tertulis pada textbox kode_36110030 dengan melalui byIskandar.
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_56_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110041.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_50_36110040, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110040.CRV.ReportSource = LAP
Latihan_53_36110040.CRV.SelectionFormula = "{DETAILTRANSAKSI.KODEBARANG} = '" & kode_36110040.Text & "'"
If Latihan_53_36110040.Visible = False Then
Latihan_53_36110040.Show()
Else
Latihan_53_36110040.Activate()
Latihan_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Latihan_56_36110040
Objek dalam Form Latihan_56:
Object Label
Terdapat dua label yang bertuliskan Rincian Transaksi (Latihan 50) berdasarkan kode barang dan Masukkan kode barang yang akan dipreview.
Object Text Box
Terdapat satu textbox status input digunakan untuk memasukkan nilai/text Kode Barang yang akan ditampilkan.
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan sesuai kode barang yang tertulis pada textbox kode_36110030 dengan melalui byIskandar.
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_56_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110041.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_50_36110040, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110040.CRV.ReportSource = LAP
Latihan_53_36110040.CRV.SelectionFormula = "{DETAILTRANSAKSI.KODEBARANG} = '" & kode_36110040.Text & "'"
If Latihan_53_36110040.Visible = False Then
Latihan_53_36110040.Show()
Else
Latihan_53_36110040.Activate()
Latihan_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Latihan_55_36110040
Deskripsi Penyelesaian
Latihan_55_36110041
Objek dalam Form Latihan_55:
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan daftar barang yang ada pada report latihan_45 dengan melalui byIskandar.
Object Label
Terdapat satu label yang bertuliskan DAFTAR BARANG (LATIHAN 45)
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_55_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110040.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_45_36110040, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110040.CRV.ReportSource = LAP
If Latihan_53_36110040.Visible = False Then
Latihan_53_36110040.Show()
Else
Latihan_53_36110040.Activate()
Latihan_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Latihan_55_36110041
Objek dalam Form Latihan_55:
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan daftar barang yang ada pada report latihan_45 dengan melalui byIskandar.
Object Label
Terdapat satu label yang bertuliskan DAFTAR BARANG (LATIHAN 45)
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_55_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110040.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CARI As New ByIskandar.MengaturDataBaseCrystalReport
LAP = CARI.AturDatabase(New Latihan_45_36110040, Application.StartupPath, "DATA REPORT.ACCDB")
Latihan_53_36110040.CRV.ReportSource = LAP
If Latihan_53_36110040.Visible = False Then
Latihan_53_36110040.Show()
Else
Latihan_53_36110040.Activate()
Latihan_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Latihan_54_36110040
Deskripsi Penyelesaian
Latihan_54_36110040
Objek dalam Form Latihan_54:
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan daftar barang yang ada pada report latihan_45 ke CrystalReportViewer yang ada pada design Latihan_53.
Object Label
Terdapat satu label yang bertuliskan DAFTAR BARANG (LATIHAN 45)
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_54_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110040.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
LAP = New Latihan_45_36110040
Latihan_53_36110040.CRV.ReportSource = LAP
If LATIHAN_53_36110040.Visible = False Then
LATIHAN_53_36110040.Show()
Else
LATIHAN_53_36110040.Activate()
LATIHAN_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Latihan_54_36110040
Objek dalam Form Latihan_54:
Object Button
Terdapat satu object button yaitu Preview yang digunakan untuk menampilkan daftar barang yang ada pada report latihan_45 ke CrystalReportViewer yang ada pada design Latihan_53.
Object Label
Terdapat satu label yang bertuliskan DAFTAR BARANG (LATIHAN 45)
Even
FormLoad
Prosedur penyelesaian
Buka Project yang telah dibuat sebelumnya klik Add New Item ==> Add Windows Form
Kemudian beri nama dan klik Add
Buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
Berikut ini adalah rumus untuk menjalankan form di atas
Public Class Latihan_54_36110040
Private Sub preview_36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview_36110040.Click
Dim LAP As New CrystalDecisions.CrystalReports.Engine.ReportDocument
LAP = New Latihan_45_36110040
Latihan_53_36110040.CRV.ReportSource = LAP
If LATIHAN_53_36110040.Visible = False Then
LATIHAN_53_36110040.Show()
Else
LATIHAN_53_36110040.Activate()
LATIHAN_53_36110040.WindowState = FormWindowState.Normal
End If
End Sub
End Class
Setelah itu, jalankan programnya dengan menekan F5
Langganan:
Postingan (Atom)