vfp下例题汇总

Vfp下例题汇总

属性窗口设置： FORM1_CAPTION=学生学籍信息浏览 PAGEFRAME1_PAGECOUNT=3 PAGEFRAME1_PAGE1_CAPTION=学生 PAGEFRAME1_PAGE2_CAPTION=课程 PAGEFRAME1_PAGE3_CAPTION=成绩 代码 THISFORM.TIMER1.INTERVAL=20000 THISFORM.TIMER1.ENABLED=.T. THISFORM.PAGEFRAME1.SETALL(\THISFORM.PAGEFRAME1.PAGE1.ENABLED=.T. P=THISFORM.PAGEFRAME1.ACTIVEPAGE P=P+1 IF P>3 P=1 ENDIF THISFORM.PAGEFRAME1.SETALL(\THISFORM.PAGEFRAME1.PAGES(P).ENABLED=.T. THISFORM.PAGEFRAME1.ACTIVEPAGE=P

事件 FORM1的INIT事件 TIMER1的TIMER事件 48． 学籍信息浏览

编制一个表单完成表文件“学生.dbf“、“成绩.dbf“、“课程.dbf“内容的编辑浏览显示功能 要求： (1)三个表文件分别显示在三个不同的页面上

(2)当在选项按钮组选择某个表文件时，页框中的页会自动翻页，即自动翻动为与选择的表文件对应的页；

(3)未被激活的页面自动设为不可访问

图1 设计界面 图2 初始运行界面

第 49 页 共 77 页

Vfp下例题汇总

图3 运行界面

属性窗口设置 属性窗口设置： FORM1_CAPTION=学生学籍信息浏览 OPTIONGROUP1_BUTTONCOUNT=3 OPTIONGROUP1_OPTION1_CAPTION=学生 OPTIONGROUP1_OPTION2_CAPTION=课程 OPTIONGROUP1_OPTION3_CAPTION=成绩 PAGEFRAME1_PAGECOUNT=3 PAGEFRAME1_PAGE1_CAPTION=学生 PAGEFRAME1_PAGE2_CAPTION=课程 PAGEFRAME1_PAGE3_CAPTION=成绩 代码 THISFORM.PAGEFRAME1.SETALL(\THISFORM.PAGEFRAME1.PAGE1.ENABLED=.T. P=THISFORM. OPTIONGROUP1.VALUE THISFORM.PAGEFRAME1.SETALL(\THISFORM.PAGEFRAME1.PAGES(P).ENABLED=.T. THISFORM.PAGEFRAME1.ACTIVEPAGE=P

事件 FORM1的INIT事件 OPTIONGROUP1的CLICK事件 49． 学生表内容自动浏览（绑定）

编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能； 要求(1)用绑定方法实现； (2)表单初始显示内容为表文件“学生.dbf”内容的首记录； (3)表单内容将以10秒为间隔自动刷新，即自动向后翻记录，当翻至表底时，即自动回到首记录循环翻动。

第 50 页 共 77 页