《计算机二级复习资料各题代码》由会员分享，可在线阅读，更多相关《计算机二级复习资料各题代码（17页珍藏版）》请在金锄头文库上搜索。
1、计算机二级复习资料各题代码计算机二级复习资料各题代码第一综合运用题代码THISFORM.GRID1.RECORDSOURCETYPE=4gch=alltrim(thisform.text1.value)thisform.grid1.recordsource=“;SELECT 零件.零件名, 零件.颜色, 零件.重量;FROM 供应零件!零件 INNER JOIN 供应零件!供应 ;ON 零件.零件号 = 供应.零件号;WHERE 供应.工程号 = gch;ORDER BY 零件.零件名;INTO TABLE pp.dbf“第三综合运用代码thisform.grid1.recordsourcet
2、ype=4xh=alltrim(thisform.text1.value)locate for 学号=xhif not eof()thisform.grid1.recordsource=“;SELECT Course.课程名, Score1.成绩;FROM score_manager!course INNER JOIN score_manager!score1 ;ON Course.课程号 = Score1.课程号;WHERE Score1.学号 =xh into cursor temp“elsemessagebox(“学号不存在，请重新输入学号“)endiftx第二综合应用代码cbs=bo1
3、.valueSELECT count( Book.书名);FROM 图书!book;WHERE Book.出版社 =cbs into array arthisform.text1.value=ar第九综合应用代码xm=alltrim(thisform.text1.value)thisform.grid1.recordsourcetype=0SELECT Rate_exchange.外币名称,;Rate_exchange.现钞买入价* Currency_sl.持有数量 as 人民币数量;FROM rate!rate_exchange INNER JOIN rate!currency_sl ;ON
4、 Rate_exchange.外币代码 = Currency_sl.外币代码;WHERE Currency_sl.姓名 = xm;ORDER BY 2 DESC into table dbfathisform.grid1.recordsource=“dbfa“第十综合代码do casecase thisform.myoption.value=1SELECT Currency_sl.姓名, Currency_sl.持有数量;FROM 外汇数据!rate_exchange INNER JOIN 外汇数据!currency_sl ;ON Rate_exchange.外币代码 = Currency_s
5、l.外币代码;WHERE Rate_exchange.外币名称 = “日元“ into table rate_rycase thisform.myoption.value=2SELECT Currency_sl.姓名, Currency_sl.持有数量;FROM 外汇数据!rate_exchange INNER JOIN 外汇数据!currency_sl ;ON Rate_exchange.外币代码 = Currency_sl.外币代码;WHERE Rate_exchange.外币名称 = “美元“ into table rate_mycase thisform.myoption.value=
6、3SELECT Currency_sl.姓名, Currency_sl.持有数量;FROM 外汇数据!rate_exchange INNER JOIN 外汇数据!currency_sl ;ON Rate_exchange.外币代码 = Currency_sl.外币代码;WHERE Rate_exchange.外币名称 = “欧元“ into table rate_oyendcase第十二表单 load 事件代码public ar(3)ar(1)=“s1“ar(2)=“s2“ar(3)=“s3“command1.click 事件代码xmh=bo1.valueSELECT sum(使用零件.数量*
7、 零件信息.单价) as 金额合计;FROM 使用零件情况!使用零件 INNER JOIN 使用零件情况!零件信息 ;ON 使用零件.零件号 = 零件信息.零件号;WHERE 使用零件.项目号 =xmh into array athisform.text1.value=a第十三综合应用代码xm=alltrim(thisform.text1.value)thisform.grid1.recordsource=“;SELECT Rate_exchange.外币名称, Currency_sl.持有数量;FROM 外汇管理!rate_exchange INNER JOIN 外汇管理!currency_
8、sl ;ON Rate_exchange.外币代码 = Currency_sl.外币代码;WHERE Currency_sl.姓名 = xm;ORDER BY Currency_sl.持有数量 into table sum(Orderitem.单价* Article.数量) AS 总金额;FROM ecommerce!customer INNER JOIN ecommerce!orderitem;INNER JOIN ecommerce!article ;ON Orderitem.商品号 = Article.商品号 ;ON Customer.会员号 = Orderitem.会员号;WHERE
9、Orderitem.日期 = rq;GROUP BY Orderitem.会员号;ORDER BY 3;INTO TABLE dbfa.dbf第十八题综合form1.init 事件代码thisform.grid1.recordsourcetype=1SELECT Student.学号, Student.姓名, Student.院系, Course.课程名称,;Score.成绩;FROM 学生!student INNER JOIN 学生!score;INNER JOIN 学生!course ;ON Score.课程编号 = Course.课程编号 ;ON Student.学号 = Score.学
10、号;ORDER BY Student.学号 into cursor tempthisform.grid1.recordsource=“temp“command1.click 事件代码select * from temp into table results第二十综合应用计算菜单过程代码如下SELECT Xuesheng.民族, avg(Chengji.数学) as 数学平均分,;avg(Chengji.英语) as 英语平均分;FROM cj_m!xuesheng INNER JOIN cj_m!chengji ;ON Xuesheng.学号 = Chengji.学号;WHERE Xueshe
11、ng.民族 = “汉“ into array arrinser into table3 from array arrSELECT Xuesheng.民族, avg(Chengji.数学) as 数学平均分,;avg(Chengji.英语) as 英语平均分;FROM cj_m!xuesheng INNER JOIN cj_m!chengji ;ON Xuesheng.学号 = Chengji.学号;WHERE Xuesheng.民族 “汉“第二十一综合计算菜单过程代码SELECT avg(数学), avg(英语), avg(信息技术) FROM chengji into array tmpSE
12、LECT Xuesheng.学号, Xuesheng.姓名;FROM chengji INNER JOIN xuesheng ;ON Chengji.学号 = Xuesheng.学号;WHERE Chengji.数学 = tmp(1);AND Chengji.英语 = tmp(2);AND Chengji.信息技术 = tmp(3) order by Xuesheng.学号 desc into table table2第二十二综合计算菜单过程代码SELECT Xuesheng.学号, Xuesheng.姓名, Chengji.数学, Chengji.英语,;Chengji.信息技术;FROM
13、cj_m!xuesheng INNER JOIN cj_m!chengji ;ON Xuesheng.学号 = Chengji.学号;ORDER BY Xuesheng.学号 DESC;INTO TABLE table3.dbfalter table table3 add 等级 c(4)update table3 set 等级=“优“ where 数学=60 and 英语=60 and 信息技术=60 and (数学+英语+信息技术)/3=90update table3 set 等级=“良“ where 数学=60 and 英语=60 and 信息技术=60 and (数学+英语+信息技术)/
14、3=80 and (数学+英语+信息技术)/3=60 and 英语=60 and 信息技术=60 and (数学+英语+信息技术)/3=70 and (数学+英语+信息技术)/3=60 and 英语=60 and 信息技术=60 and (数学+英语+信息技术)/3= rq;ORDER BY 房价.价格 DESC into table tabd第三十综合代码if thisform.optiongroup1.value=1SELECT *;FROM results;ORDER BY Results.最高分, Results.最低分, Results.平均分 into table six_aels
15、eSELECT *;FROM results;ORDER BY Results.最高分 desc, Results.最低分 desc, Results.平均分 desc into table six_dendif第三二综合xm=alltrim(thisform.text1.value)thisform.grid1.recordsourcetype=4thisform.grid1.recordsource=“;SELECT Order.订单号, Order.金额;FROM order INNER JOIN employee ;ON Order.职员号 = Employee.职员号;WHERE E
16、mployee.姓名 = xm into cursor temp“select max(金额),min(金额),avg(金额) from temp into array arinsert into tablethree values(xm,ar(1),ar(2),ar(3)三十三简单应用第二题代码otiongroup1.click 事件代码DO CASECASE thisform.optiongroup1.value=1thisform.list1.rowsource=“*.DOC“CASE thisform.optiongroup1.value=2thisform.list1.rowsource=“*.XLS“CASE thisform.optiongroup1.value=3thisform.list1.rowsource=“*.TXT“ENDCASE综合command1.click 事件代码set date to ymdset
