发布时间 : 星期日 文章vfp下例题汇总更新完毕开始阅读acff0def19e8b8f67c1cb97b
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 页