Listview Pembayaran Gaji

BERIKUT INI MERUPAKAN CONTOH PROGRAM PEMBAYARAN GAJI LENGKAP DENGAN LISTVIEW

DAN BERIKUT INI MERUPAKAN SOURCE DARI PROGRAM DI ATAS:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lv.Columns.Add("No", 30, HorizontalAlignment.Left)
        lv.Columns.Add("NIK", 40, HorizontalAlignment.Left)
        lv.Columns.Add("Nama Pegawai", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Gol", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Gaji Bersih", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True

        No.Items.Add("1")
        No.Items.Add("2")
        No.Items.Add("3")

        Nik.Items.Add("1")
        Nik.Items.Add("2")
        Nik.Items.Add("3")

        golongan.Items.Add("1")
        golongan.Items.Add("2")
        golongan.Items.Add("3")
    End Sub
 
    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        Select Case Nik.Text
            Case "1"
                namaP.Text = "Hendro"
            Case "2"
                namaP.Text = "Dian"
            Case "3"
                namaP.Text = "Jhoni"
            Case Else
                namaP.Text = ""
        End Select
    End Sub

    Private Sub golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles golongan.SelectedIndexChanged
        Select Case golongan.Text
            Case "1"
                gajiP.Text = "1500000"
            Case "2"
                gajiP.Text = "2500000"
            Case "3"
                gajiP.Text = "3500000"
            Case Else
                gajiP.Text = ""
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        pajak.Text = 0.05 * gajiP.Text
        gajiB.Text = Val(gajiP.Text) - Val(pajak.Text)
        Dim lst As New ListViewItem
        lst.Text = No.Text
        lst.SubItems.Add(Nik.Text)
        lst.SubItems.Add(namaP.Text)
        lst.SubItems.Add(golongan.Text)
        lst.SubItems.Add(gajiP.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(gajiB.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        lv.Items.Clear()
        No.Text = ""
        Nik.Text = ""
        namaP.Text = ""
        golongan.Text = ""
        gajiP.Text = ""
        pajak.Text = ""
        gajiB.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        MsgBox("ANDA YAKIN MAU KELUAR??")
        Me.Close()
    End Sub
End Class

DAN BERIKUT ADALAH HASIL DARI PROGRAM YANG TELAH DIBUAT:

SEKIAN DULU PROGRAM YANG DAPAT SAYA BERIKAN LEBIH DAN KURANG SAYA MINTA MAAF

SILAHKAN DI COPAS UNTUK PARA SAHABAT ANAK LAUT

SALAM ANAK LAUT

SALAM ADMIN 2

Tweet

Jangan sampai ketinggalan postingan-postingan terbaik dari ANAK LAUT. Berlangganan melalui email sekarang juga:

Artikel keren lainnya:

Ditulis oleh SYAMSUWARDIN pada tanggal Saturday, 28 November 2015