Tugas 8

TUGAS 8

 

Private Sub cmdno_Click()

End

End Sub

 

Private Sub cmdyes_Click()

Form1.Show

End Sub

Private Sub Cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdlagi_Click()

Cmbcode.SetFocus

Cmbcode = “”

Textjb = “”

Textpeng = “”

Texttt = “”

Textpen = “”

Textharga = “”

End Sub

 

Private Sub cmdproses_Click()

Dim judul, pengarang, tahun, penerbit, harga As String

Select Case Cmbcode

Case “A-SIM-01”

judul = “SistemInformasiManajemen”

pengarang = “YatiNurOktavia”

tahun = “2001”

penerbit = “Andi Offset Yogyakarta”

harga = “75900”

Case “I-EDP-02”

judul = “ElektronikData Processing”

pengarang = “Imam Tarmizi”

tahun = “2002”

penerbit = “Indah Surabaya”

harga = “62000”

Case “S-MNJ-03”

judul = “Manajemen”

pengarang = “Valentina Mariana Adiwianti”

tahun = “2003”

penerbit = “SalembaEmpat”

harga = “42000”

Case “E-CDR-04”

judul = “Corel Draw”

pengarang = “RiyanSuhandi”

tahun = “2004”

penerbit = “Elek Media Komputindo”

harga = “53000”

Case “M-RPL-05”

judul = “RekayasaPerangkatLunak”

pengarang = “SintaUmpuSinga”

tahun = “2005”

penerbit = “Maxicom”

harga = “83000”

End Select

Textjb = judul

Textpeng = pengarang

Texttt = tahun

Textpen = penerbit

Textharga = harga

End Sub

 

Private Sub Cndbatal_Click()

Cmbcode.SetFocus

Cmbcode = “”

Textjb = “”

Textpeng = “”

Texttt = “”

Textpen = “”

Textharga = “”

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Form_Load()

Cmbcode.AddItem “A-SIM-01”

Cmbcode.AddItem “I-EDP-02”

Cmbcode.AddItem “S-MNJ-03”

Cmbcode.AddItem “E-CDR-04”

Cmbcode.AddItem “M-RPL-05”

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