SIAPAKAH ORANG YANG PALING CERDAS???

Assalamu 'alaikum wr.wb
Orang yang paling cerdas adalah orang yang selalu mengingat kematian. Sungguh banyak orang yang tidak cerdas di dunia ini. Mereka dilalaikan permainan dunia. Mereka selalu plagiat yang menurut hawa nafsunya gaya modern. Padahal, mereka tidak sadar kematian telah senantiasa menantinya. Kematian itu tidak akan pernah jenuh menanti tuannya. Kematian itu akan menjemput kita dengan haru bahagia jika kita membawakan rantang yang penuh dengan nasi ketakwaan, lauk kebaikan, sayur keikhlasan, air kesucian, dan sambal tawadhu. Dan begitupun sebaliknya kematian itu akan menjemput kita dengan penuh amarah kebencian ketika kita membawakan kardus yang berisikan kekafiran, kemunafikan, kesombongan, dan kebodohan.

Untuk itu wahai saudaraku, sebelum penantian itu usai marilah kita mencerdaskan diri dan orang lain. Persiapkan rantang yang penuh dengan makanan-makanan amal sholeh, agar kematian itu tidak kecewa atas penantian setia untuk tuannya selama ini. Kita berikan kematian itu dengan makanan yang banyak mengandung gizi amal sholeh dan ditaburi dengan bumbu syahadat ketika kita mulai memasaknya dan menghidangkannya......

Wassalamu 'Alaikum Wr.wb

Latihan_383940_46110041

Deskripsi Form Latihan 383940

Terdapat 2 object yaitu DataGridView dan Button.

Object DataGridView

Terdapat 1 DataGridView yang akan menampilkan data table.

Object Button

Terdapat 2 button yaitu Tombol Choose dan Cancel..

Script Unique

Tidak ada Script Unique pada latihan ini karena hampir sama dengan latihan sebelumnya.

Even

Load, click

Property

-

Langkah-Langkah Menjalankan Form Latihan_383940_46110041

Click Start Debugging untuk menjalankan Script Latihan_383940_46110041, maka data barang akan tampil di DataGridView

Langkah-langkah Menyelesaikan Form Latihan_383940_46110041

1.     Buka project yang telah dibuat.

2.     Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add

3.     Buat desain form sesuai yang diinginkan (Latihan_383940_46110041) dengan menggunakan DataGridView dan Button.

4.     Ganti nama DataGridView dan Button di properties-Name,

5.     Click Kanan pada design Latihan_383940_46110041 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_383940_46110041

Dim Jembatan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")

    Dim Fidah As New DataTable

    Public Sub Shaleh()

        Dim Mobil As New OleDb.OleDbDataAdapter

        Mobil = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", Jembatan)

        Fidah.Rows.Clear()

        Mobil.Fill(Fidah)

        Mobil.Dispose()

    End Sub

    Private Sub Latihan_383940_46110041_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Shaleh()

        view46110041.DataSource = Fidah

    End Sub

End Class

6.     Save dan Click Start Debugging untuk menjalankan form

Latihan_60_46110041

Deskripsi Form Latihan 60

Terdapat 3 object yaitu Label, Textbox dan Button

Object Label

Terdapat 2 yaitu  Rincian Transaksi berdasarkan harga dan Insert the Price will be Preview.

Object Textbox

Terdapat 2 textbox yaituNo. Transaksi dan Nama Kasir

Object Button

Terdapat  1 Button yaitu Priviewyang ketika di click akan menampilkan report Latihan 59 berdasarkan Nomor Transaksi dan akan Menampilkan Nama Kasir

Script Unique

Mengatur Nilai Parameter

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

Even

Click

Langkah-Langkah Menjalankan Form Latihan_60_46110041

Click Start Debugging untuk menjalankan Script Latihan_60_46110041

Langkah-langkah Menyelesaikan Form Latihan_60_46110041

1.     Buka project yang telah dibuat.

2.     Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add

3.     Buat desain form sesuai yang diinginkan (Latihan_60_46110041) Label, Textbox dan Button.

