Jawaban No 2 (DANIEL)

KASUS : KLIK DISINI 

Public Class Form1

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

        Call buatTable()

    End Sub

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged

        Call addjurusan()

        Call addjenjang()

        Call addtahun()

    End Sub

    Private Sub nAngka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nAngka.TextChanged

        Call addnhuruf()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        Call isiTable()

        Call bersih()

    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click

        Call bersih()

    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        On Error Resume Next

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

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