【正确答案】[操作步骤]
步骤1:新建表单,保存表单文件名为TWO。
步骤2:修改表单的Caption属性为“查询”,AutoCenter为.T.。
步骤3:在表单中单击右键,选择“数据环境”,依次添加表ORDER、CUST和COMM。
步骤4:按题中图示添加一个标签、一个文本框和两个表格及两个命令按钮,并设置标签及两个命令按钮的Caption属性值,两个表格的RecordSourceType属性为4-SQL说明。
步骤5:在查询按钮的单击事件中输入下列程序代码:
SELECT CUST.顾客号,顾客名,地址,Order.商品号,商品名,单价,数量,单价 * 数量AS金额FROM comm,cust,order;
WHERE comm.商品号=order.商品号AND cust.顾客号=order.顾客号AND cust.顾客号=THISFORM.TEXT1.VALUE;
INTO CURSOR LSB
SELECT DIST顾客号,顾客名,地址FROM LSB INTO DBF TABB
SELECT商品号,商品名,单价,数量,金额FROM LSB INTO DBE TABC
THISFORM.GRID1.RECORDSOURCE="SELE * FROM TABB INTO CURSOR A"
THISFORM.GRID2.RECORDSOURCE="SELE * FROM TABC INTO CURSOR b"
步骤6:在退出按钮的单击事件中输入:
THISFORM.RELEASE
步骤7:按题目要求输入顾客号:010003,运行并保存程序。
【答案解析】[考点] 本大题主要考查的知识点是:创建表单、设置表单属性及事件、SQL语句。
在“显示”菜单下选择“数据环境”就可以添加数据表到数据环境中。表单启动后居中需要设置表单AutoCenter属性为真。SQL语句中,将查询结果存储到表中需要用语句Into DBF表名。查询结果在Grid控件中显示需要设置Grid控件的RecordSource属性为查询结果数据集。