4.     Ganti nama Label, Textbox dan Button di properties-Name,

5.     Click Kanan pada design Latihan_60_46110041 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_60_46110041

Private Sub View_46110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110041.Click

Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

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

        LATIHAN_53_46110041.CrystalReportViewer1.ReportSource = Laporan

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

LATIHAN_53_46110041.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110041.Text & "'"

        If LATIHAN_53_46110041.Visible = False Then

            LATIHAN_53_46110041.Show()

        Else

            LATIHAN_53_46110041.Activate()

        End If

    End Sub

End Class

6.     Save dan Click Start Debugging untuk menjalankan form

Latihan_59_46110041

Deskripsi Form Latihan 59

Latihan  59 adalah latihan membuat report (laporan) yang tampilannya berulang-ulang, pada latihan ini berdasarkan Nomor transaksi, tetapi juga menampilkan siapa yang bertugas dan tanggal pada hari tersebut.

Langkah-langkah Menyelesaikan Form Latihan_59_46110041

1.     Click Project kemudian pilih Add Windows Form- dibagian Categories pilih Reporting- pilih CRYSTAL REPORT kemudian ganti nama report yang diinginkan kemuadianclick ADD – pilih As A Blank Report

2.     Di bagian Kiri ada Field Explorer – click kanan Database Fileds – DataBase Expert – Create New Connection – OLE DB (Ado)

3.     Pilih Tabel yang akan dibuatkan Report, caranya Geser Ke kanan tabel yang diiginkan, atau clik tanda “>” di antara sisi kiri dan sisi kanan kemudian Klik OK.

4.     Click kanan Group Name Fields – Insert Group – pilih berdasarkan Kode Barang. Buatlah seperti gambar di bawah ini.

5.     Untuk manampilkan Nama caranya Click kanan Parameter Fields – new – isi kolom Name dengan NAMA- OK. Kemudian geser sesuai dengan tempatnya seperti gambar di atas

6.     Untuk menampilkan tanggal pilih Print Date pada Special Fields

7.     Untukpenjumlahan ke bawah caranya Clik kanan Object yang akan dijumlahkan  – Insert -  Summary – pada bagian Calculate this Summary pilih SUM – OK

8.     Untuk Menambahkan Judul bisa pakai tool Textbox, kemudian ketik judul yang diinginkan

9.     Untuk menghilangkan angka Nol dibelakang koma, Click kanan object yang akan dihilangkan komanya pilih format Object, pilih Custom Style – pilih customize – Ubah dibagian Decimal – kemuadian click OK

10.  Untuk melihat Laporan pilih Main Report Preview di bagian bawah, dan Main Report untuk mendesain Report.

Latihan_58_46110041

Deskripsi Form Latihan 58

Terdapat 3 object yaitu Label, DateTimePicker dan Button

Object Label

Terdapat 2 yaitu  Rincian Transaksi berdasarkan harga dan Insert the Price will be Preview.

Object DateTimePicker

Terdapat 2 textbox yaitu Dari Tanggal dan Sampai Tanggal

Object Button

Terdapat  1 Button yaitu Priviewyang ketika di click akan menampilkan report Latihan 50 berdasarkan tanggal

Script Unique

Tidak ada script unique pada latihan ini.

Even

Click

Property

-

Langkah-Langkah Menjalankan Form Latihan_58_46110041

Click Start Debugging untuk menjalankan Script Latihan_58_46110041

Langkah-langkah Menyelesaikan Form Latihan_58_46110041

1.     Buka project yang telah dibuat.

2.     Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add

3.     Buat desain form sesuai yang diinginkan (Latihan_58_46110041) Label, DateTimePicker dan Button.

4.     Ganti nama LabelDateTimePicker dan Button di properties-Name,

5.     lick Kanan pada design Latihan_58_46110041 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_58_46110041

