VFP上机真题答案.docVIP

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