Public Class Login
Private Sub Login_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub BTNOK_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNOK.Click
If
Username.Text = "sepdiarina" And password.Text = "111"
Then
Pegawai.Show()
Me.Hide()
Else
MsgBox("data
username/password salah?")
Username.Text = ""
password.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 Pegawai
Sub
listjabatan()
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Staff")
End Sub
Sub
listjam()
jam.Items.Add("1")
jam.Items.Add("2")
jam.Items.Add("3")
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
buattabel()
Call listjabatan()
Call
liststatus()
Call
listjam()
End Sub
Private Sub cmdkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmdkeluar.Click
End
End Sub
Private Sub cmdproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmdproses.Click
pajak.Text = Val(1.5 / 100 *
gapok.Text)
tot.Text = Val(gapok.Text) +
Val(tun_istri.Text) + Val(tun_anak.Text) + Val(gaji_lembur.Text) -
Val(pajak.Text)
End Sub
Private Sub cmdhapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmdhapus.Click
nm.Text = ""
jabatan.Text = ""
gapok.Text = ""
status.Text = ""
anak.Text = ""
tun_istri.Text = ""
tun_anak.Text = ""
pajak.Text = ""
jam.Text = ""
gaji_lembur.Text = ""
tot.Text = ""
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
status.SelectedIndexChanged
If
status.Text = "menikah" Then
tun_istri.Text = Val(9 / 100 *
gapok.Text)
End If
End Sub
Sub
liststatus()
status.Items.Add("menikah")
status.Items.Add("lajang")
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
jabatan.SelectedIndexChanged
If
jabatan.Text = "Mandor" Then
gapok.Text = "1750000"
ElseIf
jabatan.Text = "Kepala Bagian" Then
gapok.Text = "2500000"
ElseIf
jabatan.Text = "Staff" Then
gapok.Text = "1250000"
End If
End Sub
Private Sub anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles anak.SelectedIndexChanged
If
status.Text = "menikah" And anak.Text = "1"
Then
tun_anak.Text = Val(3 / 100 *
gapok.Text)
ElseIf
status.Text = "menikah" And anak.Text = "2"
Then
tun_anak.Text = Val(7 / 100 *
gapok.Text)
ElseIf
status.Text = "menikah" And anak.Text = ">=
2" Then
tun_anak.Text = Val(7 / 100 *
gapok.Text)
End If
End Sub
Private Sub jam_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles jam.SelectedIndexChanged
Select Case jabatan.Text
Case
"Mandor"
Select
Case jam.Text
Case
"1" : gaji_lembur.Text = "7500"
Case
"2" : gaji_lembur.Text = "15000"
Case
"3" : gaji_lembur.Text = "22500"
End
Select
Case
"Bagian Kepala"
Select
Case jam.Text
Case
"1" : gaji_lembur.Text = "10000"
Case
"2" : gaji_lembur.Text = "20000"
Case
"3" : gaji_lembur.Text = "30000"
End
Select
Case
"Staff"
Select
Case jam.Text
Case
"1" : gaji_lembur.Text = "5000"
Case
"2" : gaji_lembur.Text = "10000"
Case
"3" : gaji_lembur.Text = "15000"
End
Select
End Select
End Sub
Sub
buattabel()
lv.Columns.Add("Nama",
80, HorizontalAlignment.Center)
lv.Columns.Add("Jabatan",
80, HorizontalAlignment.Center)
lv.Columns.Add("Gaji
Pokok", 100, HorizontalAlignment.Center)
lv.Columns.Add("Status",
90, HorizontalAlignment.Center)
lv.Columns.Add("Anak",
80, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan
Istri", 110, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan
Anak", 120, HorizontalAlignment.Center)
lv.Columns.Add("Pajak",
110, HorizontalAlignment.Center)
lv.Columns.Add("Jam
Lembur", 120, HorizontalAlignment.Center)
lv.Columns.Add("Gaji
Lembur", 110, HorizontalAlignment.Center)
lv.Columns.Add("Total
Gaji", 120, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = nm.Text
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(gapok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(anak.Text)
lst.SubItems.Add(tun_istri.Text)
lst.SubItems.Add(tun_anak.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(jam.Text)
lst.SubItems.Add(gaji_lembur.Text)
lst.SubItems.Add(tot.Text)
lv.Items.Add(lst)
End Sub
Private Sub cmdsimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles cmdsimpan.Click
isitabel()
nm.Text = ""
jabatan.Text = ""
gapok.Text = ""
status.Text = ""
anak.Text = ""
tun_istri.Text = ""
tun_anak.Text = ""
jam.Text = ""
gaji_lembur.Text = ""
tot.Text = ""
End Sub
End Class