Kasus : Klik Disini
Public Class Menu
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
Private Sub GajiPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiPegawaiToolStripMenuItem.Click
GajiPegawai.MdiParent = Me
GajiPegawai.Show()
End Sub
End Class
Public Class Login
Private Sub masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk.Click
If nama.Text = "Ardianti" And password.Text = "password" Then
My.Forms.Menu.Show()
Me.Hide()
Else
MsgBox("Maaf Nama & Password Salah")
End If
End Sub
End Class
Public Class GajiPegawai
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Staf")
jabatan.Items.Add("Mandor")
kerja.Items.Add("Lembur")
kerja.Items.Add("Tidak Lembur")
For i = 1 To 8
jamlembur.Items.Add(i)
Next
status.Items.Add("Menikah")
status.Items.Add("Belum Menikah")
kerja.Enabled = False
jamlembur.Enabled = False
status.Enabled = False
jmlanak.Enabled = False
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
LV.Columns.Add("Nama", 150, HorizontalAlignment.Left)
LV.Columns.Add("Jabatan", 120, HorizontalAlignment.Left)
LV.Columns.Add("Gaji Pokok", 120, HorizontalAlignment.Left)
LV.Columns.Add("Kerja", 120, HorizontalAlignment.Left)
LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Left)
LV.Columns.Add("Upah Lembur", 120, HorizontalAlignment.Left)
LV.Columns.Add("Status", 120, 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", 120, HorizontalAlignment.Left)
LV.Columns.Add("Total Gaji", 120, HorizontalAlignment.Left)
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
Select Case jabatan.Text
Case "Kepala Bagian"
gajipokok.Text = 2500000
Case "Staf"
gajipokok.Text = 1250000
Case "Mandor"
gajipokok.Text = 1750000
End Select
pajak.Text = gajipokok.Text * 0.015
kerja.Enabled = True
End Sub
Private Sub kerja_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kerja.SelectedIndexChanged
Select Case kerja.Text
Case "Lembur"
jamlembur.Enabled = True
Case "Tidak Lembur"
upahlembur.Text = 0
jamlembur.Enabled = False
jamlembur.Text = 0
End Select
End Sub
Private Sub jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
Select Case jabatan.Text
Case "Kepala Bagian"
upahlembur.Text = 7500 * jamlembur.Text
Case "Staf"
upahlembur.Text = 5000 * jamlembur.Text
Case "Mandor"
upahlembur.Text = 10000 * jamlembur.Text
End Select
status.Enabled = True
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
Select Case status.Text
Case "Menikah"
tunjistri.Text = gajipokok.Text * 0.09
jmlanak.Enabled = True
Case "Belum Menikah"
tunjistri.Text = 0
tunjanak.Text = 0
jmlanak.Enabled = False
jmlanak.Text = 0
End Select
End Sub
Private Sub jmlanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlanak.TextChanged
If Val(jmlanak.Text) = 1 Then
tunjanak.Text = gajipokok.Text * 0.03
ElseIf Val(jmlanak.Text) >= 2 Then
tunjanak.Text = gajipokok.Text * 0.07
End If
If jmlanak.Text = "" Then
tunjanak.Text = ""
End If
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
totgaji.Text = Val(gajipokok.Text) + Val(upahlembur.Text) + Val(tunjistri.Text) + Val(tunjanak.Text) - Val(pajak.Text)
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
Dim LVitem As New ListViewItem
LVitem.Text = nama.Text
LVitem.SubItems.Add(jabatan.Text)
LVitem.SubItems.Add("Rp. " & gajipokok.Text)
LVitem.SubItems.Add(kerja.Text)
LVitem.SubItems.Add(jamlembur.Text)
LVitem.SubItems.Add("Rp. " & upahlembur.Text)
LVitem.SubItems.Add(status.Text)
LVitem.SubItems.Add("Rp. " & tunjistri.Text)
LVitem.SubItems.Add(jmlanak.Text)
LVitem.SubItems.Add("Rp. " & tunjanak.Text)
LVitem.SubItems.Add("Rp. " & pajak.Text)
LVitem.SubItems.Add("Rp. " & totgaji.Text)
LV.Items.Add(LVitem)
End Sub
Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
nama.Text = ""
jabatan.Text = ""
kerja.Text = ""
jamlembur.Text = ""
status.Text = ""
jmlanak.Text = ""
gajipokok.Text = 0
upahlembur.Text = 0
tunjistri.Text = 0
tunjanak.Text = 0
pajak.Text = 0
totgaji.Text = 0
nama.Focus()
End Sub
Private Sub hapusterpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusterpilih.Click
LV.Items.Remove(LV.FocusedItem)
End Sub
Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
LV.Items.Clear()
End Sub
End Class
Tidak ada komentar:
Posting Komentar