data buku stmik pringsewu 6

Private Sub cmdbatal_Click()
txtkode = ""
txtjudul = ""
txtpengarang = ""
txtterbit = ""
txtpenerbit
txtharga = ""
txtkode.SetFocus

End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkode = ""
txtjudul = ""
txtpengarang = ""
txtterbit = ""
txtpenerbit = ""
txtharga = ""
txtkode.SetFocus

End Sub

Private Sub cmdproses_Click()
Dim H, JB, PENG, HAR, PENER As String
txtterbit = "20" & Mid(txtkode, 5, 2)
H = Left(txtkode, 3)
If H = "SIM" Or H = "sim" Then
JB = "sistem informasi manajemen"
PENG = "fadiya ulfa"
HAR = "75900"
ElseIf H = "EDP" Or H = "edp" Then
JB = "eletronik data processing"
PENG = "nurul agustina"
HAR = "62000"
ElseIf H = "MNJ" Or H = "mnj" Then
JB = "manajemen"
PENG = "rian hidayat"
HAR = "42000"
ElseIf H = "CDR" Or H = "cdr" Then
JB = "corel draw"
PENG = "siti nur khotimah"
HAR = "53000"
ElseIf H = "RPL" Or H = "rpl" Then
JB = "rekayasa perangkat lunak"
PENG = "winda erlanti"
HAR = "83000"
End If
txtjudul = JB
txtpengarang = PENG
txtharga = HAR
H = Right(txtkode, 1)
If H = "A" Or H = "a" Then
PENER = "andi offset yogyakarta"
ElseIf H = "I" Or H = "i" Then
PENER = "indah surabaya"
ElseIf H = "S" Or H = "s" Then
PENER = "salemba empat"
ElseIf H = "E" Or H = "e" Then
PENER = "elek media komputindo"
ElseIf H = "M" Or H = "m" Then
PENER = "maxicom"""
End If
txtpenerbit = PENER

End Sub

Private Sub Form_Active()
txtkode = ""
txtjudul = ""
txtpengarang = ""
txtterbit = "'"
txtharga = ""
txtkode.SetFocus

End Sub