-->

MEMBUAT FORM LAPORAN PADA VB.NET MENGGUNAKAN DATAGRIDVIEW DAN SQL SERVER

April 15, 2018

pada kesempatan kali ini saya akan berbagi cara untuk membuat form laporan menggunakan VB.Net. cara nya cukup mudah, yang dibutuhkan pada pembuatan form ini adalah

  • Database (disini saya menggunakan SQL SERVER Express)
  • Visual Studio 2017 
pada form ini akan menampilkan jumlah gaji yang ada pada database, data yang ditampilkan disajikan pada datagridview, sehingga tampilan akan lebih enak di pandang mata. Pada form ini nantinya juga bisa menampilkan hasil pencarian berdasarkan kode yang diinputkan.

berikut adalah tampilan dari form yang sudah saya buat



dari gambar diatas terdapat button Export ke Excel, button ini berfungsi untuk mengkonversi data yang ada pada gridview kedalam workbook Excel. namun untuk pengkonversiannya akan saya bahas pada postingan selanjutnya.

ssebelum masuk dalam script program ada baiknya anda membaca artikel sebelumnya untuk dapat mengerti bagaimana Membuat Modul Koneksi. Klik Disini Untuk Menju Artikel Sebelumnya

 baiklah tanpa perlu banyak kata mukadimah, langsung saja kita pada masuk pada pembuatannya, buatlah form seperti gambar diatas dimana propertiesnya sebagai berikut :

Objek Properti Nilai
Label Text LAPORAN GAJI PERBULAN
Label Text Masukkan Kode
TextBox name txtCari
Button name btnCari
Button name btnTutup
DataGridView name DataGridview1

kemudian setelah form sudah selesai dibuat Klik 2x pada btnTutup maka masukkan script seperti dibawah ini


Private Sub btnTutup_Click(sender As Object, e As EventArgs) Handles btnTutup.Click
        Me.Close()
    End Sub

kemudian pada btnCari Klik 2x dan masukkan script berikut :

Private Sub btnTutup_Click(sender As Object, e As EventArgs) Handles btnTutup.Click
 Try
            ambilkoneksi()
            cmd = New SqlCommand("select * from Gaji where Id_gaji = 'GJ/" & txtBulan.Text & "'", conn)
            adapter = New SqlDataAdapter
            adapter.SelectCommand = cmd
            ds = New DataSet
            adapter.Fill(ds, "Gaji")

            DataGridView1.DataSource = ds
            DataGridView1.DataMember = "Gaji"
        Catch ex As Exception
            MsgBox("Pastikan Kode Gaji Sudah Benar", "Perhatian", MsgBoxStyle.Exclamation)
        End Try
End Sub

kemudian klik 2x pada form yang tidak terdapat objek seperti label, textbox atau pun sejenisnya. maka akan muncul script dan tambahkan script seperti berikut ini :



Private Sub frmLprnBulanan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PenggajianDataSet1.Gaji' table. You can move, or remove it, as needed.
        Me.GajiTableAdapter.Fill(Me.PenggajianDataSet1.Gaji)

    End Sub

yang berwarna merah bisa anda ganti sesuai dengan nama tabel referensi anda.
dan yang berwarna Biru merupakan nama data source yang sudah dihubungkan.

cara menghubungkannya akan saya post pada postingan selanjutnya

setelah sampai pada step ini kita sudah bisa melihat data yang ada pada database ditampilkan pada DataGridView dan sudah bisa mencari data yang kita inginkan dan ditampilkan pada gridview

 dibawah ini adalah script lengkapnya :


Imports System.Data.SqlClient
Imports System.Xml

Public Class frmLprnBulanan
    Sub cariData()
        Try
            ambilkoneksi()
            cmd = New SqlCommand("select * from Gaji where Id_gaji = 'GJ/" & txtBulan.Text & "'", conn)
            adapter = New SqlDataAdapter
            adapter.SelectCommand = cmd
            ds = New DataSet
            adapter.Fill(ds, "Gaji")

            DataGridView1.DataSource = ds
            DataGridView1.DataMember = "Gaji"
        Catch ex As Exception
            MsgBox("Pastikan Kode Gaji Sudah Benar", "Perhatian", MsgBoxStyle.Exclamation)
        End Try

    End Sub
    Private Sub btnTutup_Click(sender As Object, e As EventArgs) Handles btnTutup.Click
        Me.Close()
    End Sub

    Private Sub frmLprnBulanan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'PenggajianDataSet1.Gaji' table. You can move, or remove it, as needed.
        Me.GajiTableAdapter.Fill(Me.PenggajianDataSet1.Gaji)

    End Sub

    Private Sub btnCari_Click(sender As Object, e As EventArgs) Handles btnCari.Click
        cariData()
    End Sub
End Class

pada script diatas saya menggunakan Prosedur sehingga lebih mudah dalam pemanggilannya


sekian artikel yang saya buat, semoga bisa bermanfaat bagi anda semua. jika masih ada error atau pun ada hal yang ingin ditanyakan silahkan ditanyakan pada kolom komentar. terimakasih.

Disqus Comments

Advertisement