MAKMUR SIHOMBING: JAWABAN NO 3

Public Class Form1

Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click

If USERNAME.Text = "MAKMUR" And PASWORD.Text = "0911410" Then

MenuUtama.Show()

Me.Hide()

Else

MsgBox("MAAF!!! YOUR PASSWORD & USER NAME IS WRONG!")

USERNAME.Text = ""

PASWORD.Text = ""

End If

End Sub

Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

End

End Sub

End Class

Public Class MenuUtama

Private Sub DATAKARYAWANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAKARYAWANToolStripMenuItem.Click

KARYAWAN.SHOW()

End Sub

Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click

End

End Sub

End Class

Public Class karyawan

Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged

If NIP.Text = "0001" Then

NAMAKARYAWAN.Text = "PARJOLI"

ElseIf NIP.Text = "0002" Then

NAMAKARYAWAN.Text = "RUTHMEYDA"

ElseIf NIP.Text = "0003" Then

NAMAKARYAWAN.Text = "FRICLES"

End If

End Sub

Private Sub GOL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOL.SelectedIndexChanged

If GOL.Text = "IIIA" Then

GAJI.Text = 2500000

ElseIf GOL.Text = "IIIB" Then

GAJI.Text = 2750000

ElseIf GOL.Text = "IIIC" Then

GAJI.Text = 3000000

End If

End Sub

Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged

If STATUS.Text = "Menikah" Then

TUNJANGANANAK.Text = GAJI.Text * 0.016

Else

TUNJANGANANAK.Text = 0

End If

If STATUS.Text = "BELUM MENIKAH" Then

TUNJANGANANAK.Enabled = False

End If

End Sub

Private Sub JUMLAHANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAHANAK.SelectedIndexChanged

If JUMLAHANAK.Text = "1" Then

TUNJANGAN.Text = GAJI.Text * 0.1

ElseIf JUMLAHANAK.Text = "2" Then

TUNJANGAN.Text = GAJI.Text * 0.19

End If

End Sub

Private Sub PAJAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAJAK.TextChanged

TOTAL.Text = Val(GAJI.Text) + Val(TUNJANGANANAK.Text) + Val(TUNJANGAN.Text) - Val(PAJAK.Text) + Val(GLEMBUR.Text)

End Sub

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

BUATTABEL()

ISITABEL()

End Sub

Sub BUATTABEL()

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

LV.Columns.Add("NAMA KARYAWAN", 180, HorizontalAlignment.Left)

LV.Columns.Add("GOL", 80, HorizontalAlignment.Left)

LV.Columns.Add("GAJI", 80, HorizontalAlignment.Left)

LV.Columns.Add("STATUS", 80, HorizontalAlignment.Left)

LV.Columns.Add("TUNJANGAN", 80, HorizontalAlignment.Left)

LV.Columns.Add("TUNJANGANANAK", 80, HorizontalAlignment.Left)

LV.Columns.Add("GAJI LEMBUR", 80, HorizontalAlignment.Left)

LV.Columns.Add("LAMA LEMBUR", 80, HorizontalAlignment.Left)

LV.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Left)

LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

LV.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)

LV.View = View.Details

LV.GridLines = True

LV.FullRowSelect = True

End Sub

Sub ISITABEL()

For i = 1 To 10

NIP.Items.Add("000" & i)

GOL.Items.Add("IIIA")

GOL.Items.Add("IIIB")

GOL.Items.Add("IIIC")

STATUS.Items.Add("MENIKAH")

STATUS.Items.Add("BELUM MENIKAH")

JUMLAHANAK.Items.Add(1)

JUMLAHANAK.Items.Add(2)

LEMBUR.Items.Add("1 JAM")

LEMBUR.Items.Add("2JAM")

LEMBUR.Items.Add("3JAM")

LEMBUR.Items.Add("4JAM")

LEMBUR.Items.Add("5JAM")

LEMBUR.Items.Add("6JAM")

LEMBUR.Items.Add("7JAM")

LEMBUR.Items.Add("8JAM")

LEMBUR.Items.Add("9JAM")

LEMBUR.Items.Add("10JAM")

End Sub

Private Sub TUNJANGAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUNJANGAN.TextChanged

TUNJANGANANAK.Text = GAJI.Text * 0.16

End Sub

Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click

Dim sublv As New ListViewItem

sublv.Text = NIP.Text

sublv.SubItems.Add(NAMAKARYAWAN.Text)

sublv.SubItems.Add(GOL.Text)

sublv.SubItems.Add("RP. " & GAJI.Text)

sublv.SubItems.Add(STATUS.Text)

sublv.SubItems.Add("RP. " & TUNJANGANANAK.Text)

sublv.SubItems.Add(" RP. " & TUNJANGAN.Text)

sublv.SubItems.Add(JUMLAHANAK.Text)

sublv.SubItems.Add("JAM " & LEMBUR.Text)

sublv.SubItems.Add("RP. " & GLEMBUR.Text)

sublv.SubItems.Add("RP. " & PAJAK.Text)

sublv.SubItems.Add("RP. " & TOTAL.Text)

LV.Items.Add(sublv)

End Sub

Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

End

End Sub

Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

PAJAK.Text = ""

NAMAKARYAWAN.Text = ""

GOL.Text = ""

GAJI.Text = ""

STATUS.Text = ""

TUNJANGAN.Text = ""

TUNJANGANANAK.Text = ""

GLEMBUR.Text = ""

LEMBUR.Text = ""

JUMLAHANAK.Text = ""

TOTAL.Text = ""

PAJAK.Focus()

End Sub

Private Sub GAJI_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJI.TextChanged

PAJAK.Text = GAJI.Text * 0.3

End Sub

Private Sub GLEMBUR_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLEMBUR.TextChanged

If LEMBUR.Text = "1" Then