VIBI1 CV. AL-QORY KHAN BAHAGIA

rumus cv. al- qory

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama = “”

txtnik = “”

txtgol = “”

txtkode = “”

txtstatus = “”

txttahun = “”

txtjabatan = “”

txtbagian = “”

txtgapok = “”

txttun = “”

txttotal = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama = “”

txtnik = “”

txtgol = “”

txtkode = “”

txtstatus = “”

txttahun = “”

txtjabatan = “”

txtbagian = “”

txtgapok = “”

txttun = “”

txttotal = “”

End Sub

Private Sub cmdproses_Click()

txttahun = Left(txtnik.Text, 4)

G = Mid(txtnik.Text, 5, 1)

If G = “A” Then

txtgol = “A”

txtjabatan = “Manager”

txtgapok = “4000000”

txttun = “1025000”

ElseIf G = “B” Then

txtgol = “B”

txtjabatan = “Ka. Seksi”

txtgapok = “3500000”

txttun = “975000”

ElseIf G = “C” Then

txtgol = “C”

txtjabatan = “Staff”

txtgapok = “3000000”

txttun = “925000”

End If

S = Mid(txtnik.Text, 7, 1)

If S = “S” Then

txtkode = “S”

txtstatus = “Single”

ElseIf S = “M” Then

txtkode = “M”

txtstatus = “Menikah”

ElseIf S = “J” Then

txtkode = “J”

txtstatus = “Janda”

ElseIf S = “D” Then

txtkode = “D”

txtstatus = “Duda”

End If

B = Right(txtnik.Text, 3)

If B = “KEU” Then

txtbagian = “Accounting”

ElseIf B = “ADM” Then

txtbagian = “Administrasi”

ElseIf B = “SDM” Then

txtbagian = “General Affair”

ElseIf B = “EDP” Then

txtbagian = “IT Unit”

ElseIf B = “SPM” Then

txtbagian = “Security”

End If

txttotal = Val(txtgapok.Text) + Val(txttun.Text)

End Sub

 

Private Sub txtnama_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnik.SetFocus

End If

End Sub