Koding Foxpro Button Rai Modifika Hamos Sai
Listing Rai
SELECT dados
SET ORDER TO tag nim
APPEND blank
Replace nim WITH thisform.text1.Value
Replace nama WITH thisform.text2.Value
Replace clase WITH thisform.text3.Value
replace agama WITH thisform.combo1.value
thisform.Refresh()
thisform.grid1.Refresh()
Listing Modifika
SELECT dados
SET ORDER TO tag nim
Replace nim WITH thisform.text1.Value
Replace nama WITH thisform.text2.Value
Replace clase WITH thisform.text3.Value
replace agama WITH thisform.combo1.value
thisform.Refresh()
thisform.grid1.Refresh()
Listing Hamos
IF EMPTY(thisform.text1.Value)
MESSAGEBOX("Entre ID neebe maka atu hamoos.",64+0,"Konfirma")
thisform.Grid1.Click()
ELSE
cek=ALLTRIM(thisform.text1.Value)
SELECT dados
SET ORDER TO tag nim
SEEK cek
IF FOUND()
IF 6=MESSAGEBOX("Hamos Dadus : "+ALLTRIM(nim)+" Husi Base de Dadus??",4+32,"KONFIRMA") then
DELETE FOR nim=ALLTRIM(thisform.text1.Value)
SET DELETED on
thisform.grid1.Refresh()
**hamoos dados iha forma**
THISFORM.text1.Value = ""
THISFORM.text2.Value = ""
THISFORM.text3.Value =""
THISFORM.combo1.Value = ""
ENDIF
ENDIF
ENDIF
Listing Sai
vtanya=MESSAGEBOX("Hakarak Sai Husi Form Ne'e...?",4+64,"Informsaun")
IF vtanya=6
thisform.Release
else)
MESSAGEBOX("La Jadi Sai Broooooo....!",4+32)
Endif
Tidak ada komentar:
Posting Komentar