Daftar penggajian pegawai

desain gaji pegawai

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        nik.Items.Add("PM010")

        nik.Items.Add("PS111")

        nik.Items.Add("KU101")

        nik.Items.Add("GD100")

        nik.Items.Add("PM011")

        jabatan.Items.Add("Kepala Divisi")

        jabatan.Items.Add("Staf")

        jabatan.Items.Add("Wakil Kepala")

        status.Items.Add("Menikah")

        status.Items.Add("Belum Menikah")

        Dim h As Integer

        For h = 1 To 4

            jumnak.Items.Add(h)

        Next h

    End Sub

    End Sub

    Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged

      

If jabatan.Text Then

jabatan.Text = "kepala"

            jabatan.Text = "staf"

            jabatan.Text = "wakil"

        End If

    End Sub

    Private Sub jumnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "PM010"

                nama.Text = "Budi"

            Case "PS111"

                nama.Text = "Angga"

            Case "KU101"

                nama.Text = "Mulia"

            Case "GD100"

                nama.Text = "Doni"

            Case "PM011"

                nama.Text = "Karyawan"

        End Select

        Dim M As String

        M = Microsoft.VisualBasic.Left(nik.Text, 2)

        Select Case M

            Case "PM"

                bagian.Text = "Pemasaran"

            Case "PS"

                bagian.Text = "Personalia"

            Case "KU"

                bagian.Text = "Keuangan"

            Case "GD"

                bagian.Text = "Gudang"

        End Select

    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 Divisi"

                totg.Text = 5000000

                pajak.Text = 0.1 * totg.Text

            Case "Staf"

                totg.Text = 2000000

                pajak.Text = 0.1 * totg.Text

            Case "Wakil Kepala"

                totg.Text = 3500000

                pajak.Text = 0.1 * totg.Text

        End Select

    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"

                tkel.Text = 0.15 * totg.Text

            Case "Belum Menikah"

                tkel.Text = 0 * totg.Text

        End Select

    End Sub

    Private Sub jumnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumnaknak.SelectedIndexChanged

        Select Case jumnak.Text

            Case "1"

                jumnak.Text = 0.5 * totg.Text

            Case "2"

                jumnak.Text = 0.1 * totg.Text

            Case "3"

                jumnak.Text = "Berlaku Untuk Dua Anak saja"

            Case "4"

                jumnak.Text = "Berlaku Untuk Dua Anak saja"

        End Select

    End Sub

    Private Sub Total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total.KeyPress

        totg.Text = Val(totg.Text) + Val(tkel.Text) + Val(jumnak.Text) - pajak.Text

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        nik.Text = ""

        nama.Text = ""

        bagian.Text = ""

        jabatan.Text = ""

        totg.Text = ""

        pajak.Text = ""

        status.Text = ""

        jumnak.Text = ""

        jumnak.Text = ""

        tkel.Text = ""

        totg.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        Me.Close()

    End Sub

    Private Sub totg_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totg.TextChanged

        totg.Text = Val(totg.Text) + Val(tkel.Text) + Val(jumnak.Text) - pajak.Text

    End Sub

End Class