计算机二级报表代码大全,计算机二级VF代码大全代码

1.1 SELECT 供应.供应商号,供应.工程号,供应.数量;

FROM 零件,供应 WHERE 供应.零件号=零件.零件号;

AND 零件.颜色="红";

ORDER BY 供应.数量 desc;

INTO DBF supply_temp

do menu_quick.mpr

1.2Select 零件.零件名,零件.颜色 ,零件.重量;

From 供应,零件;

Where 零件.零件号=供应.零件号 and 供应.工程号=thisform.text1.value;

Order By 零件名;

Into dbf pp

ThisForm.Grid1.RecordSource="pp"

2.2SELECT 作者姓名,所在城市;

FROM AUTHORS;

WHERE 作者编号 IN;

(SELECT 作者编号 FROM BOOKS GROUP BY 作者编号 HAVING COUNT(*)>=3);

ORDER BY 作者姓名;

INTO TABLE NEW_VIEW4

2.3SELECT * FROM BOOKS WHERE 书名 LIKE "%计算机%" INTO TABLE BOOKS_BAK

UPDATE BOOKS_BAK SET 价格=价格*(1-0.05)

SELECT TOP 1 Books_bak.出版单位,avg(books_bak.价格) as 均价;

FROM books_bak;

GROUP BY Books_bak.出版单位;

HAVING 均价>=25;

ORDER BY 2;

INTO TABLE new_table4.dbf

3.2SELECT 项目信息.项目号, 项目信息.项目名, 零件信息.零件号,;

零件信息.零件名称;

FROM 使用零件情况!零件信息 INNER JOIN 使用零件情况!使用零件;

INNER JOIN 使用零件情况!项目信息 ;

ON 使用零件.项目号 = 项目信息.项目号 ;

ON 零件信息.零件号 = 使用零件.零件号;

ORDER BY 项目信息.项目号 DESC, 零件信息.零件号;

INTO TABLE item_temp.dbf

3.3步骤3：双击表单空白处，在表单的Init事件中输入如下代码：

Public a(3)

A(1) = "s1"

A(2) = "s2"

A(3) = "s3"

x=allt(http://doc.xuehai.netbo1.value)

SELECT SUM(使用零件.数量*零件信息.单价) as je;

FROM 使用零件情况!使用零件 INNER JOIN 使用零件情况!零件信息 ;

ON 使用零件.零件号 = 零件信息.零件号;

WHERE 使用零件.项目号 = x into array b

thisform.text1.value=allt(str(b[1]))

"退出"按钮的Click事件代码如下：

thisform.release

4.2SELECT Book.书名, Book.作者, Book.价格;

FROM book,loans,borrows ;

WHERE Loans.借书证号 = Borrows.借书证号 ;

AND Book.图书登记号 = Loans.图书登记号;

AND Borrows.姓名 = "田亮";

ORDER BY Book.价格 DESC;

INTO TABLE book_temp.dbf

5.2SELECT Book.书名, Book.作者, Book.价格;

FROM book,loans,borrows ;

WHERE Loans.借书证号 = Borrows.借书证号 ;

AND Book.图书登记号 = Loans.图书登记号;

AND Borrows.姓名 = "田亮";

ORDER BY Book.价格 DESC;

INTO TABLE book_temp.dbf

DO menu_lin.mpr With This,"abc"

Release Menu abc Extended

5.3SELECT COUNT(*) FROM BOOK;

WHERE 出版社=http://doc.xuehai.netBO1.VALUE;

INTO ARRAY TEMP

THISFORM.TEXT1.VALUE=TEMP(1)

6.1 INSERT INTO 零件信息 VALUES("p7","PN7",1020)

DELE FROM 零件信息 WHERE 单价<600

UPDATE 零件信息 SE

T 单价=1090 WHERE 零件号="p4"

6.2 SELECT 零件名称 FROM 零件信息 WHERE 零件号 = ;

(SELECT 零件号 FROM 使用零件;

GROUP BY 项目号 HAVING COUNT(项目号) = 3) ;

OR