在考生文件夹下,打开顾客数据库CDB,完成如下操作:
1. 在会员表CUS中增加一个字段,字段名为手机号,数据类型为"字符",宽度为11;在会员购货明细表CBC中分别给"数量"和"单价"字段设置有效性规则,要求:数量大于等于1,默认值为1;单价大于等于1,默认值为1;
2. 在会员购货明细表CBC中创建一个主索引,索引名为cbc,对应的索引表达式为会员号、商品号和日期字段的组合(会员号+商品号+DTOC(日期));注意,日期字段是日期型数据类型,在索引表达式使用DTOC函数将日期字段转换为字符型。
3. 在会员购货明细表CBC中创建两个普通索引(升序),索引名分别为会员号和商品号,对应索引表达式分别为会员号和商品号。建立会员表CUS与会员购货明细表CBC之间的永久联系;建立商品表COMM与会员购货明细表CBC之间的永久联系。
4. 使用SQL的SELECT语句查询会员表CUS中会员号、会员名和单位字段,将查询结果存储为NCUS表,并将SQL的SELECT语句存储到名为ONE.PRG的文件中。
注意,查询结果不要排序。
解答:
1.打开会员表,单击“显示”菜单下的“表设计器”,增加字段,并按要求设置字段有效性规则。
2.打开表CBC,进入“表设计器”,在“索引”卡设置索引。
3.通过拖动索引建立永久关系。
4.使用命令MODI COMM ONE建立命令文件,代码为:
SELE 会员号,会员名,单位 from cus into table ncus
在考生文件夹下,打开会员数据库CDB,完成如下简单应用:
1. 使用查询设计器设计一个名称为TWO的查询,查询2003年会员购买商品的情况,将结果按会员号排序(升序)并输出(查询去向)到TWO表中。TWO表中的字段名分别为:会员号、会员名、商品名、金额,其中:会员号来自会员表CUS,金额通过"数量*单价"计算。设计完成后,运行该查询。
2. 修改一个名称为THREE.PRG的命令文件。该命令文件查询累计消费金额在5000元以上、每次购买数量大于或等于10的"女"会员的会员号、会员名、单位和电话,结果输出到表THREE中。该命令文件在第3行、第6行、第7行有错误,打开该命令文件,直接在错误处修改,不允许增加和删除行。修改完成后,运行该命令文件。
THREE.PRG命令文件的内容为: 
解答:
1.建立查询,依次添加CUS、CBC、COMM三个表,分别设置各选项卡,其中“筛选条件”卡设置条件为:year(cbc.日期)=2003,设置输出去向,保存并运行。
2.第3行改为:WHERE 性别="女" and 会员号=any;
第6行改为:WHERE 数量>= 10;
第7行改为:GROUP BY 会员号 HAVING sum(数量*单价)>=5000) ;
在考生文件夹下,打开会员数据库CDB,完成如下综合应用:
1. 建立文件名为form的表单,在表单中设计"统计"和"退出"两个按钮。
要求如下:
⑴ 在"统计"按钮(Command1)中,编写程序,根据会员到统计时(系统当前时间)所购买商品的总金额(数量*单价),确定该会员为"金卡"、"银卡"、"铜卡"或"普通"会员,并将其写入会员表CUS的"会员类型"字段中。
金卡会员,总金额 >= 15000元;
银卡会员,总金额 < 15000元 AND >= 10000元;
铜卡会员,总金额 < 10000元 AND >= 5000元;
普通会员,总金额 < 5000元
⑵ 单击"退出"按钮(Command2)时,关闭表单。
⑶ 表单设计完成后,运行表单,单击"统计"按钮进行统计,然后单击"退出"按钮关闭表单。
解答:
建立表单,添加控件,设置其基本属性,如下图: 
设置“统计”按钮的Click事件代码为:
set talk off
sele 1
use cus
do while !eof()
sele 2
use cbc
sum(数量*单价) to abc for 会员号=a.会员号 and 日期<=date()
do case
case abc>=15000
sele 1
repl 会员类型 with "金卡会员"
case abc>=10000
sele 1
repl 会员类型 with "银卡会员"
case abc>=5000
sele 1
repl 会员类型 with "铜卡会员"
other
sele 1
repl 会员类型 with "普通会员"
endcase
sele 1
skip
enddo
设置“退出”按钮的Click事件代码为:
Thisform.release
附:本题相关表 


| 广告合作:400-664-0084 全国热线:400-664-0084 Copyright 2010 - 2017 www.my8848.com 珠峰网 粤ICP备15066211号 珠峰网 版权所有 All Rights Reserved
|