vf题库 表单 操作题讲解
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
表单操作题
1
设计一个名为Frm01的表单,表单的控件名和文件名均为Frm01。表单的形式如下图所示。要求如下:
1. 表单标题为"零件供应情况",表格控件为Grid1,命令按钮"查询"为Command1、"退出"为Command2,标签控件Label1 和文本框控件Text1(程序运行时用于输入工程号)。
2. 运行表单时,在文本框中输入工程号,单击"查询"命令按钮后,表格控件中显示相应工程所使用的零件的零件名、颜色和重量(通过设置有关"数据"属性实现),并将结果按"零件名"升序排序存储到pp.dbf文件。
单击"退出"按钮关闭表单。
答题要求:
(1)将表格的recordsourcetype属性设为“0”
(2)查询的单击事件:
使用select语句,将查询结果存到一个表pp.dbf中,然后再将表格grid1的recordsource属性设为"pp"
(3)表单备注文件不能删除
查询按钮代码:
SELECT 零件.零件名, 零件.颜色, 零件.重量;
FROM 供应零件!供应INNER JOIN 供应零件!零件;
ON 供应.零件号= 零件.零件号;
WHERE 供应.工程号= thisform.text1.value;
ORDER BY 零件.零件名;
INTO TABLE pp.dbf
thisform.grid1.recordsource=null &&这句话可以删除
thisform.grid1.recordsource="pp"
thisform.grid1.refresh
thisform.refresh
3
求1到100以内的奇数,单击"计算"按钮后,首先清除列表框中原先的内容,然后显示结果,单击"退出"按钮后退出表单。表单文件名为Frm03.scx。
要求:
1.窗体命名为frm03.scx(表单备注文件不能删除)
2.窗体的标题为:求100以内的奇数
3.命令按钮"计算"(名称为command1),"退出"(名称为command2)
4.列表框名称为list1
5.判断一个数是否为奇数使用语句“i%2<>0”,即i除2不等于0
6.列表框中增加一项使用语句“additem(str(i))”
7.要求使用for循环语句
8.退出表单用release语句
计算按钮的代码:
thisform.list1.clear
for i=1to 100
if i%2<>0
thisform.list1.additem(str(i))
endif
endfor
4.
表单功能:输入圆的半径,单击计算后,在文本框2中显示圆的体积,其中圆的体积公式是V=(4/3)*3.14*r*r*r.表单文件名为Frm04.scx。
要求:
1.表单文件名为frm04.scx(表单备注文件frm04.sct不能删除),存入考生文件夹。
2.表单的标题为“求圆的体积”。
3.表示半径的文本框名称为“Text1”,类型为N
4.显示体积的文体框名称为“Text2”,类型为N
5.“计算”命令按钮名称为“command1”,“退出”命令按扭名称为“command2”
6.必须定义两个变量r(表示半径)和v(表示体积)
7.计算体积的公式使用:v=(4/3)*3.14*r*r*r
“计算”按钮的代码:
V=0
R=thisform.text1.value
V=(4/3)*3.14*r*r*r
Thisform.text2.value=v
&&右击文本框,选择生成器,里面有设置数值型(N)的选项
5
在表单中创建一个具有三个页的页框,如图所示。表单文件名为FRM05.SCX
要求如下:
(1)表单文件名为Frm05.scx(表单备注文件不能删除),存入考生文件夹。
(2)表单的标题为“我的页框”
(3)页框名为pageframe1,三个页的标题分别为“第一页”、“第二页”、“第三页”
(4)在第一页中有标签LABEL1,显示“欢迎使用VF系统”,字号为15。
(5)在第一页中有一选项按扭组OptionGroup1,有两选项按扭option1和option2,分别显示为“隶书”和“黑体”
(6)单击“隶书”,标签文字显示为隶书;单击“黑体”,标签文字显示为“黑体”。
(7)其它两页无内容。
第一页的相关代码:
Optiongroup1的代码:&&这句话用docase语句请看下面
if this.value=1
bel1.fontname="隶书"
endif
if this.value=2
bel1.fontname="黑体"
endif
&&
Do case
Case this.value=1
bel1.fontname="隶书"
Case this.value=2
bel1.fontname="隶书"
end case
6
做一个如图所示的顶层表单,表单文件名为Frm06.scx,运行时表单上加载一菜单,如图所示。要求如下:
(1)表单文件名为Frm06.scx(表单备注文件不能删除),存入考生文件夹。
(2)表单标题为“顶层表单”。
(3)菜单名为M1,生成的菜单文件名为M1.MPR
(4)菜单有两菜单项,分别为“欢迎”和“退出”
(5)单击欢迎,显示“VF欢迎您”(使用函数messagebox);单击“退出”,退出VF(使用quit语句)。
注意:请将相关文件按要求存入考生文件夹,否则本题得不到成绩。表单文件名为FRM06.scx 欢迎子菜单的命令:
Messagebox(“vf欢迎您”)
退出的命令为
Quit
7
表单功能:表单上有一个表格控件,用来绑定students表,一个有三个水平命令按钮的命令按钮组,能实验对表students的添加、删除功能。程序运行如图所示。
要求:
1.表单文件名为frm07.scx(表单备注文件frm07.sct不能删除),存入考生文件夹。
2.表单的标题为“表格的使用”。
3.表格名称为grid1,“添加”按钮的名称为CmdAdd,“删除”按钮的名称为CmdDelete,“退出”按钮的名称为CmdExit。
4.不允许使用数据环境(在程序中用代码实现)。
5.添加记录后要求焦点回到表格。
6.删除必须为物理删除。
7.退出程序使用方法release