09年福建省VFP设计题及答案文档格式.docx
《09年福建省VFP设计题及答案文档格式.docx》由会员分享，可在线阅读，更多相关《09年福建省VFP设计题及答案文档格式.docx（12页珍藏版）》请在冰豆网上搜索。
2.要在容器页中增加Command1与text各控件，请从属性窗口中先选中Container1,再使用表单控件工具栏添加相应的控件
3.text2中密码以占位符“*”显示——passwordchar（*）
1.列表框的数据源类型——Rowsourcetype（6），数据源设置使用列表框的生成器，在生成器把country.DBF的国家名称与国家代码加入
2.标签根据标题的长度自动调整标签大小——autosize（.T.）
设计二：
在显示按钮的CLICK事件中编写代码如下：
Dimex
（1）
x
（1）=0
thisform.grid1.recordsource="
selectrcda.人才编号,姓名,成果名称fromrcda,cjdawherercda.人才编号=cjda.人才编号and成果类别=bo1.valueintocursortmp"
selectcount（*）fromcjdawhere成果类别=bo1.valueintoarrayx
thisform.text1.value=x
（1）
thisform.refresh
1从数据工作期窗口打开ORDERS.DBF，点击浏览查看其字段等信息
2．按照题目要求和相应信息，编写代码如下
ifthisform.optiongroup1.value=1
thisform.grid1.recordsource="
select客户号,count（*）as订单数,avg（金额）as平均金额fromordersgroupby客户号intocursortmp"
else
select职员号,count（*）as订单数,avg（金额）as平均金额fromordersgroupby职员号intocursortmp"
endif
组合框Interactivechange的事件代码如下：
DIMEx
（1）,y
（1）,z
（1）
y
（1）=0
z
（1）=0
select*fromgradewhere课程号=bo1.valueintocursortmp"
selectcount（*）fromgradewhere课程号=bo1.valueand成绩>
=85intoarrayx
=60and成绩<
=84intoarrayy
thisform.text2.value=y
（1）
selectcount（*）fromgradewhere课程号=bo1.valueand成绩<
60intoarrayz
thisform.text3.value=z
（1）
（题目无法打开，好象往年有该题，大家自己整理，答案与课本例子8.6类似）
请在组合框的click事件编写代码如下：
dimex
（1）
thisform.list1.rowsource="
selectTeach1.姓名,Teach1.系名,Teach1.基本工资fromDdm1,Teach1whereDdm1.系号=Teach1.系号and性别=bo1.valueintocursortmp"
ifthisform.check1.value=1
selectsum（基本工资）fromfromDdm1,Teach1whereDdm1.系号=Teach1.系号and性别=bo1.valueintoarrayx
thisform.text1.value=x
（1）
else
thisform.text1.value=’’
设计三：
在计算按钮的CLICK事件编写代码如下：
x=alltrim（str（thisform.text1.value））
if（len（x）=3）
thisform.text2.value=val（substr（x,1,1））+val（substr（x,2,1））+val（substr（x,3,1））
thisform.text2.value="
输入有误"
方法一：
在“计算”按钮的click事件编写代码如下
x=thisform.text1.value
ifx>
5
y=cos（x）-2
ifx<
=5andx>
=-5
y=（2+abs（x））/5
-5
y=2*x-3
thisform.text2.value=y
方法二：
docase
casex>
y=cos（x）-2
casex<
y=（2+abs（x））/5
y=2*x-3
endcase
thisform.text1.fontbold=thisform.check1.value
thisform.text1.fontitalic=thisform.check2.value
thisform.text1.fontunderline=thisform.check3.value
方法二：
Ifthisform.check1.value=1
thisform.text1.fontbold=.t.
thisform.text1.fontbold=.f.
Ifthisform.check2.value=1
thisform.text1.fontitalic=.t.
thisform.text1.fontitalic=.f.
Ifthisform.check3.value=1
thisform.text1.fontunderline=.t.
thisform.text1.fontunderline=.f.
说明：
如果不知道某个控件的属性名，可以打开该控件的属性窗口找到对应的属性
正确的属性名会呈现蓝色，如果呈现黑色说明拼写错误
Je=thisform.text1.value*thisform.text2.value+thisform.text3.value*thisform.text4.value
IfJe>
800
Je=Je*0.9
thisform.text5.value=round（Je,0）
ELSE
ENDIF
THISFORM.REFRESH
在List1的InteractiveChange事件中编写代码如下：
DIMEX
（1）,Y
（1）
X
（1）=0
Y
（1）=0
select歌手编号fromGsbwhere歌手姓名=ALLtrim（thisform.list1.value）intoarrayx
thisform.list2.rowsource="
SELECT评委编号,分数FROMPFBWHERE歌手编号=X
（1）intocursortmp"
SELECTAVG（分数）FROMpfbWHERE歌手编号=x
（1）intoarrayy
thisform.text1.value=y
（1）
n=thisform.text1.value
ifn<
0orn>
100
非法数据"
ifn>
=85
优秀"
endif
=60andn<
85
合格"
ifn<
60
不合格"
n=thisform.text1.value
casen>
thisform.text2.value="
=0andn<
otherwise
升级会员 