VFP表单设计案例2011

《VFP表单设计案例2011》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、莆田学院许振和仅供学生学习VFP表单控件应用设计与案例表单控件的应用要点：1.条件语句在表单中应用：IF语句和docase语句2.循环语句在表单中应用：for语句和dowhile语句3.计时器的应用4.数据表在表单中应用：skip5.SQL语句的应用6.列表框的应用难点：SQL的应用表单控件对象有：表单表单集文本框编辑框列表框组合框表格复选框选项按钮组（单选框）页框Container容器命令按钮命令按钮组标签线条形状图像计时器微调控件ActiveX绑定控件超级链接控件对象分为：控件对象和容器控件。控件对象是基本对象：命令按钮、文本框、标签、线条、形状、复选框、组合框。。。。容器控件

2、包含其他对象的对象：表单、表单集、Container容器、命令按钮组、微调控件、选项按钮组（单选框）、页框、页面、表格、表格列从功能上分为：输出类：标签、图像、线条、形状输出类：文本框、编辑框、列表框、组合框、微调控件控制类：命令按钮、命令按钮组、复选框选项按钮组（单选框）、计时器多重容器类：表格、页框、Container容器、表单集连接类：ActiveX绑定控件超级链接控件1、条件语句在表单中应用单分支语句：if….Else….Endif多分支语句：docase……endcaseIf…endif语句一般都是与For…endfor配合应用。案例1多分支090120莆田学院许振和仅供

3、学生学习参考答案：“计算”按钮的clickevent代码：x=thisform.text1.valuedocasecasex<-10y=2*（sin(x)+1）casex<10y=(abs(x)-5)/3othery=x/7-8endcasethisform.text2.value=ythisform.refresh案例2多分支0912k=thisform.text1.valuedocasecasek>=0andk<60m="不合格"casek<85m="合格"casek<=100m="优秀"20莆田学院许振和仅供学生学习otherm="非法数据"endcasethisform.t

4、ext2.value=m2.循环语句在表单中应用案例0906m=alltrim(thisform.text1.value)k=len(m)s=0fori=1tokn=substr(m,i,1)ifn>="a"andn<="z"s=s+1endifendforthisform.text2.value=s案例0906a=thisform.text1.valueb=thisform.text2.valuec=thisform.text3.valued=thisform.text4.value20莆田学院许振和仅供学生学习m=a*b+c*difm>=300m=m*0.9endifthisf

5、orm.text5.value=round(m,0)thisform.refresh3.计时器的应用属性：Interval:计时时间间隔，单位毫秒。1秒=1000毫秒Enabled:计时启用与停止事件：Timer1：interval设置计时点运行事件代码。计时器启用条件：interval>0andenabled=.t.计时器停止条件：interval=0orenabled=.f.案例1【要点解答】“开始”按钮的click事件如下：thisform.command1.enabled=.f.thisform.timer1.enabled=.t.Timer1事件的timer代码如下：if

6、thisform.text1.value=0thisform.command1.enabled=.t.thisform.timer1.enabled=.f.elsethisform.text1.value=thisform.text1.value-1endifthisform.refresh案例2（1006）20莆田学院许振和仅供学生学习在开始计时按钮的click代码：thisform.timer1.enabled=.t.thisform.text1.value=0计时器的timer代码：thisform.text1.value=thisform.text1.value+1ifmo

7、d(thisform.text1.value,2)=0thisform.backcolor=rgb(0,0,255)elsethisform.backcolor=rgb(0,255,0)endifthisform.refresh3案例0406【要点解答】“开始”按钮的click事件如下：ifthis.caption="开始"this.caption="停止"thisform.timer1.enabled=.t.elsethis.caption="开始"20莆田学院许振