Vfp10春及11秋上机答案：.doc

Vfp10秋上机答案：
第一套
第二题
SELECT Jyb.dzh, Js.xm,;
Sum(iif(Hsrq-jyrq>30, (hsrq-jyrq-30)*0.1 ,0)) as 罚款额;
FROM jxsj!js INNER JOIN jyb ;
ON Js.gh = Jyb.dzh;
WHERE EMPTY(Jyb.hsrq) <> .T.;
GROUP BY Js.gh;
ORDER BY 3 DESC;
TO FILE temp.txt
第四题
1.Caption：字符数统计 三个文本框的Enabled：.F.
2. labele标签的： name：label_sum caption:总字符数
3.thisform.edit1.value=’’
Thisform.setall(‘value’,0,’textbox’)
4. thisform.count
Thisform.text4.value=Thisform.text1.value+Thisform.text2.value +Thisform.text3.value
第二套
第二题
SELECT Jyb.dzh, Js.xm,;
Sum(iif(Hsrq-jyrq>30, (hsrq-jyrq-30)*0.05 ,0)) as 罚款;
FROM jxsj!js INNER JOIN jyb ;
ON Js.gh = Jyb.dzh;
WHERE EMPTY(Jyb.hsrq) <> .T.;
GROUP BY Js.gh;
ORDER BY 3 DESC;
TO FILE temp.txt
第四题
1.inputmask：9999 fontbold：.t.
2. value：.f. autosize:.t.
3.thisform.list1.sorted=this.value

4.thisform.list1.clear
Thisform.text1.value=’’
第三套
第二题
SELECT TOP 3 Js.yxzydm, count(*) as 人数,;
jbgz+gwjt+zhjt+zhjt+zfbt as 应发工资总额;
FROM jxsj!js INNER JOIN gzb ;
ON Js.gh = Gzb.gh;
GROUP BY Js.yxzydm;
ORDER BY 3 DESC;
TO FILE temp.dbf

第四题
1. Inputmask ：xxxxxx Alignment ：2 Passwordchar：*
2. 设置form2的visible:.f.
3. if len(thisform.text1.value)<4
Return .f.
endif
4. THISFORMset.FORM2.visible=.t.
Thisfromset.form1.release

第4套：
第一题 项目、数据库和表操作
索引表达式：dd+str（cs）
有效规则：cs>120 or cs<60
3. 在命令窗口输入如下命令：update jc set dj=dj*0.1
第二题
SELECT Js.yxzydm, count(*) as 借书本数,;
sum(iif(empty(hsrq),1,0)) as 未还本数,;
max(iif(empty(hsrq),date()-jyrq,hsrq-jyrq)) as 最大借阅天数;
FROM jxsj!js INNER JOIN jyb ;
ON Js.gh = Jyb.dzh;
GROUP BY Js.yxzydm;
INTO TABLE temp.dbf
第三题 设计菜单
命令： copy to bfjs
跳过条件: ！used（’js’）
第四题
1 .columncount:2 columnwidths:30,60
2设置spinner的属性： value 5
Spinnerlowvalue: 5 Spinnerhightvalue :50
Keyboardlowvalue:5 keyboardhighvalue:50
3. thisform.list1.list(thisform.list1.listcount,2)=str(thisform.list1.listcount,2)
4 if thisfrom.list1.listcount=thisform.spinner1.value
=message(‘已达到最大行数，不能添加’)
Else
。。。。
Endif
第5套：
第一题 项目、数据库和表操作
索引表达式：hm+lx
有效规则：tjs>tks
3. 先在jc表设计器里增加字段 ，然后在命令窗口输入如下命令
update JC set ndj=dj*0.7
第二题
SELECT Xs.yxzydm, count(*) as 借书本数,;
sum(iif(empty(hsrq),1,0)) as 未还本数,;
max(iif(empty(hsrq),date()-jyrq,hsrq-jyrq)) as 最大借阅天数;
FROM jxsj!xs INNER JOIN jyb ;
ON Xs.xh = Jyb.dzh;
GROUP BY Xs.yxzydm;
ORDER BY 4 DESC;
INTO cursor temp.dbf
第三题 设计菜单
省略
第四题
1. 设置form1的属性：borderstyle：2 点表单菜单---à编辑说明属性/方法说明----》说明输入：对汉字字符串加密
2. 设置Edit1 的属性：maxlength：40 设置edit2属性：readonly：.t.
3. 设置command1的属性caption ：清空
Click事件： thisform.setall(‘value’,’’,’editbox’)
4. If nkeycode>127
Cancel
endif

