Public Class Form1
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If user.Text = "Jhoy" And password.Text = "28791" Then
Menu_Utama.show()
Me.Hide()
Else
MsgBox("EROR")
user.Text = ""
password.Text = ""
End If
End Sub
(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt
Private Sub btnkeluar_Click nkeluar.Click
End
End Sub
End Class
Public Class Menu_Utama
Private Sub GajiKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiKaryawanToolStripMenuItem.Click
Gaji_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 Gaji_Karyawan
Private Sub Gaji_Karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nama.Focus()
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Staf")
status.Items.Add("Menikah")
status.Items.Add("Belum Menikah")
Call buattabel()
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
Select Case jabatan.Text
Case "Mandor"
gaji.Text = 1750000
pajak.Text = 0.015 * Val(gaji.Text)
Case "Kepala Bagian"
gaji.Text = 2500000
pajak.Text = 0.015 * Val(gaji.Text)
Case "Staf"
gaji.Text = 1250000
pajak.Text = 0.015 * Val(gaji.Text)
End Select
status.Focus()
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
Dim ket As String
ket = status.Text = "Menikah"
If jabatan.Text = "Mandor" Then
istri.Text = 0.09 * 1750000
ElseIf jabatan.Text = "Kepala Bagian" Then
istri.Text = 0.09 * 2500000
ElseIf jabatan.Text = "Staf" Then
istri.Text = 0.09 * 1250000
End If
If status.Text = "Belum Menikah" Then
istri.Text = 0
End If
jumlah.Focus()
End Sub
Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged
If jumlah.Text = "1" Then
anak.Text = 0.03 * Val(gaji.Text)
ElseIf jumlah.Text >= "2" Then
anak.Text = 0.07 * Val(gaji.Text)
End If
jam.Focus()
End Sub
Private Sub jam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam.TextChanged
If jabatan.Text = "Mandor" Then
upah.Text = 7500 * Val(jam.Text)
ElseIf jabatan.Text = "Kepala Bagian" Then
upah.Text = 10000 * Val(jam.Text)
ElseIf jabatan.Text = "Staf" Then
upah.Text = 5000 * Val(jam.Text)
End If
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
total.Text = Val(gaji.Text) + Val(istri.Text) + Val(anak.Text) + Val(upah.Text) - Val(pajak.Text)
End Sub
Sub buattabel()
lv.Columns.Add("Nama", 180, HorizontalAlignment.Left)
lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
lv.Columns.Add("Status", 60, HorizontalAlignment.Left)
lv.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Left)
lv.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Left)
lv.Columns.Add("Tunjangan anak", 120, HorizontalAlignment.Left)
lv.Columns.Add("Pajak", 60, HorizontalAlignment.Left)
lv.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Left)
lv.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Left)
lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)
lv.View = View.Details
lv.FullRowSelect = True
lv.GridLines = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(gaji.Text)
lst.SubItems.Add(istri.Text)
lst.SubItems.Add(jumlah.Text)
lst.SubItems.Add(anak.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(jam.Text)
lst.SubItems.Add(upah.Text)
lst.SubItems.Add(total.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
nama.Text = ""
jabatan.Text = ""
status.Text = ""
gaji.Text = ""
istri.Text = ""
jumlah.Text = ""
anak.Text = ""
pajak.Text = ""
jam.Text = ""
upah.Text = ""
total.Text = ""
nama.Focus()
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Call isitabel()
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 btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
End
End Sub
End Class