TUGAS 3.6

TUGAS 3.6

DATA BUKU STMIK PRINGSEWU

Private Sub cmdbatal_Click()

txtkode = ""

Txtjudul = ""

Txtpengarang = ""

txtterbit = ""

Txtpenerbit = ""

txtharga = ""

txtkode.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtkode = ""

Txtjudul = ""

Txtpengarang = ""

txtterbit = ""

Txtpenerbit = ""

txtharga = ""

txtkode.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim A, jb, peng, har, pener As String

txtterbit = "20" & Mid(txtkode, 5, 2)

A = Left(txtkode, 3)

If A = "SIM" Or A = "SIM" Then

jb = "Sistem Informasi Manajemen"

peng = "Fadiya Ulfa"

har = "75900"

ElseIf A = "EDP" Or A = "edp" Then

jb = "Elektronik Data Processing"

peng = "Nurul Agustina"

har = "62000"

ElseIf A = "MNJ" Or A = "mnj" Then

jb = "Manajemen"

peng = "Rian Hidayat"

har = "42000"

ElseIf A = "CDR" Or A = "cdr" Then

jb = "Corel Draw"

peng = "Siti Nur Khotimah"

har = "53000"

ElseIf A = "RPL" Or A = "rpl" Then

jb = "Rekayasa Perangkat Lunak"

peng = "Winda Erlanti"

har = "83000"

End If

Txtjudul = jb

Txtpengarang = peng

txtharga = har

A = Right(txtkode, 1)

If A = "A" Or A = "a" Then

pener = "Andi offset yogyakarta"

ElseIf A = "I" Or A = "i" Then

pener = "Indah Surabaya"

ElseIf A = "S" Or A = "S" Then

pener = "Salemba Empat"

ElseIf A = "" Or A = "e" Then

pener = "Elek Media Koputindo"

ElseIf A = "M" Or A = "m" Then

pener = "Maxicom"

End If

Txtpenerbit = pener

End Sub

Private Sub Form_Activate()

txtkode = ""

Txtjudul = ""

Txtpengarang = ""

txtterbit = ""

Txtpenerbit = ""

txtharga = ""

txtkode.SetFocus

End Sub