tugas 3.4 Data buku stmik pringsewu

tugas 3.4

Private Sub cbokode_Click()

Select Case cbokode

Case "A-SIM-01"

Case "I-ELP-02"

Case "S-MQJ-03"

Case "E-CER-04"

Case "M-RYL-05"

End Select

End Sub

Private Sub cmdbatal_Click()

cbokode = ""

txtjudul = ""

txtpengarang = ""

txttahun = ""

txtpenerbit = ""

txtharga = ""

cbokode.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

cbokode = ""

txtjudul = ""

txtpengarang = ""

txttahun = ""

txtpenerbit = ""

txtharga = ""

cbokode.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim A As String

A = Left(cbokode, 1)

If A = "A" Then

txtpenerbit = "Irfan Yogyakarta"

ElseIf A = "I" Then

txtpenerbit = "Indah Surabaya"

ElseIf A = "S" Then

txtpenerbit = "darmajaya"

ElseIf A = "D" Then

txtpenerbit = " Media Komputindo"

ElseIf A = "M" Then

txtpenerbit = "Maxicom"

End If

A = Mid(cbokode, 3, 3)

If A = "SIM" Then

txtjudul = "Sistem Informasi Manajemen"

txtpengarang = “ Isna nursasi"

txtharga = "75900"

ElseIf A = "EDP" Then

txtjudul = "Elektronik Data Processing"

txtpengarang = "andi irawan"

txtharga = "62000"

ElseIf A = "MNJ" Then

txtjudul = "Manajemen"

txtpengarang = "Valentina Mariana Adiwianti"

txtharga = "42000"

ElseIf A = "CDR" Then

txtjudul = "Corel Draw"

txtpengarang = "Anjas sunandar"

txtharga = "53000"

ElseIf A = "RPL" Then

txtjudul = "peran  Perangkat Lunak"

txtpengarang = "Sinta Umpu Singa"

txtharga = "83000"

End If

txttahun = "20" & Right(cbokode, 2)

End Sub

Private Sub Form_Load()

cbokode.AddItem "A-SIM-01"

cbokode.AddItem "I-ElP-02"

cbokode.AddItem "S-MqJ-03"

cbokode.AddItem "E-CeR-04"

cbokode.AddItem "M-RyL-05"

End Sub