VFP课件 程序设计.ppt

例：添加、编辑和删除学生记录 IF This.Caption=编辑 This.Caption=取消 This.Parent.Command1.Caption=保存 ThisForm.setenable(.T.) ThisForm.Tag=STR(RECNO( )) ELSE This.Caption=编辑 This.Parent.Command1.Caption=添加 TABLEREVERT( ) 取消对缓冲记录或缓冲表的修改 ThisForm.setenable(.F.) ENDIF GO VAL(ThisForm.Tag) ThisForm.Refresh “编辑”命令按钮Command2的Click事件代码： 例：添加、编辑和删除学生记录 ans=MessageBox(确定删除当前记录？,32+4+256,删除记录) IF ans=6 DELETE NEXT 1 PACK ThisForm.Refresh ENDIF “删除”命令按钮Command3的Click事件代码： * 作用域：变量的作用范围。 1. 公共变量(全局变量) PUBLIC 2. 局部变量 LOCAL 3. 私有变量 PRIVATE 变量的作用域 * 1. 公共变