第6套：
第一题 项目、数据库和表操作
索引表达式：bscj+sjcj
有效规则：bscj>=0 and bscj<=60
3. 在命令窗口输入如下命令：
use dmb
copy to mzb for lx=”民族”
第二题
SELECT Js.xm AS 姓名, year(date())-year(csrq) as 年龄,;
allt(str(month(csrq)))+"月"+allt(str(day(csrq)))+"日" as 生日信息;
FROM jxsj!js;
WHERE mod(year(date())-year(csrq),5) = 0;
ORDER BY 2 DESC, 3
第三题 设计菜单
命令/过程 select gh ,jbgz from gzb order by 2 desc

第四题：
1. 设置label1的属性：caption 加密方式：
2. 设置Combol的属性： style：2 rowsourcetype:1 rowsource: 方式1,方式2
3. Combol的init事件： this.listindex=2
4. Cmdencrypt的click事件：
thisform.edit2.value=thisform.encrypt(bo1.listindex,thisform.edit1.value)
第7套：
第一题 项目、数据库和表操作
索引表达式：cgmc+str(cgrs)
有效规则：cgrs<50000
3.在命令窗口输入如下命令：
dele from ks where xf=5 or xf =6
第二题
SELECT Kcap.gh, Kcap.xqbm, Kcap.kcdm, count(*) as 班级数,;
sum(kss) as 课时数;
FROM jxsj!kcap INNER JOIN jxsj!kc ;
ON Kcap.kcdm = Kc.kcdm;
GROUP BY Kcap.gh, Kcap.xqbm, Kcap.kcdm;
ORDER BY Kcap.gh;
INTO TABLE temp.dbf
第三题 设计菜单
过程 use js
list to print
第四题
1. 设置timer的属性： interval：20000 enabled：.f.
2. 设置check1的属性：caption ：自动统计 value：.f.
3. 设置check1 的事件：thisform.timer1.enabled=this.value
4. 设置timer的事件：thisform.count
Vfp11 春上机答案：
第1套：
第一题 项目、数据库和表操作
字段默认值：date()
索引表达式：dtoc(rq,1)+str(dj,5,1)
触发器：rq=date()
第二题
SELECT left(flh,at('.',flh)-1)as 图书类别, sum(cs) as 藏书册数,;
avg(jg) as 平均单价;
FROM tsb;
GROUP BY 1;
ORDER BY 2 DESC, 3;
TO FILE temp.txt
第三题 设计菜单
do form js
第四题
1.设置grid1的属性：readonly ：.t. scrollbars:0 columns对象：（删除操作）
2.设置list1的属性：rowsourcetype：3
rowsource属性：select disc 组别 from fifa into cursor tmp
3.设置form的load事件： public cGroup
sGroup=’A’
4.设置list1的interactivechang事件：sGroup=this.value
Set filter to 组别= sGroup
Go top
Thisform.refresh

