当前位置:首页 > vfp表单所有习题参考答案
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
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
21
第4题:编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能(界面如图例所示)。
具体要求如下:
1. 表单的边框为单线边框,运行时自动居中;
2. 表单初始显示内容为表文件“学生.dbf”的首记录;
3. 当按“前翻” “后翻” “首记录” “末记录” 按钮时,表单将自动显示相应记录的内容; 4. 当翻至表头或表底时,将自动设置相应按钮不可访问。 参考答案:
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
22
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. 表单的边框为固定对话框,运行时自动居中;
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. 表单的位置在左上角,可移动,表单的边框为无边框;
23
2. 表单将自动以1秒间隔动态显示系统时间; 参考答案:
表单的标题属性Caption设置为“数字时钟”;
表单的位置属性Left为0;Top为0;Movable为.T.; 表单的BorderStyle属性为“0—无边框”; 时钟控件Timer1的Interval属性为1000。
文本框Text1的背景色Backcolor为RGB(255,255,255);FONTNAME为“隶书”。 时钟控件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”内容的查询显示功能(界面如图所示)。
具体要求如下:
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”内容的信息查询功能(界面如图例所示)。
24
共分享92篇相关文档