这是本人所记的上机题库代码,看得懂就懂,不懂的尽量背.真题代码
问题,不做修改注明了、只有代码,相信考过的应该认出这是真题代码吧)
(由于时间
SSELECT 外汇代码.外币代码 AS 币种 1 代码,; 外汇代码_a.外币代码 AS 币种 2 代码,外汇汇率.买入价,外汇汇率.卖出价; FROM 外汇!外汇代码 JOIN 外汇!外汇汇率 JOIN 外汇!外汇代码 外汇代码_a; ON 外汇代码_a.外币代码=外汇汇率.币种 2; ON 外汇汇率.币种 1=外汇代码.外币代码; INTO TABLE RATE
select 供应商号,工程号,数量 FROM 供应; WHERE 零件号 IN (SELECT 零件号 FROM 零件 WHERE 颜色=”红“)
SELECT 零件名,颜色,重量 FROM 零件 JOIN 供应; ON 零件.零件号=供应.零件号 WHERE 工程号=ALLTRIM(thisform.Text1.value); ORDER BY 零件。零件号 ASC INTO TABLE PP。DBF thisform.grid1.recordsource="pp" SELECT 书名,作者,价格 FROM BOOK; WHERE BOOK.图书登记号 IN; (SELECT 图书登记号 FROM LOANS,BORROWS; WHERE LOANS.借书证号=BORROWS.借书证号 AND BORROWS.="田亮")
release menu menu_lin extended
释放
SELECT COUNT(*) FROM BOOK WHERE 出版社 =THISFORM.COMBO1.VALUE; INTO ARRAY TEMP THISFORM.TEXT1.VALUE = TEMP(1)
CREATE VIEW NEW_VIEW AS SELECT STUDENT.,STUDENT.,STUDENT.系部 FROM SCORE!COURSE INNER JOIN SCORE!SCORE1 INNER JOIN SCORE!STUDENT ON STUDENT. =SCORE1. ON COURSE.课程号 = SCORE1.课程号 WHERE COURSE.课程号 IS NOT NULL AND SCORE1.成绩 IS NULL
set talk off &;&;在
程序工作方式下关闭命令结果的显示 OPEN DATABASE SCORE
********************************************************** create view view_cb as; select EMPLOYEE.职工号,EMPLOYEE.,SUM(ORDERS.金额) AS 总金额; FROM EMPLOYEE,ORDERS WHERE EMPLOYEE.职工号=ORDERS.职工号; GROUP BY ORDERS.职工号 HAVING SUM(ORDERS.金额)>=15000; ORDER BY 总金额 SELECT CUORSE.课程名, AVG(SCORE1.成绩) 平均成绩; FROM SCORE!COURSE JOIN SCORE!SCORE1 ON CORESE.课程号 = SCORE1.课程号; ORDER BY COURSE.课程名; GROUP BY COURSE.
课程名; INTO TABLE NEWTABLE
CLOSE ALL SET TALK ON
SELECT CURRENCY_SL.,(RATE_EXCHANGE.基准价*CURRENCY_SL.持有数量) AS 人民币价值; FROM CURRENCY_SL join RATE_EXCHANGE; ON CURRENCY_SL.外币代码=RATE_EXCHANGE.外币代码 GROUP BY CURRENCY_SL.; ORDER BY 人民币价值 DESC INTO TABLE RESULTS.DBF
select 歌手表.歌手,MAX(评分表.分数) AS 最高分,; MIN(评分表.分数) AS 最低分, AVG(评分表.分数) AS 平均分; FROM 大奖赛!歌手表 INNER JOIN 大奖赛!评分表 ; ON 歌手表.歌手编号 = 评分表.歌手编号; GROUP BY 歌手表.歌手编号; ORDER BY 4 DESC; INTO TABLE result.dbf
do case case thisform.Optiongroup1.value=1 select*; from result; order by result.最高分,Result.最低分,result.平均分; into table six_a.dbf case thisform.Optiongroup.value=2 select *; order by result.最高分 DESC,RE
SULT 最低分 DESC,RESULT.平均分 DESC; into table six_d.dbf endcase
SELECT 职工号,,工资 FROM 教师表 JOIN 表; ON 教师表.系号=表.系号 WHERE 表.系名= (THISFORM.LIST1.LISTINDEX) INTO TABLE LIST1.LIST
(THISFORM.LIST1.LISTINDEX) ORDER BY 职工号
SELECT 商品代码表.商品号,商品代码表.商品名,销售表.一季度利润,销售表.二季度利润,销 售表.三季度利润,销售表.四季度利润; FROM 销售表 JOIN 商品代码表; ON 销售表.商品号=商品代码表.商品号; WHERE 部 门 号 =alltrim(THISFORM.TEXT1.VALUE) AND 年 度 =alltrim(THISFORM.TEXT2.VALUE); GROUP BY 商品代码表.商品号; INTO TABLE &;x thisfORM.GRID1.RECORDSOURCE= " select * from " + x
SELECT 学生. FROM 学生 JOIN 选课 JOIN 课程; ON 学生.=选课.; ON 课程.课程号=选课.