Private Sub cmdbatal_Click()
txtkodebuku.SetFocus
txtkodebuku.Text = “”
txtjudulbuku.Text = “”
txtpengarang.Text = “”
txttahunterbit.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtkodebuku.SetFocus
txtkodebuku.Text = “”
txtjudulbuku.Text = “”
txtpengarang.Text = “”
txttahunterbit.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim K As String
txttahunterbit.Text = “20” &Mid(txtkodebuku.Text, 5, 2)
K = Left(txtkodebuku.Text, 3)
If K = “SIM” Then
txtjudulbuku.Text = “SISTEM INFORMASI MANAJEMEN”
txtpengarang.Text = “FadiyaUlfa”
txtharga.Text = “75900 —> DILARANG BON !!”
ElseIf K = “EDP” Then
txtjudulbuku.Text = “Elektronik Data Processing”
txtpengarang.Text = “NurulAgustina”
txtharga.Text = “62000 —> DILARANG BON !!”
ElseIf K = “MNJ” Then
txtjudulbuku.Text = “Manajemen”
txtpengarang.Text = “RianHidayat”
txtharga.Text = “42000 —> DILARANG BON !!”
ElseIf K = “CDR” Then
txtjudulbuku.Text = “Corel Draw”
txtpengarang.Text = “SitiNurKhotimah”
txtharga.Text = “53000 —> DILARANG BON !!”
ElseIf K = “RPL” Then
txtjudulbuku.Text = “RekayasaPerangkatLunak”
txtpengarang.Text = “WindaErlianti”
txtharga.Text = “83000 —> DILARANG BON !!”
End If
K = Right(txtkodebuku.Text, 1)
If K = “A” Then
txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf K = “I” Then
txtpenerbit.Text = “Indah Surabaya”
ElseIf K = “S” Then
txtpenerbit.Text = “SalembaEmpat”
ElseIf K = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
ElseIf K = “M” Then
txtpenerbit.Text = “Maxicom”
End If
End Sub
PT.PULANG PERGi
Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnik.Text = “”
txtgol.Text = “”
txtkodestat.Text = “”
txtstat.Text = “”
txtthn.Text = “”
txtbag.Text = “”
txtjab.Text = “”
txtgapok.Text = “”
txttunj.Text = “”
txttot.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnik.Text = “”
txtgol.Text = “”
txtkodestat.Text = “”
txtstat.Text = “”
txtthn.Text = “”
txtbag.Text = “”
txtjab.Text = “”
txtgapok.Text = “”
txttunj.Text = “”
txttot.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim k As String
txtthn.Text = “20” & Mid(txtnik.Text, 3, 2)
k = Mid(txtnik.Text, 7, 1)
If k = “S” Then
txtkodestat.Text = “S”
txtstat.Text = “Single”
ElseIf k = “M” Then
txtkodestat.Text = “M”
txtstat.Text = “Menikah”
ElseIf k = “J” Then
txtkodestat.Text = “J”
txtstat.Text = “Janda”
ElseIf k = “D” Then
txtkodestat.Text = “D”
txtstat.Text = “Duda”
End If
k = Mid(txtnik.Text, 5, 1)
If k = “A” Then
txtgol.Text = “A”
txtjab.Text = “Manager”
txtgapok.Text = “4000000”
txttunj.Text = “1025000”
ElseIf k = “B” Then
txtgol.Text = “B”
txtjab.Text = “Ka.Seksi”
txtgapok.Text = “3500000”
txttunj.Text = “975000”
ElseIf k = “C” Then
txtgol.Text = “C”
txtjab.Text = “Staff”
txtgapok.Text = “3000000”
txttunj.Text = “925000”
End If
k = Right(txtnik.Text, 3)
If k = “KEU” Then
txtbag.Text = “Accounting”
ElseIf k = “ADM” Then
txtbag.Text = “Administrasi”
ElseIf k = “SDM” Then
txtbag.Text = “General Affair”
ElseIf k = “EDP” Then
txtbag.Text = “IT Unit”
ElseIf k = “SPM” Then
txtbag.Text = “seccurity”
End If
txttot.Text = Val(txtgapok.Text) + Val(txttunj.Text)
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub
comboKODEBUKU
Private Sub form_load()
cbokodebuku.AddItem “A-SIM-01”
cbokodebuku.AddItem “I-EDP-02”
cbokodebuku.AddItem “S-MNJ-03”
cbokodebuku.AddItem “E-CDR-04”
cbokodebuku.AddItem “M-RPL-05”
End Sub
Private Sub cmdbatal_Click()
cbokodebuku.SetFocus
cbokodebuku.Text = “”
txtjudulbuku.Text = “”
txtpengarang.Text = “”
txttahunterbit.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
cbokodebuku.SetFocus
cbokodebuku.Text = “”
txtjudulbuku.Text = “”
txtpengarang.Text = “”
txttahunterbit.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim K As String
txttahunterbit.Text = “20” &Right(cbokodebuku.Text, 2)
K = Mid(cbokodebuku.Text, 3, 3)
If K = “SIM” Then
txtjudulbuku.Text = “SISTEM INFORMASI MANAJEMEN”
txtpengarang.Text = “FadiyaUlfa”
txtharga.Text = “75900 ”
ElseIf K = “EDP” Then
txtjudulbuku.Text = “Elektronik Data Processing”
txtpengarang.Text = “NurulAgustina”
txtharga.Text = “62000”
ElseIf K = “MNJ” Then
txtjudulbuku.Text = “Manajemen”
txtpengarang.Text = “RianHidayat”
txtharga.Text = “42000”
ElseIf K = “CDR” Then
txtjudulbuku.Text = “Corel Draw”
txtpengarang.Text = “SitiNurKhotimah”
txtharga.Text = “53000”
ElseIf K = “RPL” Then
txtjudulbuku.Text = “RekayasaPerangkatLunak”
txtpengarang.Text = “WindaErlianti”
txtharga.Text = “83000”
End If
K = Left(cbokodebuku.Text, 1)
If K = “A” Then
txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf K = “I” Then
txtpenerbit.Text = “Indah Surabaya”
ElseIf K = “S” Then
txtpenerbit.Text = “SalembaEmpat”
ElseIf K = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
ElseIf K = “M” Then
txtpenerbit.Text = “Maxicom”
End If
End Sub
NPM
Private Sub CMDPROSES_Click()
Dim K, J, PS As String
K = Mid(TXTNPM.Text, 4, 1)
If K = “1” Then
J = “SISTEM INFORMASI”
ElseIf K = “2” Then
J = “TEHNIK INFORMATIKA”
ElseIf K = “3” Then
J = “MANAJEMEN INFORMATIKA”
ElseIf K = “4” Then
J = “KOMPUTER AKUTANSI”
End If
TXTJURUSAN.Text = J
K = Mid(TXTNPM.Text, 6, 2)
If K = “01” Then
PS = “STRATA SATU”
ElseIf K = “02” Then
PS = “DIPLOMA EMPAT”
ElseIf K = “03” Then
PS = “DIPLOMA TIGA”
ElseIf K = “04” Then
PS = “DIPLOMA DUA”
End If
TXTPRODI.Text = PS
TXTTHNMASUK.Text = “20” & Left(TXTNPM.Text, 2)
TXTNOURUT.Text = Right(TXTNPM.Text, 3)
End Sub
ikhsanstmikpringsewu 