vfp下例题汇总

Vfp下例题汇总

B=.F. ENDIF IF THISFORM.LABEL1.TOP<=0 B=.T. ENDIF IF B THISFORM.LABEL1.TOP=THISFORM.LABEL1.TOP+1 ELSE THISFORM.LABEL1.TOP=THISFORM.LABEL1.TOP-1 ENDIF

41． 浏览表文件“学生.dbf“ 要求： (1)表单初始显示内容为表文件“学生.dbf”的首记录 (2)当按“前翻”、“后翻”、“首记录”、“末记录”按钮时，表单将自动显示相应记录的内容 (3)当翻至表头或表底时，将自动设置相应按钮不可访问。

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

图3 运行界面 图4 运行界面

属性窗口设置 属性窗口设置： FORM1_CAPTION=学生表信息浏览 LABEL1_CAPTION=学号 LABEL2_CAPTION=姓名 LABEL3_CAPTION=性别 LABEL4_CAPTION=出生年月 LABEL5_CAPTION=奖学金 TEXT1_READONLY=.T. 第 41 页 共 77 页

Vfp下例题汇总

TEXT2_READONLY=.T. TEXT3_READONLY=.T. TEXT4_READONLY=.T. TEXT5_READONLY=.T. COMMANDGROUP1_BUTTONCOUNT=5 COMMANDGROUP1_COMMAND1_CAPTION=首记录 COMMANDGROUP1_COMMAND2_CAPTION=前翻 COMMANDGROUP1_COMMAND3_CAPTION=后翻 COMMANDGROUP1_COMMAND4_CAPTION=末记录 COMMANDGROUP1_COMMAND5_CAPTION=退出 数据环境 事件 FORM1的INIT事件 “学生”表 代码 THISFORM.TEXT1.VALUE=学号 THISFORM.TEXT2.VALUE=姓名 THISFORM.TEXT3.VALUE=性别 THISFORM.TEXT4.VALUE=出生年月 THISFORM.TEXT5.VALUE=奖学金 的DO CASE CASE THIS.VALUE=1 GO TOP THIS.COMMAND1.ENABLED=.F. THIS.COMMAND2.ENABLED=.F. THIS.COMMAND3.ENABLED=.T. THIS.COMMAND4.ENABLED=.T. CASE THIS.VALUE=2 SKIP -1 IF BOF() THIS.COMMAND1.ENABLED=.F. THIS.COMMAND2.ENABLED=.F. ENDIF THIS.COMMAND3.ENABLED=.T. THIS.COMMAND4.ENABLED=.T. CASE THIS.VALUE=3 SKIP IF EOF() THIS.COMMAND3.ENABLED=.F. THIS.COMMAND4.ENABLED=.F. ENDIF THIS.COMMAND1.ENABLED=.T. THIS.COMMAND2.ENABLED=.T. CASE THIS.VALUE=4 GO BOTTOM THIS.COMMAND1.ENABLED=.T. THIS.COMMAND2.ENABLED=.T. 第 42 页 共 77 页

COMMANDGROUP1CLICK事件 Vfp下例题汇总

THIS.COMMAND3.ENABLED=.F. THIS.COMMAND4.ENABLED=.F. CASE THIS.VALUE=5 THISFORM.RELEASE ENDCASE THISFORM.TEXT1.VALUE=学号 THISFORM.TEXT2.VALUE=姓名 THISFORM.TEXT3.VALUE=性别 THISFORM.TEXT4.VALUE=出生年月 THISFORM.TEXT5.VALUE=奖学金

42． 自动浏览表文件“学生.dbf“ 要求： (1)表单初始显示内容为表文件“学生.dbf”内容的首记录； (2)表单内容将以10秒为间隔自动刷新，即自动向后翻记录，当翻至表底时，即自动回到首记录循环翻动。

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

属性窗口设置 属性窗口设置： FORM1_CAPTION=学生表内容只读浏览 LABEL1_CAPTION=学号 LABEL2_CAPTION=姓名 LABEL3_CAPTION=性别 LABEL4_CAPTION=出生年月 LABEL5_CAPTION=奖学金 “学生”表 事件 FORM1的INIT事件 代码 THIS.SETALL(\THIS.CHECK1.READONLY=.T. THISFORM.TIMER1.INTERVAL=10000 THISFORM.TIMER1.ENABLED=.T. THISFORM.TEXT1.VALUE=学号 THISFORM.TEXT2.VALUE=姓名 THISFORM.TEXT3.VALUE=出生年月 THISFORM.TEXT4.VALUE=奖学金 THISFORM.CHECK1.VALUE=性别 SKIP 第 43 页 共 77 页

数据环境 TIMER1的TIMER事件 Vfp下例题汇总

IF EOF() GO TOP ENDIF THISFORM.TEXT1.VALUE=学号 THISFORM.TEXT2.VALUE=姓名 THISFORM.TEXT3.VALUE=出生年月 THISFORM.TEXT4.VALUE=奖学金 THISFORM.CHECK1.VALUE=性别

43． 抽奖表单

要求：编制一个抽奖表单，以表文件“学生.dbf”中的学号字段作为抽奖依据，当按“开始”按钮时，文本框中以0.1秒的时间间隔动态滚动显示学号字段的值；当按“抽号”按钮时，文本框中定格显示抽中的学号字段值。同一学号不允许重复获奖。

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

图3 运行界面 图4 运行界面

属性窗口设置 属性窗口设置： FORM1_CAPTION=抽奖表单 COMMAND1_CAPTION=开始 COMMAND 2_CAPTION=抽号 COMMAND 3_CAPTION=退出 “学生”表 事件 FORM1的INIT事件 代码 THISFORM.TIMER1.ENABLED=.F. THIS.TIMER1.INTERVAL=100 THIS.TEXT1.VALUE=\学生学号\THIS.TEXT1.READONLY=.T. 第 44 页 共 77 页

数据环境