vfp学习作业

BEGINTRANSACTION upd1=TABLEUPDATE(1,.F.,'vdorm') IFupd1 ENDTRANSACTION WAITWINDOWS"悝瘍"+allt(this.parent.text1.value)+"眒?悵湔!"timeout1.5 ELSE ROLLBACK MESSAGEBOX("悵湔囮!"+CHR(13)+MESSAGE(),16,'') ENDIF