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
Private Sub addapus()
lembur.Text = ""
n_karyawan.Text = ""
gol.Text = ""
gajpokok.Text = ""
pajak.Text = ""
status.Text = ""
jmlanak.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
totgaji.Text = ""
jamlembur.Text = ""
Slembur.Text = ""
gol.Focus()
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
totgaji.Text = Val(gajpokok.Text) + Val(tunjangananak.Text) + Val(tunjanganistri.Text) + Val(lembur.Text) - Val(pajak.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
gol.Items.Add("Mandor")
gol.Items.Add("Kepala Bagian")
gol.Items.Add("Staf")
Slembur.Items.Add("Lembur")
Slembur.Items.Add("Tidak Lembur")
status.Items.Add("MENIKAH")
status.Items.Add("BELUM MENIKAH")
jmlanak.Enabled = False
Dim i As Integer
For i = 1 To 5
jamlembur.Items.Add(i)
Next
buattabel()
End Sub
Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
If gol.Text = "Mandor" Then
gajpokok.Text = 1750000
pajak.Text = (0.015 * Val(gajpokok.Text))
ElseIf gol.Text = "Kepala Bagian" Then
gajpokok.Text = 2500000
pajak.Text = (0.015 * Val(gajpokok.Text))
ElseIf gol.Text = "Staf" Then
gajpokok.Text = 1250000
pajak.Text = (0.015 * Val(gajpokok.Text))
Else
gajpokok.Text = 0
End If
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "BELUM MENIKAH" Then
tunjangananak.Text = 0
tunjanganistri.Text = 0
jmlanak.Enabled = False
ElseIf status.Text = "MENIKAH" Then
jmlanak.Enabled = True
tunjanganistri.Text = (0.09 * Val(gajpokok.Text))
End If
End Sub
Private Sub jmlanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlanak.TextChanged
If jmlanak.Text = "" Then
tunjangananak.Text = 0
ElseIf jmlanak.Text = 1 Then
tunjangananak.Text = Val(jmlanak.Text) * (0.03 * Val(gajpokok.Text))
ElseIf jmlanak.Text = 2 Then
tunjangananak.Text = 2 * (0.07 * Val(gajpokok.Text))
ElseIf jmlanak.Text >= 2 Then
tunjangananak.Text = 2 * (0.07 * Val(gajpokok.Text))
End If
End Sub
Private Sub nid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
If gol.Text = "Mandor" Then
If jamlembur.Text = 1 Then
lembur.Text = 1 * (5000)
ElseIf jamlembur.Text = 2 Then
lembur.Text = 2 * (5000)
ElseIf jamlembur.Text = 3 Then
lembur.Text = 3 * (5000)
ElseIf jamlembur.Text = 4 Then
lembur.Text = 4 * (5000)
ElseIf jamlembur.Text = 5 Then
lembur.Text = 5 * (5000)
Else
lembur.Text = 0
End If
ElseIf gol.Text = "Kepala Bagian" Then
If jamlembur.Text = 1 Then
lembur.Text = 1 * (10000)
ElseIf jamlembur.Text = 2 Then
lembur.Text = 2 * (10000)
ElseIf jamlembur.Text = 3 Then
lembur.Text = 3 * (10000)
ElseIf jamlembur.Text = 4 Then
lembur.Text = 4 * (10000)
ElseIf jamlembur.Text = 5 Then
lembur.Text = 5 * (10000)
Else
lembur.Text = 0
End If
ElseIf gol.Text = "Staf" Then
If jamlembur.Text = 1 Then
lembur.Text = 1 * (7500)
ElseIf jamlembur.Text = 2 Then
lembur.Text = 2 * (7500)
ElseIf jamlembur.Text = 3 Then
lembur.Text = 3 * (7500)
ElseIf jamlembur.Text = 4 Then
lembur.Text = 4 * (7500)
ElseIf jamlembur.Text = 5 Then
lembur.Text = 5 * (7500)
Else
lembur.Text = 0
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
isitabel()
n_karyawan.Text = ""
jamlembur.Text = ""
lembur.Text = ""
gol.Text = ""
gajpokok.Text = ""
pajak.Text = ""
status.Text = ""
Slembur.Text = ""
jmlanak.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
totgaji.Text = ""
lembur.Focus()
End Sub
Private Sub Slembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Slembur.SelectedIndexChanged
If Slembur.Text = "Tidak Lembur" Then
jamlembur.Enabled = False
lembur.Enabled = False
ElseIf Slembur.Text = "Lembur" Then
lembur.Enabled = True
jamlembur.Enabled = True
End If
End Sub
Private Sub btnhapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus1.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub btnhapus2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus2.Click
LV.Items.Clear()
End Sub
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
End Sub
End Class
Public Class form_Login
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Close()
End Sub
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If user.Text = "Daniel" And pwd.Text = "123" Then
Form_Menu.Show()
Me.Hide()
Else
MsgBox("MaaF! PAsword Salah!")
user.Text = ""
pwd.Text = ""
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form_Menu.Show()
End Sub
Private Sub user_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles user.TextChanged
End Sub
End Class
Public Class Form_Menu
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click
Form_DataKaryawan.Show()
End Sub
End Class
Tidak ada komentar:
Posting Komentar