Latihan 7 Sistem Basis Data

Command Button Proses

with thisform

                if .text1.value="VIP"

                .text3.value=val(.text2.value)*500000

                else

                if .text1.value="Kelas 1"

                .text3.value=val(.text2.value)*350000

                else

                if .text1.value="Kelas 2"

                .text3.value=val(.text2.value)*250000

                else

                .text3.value=val(.text2.value)*100000

endif

endif

endif

if val(.text2.value)>=10

.text4.value="10%"

.text5.value=val(.text3.text)-(val(.text3.text)*0.1)

else

if val(.text2.value)>=8

.text4.value="5%"

.text5.value=val(.text3.text)-(val(.text3.text)*0.05)

else

.text4.value="0%"

.text5.value=val(.text3.text)

endif

endif

Endwith

Command Button Clear

with thisform

.text1.value=""

.text2.value=""

.text3.value=""

.text4.value=""

.text5.value=""

Endwith

Command Button Exit

thisform.release()

Hasil Run