Program Daftar Mata Kuliah

 

scrip nya:

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


command3    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


COMMAND4       CLIK
===============================
THISFORM.RELEASE



command copy     clik
======================================
REPORT FORM matakuliah.frx preview