Private Sub View_46110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LIAT_46110041.Click

Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

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

        LATIHAN_53_46110041.CrystalReportViewer1.ReportSource = Laporan

        LATIHAN_53_46110041.CrystalReportViewer1.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DARITGL_46110041.Value.Month & "/" & DARITGL_46110041.Value.Day & "/" & DARITGL_46110041.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & SAMPAITGL_46110041.Value.Month & "/" & SAMPAITGL_46110041.Value.Day & "/" & SAMPAITGL_46110041.Value.Year & "#"

        If LATIHAN_53_46110041.Visible = False Then

            LATIHAN_53_46110041.Show()

        Else

            LATIHAN_53_46110041.Activate()

        End If

    End Sub

End Class

6.     Save dan Click Start Debugging untuk menjalankan form

Latihan_57_46110041

Deskripsi Form Latihan 57

Terdapat 3 object yaitu Label, Textbox dan Button

Object Label

Terdapat 2 yaitu  Rincian Transaksi berdasarkan harga dan Insert the Price will be Preview.

Object Textbox

Terdapat 1 textbox yaitu untuk menginput Harga yang ingin dilihat

Object Button

Terdapat  1 Button yaitu Priviewyang ketika di click akan menampilkan report Latihan 50

Script Unique

Tidak ada script unique pada latihan ini.

Even

Click

Property

-

Langkah-Langkah Menjalankan Form Latihan_57_46110041

Click Start Debugging untuk menjalankan Script Latihan_57_46110041

Langkah-langkah Menyelesaikan Form Latihan_57_46110041

1.     Buka project yang telah dibuat.

2.     Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add

3.     Buat desain form sesuai yang diinginkan (Latihan_57_46110041) Label, textbox dan Button.

4.     Ganti nama Label, textbox dan Button di properties-Name,

5.     Click Kanan pada design Latihan_57_46110041 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_57_46110041

Private Sub View_46110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LIAT_46110041.Click

Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport

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

        LATIHAN_53_46110041.CrystalReportViewer1.ReportSource = Laporan

        LATIHAN_53_46110041.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} >=" & ISI_46110041.Text

        If LATIHAN_53_46110041.Visible = False Then

            LATIHAN_53_46110041.Show()

        Else

            LATIHAN_53_46110041.Activate()

        End If

    End Sub

End Class

6.     Save dan Click Start Debugging untuk menjalankan form

Latihan_56_46110041

Deskripsi Form Latihan 56

Terdapat 3 object yaitu Label, Textbox dan Button

Object Label

Terdapat 2 yaitu  Rincian Transaksi berdasarkan kode Barang dan Insert the Code will be Preview.

Object Textbox

Terdapat 1 textbox yaitu untuk menginput kode barang yang ingin dilihat

Object Button

Terdapat  1 Button yaitu Priviewyang ketika di click akan menampilkan report Latihan 50

Script Unique

Mengatur Filter

        LATIHAN_53_46110041.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & ISI_46110041.Text & "'"

Even

Click

Property

-

Langkah-Langkah Menjalankan Form Latihan_56_46110041

Click Start Debugging untuk menjalankan Script Latihan_56_46110041, masukkan kode barang yang ingin dilihat, click Preview untuk manampilkan laporan tersebut

Langkah-langkah Menyelesaikan Form Latihan_56_46110041

1.     Buka project yang telah dibuat.

2.     Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add

3.     Buat desain form sesuai yang diinginkan (Latihan_56_46110041) Label, textbox dan Button.

4.     Ganti nama Label, Textbox dan Button di properties-Name,

5.     Click Kanan pada design Latihan_56_46110041 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_56_46110041

Private Sub View_46110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LIAT_46110041.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        Dim Fidah As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = Fidah.AturDatabase(New LATIHAN_50_46110041, Application.StartupPath, "data report.accdb")

        LATIHAN_53_46110041.CrystalReportViewer1.ReportSource = Laporan

        LATIHAN_53_46110041.CrystalReportViewer1.SelectionFormula = "{barang.kodebarang} = '" & ISI_46110041.Text & "'"

        If LATIHAN_53_46110041.Visible = False Then

            LATIHAN_53_46110041.Show()

        Else

            LATIHAN_53_46110041.Activate()

        End If

    End Sub

End Class

6.     Save dan Click Start Debugging untuk menjalankan form