VFP表单设计题

VFP程序设计题

第2题：编制一个表单完成计数器计数显示功能（界面如图例所示，图例文件为*.JPG）。

具体要求如下：

1． 表单的边框为固定对话框，运行时自动居中，不可移动； 2． 表单初始显示状态为全零“00:00:00”；

3． 按“计数”按钮后，自动以秒为单位从零开始计数（设：时的计数属性名为F，分的计数属性

名为H，秒的计数属性名为S）并在表单上动态显示；

4． 按“停止”按钮后暂停计数，按“计数”按钮可以继续计数； 参考答案： 1． 表单的标题属性Caption设置为“计数器”； 2． 表单的BorderStyle属性为“2—固定对话框”，自动居中属性AutoCenter为.T.。 3． 表单的Movable属性为.F.； 4． 时钟控件Timer1的Interval属性为1000。 5． 表单的Form1的Init事件代码： THIS.TIMER1.INTERVAL=1000 THISFORM.TIMER1.ENABLED=.F. STOR 0 TO THIS.S,THIS.F,THIS.H THIS.TEXT1.VALUE='00:00:00' 6． “计数”按钮Command1的Click事件代码： THISFORM.TIMER1.ENABLED=.T. 7． “停止”按钮Command2的Click事件代码： THISFORM.TIMER1.ENABLED=.F. 8． 时钟控件Timer1的Timer事件代码： THISFORM.S=THISFORM.S+1 IF THISFORM.S=60

THISFORM.F=THISFORM.F+1 THISFORM.S=0 ENDIF

IF THISFORM.F=60

THISFORM.H=THISFORM.H+1 THISFORM.F=0 ENDIF

1

IF THISFORM.H=60

THISFORM.S=THISFORM.S+1 THISFORM.H=0 ENDIF

HH=IIF(THISFORM.H>=10,STR(THISFORM.H,2),'0'+STR(THISFORM.H,1)) FF=IIF(THISFORM.F>=10,STR(THISFORM.F,2),'0'+STR(THISFORM.F,1)) SS=IIF(THISFORM.S>=10,STR(THISFORM.S,2),'0'+STR(THISFORM.S,1)) THISFORM.TEXT1.VALUE=HH+':'+FF+':'+SS

第3题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能（界面如图例所示）。

具体要求如下：

1． 表单的边框为固定对话框，运行时自动居中，不可移动； 2． 表单初始显示内容为表文件“学生.dbf”的首记录；

3． 表单内容将以10秒为间隔自动刷新，即自动顺序向后翻记录，当翻至表底时，将自动回到

首记录循环翻动。 参考答案：

1．表单的标题属性Caption设置为“学生表内容只读浏览”；

2．表单的BorderStyle属性为“2—固定对话框”，自动居中属性AutoCenter为.T.; 3．表单的Movable属性为.F.；

4．时钟控件Timer1的Interval属性为10000。 5．表单的Form1的Init事件代码：

