在考生文件夹下,打开"CDB"数据库,完成如下综合应用: 创建设计一个标题名为"查询"、文件名为"TWO"的表单,如下图所示。 表单要求如下: (1)为表单建立数据环境,依次向数据环境添加ORDER、CUST和COMM表。 (2)表单启动后自动居中。

admin2013-11-10  17

问题 在考生文件夹下,打开"CDB"数据库,完成如下综合应用:
创建设计一个标题名为"查询"、文件名为"TWO"的表单,如下图所示。
表单要求如下:
(1)为表单建立数据环境,依次向数据环境添加ORDER、CUST和COMM表。
(2)表单启动后自动居中。
   
(3)在该表单中设计一个标签、一个文本框、两个表格和两个命令按钮。
1)标签对象标题文本为"输入顾客号";文本框用于输入顾客号;两个表格控件用于显示结果。
2)命令按钮的功能如下:
①"查询"按钮:在该按钮的"Click"事件中使用SQL的SELECT命令查询顾客号等于输入的"顾客号"的顾客的顾客号、顾客名和地址,以及购买商品的商品号、商品名、单价、数量和金额(各商品记录按商品号升序排序)。
将查询的顾客信息在表格控件Grid1中显示,同时将结果存储到表TABB中;
将查询的顾客购买商品的结果在表格控件Grid2中显示,同时将结果存储到表TABC中。
注意:每件商品的"金额"是由COMM表中该商品的单价*ORDER表中该商品的订购数量计算得到。表TABB和表TABC结构分别如下:
TABB(顾客号,顾客名,地址)
TABC(商品号,商品名,单价,数量,金额)
②"退出"按钮:其功能是"关闭和释放表单"。
注意:表格控件的RecordSourceType属性设置为"4-SQL说明";
表单设计完成后,运行该表单,查询顾客号等于"010003"的顾客信息和购买的商品信息。

选项

答案【操作步骤】 步骤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 DBF TABC THISFORM.GRID1.RECORDSOURCE="SELE * FROM TABB INTO CURSOR A" THISFORM.GRID2.RECORDSOURCE="SELE * FROM TABC INTO CURSOR b" 步骤6:在退出按钮的单击事件中输入: THISFORM.RELEASE 步骤7:按题目要求输入顾客号:010003,运行并保存程序。

解析
转载请注明原文地址:https://kaotiyun.com/show/h8op777K
0

最新回复(0)