TUGAS 3.6 DATA BUKU STMIK PRINGSEWU

Private Sub cmdbatal_Click()

TXTKODE = ""

TXTJUDUL = ""

TXTPENGARANG = ""

TXTTAHUN = ""

TXTTERBIT = ""

TXTHARGA = ""

TXTKODE.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

TXTKODE = ""

TXTJUDUL = ""

TXTPENGARANG = ""

TXTTAHUN = ""

TXTTERBIT = ""

TXTHARGA = ""

TXTKODE.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim A As String

A = Left(TXTKODE, 3)

If A = "SIM" Then

TXTJUDUL = "Sistem Informasi Manajemen"

TXTPENGARANG = "Fadiya Ulfa"

TXTHARGA = "75900"

ElseIf A = "EDP" Then

TXTJUDUL = "Elektronik Data Processing"

TXTPENGARANG = "Nurul Agustina"

TXTHARGA = "62000"

ElseIf A = "MNJ" Then

TXTJUDUL = "Manajemen"

TXTPENGARANG = "Rian Hidayat"

TXTHARGA = "42000"

ElseIf A = "CDR" Then

TXTJUDUL = "Corel Draw"

TXTPENGARANG = "Siti Nur Khotimah"

TXTHARGA = "53000"

ElseIf A = "RPL" Then

TXTJUDUL = "Rekayasa Perangkat Lunak"

TXTPENGARANG = "Winda Erlianti"

TXTHARGA = "83000"

End If

TXTTAHUN = "20" & Mid(TXTKODE, 5, 2)

A = Right(TXTKODE, 1)

If A = "A" Then

TXTTERBIT = "Andi Offset Yogyakarta"

ElseIf A = "I" Then

TXTTERBIT = "Indah Surabaya"

ElseIf A = "S" Then

TXTTERBIT = "Salemba Empat"

ElseIf A = "E" Then

TXTTERBIT = "Elek Media Komputindo"

ElseIf A = "M" Then

TXTTERBIT = "Maxicom"

End If

End Sub