TUGAS13

 

 

Private Sub Cmdbatal_Click()

Textkode.SetFocus

Textkode.Text = “”

Textjudul.Text = “”

Textpengarang.Text = “”

Texttahun.Text = “”

Textpenerbit.Text = “”

Textharga.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdlagi_Click()

Textkode.SetFocus

Textkode.Text = “”

Textjudul.Text = “”

Textpengarang.Text = “”

Texttahun.Text = “”

Textpenerbit.Text = “”

Textharga.Text = “”

End Sub

 

 

Private Sub Cmdproses_Click()

Dim M As String

M = Left(Textkode, 3)

If M = “SIM” Then

Textjudul.Text = “Sistem Informasi Manajemen”

Textpengarang.Text = “Fadiya Ulfa”

Textharga.Text = “75900”

ElseIf M = “EDP” Then

Textjudul.Text = “Elektronik Data Processing”

Textpengarang.Text = “Nurul Agustina”

Textharga.Text = “62000”

ElseIf M = “MNJ” Then

Textjudul.Text = “Manajemen”

Textpengarang.Text = “Rian Hidayat”

Textharga.Text = “42000”

ElseIf M = “CDR” Then

Textjudul.Text = “Corel Draw”

Textpengarang.Text = “Siti Nur Khotimah”

Textharga.Text = “53000”

ElseIf M = “RPL” Then

Textjjudul.Text = “Rekayasa Perangkat Lunak”

Textpengarang.Text = “Winda Erlianti”

Textharga.Text = “83000”

End If

M = Right(Textkode, 1)

If M = “A” Then

Textpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf M = “I” Then

Textpenerbit.Text = “Indah Surabaya”

ElseIf M = “S” Then

Textpenerbit.Text = “Salemba Empat”

ElseIf M = “E” Then

Textpenerbit.Text = “Elek Media Komputindo”

ElseIf M = “M” Then

Textpenerbit.Text = “Maxicom”

End If

Texttahun.Text = “20” & Mid(Textkode, 5, 2)

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

 

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Command1_Click()

Form2.Show

End Sub

 

Private Sub Command2_Click()

End

End Sub

Iklan