Membuat Laporan Berparameter di VB.NET

1.      Buat Project baru

2.      Ubah nama form menjadi ‘lp_parameter’

3.      Tambahkan object Crystal Report Viewer ke form lp_parameter

 emukan ganti terlebih dahulu frameworknya dengan cara seperti berikut :

Pilih :

Lalu pilih :

Lalu OK

4.      Beri nama viewernya dengan ‘view_parameter’

Pilih Blank Report Saja

5.      Buatlah Dataset dengan cara :

Pilih :

Kemudian pilih :

Beri nama :

6.      Lalu Isilah dataset dengan Database ‘perdagangan’

Ketikan nama Server 

Lalu OK

Drag semua tabel ke dalam field dataset

Hingga akhirnya dataset akan seperti ini :

Jangan lupa simpan

7.      Buatlah modul koneksi

Lalu isi koding modul seperti ini :

Imports System.Data.SqlClient

Module koneksi

    Dim con As SqlConnection

    Public Function konek() As SqlConnection

        con = New SqlConnection("server = AMPHIBI\SQLEXPRESS;database =perdagangan;integrated security = true")

        con.Open()

        Return con

    End Function

End Module

8.      Sekarang desain tampilan file rpt yang dibuat kira-kira seperti ini :

9.      Kemudian masukan databasenya dengan cara :

Klik kanan Database Fields

Pilih source dari Project Data dan masukan semua tabel dengan klik >

10.  Masukan file rpt ke dalam crystal report viewer dengan cara :

Masuk form ‘lp_parameter’ lalu pilih objek crystal report viewer dalam form tersebut ‘view_parameter’ dan klik segitiga hitam kecil

11.  Mulailah pengkodingan di dalam form ‘lp_parameter’

Imports System.Data.SqlClient

Imports CrystalDecisions.CrystalReports.Engine

Public Class lp_parameter

    Dim rpt As New report_parameter 'file rpt yang dibuat

    Dim rd As SqlDataReader

    Dim cmd As SqlCommand

    Dim ds As DataSet

    Dim adp As SqlDataAdapter

    Dim tmp As String

    Dim myConnection As SqlConnection

    Dim connection, barang, h_transaksi, d_transaksi As String

    Dim myDA As New SqlDataAdapter

    Dim myDS As New ds_laporan 'Dataset yang dibuat

    Sub tampil()

        myDS.Reset()

        connection = "server = AMPHIBI\SQLEXPRESS;database = perdagangan;integrated security = true"

        d_transaksi = " select* from d_transaksi where no_transaksi = '" & no_trans.Text & "'"

        h_transaksi = "select * from h_transaksi where no_transaksi = '" & no_trans.Text & "'"

        barang = "select * from barang"

        myConnection = New SqlConnection(connection)

        Try

            myConnection.Open()

            cmd = New SqlCommand(d_transaksi, myConnection)

            myDA.SelectCommand = cmd

            myDA.Fill(myDS, "d_transaksi")

            cmd = New SqlCommand(h_transaksi, myConnection)

            myDA.SelectCommand = cmd

            myDA.Fill(myDS, "h_transaksi")

            cmd = New SqlCommand(barang, myConnection)

            myDA.SelectCommand = cmd

            myDA.Fill(myDS, "barang")

            rpt.SetDataSource(myDS)

            view_parameter.ReportSource = rpt

        Catch Excep As Exception

            MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

    End Sub

    Sub filter()

        myDS.Reset()

        connection = "server = AMPHIBI\SQLEXPRESS;database = perdagangan;integrated security = true"

        d_transaksi = "select * from d_transaksi"

        h_transaksi = "select * from h_transaksi where month(tanggal) = '" & Strings.Mid(pick.Text, 4, 2) & "' and day(tanggal) = '" & Strings.Left(pick.Text, 2) & "' and year(tanggal) = '" & Strings.Right(pick.Text, 4) & "'"

        barang = "select * from barang"

        myConnection = New SqlConnection(connection)

        Try

            myConnection.Open()

            cmd = New SqlCommand(d_transaksi, myConnection)

            myDA.SelectCommand = cmd

            myDA.Fill(myDS, "d_transaksi")

            cmd = New SqlCommand(h_transaksi, myConnection)

            myDA.SelectCommand = cmd

            myDA.Fill(myDS, "h_transaksi")

            cmd = New SqlCommand(barang, myConnection)

            myDA.SelectCommand = cmd

            myDA.Fill(myDS, "barang")

            rpt.SetDataSource(myDS)

            view_parameter.ReportSource = rpt

        Catch Excep As Exception

            MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

    End Sub

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

        cmd = New SqlCommand("select no_transaksi from h_transaksi", koneksi.konek)

        rd = cmd.ExecuteReader

        While rd.Read

            With no_trans

                .Items.Add(rd(0))

            End With

        End While

        rd.Close()

    End Sub

    Private Sub pick_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pick.ValueChanged

        filter()

    End Sub

    Private Sub no_trans_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles no_trans.SelectedIndexChanged

        tampil()

    End Sub

