Data Buku STMIK Pringsewu part 2 tgs 3.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.Text = "20" & Mid(txtkode.Text, 5, 2)
H = Left(txtkode.Text, 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 = "Elektronik 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.Text = JB
txtpengarang.Text = PENG
txtharga.Text = HAR
H = Right(txtkode.Text, 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.Text = PENER
End Sub

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