VisualFoxPro程序设计项目教程李林孖第10章课件教学.pptVIP

PPT研究院 POWERPOINT ACADEMY * * * 4.编写代码 （1）设置表单初始环境 设置Form1的Activate事件代码： Thisform.Text1.Setfocus Thisform.Commandgroup1.Command1.Enabled=.F. 设置Form1的Init事件代码： dd=SYS(5)+SYS(2003)+\data\yxzy.dbf SELECT yxzy_temp IF RECC()0 ZAP ENDIF APPEND FROM dd 设置Form1的Load事件代码： SET DELE OFF PUBLIC dd 任务实施 项目9——设计系统辅助功能模块设计 任务3——创建数据字典维护模块 （2）设置Grid1.AfterRowColChange的事件代码： IF This.Activerow=RECN() Thisform.Commandgroup1.Command3.Caption=删除 ELSE Thisform.Commandgroup1.Command3.Caption=恢复 ENDIF IF This.Activerow=RECN() and DELE() Thisform.Commandgroup1.Command3.Caption=恢复 ELSE Thisform.Commandgroup