Tugas 5

TUGAS 5

Private Sub cmdno_Click()

End

End Sub

Private Sub cmdyes_Click()

Form1.Show

End Sub

Private Sub cmdbaru_Click()

Data1.Recordset.addnew

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtkode.Text = “”

txtjb.Text = “”

txtpeng.Text = “”

txttt.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

txttt.Text = “20” &Mid(txtkode, 5, 2)

S = Left(txtkode, 3)

If S = “SIM” Then

txtjb.Text = “SistemInformasiManajemen”

txtpeng.Text = “FadiyaUlfa”

txtharga.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

txtpeng.Text = “NurulAgustina”

txtharga.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtpeng.Text = “RianHidayat”

txtharga.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtpeng.Text = “SitiNurKhotimah”

txtharga.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “RekayasaPerangkatLunak”

txtpeng.Text = “WindaErlianti”

txtharga.Text = “83000”

End If

S = Right(txtkode, 1)

If S = “A” Then

txtpenerbit.Text = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

ElseIf S = “S” Then

txtpenerbit.Text = “SalembaEmpat”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

txtpenerbit.Text = penerbit

End If

End Sub

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

 

 

 

 

 

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s