表单操作题
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
