vf机试程序部分答案大全文档.docVIP

一. Select 零件.零件名,零件.颜色 ,零件.重量; From 供应,零件; Where 零件.零件号=供应.零件号 and 供应.工程号=thisform.text1.value; Order By 零件名; Into dbf pp ThisForm.Grid1.RecordSource=pp 二.2.SELECT Authors.作者姓名,Authors.所在城市; FROM authors,books ; WHERE Authors.作者编号 = Books.作者编号; GROUP BY Authors.作者姓名 HAVING COUNT(Books.图书编号) = 3; ORDER BY Authors.作者姓名; INTO TABLE NEW_VIEW4 3.SELECT * 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.表单的Init事 Public a(3) A(1) = s1 A(2) = s2 A(3) = s3 @ x=allt(bo1.value) SELECT SUM(使用零件.数量*零件信息.单价) as je; FROM 使用零件情况!使用零件 INNER JOIN 使用零件情况!零件信息 ; ON 使用零件.零件号 = 零件信息.零件号; WHERE 使用零件.项目号 = x into array b thisform.text1.value=allt(str(b[1])) 四 2.将命令语句Text1.Value＝m2改为ThisForm.Text1.Value＝m2。 3. SELECT Employee.组别, Employee.姓名 AS 负责人,sum(orders.金额) as 合计; FROM 订单管理!employee INNER JOIN 订单管理!orders ; ON Employee.职员号 = Orders.职员号; WHERE Employee.职务 = 组长; GROUP BY Employee.组别; ORDER BY 3 DESC; INTO TABLE tabletwo.dbf 五.2. 双击表单空白处，分别输入表单Init和Destroy事件 DO menu_lin.mpr With This,abc Release Menu abc Extended 3. SELECT COUNT(*) FROM BOOK; WHERE 出版社=THISFORM.COMBO1.VALUE; INTO ARRAY TEMP THISFORM.TEXT1.VALUE=TEMP(1) 六 1. INSE INTO 零件信息 VALUES(p7,PN7,1020) DELE FROM 零件信息 WHERE 单价600 UPDATE 零件信息 SET 单价=1090 WHERE 零件号=p4 2.第1行中的=改IN；GROUP BY 项目号改GROUP BY 零件号；INTO FILE改TO FILE 七.2. FOR i=1 TO thisform.List1.ListCount， s=thisform.List1.List(i) ：s=s+,+thisform.List1.List(i) 3. Init事件代码 DO mymenu.mpr WITH THIS, myform @SELECT Customer.客户号, Customer.客户名, sum(orders.金额) as 合计; FROM customer,orders ; WHERE Customer.客户号 = Orders.客户号; GROUP BY Customer.客户号; ORDER BY 3 DESC; INTO TABLE tabletwo.dbf 八 1. ALTER TABLE 课程表 ADD UNIQUE 课程号 TAG temp （4）将第二行语句改为： DO WHILE i=1 2.错误1：将 TO 改为 INTO。 错误2：将 OPEN 改为 USE。 错误3：将 SCAN OF 改为 SCAN FOR。 错误4：将 OR 改为 AND。 错误5：将 sum+1 改为 sum=sum+1。 3