Private Sub CboKode_Click()
Dim Merk, Harga, Kode As Variant
Kode = Mid(CboKode.Text, 7, 5)
Select Case Kode
Case “MC965”
Merk = “Apple MC965 MacBook Air”
Harga = 12800000
Case “MC966”
Merk = “Apple MC966 MacBook Air”
Harga = 15800000
Case “MC968”
Merk = “Apple MC968 MacBook Air”
Harga = 9900000
Case “MC969”
Merk = “Apple MC969 MacBook Air”
Harga = 11900000
Case “MC700”
Merk = “Apple MC700 MacBook Pro”
Harga = 10800000
Case “MC721”
Merk = “Apple MC721 MacBook Pro”
Harga = 15900000
Case “MC723”
Merk = “Apple MC723 MacBook Pro”
Harga = 19300000
Case “MC724”
Merk = “Apple MC724 MacBook Pro”
Harga = 13700000
Case “MC311”
Merk = “Apple MC311 MacBook Pro”
Harga = 24200000
Case “MC313”
Merk = “Apple MC313 MacBook Pro”
Harga = 11900000
Case “MC314”
Merk = “Apple MC314 MacBook Pro”
Harga = 14700000
Case “MC318”
Merk = “Apple MC318 MacBook Pro”
Harga = 17600000
Case “MC322”
Merk = “Apple MC322 MacBook Pro”
Harga = 21300000
End Select
TxtMerk = Merk
TxtHarga = Harga
End Sub
Private Sub cmdadd_Click(Index As Integer)
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveLast
End Sub
Private Sub cmdcancel_Click(Index As Integer)
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub
Private Sub cmdkeluar_Click(Index As Integer)
Form2.Show
End Sub
Private Sub CmdProses_Click()
Dim HS, Jual, Jumlah, Diskon, Total As Variant
HS = Val(TxtHarga)
Jual = Val(TxtJual)
Jumlah = HS * Jual
TxtHargaJual = Jumlah
Select Case Jumlah
Case Is > 140000000
Diskon = Jumlah * 0.15
Case Is > 135000000
Diskon = Jumlah * 0.1
Case Is > 130000000
Diskon = Jumlah * 0.05
Case Is > 125000000
Diskon = Jumlah * 0.02
Case Is <= 125000000
Diskon = Jumlah * 0
End Select
TxtDiskon = Diskon
Total = Jumlah – Diskon
TxtTotal = Total
End Sub
Private Sub cmdsave_Click(Index As Integer)
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.MoveNext
End Sub
Private Sub Form_Load()
CboKode.AddItem “Apple MC965 MacBook Air”
CboKode.AddItem “Apple MC966 MacBook Air”
CboKode.AddItem “Apple MC968 MacBook Air”
CboKode.AddItem “Apple MC969 MacBook Air”
CboKode.AddItem “Apple MC700 MacBook Pro”
CboKode.AddItem “Apple MC721 MacBook Pro”
CboKode.AddItem “Apple MC723 MacBook Pro”
CboKode.AddItem “Apple MC724 MacBook Pro”
CboKode.AddItem “Apple MC311 MacBook Pro”
CboKode.AddItem “Apple MC313 MacBook Pro”
CboKode.AddItem “Apple MC314 MacBook Pro”
CboKode.AddItem “Apple MC318 MacBook Pro”
CboKode.AddItem “Apple MC322 MacBook Pro”
End Sub
Private Sub cmdno_Click()
Form1.Show
End Sub
Private Sub cmdyes_Click()
End
End Sub