End Class

12.  Jika terjadi eror seperti ini

maka editlah app.config, seperti berikut :

Ganti bagian yang ditandai (dimulai dari <startup>)

Dengan :

<startup useLegacyV2RuntimeActivationPolicy="true">

    <supportedRuntime version="v4.0"/>

  </startup>

</configuration>

Lampiran (Database):

Query SQL

Project VB

Cara Memulai Aktivitas Mandi yang Baik dan Benar

Bismillah
Assalamu'alaikum warohmatullohi wabarakatuh
Posting pertama ini akan membahas urutan memulai aktivitas mandi yang baik dan benar semoga manfaat :)
Mandi adalah aktifitas rutin yang dilakukan oleh manusia(ngga manusia aja sih,makhluk hidup umumnya *kan hewan juga ada yang mandi :p* manusia khususnya) untuk mengembalikan kesegaran tubuh dan membersihkan badan dari kotoran. Bagaimana kita memulai cara mandi kita? Kebanyakan orang memulai mandi dengan cara mengguyurkan air dari bagian kepala, ternyata itu merupakan hal yang kurang baik yang akan membuat tubuh kita kaget karena perubahan suhu yang drastis dan cepat. Tapi memang melakukan hal tersebut memberikan efek kesegaran instan, apalagi saat tubuh sudah sangat letih,lemah,lesu,lunglai(hadeuuh afwan berlebihan :p) ingin segera mendapat kesegaran  sehingga kebanyakan orang melakukan hal tersebut saat mandi.
Berikut ini adalah urutan memulai aktivitas yang benar, yang akan menjaga tubuh kita dari rasa kaget karena perubahan suhu yang cepat dan drastis, let's simak :D :

1. Menyiram mulai dari ujung jari kaki (kanan dan kiri) ke arah atas sampai lutut;
2. Menyiram mulai dari lutut (kanan dan kiri) ke arah atas sampai bagian perut;
3. Menyiram mulai dari bagian perut ke arah atas sampai pundak;
4. Menyiram mulai jari ujung jari tangan (kanan dan kiri) sampai ke pundak;
5. Menyiram mulai dari bagian leher ke arah atas sampai kepala.
6. Menyikat Gigi


kegiatan diatas minimal dilakukan pengulangan sebanyak 3 kali, ingat loh berturut-turut yah kan sudah diberi nomor urutannya :). Alasan kenapa kita memulai mengguyur air dai bagian tubuh paling bawah menuju atas agar hawa panas tubuh terangkat ke bagian atas tubuh dan akhirnya akan terbuang keluar melalui lubang-lubang (rongga) tubuh bagian atas seperti mulut, hidung dan telinga(tuh kan intinya menjaga agar perubahan suhu yang diterima tubuh kita tidak terjadi sekejap kilat )
Insya Allah dengan izinNya ketika kita melakukan urutan tersebut secara konsisten, dan meniatkan membersihkan diri sebagai tanda syukur yaitu dengan menjaga kebersihan karuniaNya maka kira-kira dalam waktu 2-3 bulan anda akan merasakan manfaatnya, badan akan terasa segar, ringan dalam bergerak dan akan terhindar dari sakit influensa dan masuk angin.

NB :
berdasarkan pengalaman admin juga mengikuti urutan ini loh :D
dan alhamdulillah memang badan terasa lebih enakan dan segar saat mandi juga ngga pusing. selamat mencoba :)

sumber : KontenPositif