文档介绍:计算机二级复****资料各题代码
第一
综合运用题代码
THISFORM. GRID1. REC0RDS0URCETYPE=4 gch=alltrim(thisform. textl. value) thisform. gridl. recordsource=”;
,,;
FROM 供应零件!零件INNER JOIN供应零件!供应;
;
=gch;
ORDER ;
INTO TABLE ”
第三
综合运用代码
thisform. gridl. recordsourcetype=4 xh=alltrim(thisform. textl. value) locate for 学号二xh
if not eof ()
thisform. gridl. recordsource=”;
SELECT ,Score ;
FROM score manager!course INNER JOIN score_manager!scorel ;
ON =;
WHERE =xh into cursor temp” else
messagebox(z/学号不存在,请重新输入学号")
endiftx
第二
综合应用
代码
cbs=thisform. combo 1. value
SELECT count ( );
FROM 图书!book;
WHERE Book,出版社=cbs into array ar thisform. textl. value=ar
第九
综合应用代码
xm=alltrim(thisform. textl. value)
thisform. gridl. recordsourcetype=0
SELECT Rate ,;
Rate * Currency sl,持有数量as人民币 数量;
FROM rate!rate_exchange INNER JOIN rate! currency sl ;
ON Rate =Currency sl, 币代码;
WHERE Currency sl,姓名=xm;
ORDER BY 2 DESC into table dbfa thisform. gridl. recordsource="dbfa”
第十
综合代码
do case
case thisform. myoption. value=l
SELECT Currency sl,姓名,Currency s ;
FROM 外汇数据! rate exchange INNER JOIN 外汇数 据! currency_sl ;
ON Rate =Currency sl,外币代码;
WHERE Rate ="日元”into table rate ry
case thisform. myoption. value=2
SELECT Currency sl,姓名,Currency sl,持有数量;
FROM 外汇数据! rate exchange INNER JOIN 外汇数 据! currency_sl ;
ON Rate =Currency sl,外币代码;
WHERE Rate ="美元”into table rate my
case thisform. myopt ion. value=3
SELECT Currency sl,姓名,Currency sl,持有数量;
FROM 外汇数据! rate exchange INNER JOIN 外汇数 据! currency_sl ;
ON Rate =Currency sl,外币代码;
WHERE Rate ="欧元”into table rate oy endcase
第十二
表单load事件代码
public ar(3)
ar(1)二〃s]〃
ar(2)二〃s2"
ar(3)="s3”
command 1. click 事件代码
xmh=thisform. combo 1. value
SELECT sum(*)as金额合计;
FROM使用零件情况!使用零件INNER JOI