vfp新题.docx

vfp新题.docx

《vfp新题.docx》由会员分享，可在线阅读，更多相关《vfp新题.docx（12页珍藏版）》请在冰豆网上搜索。

vfp新题

新题一：

（83题）

新题二：

（84题）

新题3：

（85题）

新题4：

（86题）

新题5：

（87题）

新题6：

（88题）

新题7:

（89题）

新题8：

（90题）

90套题参考答案：

2.1Prgone.prg文件：

select编号,姓名,出生日期,名称as部门名称from职工,部门where职工.部门编号=部门.部门编号and名称="销售部";

and（year（出生日期）=1985oryear（出生日期）=1986oryear（出生日期）=1987oryear（出生日期）=1988oryear（出生日期）=1989）orderby出生日期,编号intodbfcyqk

3.“查询”按钮代码

a=thisform.textone.value

thisform.gridone.recordsource="select姓名,性别,出生日期,编号from职工,部门where部门.部门编号=职工.部门编号and名称=aorderby编号intodbftableone"

89套题参考答案

1.4

select职称级别,基本工资from职称表where职称名="教授"intodbfprof.dbforderby基本工资

2.1createtable职称系数表（职称名c（6）,职称系数f（10,2））&&有错误

insertinto职称系数表value（"教授",1.4）

insertinto职称系数表value（"副教授",1.3）&&有错误

insertinto职称系数表value（"讲师",1.2）

insertinto职称系数表value（"助教",1.0）

SELECT姓名,系号,课时*80*职称系数+基本工资as应发工资;

FROM职称系数表,教师表,职称表;&&有错误

WHERE职称表.职称级别=教师表.职称级别;

and职称表.职称名=职称系数表.职称名;&&有错误

intodbfsalary.dbf;

orderby系号desc,应发工资

88套题：

2.2select客户名,count（*）as订购总册数,数量*单价as金额fromorder,orderitem,goodswhereorder.订单号=orderitem.订单号andorderitem.图书号=goods.图书号orderby金额descgroupby客户名intodbfapptwo

3.5

select客户名,图书名,金额fromorderviewwhere数量=1orderby客户名,金额descintodbfresult

87套

2.1selectmonth（签订日期）as月份,count（*）as订单数fromorderwhereyear（签订日期）=2007orderby月份groupby月份intodbftableone

3查询：

a=thisform.text1.value

select签订日期,orders.订单号,姓名as客户名,goods.商品名,单价,数量fromorders,orderitems,goods,customerswhere签订日期>=aandorders.订单号=orderitems.订单号andorderitems.商品号=goods.商品号andorders.客户号=customers.客户号orderby签订日期,orders.订单号,goods.商品名intotabletablethree

86套

2.1select*frommyviewwhereleft（客户名,2）="吴"orderby客户名,订单号,图书名intodbfmytable

85套

3.“统计”

select姓名as客户名,count（*）as订单数fromcustomers,orderswhereyear（签订日期）=2007andcustomers.客户号=orders.客户号orderby订单数desc,客户名groupby订单号intodbftabletwo

“退出”

Setsysmenutodefault

Setsysmenunosave

84套

1.3delefromstudentwhere学号="s3"

2.2改错

CLOSEDBF

PRIVATEno,money

USEscust

*下面的一行语句有错误

SELECT顾客号,sum（数量*单价）as应付款;

FROMorderJOINcommONorder.商品号=comm.商品号;

GROUPBY顾客号;

INTOCURSORls

SELECTscust

*下面的一行语句有错误

DOWHILE.not.EOF（）

no=顾客号

SELECTls

LOCATFOR顾客号=no

money=应付款

SELECTscust

*下面的一行语句有错误

Updatescustset应付款=money

SKIP+1

ENDDO

CLOSETABLE

RETURN

3.

selectorder.顾客号,order.商品号,商品名,单价,数量,单价*数量as金额fromcust,order,commwherecust.顾客号=order.顾客号andorder.商品号=comm.商品号intodbfxx

a=thisform.text1.value

thisform.grid1.recordsource="select顾客号,商品号,商品名,单价,数量,金额fromxxwhere顾客号=aorderby商品号intodbftjb"

thisform.text2.value=53776.00

83套

1.4createtable销售明细表（顺序号c（6）primarykey,日期d,商品号c（6）,商品名c（10）,金额n（10,2））

2.2注意：

查询设计器需要分组“按顾客号分组”

3.“查询”

thisform.grid1.recordsource="select顾客号,顾客名,地址fromcustwhere顾客号=thisform.text1.valueintodbftabb"

thisform.grid2.recordsource="selectorder.商品号,商品名,单价,数量,单价*数量as金额fromorder,commwherecomm.商品号=order.商品号orderbyorder.商品号intodbftabc"