DATABASE TUGAS11

Private Sub cbokk_Click()
Select Case cbokk.Text
Case “P205”
jenis = “Pentium II 500 Mega Hz”
harga = “1500000”
Case “P308”
jenis = “Pentium III 800 Mega Hz”
harga = “2100000”
Case “P310”
jenis = “Pentium III 1.0 Giga Hz ”
harga = “3500000”
Case “P415”
jenis = “Pentium IV 1.5 Giga Hz”
harga = “4000000”
Case “P417”
jenis = “Pentium IV 1.7 Giga Hz ”
harga = “4200000”
Case “P419”
jenis = “Pentium IV 1.9 Giga Hz”
harga = “5500000”

End Select
txtjj.SetFocus
txtjenis = jenis
txtharga = harga
End Sub

Private Sub cmdproses_Click()
txthp = Val(txtharga) * Val(txtjj)
If txthp > 40000000 Then
txtdis = Val(txthp) * 0.15
ElseIf txthp > 35000000 Then
txtdis = Val(txthp) * 0.1
ElseIf txthp > 30000000 Then
txtdis = Val(txthp) * 0.05
ElseIf txthp > 25000000 Then
txtdis = Val(txthp) * 0.02
End If
txttb = Val(txthp) – Val(txtdis)
End Sub

Private Sub Form_Load()
cbokk.AddItem “P205”
cbokk.AddItem “P308”
cbokk.AddItem “P310”
cbokk.AddItem “P415”
cbokk.AddItem “P417”
cbokk.AddItem “P419”

End Sub
Private Sub cmdkeluar_Click()
x = MsgBox(“yakin keluar?”, vbQuestion + vbYesNo, “informasi”)
If x = vbYes Then
End
End If

End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.AddNew

End Sub

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew

End Sub

Private Sub cmdhapus_Click()
Data1.Recordset.Delete

End Sub