PROGRAM APLIKASI MATA KULIAH

ini adalah tampilannya: 



dan ini adalah skripnya :

object: form1        procedure: activate
==================================
thisform.text1.Value = ''
thisform.text2.Value = ''
thisform.text3.Value = 0
thisform.text1.setfocus ()


object: command3   procedure:  clik
=================================
SELECT matakuliah
IF FOUND()
     replace matakuliah.kode WITH thisform.text1.value
     replace matakuliah.mt_kuliah WITH thisform.text2.value
     replace matakuliah.sks WITH thisform.text3.value
     thisform.grid1.Refresh()
ELSE
APPEND BLANK
     replace matakuliah.kode WITH thisform.text1.value
     replace matakuliah.mt_kuliah WITH thisform.text2.value
     replace matakuliah.sks WITH thisform.text3.value
     thisform.GRID1.REFRESH()
endif


object: COMMAND4       procedure: CLIK
===============================
THISFORM.RELEASE