Jawaban No 3 (DANIEL)

KASUS : KLIK DISINI

Public Class Form_DataKaryawan

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Close()

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        Call addapus()

    End Sub

    Sub buattabel()

        LV.Columns.Add("Nama Karyawan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Golongan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Gaji Pokok", 180, HorizontalAlignment.Center)

        LV.Columns.Add("pajak", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Status Kerja", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Jam Lembur", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Status", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah Anak", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Tunjangan Anak", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim Lst As New ListViewItem

        Lst.Text = n_karyawan.Text

        Lst.SubItems.Add(gol.Text)

        Lst.SubItems.Add(gajpokok.Text)

        Lst.SubItems.Add(gajpokok.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(Slembur.Text)

        Lst.SubItems.Add(jamlembur.Text)

        Lst.SubItems.Add(lembur.Text)

        Lst.SubItems.Add(status.Text)

        Lst.SubItems.Add(jmlanak.Text)

        Lst.SubItems.Add(tunjanganistri.Text)

        Lst.SubItems.Add(tunjangananak.Text)

        Lst.SubItems.Add(totgaji.Text)

        LV.Items.Add(Lst)

    End Sub