机试代码集1-85套.docVIP

1-1-1 **************query1.prg中的程序段************ SELECT 供应.供应商号,供应.工程号,供应.数量; FROM 零件,供应 WHERE 供应.零件号=零件.零件号; AND 零件.颜色=红; ORDER BY 供应.数量 desc; INTO DBF supply_temp 1-1-3 ******查询按钮的Click事件代码********* Select 零件.零件名,零件.颜色 ,零件.重量; From 供应,零件; Where 零件.零件号=供应.零件号 and 供应.工程号=thisform.text1.value; Order By 零件名; Into dbf pp ThisForm.Grid1.RecordSource=pp *************************************** ******退出按钮的Click事件代码********* THISFORM.RELEASE *************************************** 1-2-2 ******查询按钮的Click事件代码****** SELECT Authors.作者姓名,Authors.所在城市; FROM authors,books ; WHERE Authors.作者编号 = Books.作者编号; GROUP BY Authors.作者姓名 HAVING COUNT(Books.图书编号) = 3; ORDER BY Authors.作者姓名; INTO TABLE NEW_VIEW4 1-2-3 步骤1：在命令窗口中输入下列代码，用于将BOOKS表中满足条件的记录复制到BOOKS_BAK表中，并按回车键以执行该代码。 *************************************** SELECT * FROM BOOKS WHERE 书名 LIKE %计算机% INTO TABLE BOOKS_BAK *************************************** 步骤2：在命令窗口中输入下列代码，用于更新BOOKS_BAK表中的价格字段，并按回车键以执行该代码。 ************************* UPDATE BOOKS_BAK SET 价格=价格*(1-0.05) ************************* 步骤3：在命令窗口中输入下列代码，并按回车键以执行该代码。 ******************************** 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 ******************************** 1-3-2 *************************************** SELECT 项目信息.项目号, 项目信息.项目名, 零件信息.零件号,; 零件信息.零件名称; FROM 使用零件情况!零件信息 INNER JOIN 使用零件情况!使用零件; INNER JOIN 使用零件情况!项目信息 ; ON 使用零件.项目号 = 项目信息.项目号 ; ON 零件信息.零件号 = 使用零件.零件号; ORDER BY 项目信息.项目号 DESC, 零件信息.零件号; INTO TABLE item_temp.dbf *************************************** 1-3-3 按照题目的要求设置组合框的数据源。表单的Init事件代码如下： Public a(3) A(1) = s1 A(2) = s2 A(3) = s3 步骤4：分别双击命令按钮统计和退出，为它们编写Click事件代码。 ******统计按钮的Click事件代码****** x=allt(bo1.value) SELECT SUM(使用零件.数量*零件信息.单价) as je; FROM 使用零件情况!使用零件 INNER JOIN 使用零件情况!零件信息 ; ON 使用零件.零件号 = 零件信息.零件号; WHERE 使用零件.项目号 = x into array b thisform.text1.value=al