vfp学习作业

BEGIN TRANSACTION upd1 = TABLEUPDATE(1,.F.,'vdorm') IF upd1 END TRANSACTION WAIT WINDOWS "悝瘍"+allt(this.parent.text1.value)+" 眒?悵湔!" timeout 1.5 ELSE ROLLBACK MESSAGEBOX("悵湔囮!"+CHR(13)+MESSAGE(),16,'') ENDIF