Penggajian Karyawan
- Listing Program Form Login
- 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 = "dedy" And pwd.Text = "frengki" 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
End Class
2.Listing Program Form Menu
- 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
3.Listing Program Form Data Karyawan
- 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("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 = gol.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 = ""
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()
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
End Class
Komponen-komponen yang ada di setiap Form
Komponen | Properti | Nilai |
Form Menu | Name | Form_Menu |
Text | Form_Menu | |
Windowstate | Maximized | |
BackColor | ActiveCaption | |
ControlBox | False | |
MenuStrip | DropDownItem | DataKaryawan |
- | ||
Exit |
Komponen | Properti | Nilai |
Form Login | Name | form_Login |
Text | form_Login | |
StartPosition | CenterScreen | |
ControlBox | False | |
BackColor | GreenYellow | |
Button1 | Forecolor | DarkRed |
Text | Sig In | |
Name | Btnok | |
Button2 | Forecolor | DarkRed |
Text | Keluar | |
Name | Btnkeluar | |
Label1 | Forecolor | DarkRed |
Text | USer Name | |
Name | Label1 | |
Label2 | Forecolor | DarkRed |
Text | Password | |
Name | Label2 | |
TextBox1 | Name | User |
Forecolor | DarkRed | |
TextBox2 | Name | pwd |
Forecolor | DarkRed |
Komponen | Properti | Nilai |
Form Data Karyawan | Name | Form_DataKaryawan |
Windowstate | Maximized | |
ControlBox | False | |
Text | Form_DataKaryawan | |
BackColor | SkyBlue | |
GroupBox | Name | GroupBox1 |
Font | Californian FB | |
BackColor | LightBlue | |
Text | Menu File | |
Label1 | Name | Label1 |
Text | Golongan | |
Label2 | Name | Label2 |
Text | Gaji Pokok | |
Label3 | Name | Label3 |
Text | Pajak | |
Label4 | Name | Label4 |
Text | Status Kerja | |
Label5 | Name | Label5 |
Text | Jam Lembur | |
Label6 | Name | Label6 |
Text | Upah Lembur | |
Label7 | Name | Label7 |
Text | Status | |
Label8 | Name | Label8 |
Text | Jumlah Anak | |
Label9 | Name | Label9 |
Text | Tunjangan Istri | |
Label10 | Name | Label10 |
Text | Tunjangan Anak | |
Label11 | Name | Label11 |
Text | Total Gaji | |
TextBox1 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Gol | |
TextBox2 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Gajpokok | |
TextBox3 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | pajak | |
TextBox4 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | slembur | |
TextBox5 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | jamlembur | |
TextBox6 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | lembur | |
TextBox7 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Status | |
TextBox8 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Jmlanak | |
TextBox9 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Tunjanganistri | |
TextBox10 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Tunjangananak | |
TextBox11 | BackColor | InactiveCaption |
Font | Rockwell Extra | |
Name | Tunjangananak | |
Button1 | Font | Californian FB |
Text | Proses | |
Name | Proses | |
Button2 | Font | Californian FB |
Text | Hapus | |
Name | hapus | |
Button3 | Font | Californian FB |
Text | Keluar | |
Name | keluar | |
Button4 | Font | Californian FB |
Text | Simpan Ke List View | |
Name | simpan | |
Button5 | Font | Californian FB |
Text | Hapus Data Yang Di Pilih | |
Name | btnhapus1 | |
Button6 | Font | Californian FB |
Text | Hapus Semua | |
Name | btnhapus2 | |
ListView | Name | LV |
BackColor | ScrollBar | |
0 komentar:
Posting Komentar