vf1-25每套图的精华考试必备..doc

第一套 列出所有与红颜色零件相关的信息 SELECT 供应.供应商号,供应.工程号,供应.数量; FROM 零件,供应 WHERE 供应.零件号=零件.零件号; AND 零件.颜色=红; ORDER BY 供应.数量 desc; INTO DBF supply_temp 选择 RightClick，输入代码：do menu_quick.mpr 设计一个名为mysupply的表单 双击查询命令按钮，并输入如下代码： Select 零件.零件名,零件.颜色 ,零件.重量; From 供应,零件; Where 零件.零件号=供应.零件号 and 供应.工程号=thisform.text1.value; Order By 零件名; Into dbf pp ThisForm.Grid1.RecordSource=pp 第二套 打开表单MYFORM4-4 SELECT 作者姓名,所在城市; FROM AUTHORS; WHERE 作者编号 IN; (SELECT 作者编号 FROM BOOKS GROUP BY 作者编号 HAVING COUNT(*)=3); ORDER BY 作者姓名; INTO TABLE NEW_VIEW4 将BOOKS表中所有书名中含有“计算机” 1、SELECT * FROM BOOKS WHERE 书名 LIKE %计算机% INTO TABLE BOOKS_BAK 2、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 第三套 查询项目的项目号，项目名，和项目使用的零件号、零件名称 SELECT 项目信息.项目号, 项目信息.项目名, 零件信息.零件号,; 零件信息.零件名称; FROM 使用零件情况!零件信息 INNER JOIN 使用零件情况!使用零件; INNER JOIN 使用零件情况!项目信息 ; ON 使用零件.项目号 = 项目信息.项目号 ; ON 零件信息.零件号 = 使用零件.零件号; ORDER BY 项目信息.项目号 DESC, 零件信息.零件号; INTO TABLE item_temp.dbf 设计一个表单名和文件名均为foem_item的表单 S1 S2 S3 双击表单空白处，在表单的Init事件中输入如下代码： Public a(3) A(1) = s1 A(2) = s2 A(3) = s3 统计按钮的Click事件代码如下： x=allt(bo1.value) SELECT SUM(使用零件.数量*零件信息.单价) as je; FROM 使用零件情况!使用零件 INNER JOIN 使用零件情况!零件信息 ; ON 使用零件.零件号 = 零件信息.零件号; WHERE 使用零件.项目号 = x into array b thisform.text1.value=allt(str(b[1])) 退出按钮的Click事件代码如下： thisform.release 第四套 有表单文件formonescx 只读 组合框的Style属性为2-下拉列表框、RowSourceType属性为6-字段、RowSource属性为employee.姓名；设置文本框Text1的ReadOnly属性为.T.-真。 步骤3：双击组合框，在代码编辑器中将语句Text1.Value=m2改为ThisForm.Text1.Value=m2 创建一个名为mymenu的下拉菜单 帮助子菜单之前插入一个考试子菜单 选择统计行，单击该行中的创建按钮，在弹出的窗口中输入如下代码： SELECT Employee.组别, Employee.姓名 AS 负责人,sum(orders.金额) as 合计; FROM employee,orders ; WHERE Employee.职员号 = Orders.职员号; AND Employee.职务 = 组长; GROUP BY Employee.组别; ORDER BY 3 DESC; INTO TABLE tabletwo.dbf 步骤4：选择返回行，，单击该行中的创建按钮，在弹出的窗口中输入如下代码： SET SYSMENU TO DEFAULT 第五套 田亮 和 顶层 SELECT Book.书名,