第2套：
第一题 项目、数据库和表操作
字段输入格式：T
索引表达式：yz+str(sc)
字段有效规则：sc>=30
3．在命令窗口输入如下命令：
use cjb
zap
第二题
SELECT Kc.kcmc, Cj.xh, sum(iif(cj.cj>60,xf,0)) as 学分,;
left(bz,7) as 成绩等地,;
iif(cj<60,'2010.09.06',space(10)) as 补考日期;
FROM jxsj!kc INNER JOIN jxsj!cj ;
ON Kc.kcdm = Cj.kcdm;
WHERE left(bz,7) = "A";
OR (left(bz,7) = "F");
GROUP BY Kc.kcmc;
ORDER BY Kc.kcmc, 4
第三题 设计菜单
清理代码
选择显示菜单项------常规选项------点清理复选框----把代码写入
第四题
1.设置grdfifa的属性：deletemark:.f. scrollbars:0 rowheigh:27
2.设置绑定控件：stretch：1
3.设置form1的init事件：set fitler to 组别=cGroup
Go top
4.设置optionGroup的事件 thisform.int
Thisform.refresh
第3套：
第一题 项目、数据库和表操作
字段输入格式：A9999
索引表达式：dtoc(rq,1)+dw
字段有效规则：!empty(zrr)
第二题
SELECT Tsb.flh, Tsb.sm, sum(iif(lx='J',1,0)) as 教师借阅次数,;
sum(iif(lx='X',1,0)) as 学生借阅次数, jg as 价格;
FROM tsb INNER JOIN jyb ;
ON Tsb.flh = Jyb.flh;
WHERE Tsb.jg >= 20;
GROUP BY Tsb.flh;
ORDER BY 5 DESC;
INTO TABLE temp.dbf
第三题 设计菜单
过程： _screen。Fontsize=9

第四题
1. 设置相应控件相关属性 keyboardhighvalue：5 keyboardlowvalue：1 value：3
2. 设置相关属性：caption：转置 enabled：.f.
3. 设置command1的相应事件：
thisform.Randarray（thisform.spnrows.value,thisform.spncols.value）
thisform.list1.rowsource=’arr1’
mand2.enabled=.t.
4.设置相关事件： thisform.list1.column=this.value

第4套：
第一题 项目、数据库和表操作
字段输入掩码：99,999,999
索引表达式：je
字段有效规则：je>=10000 and je<10000000
触发器：.f.
第二题
SELECT Yxzy.zymc, Xs.jg, Xs.xb, count(*) as 人数;
FROM jxsj!yxzy INNER JOIN jxsj!xs ;
ON Yxzy.yxzydm = Xs.yxzydm;
GROUP BY Yxzy.yxmc, Xs.jg, Xs.xb;
ORDER BY Yxzy.zymc, Xs.jg;
TO SCREEN
第三题 设计菜单
过程：
clear all
set sysmenu to default
第四题
1. 设置form1的相关属性：Maxbutton：.f. minButton:.f. Borderstyle:1 autocenter:.t.
2. 设置list1的相关属性 columnLines:.f. rowSourcetype:5
3. 设置SpnRows的事件：Thisform.list2.columncount=this.value
mand.click()
4. 设置Command2de 事件：thisform.tranarray
thisform.list2.rowSource=’arr2’

第5套：
第一题 项目、数据库和表操作
字段输入掩码：9999
索引表达式：nd+str（jf）
触发器：year(date())= =val(nd) or year(date())= = val(nd)+1
第二题
SELECT Kc.lx, count(*) as 选课人数, sum(iif(cj>60,1,0)) as 获学分人数;
FROM jxsj!kc INNER JOIN jxsj!cj ;
ON Kc.kcdm = Cj.kcdm;
GROUP BY Kc.lx;
ORDER BY Kc.lx DESC, 2;
INTO CURSOR temp
第三题 设计菜单
过程：
run/n mspaint

第四题
1. 设置list1的相关属性 columncount:3 rowSourcetype:6 rowsource:组别,编号，国家
2. 设置OleboundControl controlSource:fifa.国旗 stretch：2
3. 设置combo1事件 set filter to
……..
thisform.list1.listindex=1
4. 设置List1的事件：thisform.refresh
thisform.label3.caption=fifa.国家