Private Sub cbocode_Click()
Dim MT, HS As String
Select Case Mid(cbocode,7,5)
Case "MC965"
MT = "apple macbook air MC965"
hs = "12800000"
Case "MC966"
MT = "Appel MacBook Air MC965"
hs = "15800000"
cese "MC968"
MT = "appel macbook air mc968"
hs = "11900000"
Case "mc700"
MT = "appel macbook pro mc700"
hs = "10800000"
Case "mc721"
MT = "appel macbook pro mc721"
hs = "15900000"
Case "mc723"
MT = "appel macbook pro mc723"
hs = "19300000"
Case "mc724"
MT = "appel macbook pro mc724"
hs = "13700000"
Case "mc311"
MT = "appel macbook pro mc311"
hs = "24200000"
Case "mc313"
MT = "appel macbook pro mc313"
hs = "11900000"
Case "mc314"
MT = "appel macbook pro mc314"
hs = "14700000"
Case "mc318"
MT = "appel macbook pro mc318"
hs = "17600000"
Case "mc322"
MT = "appel macbook pro mc322"
hs = "21300000"
Case "mc965"
MT = "appel macbook pro mc965"
hs = "12800000"
Case "mc966"
MT = "appel macbook pro mc966"
hs = "15800000"
End Select
textmt = merk
textharga = hs
textjumlah.SetFocus
End Sub
Private Sub cmdhitung_Click()
cbocode.SetFocus
cbocode = ""
textmt = ""
textharga = ""
textjumlah = ""
textharpen = ""
textdiscount = ""
texttotal = ""
End Sub
Private Sub cmdkeluar_Click()
form2.Show
End Sub
Private Sub cmdproses_Click()
textharpen = Val(textjumlah) * Val(textharga)
If Val(textharpen) > 140000000 Then
textdiscount = Val(textharga) * 15 / 100
ElseIf Val(textharpen) > 130000000 Then
textdiscount = Val(textharpen) * 5 / 100
ElseIf Val(textharpen) > 125000000 Then
textdiscount = Val(textharpen) * 2 / 100
End If
texttotal = Val(textharpen) - Val(txtdiscount)
End Sub
Private Sub command2_Click()
Data1.Recordset.Delete
End Sub
Private Sub command3_Click()
Data1.Recordset.Delete
End Sub
Private Sub Form_Load()
cbocode.AddItem "mc965"
cbocode.AddItem "mc966"
cbocode.AddItem "mc968"
cbocode.AddItem "mc700"
cbocode.AddItem "mc721"
cbocode.AddItem "mc723"
cbocode.AddItem "mc724"
cbocode.AddItem "mc311"
cbocode.AddItem "mc313"
cbocode.AddItem "mc314"
cbocode.AddItem "mc318"
cbocode.AddItem "mc322"
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
texthp.SetFocus
End If
End Sub
Private Sub command1_Click()
End
End Sub
Private Sub command2_Click()
Form1.Show
End Sub
Tidak ada komentar:
Posting Komentar