- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VFP上机真题答案
2008版--第08套
【答案】
第4题:
select 顾客号,菜单表.菜编号,菜名,单价,数量 from 菜单表 inner join 顾客点菜表 ;
on 菜单表.菜编号 = 顾客点菜表.菜编号 where 单价 = 40 ;
order by 菜单表.菜编号 desc into table taba
【答案】
第1题:
查询代码:
select 顾客点菜表.顾客号, sum(菜单表.单价*顾客点菜表.数量) as 消费金额合计 ;
from 菜单表 inner join 顾客点菜表 ;
on 菜单表.菜编号 = 顾客点菜表.菜编号;
group by 顾客点菜表.顾客号;
order by 2 desc;
into table tabb.dbf
第2题:
testa表单的 List1的rowsourcetype 控件 : 7 — 文件
testa表单的Optiongroup1控件Click事件:
set talk off
do case
case thisform.Optiongroup1.value = 1
thisform.list1.rowsource = *.doc
case thisform.Optiongroup1.value = 2
thisform.list1.rowsource = *.xls
case thisform.Optiongroup1.value = 3
thisform.list1.rowsource = *.txt
endcase
set talk on
【答案】
“查询”代码:
select 顾客序号,顾客姓名,单位,消费金额 from 结帐表 ;
where 结帐日期 = ctod(alltrim(thisform.text1.value)) ;
order by 消费金额 desc ;
into table tabc
“显示”代码:
close tables all
use tabc
thisform.grid1.recordsource = tabc
2008版--第11套
【答案】略
【答案】
第1题:
1)略
2)List多选: MultiSelect .T. — 真
3)recordsourcetype----4 SQL 说明。
4)
显示代码:
* 下面代码的功能是根据用户对列表框的选择结果构建字段列表,然后进一步构建select语句并据此为表格的相关属性设值。
* 修改所有*** FOUND ***下面的一条语句。
* 不能修改其他语句。不能增加语句,也不能删除语句。
s=
f=.t.
*** found ***
for i=1 to thisform.list1.columncount
**** for i=1 to thisform.list1.listcount ****
if thisform.list1.selected(i)
if f
*** found ***
s=thisform.list1.value **** s=thisform.list1.listitem(i) ****
f=.f.
else
*** found ***
s=s+thisform.list1.value **** s=s+,+thisform.list1.listitem(i) ****
endif
endif
endfor
st=select s from orders into cursor tmp
thisform.Grid1.RecordSource=st
第2题:
查询代码:
Select Orders.订单号, Orders.签订日期, Orders.金额,;
Employee.姓名 As 签订者, Customer.客户名;
From Customer Inner Join Orders Inner Join Employee ;
On Employee.职员号 = Orders.职员号 ;
On Customer.客户号 = Orders.客户号;
Where Orders.签订日期 = {^2001-05-01};
Order By Orders.签订日期 Desc, Orders.金额 Desc;
Into Table Tableone.Dbf
【答案】
统计代码:
set talk off
select orders.客户号,客户名,sum(金额) as 合计 from orders inner join custom
文档评论(0)