莆田学院许振和仅供学生学习
VFP表单控件应用设计与案例
表单控件的应用要点：
1.条件语句在表单中应用：IF语句和do case语句 2.循环语句在表单中应用：for语句和do while语句 3.计时器的应用
4.数据表在表单中应用：skip 5.SQL语句的应用 6.列表框的应用 难点：SQL的应用
表单控件对象有：
表单 表单集 文本框 编辑框 列表框 组合框 表格 复选框 选项按钮组（单选框） 页框 Container容器 命令按钮 命令按钮组 标签 线条 形状 图像
计时器 微调控件 ActiveX绑定控件 超级链接控件
对象分为：控件对象和容器控件。 控件对象是基本对象：命令按钮、文本框、标签、线条、形状、复选框、组合框。。。。 容器控件包含其他对象的对象：表单、表单集、Container容器、命令按钮组、微调控件、选项按钮组（单选框）、页框、页面、表格、表格列 从功能上分为：
输出类： 标签、图像、线条、形状
输出类：文本框、编辑框、列表框、组合框、微调控件
控制类：命令按钮、命令按钮组、复选框 选项按钮组（单选框）、计时器 多重容器类：表格、页框、Container容器、表单集 连接类：ActiveX绑定控件 超级链接控件
1、条件语句在表单中应用
单分支语句：
if ?. Else?. Endif 多分支语句：
do case ??endcase If?endif语句一般都是与 For?endfor配合应用。
案例1多分支0901
1
莆田学院许振和仅供学生学习
参考答案：
“计算”按钮的click event代码： x=thisform.text1.value do case
case x<-10
y=2*（sin(x)+1） case x<10
y=(abs(x)-5)/3 other
y=x/7-8 endcase
thisform.text2.value=y thisform.refresh
案例2多分支0912
k=thisform.text1.value do case
case k>=0 and k<60 m=\不合格\ case k<85 m=\合格\ case k<=100 m=\优秀\
2
莆田学院许振和仅供学生学习
other
m=\非法数据\ endcase
thisform.text2.value=m
2. 循环语句在表单中应用
案例0906
m=alltrim(thisform.text1.value) k=len(m) s=0
for i=1 to k
n=substr(m,i,1)
if n>=\ s=s+1 endif endfor
thisform.text2.value=s 案例0906
a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value d=thisform.text4.value
3
VFP表单设计案例2011
