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

Komentar

Postingan populer dari blog ini

PEMILIHAN MULI MEKHANAI

cara membuat grafik 3D Plots Surf, Mesh, dan Contour menggunakan matlab

STMIK PRINGSEWU GELAR PRA PENDIDIKAN DASAR MILITER (PRADIKSARMIL)