DELETE FILE

CODING DELETE FILE DATABASE
*========================================================================
SELECT tbmapeljar
xtahun=ALLTRIM(UPPER(thisform.coMBO1.Value))
xkdjurusan=ALLTRIM(UPPER(thisform.coMBO2.Value))
xkelas=ALLTRIM(UPPER(thisform.coMBO3.Value))
xkdmapel=ALLTRIM(UPPER(thisform.txtKdmapel.Value))
DELETE FOR ALLTRIM(UPPER(tbmapeljar.thnajaran))=xtahun AND ALLTRIM(UPPER(tbmapeljar.kdjurusan))=xkdjurusan;

 AND ALLTRIM(UPPER(tbmapeljar.kdkelas))=xkelas AND ALLTRIM(UPPER(tbmapeljar.kdmapel))=xkdmapel
=TABLEUPDATE(.t.,.t.,"tbmapeljar")
thisform.combo3.Click
thisform.combo3.InteractiveChange
thisform.grdTbmapeljar.Refresh