THIS.SETALL(\GO TOP

THISFORM.REFRESH

6．时钟控件Timer1的Timer事件代码：

SKIP IF EOF()

GO TOP

ENDIF

THISFORM.REFRESH

第4题：编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能（界面如图例所示）。

具体要求如下：

1． 表单的边框为单线边框，运行时自动居中；

2． 表单初始显示内容为表文件“学生.dbf”的首记录；

3． 当按“前翻” “后翻” “首记录” “末记录” 按钮时，表单将自动显示相应记录的内容； 4． 当翻至表头或表底时，将自动设置相应按钮不可访问。 参考答案：

2

1． 表单的标题属性Caption设置为“学生表内容只读浏览”；

2． 表单的BorderStyle属性为“1—单线边框”；自动居中属性AutoCenter为.T. 3． 表单的Form1的Init事件代码：

THIS.SETALL(\GO TOP

THISFORM.REFRESH

4． “首记录”按钮Command1的Click事件代码： go top

thisform.command2.enabled=.t. thisform.command3.enabled=.t. thisform.command4.enabled=.t. thisform.command1.enabled=.f. thisform.refresh

5． “前翻”按钮Command2的Click事件代码： skip -1 if bof()

thisform.command1.enabled=.f. this.enabled=.f. endif

thisform.command3.enabled=.t. thisform.command4.enabled=.t. thisform.refresh

6．“后翻”按钮Command3的Click事件代码： skip if eof()

thisform.command3.enabled=.f. thisform.command4.enabled=.f. endif

thisform.command1.enabled=.t. thisform.command2.enabled=.t. thisform.refresh

7．“末记录”按钮Command4的Click事件代码： go bottom

thisform.command1.enabled=.t. thisform.command2.enabled=.t. thisform.command3.enabled=.t. thisform.command4.enabled=.f. thisform.refresh

第7题：编制一个表单完成表文件“成绩.dbf”内容的查询显示功能（界面如图例所示）。

具体要求如下：

1． 表单的边框为固定对话框，运行时自动居中；

3

2． 当用户在组合框（下拉列表）选择班级（学号的左三位）后，表单将自动显示对应班级的所

有学生的总平均成绩；

3． 按“退出”按钮时，自动关闭表单。 参考答案： 1． 表单的标题属性Caption设置为“查询并显示指定班级的总平均成绩”； 2． 表单的BorderStyle属性为“2—固定对话框”；自动居中属性AutoCenter为.T.。 3． 组合框Combo1的Init事件代码： SET TALK OFF

INDEX ON LEFT(学号,3) TO XH UNIQUE SCAN

THIS.ADDITEM(LEFT(学号,3)) ENDSCAN SET INDEX TO 4． 组合框Combo1的Click事件代码： BJ=THIS.VALUE

AVERAGE FOR LEFT(学号,3)=BJ 成绩 TO CJ THISFORM.TEXT1.VALUE=CJ 5． “退出”按钮Command1的Click事件代码： thisform.release

第8题：编制一个表单完成数字时钟显示功能（界面如图例所示）。

具体要求如下：

1． 表单的位置在左上角，可移动，表单的边框为无边框； 2． 表单将自动以1秒间隔动态显示系统时间； 参考答案： 1． 表单的标题属性Caption设置为“数字时钟”； 2． 表单的位置属性Left为0；Top为0；Movable为.T.； 3． 表单的BorderStyle属性为“0—无边框”； 4． 时钟控件Timer1的Interval属性为1000。 5． 文本框Text1的背景色Backcolor为RGB(255,255,255)；FONTNAME为“隶书”。 6． 时钟控件Timer1的Timer事件代码： s=substr(time(),1,2) f=substr(time(),4,2) m=substr(time(),7,2)

thisform.text1.value=s+\时\分'+m+'秒'

第10题：编制一个表单完成表文件“成绩.dbf”和“课程.dbf”内容的查询显示功能（界面如图所示）。

具体要求如下：

4

1． 表单运行时自动居中，不可移动；

2． 当用户在组合框（下拉列表）选择课程后，表单将自动显示该课程的总平均成绩； 3．按“退出”按钮时，自动关闭表单。 参考答案：

1．表单的标题属性Caption设置为“查询并显示指定课程的总平均成绩”； 2．表单的自动居中属性AutoCenter为.T.; 3．表单的Movable属性为.F.；

4．组合框Combo1的RowSouceType属性为“6-字段”，RowSouce属性为“课程.课程名”。 5．组合框Combo1的Click事件代码：

SET TALK OFF SELECT 课程 KCH=课程号 SELECT 成绩

AVERAGE FOR 课程号=KCH 成绩 TO CJ THISFORM.TEXT1.VALUE=CJ

6.“退出”按钮Command1的Click事件代码：

thisform.release

第11题：编制一个表单完成表文件“学生.dbf”内容的信息查询功能（界面如图例所示）。

具体要求如下： 1． 表单的边框为固定对话框，运行时自动居中，不可移动； 2． 表单的文本框中输入需查询学生的学号。 参考答案：

1．表单的标题属性Caption设置为“学生表信息查询”；

2．表单的BorderStyle属性为“2—固定对话框”，自动居中属性AutoCenter为.T.; 3． 表单的Movable属性为.F.； 4． 标签Label2的Forecolor属性为“255,255,255”；FontSize属性为“16”； 5． 表单的Form1的Init事件代码： use 学生

thisform.setall(\thisform.label1.visible=.t. thisform.text1.visible=.t. 6． 表单的Form1的destroy事件代码：

use

7.文本框Text1的Valid事件代码：

loca for alltrim(学号)=alltrim(this.value) if found()

thisform.label2.caption=\ thisform.setall(\else

thisform.setall(\

5

本文来源：https://www.bwwdw.com/article/6gov.html