PENYIMPANAN DATA

CODING PENYIMPANAN DATA YANG BAIK
*================simpan data========================================
SELECT tbmapeljar
SET DELETED OFF
xtahun=ALLTRIM(UPPER(thisform.coMBO1.Value))
xkdjurusan=ALLTRIM(UPPER(thisform.coMBO2.Value))
xkelas=ALLTRIM(UPPER(thisform.coMBO3.Value))
xkdmapel=ALLTRIM(UPPER(thisform.txtKdmapel.Value))
LOCATE FOR (ALLTRIM(UPPER(tbmapeljar.thnajaran))=ALLTRIM(UPPER(xtahun)) AND
ALLTRIM(UPPER(tbmapeljar.kdjurusan))=ALLTRIM(UPPER(xkdjurusan));
 AND ALLTRIM(UPPER(tbmapeljar.kdkelas))=ALLTRIM(UPPER(xkelas)) AND ALLTRIM(UPPER(tbmapeljar.kdmapel))=ALLTRIM(UPPER(xkdmapel)) )
            IF found()
                IF DELETED()
                    RECALL FOR (ALLTRIM(UPPER(tbmapeljar.thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(tbmapeljar.kdjurusan))=ALLTRIM(UPPER(xkdjurusan));
                     AND ALLTRIM(UPPER(tbmapeljar.kdkelas))=ALLTRIM(UPPER(xkelas)) AND ALLTRIM(UPPER(tbmapeljar.kdmapel))=ALLTRIM(UPPER(xkdmapel)) )
                 ELSE
                     MESSAGEBOX("Pelajaran ini Sudah Ada di Tahun Ajaran!" +"  "+ thisform.combo1.Text+"NB: silahkan koreksi kembali")
                ENDIF        
            ELSE
                    APPEND BLANK
            ENDIF
                    replace thnajaran WITH xtahun IN tbmapeljar
                    replace kdjurusan WITH xkdjurusan IN tbmapeljar
                    replace kdkelas WITH xkelas  IN tbmapeljar
                    replace kdmapel WITH xkdmapel  IN tbmapeljar   
            SET DELETED ON
            SELECT tbmapeljar
                        =TABLEUPDATE(.t.,.t.,"tbmapeljar")