DATA BUKU FIRZA

Private Sub CmdBATAL_Click()
TxtKODE.SetFocus
TxtKODE.Text = “”
TxtJUDUL.Text = “”
TxtPENGARANG.Text = “”
TxtTAHUN.Text = “”
TxtPENERBIT.Text = “”
TxtHARGA.Text = “”
End Sub

Private Sub CmdKELUAR_Click()
Unload Me
End Sub

Private Sub CmdLAGI_Click()
TxtKODE.SetFocus
TxtKODE.Text = “”
TxtJUDUL.Text = “”
TxtPENGARANG.Text = “”
TxtTAHUN.Text = “”
TxtPENERBIT.Text = “”
TxtHARGA.Text = “”
End Sub

Private Sub CmdPROSES_Click()
Dim A As String
TxtTAHUN.Text = “20” & Right(TxtKODE.Text, 2)
A = Mid(TxtKODE.Text, 3, 3)
If A = “SIM” Then
TxtJUDUL.Text = “SISTEM INFORMASI MANAJEMEN”
ElseIf A = “EDP” Then
TxtJUDUL.Text = “ELEKTRONIK DATA PROCESSING”
ElseIf A = “MNJ” Then
TxtJUDUL.Text = “MANAJEMEN”
ElseIf A = “CDR” Then
TxtJUDUL.Text = “CORELDRAW”
ElseIf A = “RPL” Then
TxtJUDUL.Text = “REKAYASA PERANGKAT LUNAK”
End If

A = Left(TxtKODE.Text, 1)
If A = “A” Then
TxtPENERBIT.Text = “ANDI OFSSET YOGYAKARTA”
ElseIf A = “I” Then
TxtPENERBIT.Text = “INDAH SURABAYA”
ElseIf A = “S” Then
TxtPENERBIT.Text = “SALEMBA”
ElseIf A = “E” Then
TxtPENERBIT.Text = “ELEK MEDIA KOMPUTINDO”
ElseIf A = “M” Then
TxtPENERBIT.Text = “MAXICOM”
End If

A = Mid(TxtKODE.Text, 3, 3)
If A = “SIM” Then
TxtPENGARANG.Text = ” ANDRA SETIAWAN”
ElseIf A = “EDP” Then
TxtPENGARANG.Text = “DESI ISTIQOMAH”
ElseIf A = “MNJ” Then
TxtPENGARANG.Text = “SANDY FITRAJAYA”
ElseIf A = “CDR” Then
TxtPENGARANG.Text = “TRI INDAH SARI”
ElseIf A = “RPL” Then
TxtPENGARANG.Text = “ERNITA”
End If

A = Mid(TxtKODE.Text, 3, 3)
If A = “SIM” Then
TxtHARGA.Text = “83000”
ElseIf A = “EDP” Then
TxtHARGA.Text = “57000”
ElseIf A = “MNJ” Then
TxtHARGA.Text = “42000”
ElseIf A = “CDR” Then
TxtHARGA.Text = “62000”
ElseIf A = “RPL” Then
TxtHARGA.Text = “75900”
End If
End Sub