1、OPEN DATABASE sdb
SELECT STUDENT.,,AVG(成绩) 平均成绩,COUNT(成绩) 选课门数;
FROM student JOIN sc ON student. = sc.;
WHERE 性别 = "女";
GROUP BY STUDENT. HAVING AVG(成绩) >= 75 ;
ORDER BY 4 desc ;
INTO TABLE three
2、 UPDATE CUS SET 会员类型="金卡会员" WHERE 会员号=ANY(SELECT 会员号 FROM cbc GROUP BY 会员号 HAVING SUM(数量*单价) >= 15000)
UPDATE CUS SET 会员类型="银卡会员" WHERE 会员号=ANY(SELECT 会员号 FROM cbc GROUP BY 会员号 HAVING SUM(数量*单价) < 15000 AND SUM(数量*单价)>= 10000)
UPDATE CUS SET
会员类型="铜卡会员" WHERE 会员号=ANY(SELECT 会员号 FROM cbc GROUP BY 会员号 HAVING SUM(数量*单价) < 10000 AND SUM(数量*单价)>= 5000)
UPDATE CUS SET 会员类型="普通会员" WHERE 会员号=ANY(SELECT 会员号 FROM cbc GROUP BY 会员号 HAVING SUM(数量*单价) < 5000)
3、OPEN DATABASE sdb
CREATE VIEW S_VIEW AS;
SELECT Class.班级号, 班级名, , 性别, 教师名 AS 班主任名;
FROM Student,Class,Teacher ;
WHERE Student.班级号 = Class.班级号 and Teacher.教师号 = Class.班主任号
4、表单显示时自动在主窗口内居中,应执行在AutoCenter处选择".T."
5、 第65题:
SELECT ,年龄,性别,家庭地址;
FROM p_t;
WHERE 户主编号=alltrim(ThisForm.Text1.Value); aiitrim(去掉空格)
INTO array tmp
ThisForm.Text2.Value=tmp(1)
ThisForm.Text3.Value=tmp(2)
ThisForm.Text4.Value=tmp(3)
ThisForm.Text5.Value=tmp(4)
ThisForm.Grid1.RecordSource="SELECT 土地编号,小地名,面积,树种编号,蓄积,承包年度
FROM fr_t WHERE 户主编号='"+alltrim(ThisForm.Text1.Value)+"' INTO CURSOR LSB"
6、
列表框选择命令: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
7、将表TABC的记录在表格控件中显示的命令:ThisForm.Grid1.RecordSourceType = 0
ThisForm.Grid1.RecordSource = "TABC"
8、查询结账日期等于文本框输入日期的记录并将查询结果存储到表TABC中:
ET CENTURY ON
SET DATE TO YMD(设置日期格式为:年月日)
dd = CTOD(ThisForm.Text1.Value) CTOD(将输入的字符转换成日期型)
SELECT 顾客序号,顾客,单位,消费金额 FROM 结账表;
WHERE 结账日期 = dd;
ORDER BY 消费金额 DESC;
INTO TABLE TABC
9、为“生成”命令按钮编写程序代码,程序的功能是:表单运行时,
根据组合框和选项组中选定的“系名”和“计算内容”,
将相应“系”的“平均工资”或“总工资”存入自由表salary中,表中包括“系名”、
“系号”以及“平均工资”
或“总工资”三个字段
******"生成"按钮的Click事件代码*******
x = thisformbo1.value
if thisform.optiongroup1.value = 1
SELECT 表.系名, 表.系号, avg(教师表.工资) as 平均工资;
FROM college!表 INNER JOIN college!教师表 ;
ON 表.系号 = 教师表.系号;
WHERE 表.系名 = x;
GROUP BY 表.系号;
INTO TABLE salary.dbf
else
SELECT 表.系名, 表.系号, sum(教师表.工资) as 总工资;
FROM college!表 INNER JOIN college!教师表 ;
ON 表.系号 = 教师表.系号;
WHERE 表.系名 = x;
GROUP BY 表.系号;
INTO TABLE salary.dbf
Endif
10、单击确定命令按钮,显示选中分类的商品,要求用do case语句判断选择的商品分类,
商品分类分别有饮料、调味品、酒类、小家电。(选项按钮组的value属性必须为数值型)
DO CASE
CASE THISFORM.OPTIONGROUP1.VALUE=1
SELECT * FROM 商品 WHERE 分类编码=ANY(SELECT 分类编码 FROM 分类 WHERE 分类名称="饮料")
CASE THISFORM.OPTIONGROUP1.VALUE=2
SELECT * FROM 商品 WHERE 分类编码=ANY(SELECT 分类编码 FROM 分类 WHERE 分类名称="调味品