最新VF国二机试后15套题答案.doc

第71套(创将在为)答案 一 略 二 1：完整的查询语句： SELECTSTUDENT.学号,姓名,课程名,成绩FROMSTUDENT,SC,COURSE; WHERESTUDENT.学号=SC.学号ANDSC.课程号=COURSE.课程号ORDERBY课程名,成绩DESCINTOTABLESCLIST 2： 第一步：打开在基本操作题中所建立的项目sdb_p.pjx 第二步：在项目sdb_p的项目管理器-文档标签-表单-新建第三步：新建表单-表单向导-向导选取-选择要使用的向导-表单向导-确定 第四步：表单向导-步骤一字段选取-student-将其全部字段放入选定字段-下一步-步骤二选择表单样式-样式类型-阴影式-按钮类型-图片按钮-下一步-步骤三排序次序-按学号的升序排序-下一步-步骤四完成-表单标题文本框中输入：学生基本输入数据维护-完成-另存为-选定考生文件夹-输入form1.scx-保存 三 1：打开数据库SDB,打开考生文件夹下新建的项目sdb_p.pjx，在命令窗口中输入下列命令来建立sview视图: CREATEVIEWSVIEWAS; SELECTSC.学号,姓名,AVG(成绩)AS平均成绩,MIN(成绩)AS最低分,COUNT(课程号)AS选课数FROMSC,STUDENT; WHERESC.学号=STUDENT.学号GROUPBYSTUDENT.学号HAVINGCOUNT(课程号)3ORDERBY平均成绩DESC 下面来建立T1.prg程序：在项目sdb_p的项目管理器中-代码-程序-新建-代码编辑窗口中输入sview视图的查询代码以文件名T1.prg保存在考生文件夹下。 利用表单向导来建立表单：在项目sdb_p的项目管理器中-文档-报表-新建-新建报表-报表向导-向导选取-报表向导-确定-报表向导-步骤一字段选取-sview视图中的所有字段-下一步-报表向导-步骤二分组记录-下一步-骤三选择报表样式-报表样式类型-随意式-下一步-步骤五排序记录-按学号的升序-下一步-步骤六完成-输入报表的标题：学生成绩统计一览表-完成-另存为-保存报表-文本框中输入：pstudent.frx保存在考生文件夹下即可。 第二小题：在项目sdb_p的项目管理器中-文档-表单-新建-新建表单-点击工具栏按钮表单控件工具栏-命令按钮-在表单设计器中拖动鼠标，得到一个命令按钮对象command1，设置它的caption属性为浏览，双击command1在打开的代码编辑器窗口中输入以下代码： opendatasdb select*fromsview 作为command1的CLICK的事件代码。 用同样的方法，在表单上放置command2对象，它的Click的事件代码为： REPORTFORMPSTUDENT.FRXPREVIEW 以文件名form2.scx保存表单，并且保存在考生文件夹下。 第72套（首为通为）一、第2题：在Customer的表设计器中，选中性别字段,并在字段有效性的规则文本框中输入：性别 $ 男女，在信息文本框中输入性别必须是男或女，在默认值文本框中输入：女(双引号不可少)。点击确定按钮，保存对结构的修改。二、第1题：select 姓名，年龄，电话 from customer where left（电话，1）=6 and 性别=“女” order by 年龄 into table temp_cus第2题：CREA VIEW sb_view AS;SELECT Customer.会员号, Customer.姓名, Article.商品名, Orderitem.单价,; Orderitem.数量, OrderItem.单价 * OrderItem.数量 as 金额; FROM ecommerce!customer INNER JOIN ecommerce!orderitem; INNER JOIN ecommerce!article ; ON Article.商品号 = Orderitem.商品号 ; ON Customer.会员号 = Orderitem.会员号; ORDER BY Customer.会员号三、第一步：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出新建对话框，在文件类型中选择表单，点击新建文件按钮,系统将打开表单设计器；或直接在命令窗口中输入 crea form myform。第二步：点击工具栏按钮表单控件工具栏，在弹出的表单控件对话框中，选中命令按钮控件，在表单设计器中拖动鼠标，这样在表单上得到一个命令按钮控件command1，用同样的方法为表单再加入三个命令按钮控件command2、command3、command4。相关控件的属性值如下表所示：对象属性属性值Form1Name myformCaption客户基本信息Command1Caption女客户信息Command2Caption客户购买商品情况Command3Caption输出客户信息Command4Caption退出命令按钮command1(客户基本信息)的Click事件代码如：select * from Customer where 性别=女命令按钮command2(客户基本信息)的Click事件代码如下：open database ecommerceselect * from sb_view命令按钮command3(输出客户信息)的Click事件代码如下：report form myreport preview命令按钮command4(退出)的Click事件代码如下： thisform.release74套（建为为使）答案:一、4 Select 职工号,姓名,出生日期 from employee where 婚否 order by 出生日期 desc into dbf infor_da二、1(1) 时间过程代码：myform_da.caption=dtoc(date() (2) 日期过程代码: myform_da.caption=time(3)菜单的常规选项中“设置”代码：parameters myform_da(4)菜单的常规选项中“清理”代码：release popups cd(5)生成菜单程序：scmenu_d.mpr(6)表单myform_da.right.click代码:do scmenu_d.mpr with this 2 .Select 职工号,姓名,出生日期 from worker order by 出生日期 top 3 into dbf infor_db三1.“确定”（command1)代码: if thisform.check1.value=1if thisform.optiongroup1.value=1 sele * from employee into table temp.dbfelsesele * from orders into table temp.dbfendifelseif thisform.optiongroup1.value=1 sele * from employee elsesele * from orders endifendif2. “退出”(command2)代码:thisform.release第75套（打在为建）二第一题Use order_detailAppend from order_detail1SELECT order_list.订单号, order_list.订购日期, order_detail.器件号, order_detail.器件名, order_list.总金额;FROM 订货管理！ORDER_LIST inner join 订货管理！ORDER_DETAIL;On order_list.订单号=order_detail.订单号;ORDER BY order_list.订单号,order_list.总金额 DESC;INTO TABLE RESULTS第二题：1.UPDATE ORDER_DETAIL1 SET 单价=单价+52.SELECT 器件号,AVG(单价) AS 平均价 FROM order_detail1 group BY 器件号 INTO CURSOR lsb3.SELECT * FROM lsb where 平均价 5003、 close databaseSelect 1Use order_listCopy stru to tmpSelect 2Use tmpSelect 订单号,sum(单价*数量) as aa from order_detail group by 订单号 order by 订单号 into cursor ffSele order_listDo while !eof()Select ffLocate for 订单号=order_list.订单号If order_list.总金额aaSelect order_listScatt to mmSelect tmpAppend blankGath from mmReplace 总金额 with ff.aaEndifSelect order_listSkipEnddoSelect * from tmp order by 总金额 into dbf od_mod 第76套（新使用在）一、1 、3. 略 2. alter table 课程表 add unique 课程号 tag temp运行程序并保存为 one.prg 4. 打开并修改程序 test ，DO i=1 *改为 DO while i=1 ，运行程序并保存所作修改二、1. 打开并修改程序 temp ，TO ARRAY a *改为* inTO ARRAY aOPEN 教师表 *改为* use 教师表 SCAN OF 课程号=a or 工资=4000 *改为* SCAN for 课程号=a and 工资=4000 sum+1 *改为* sum = sum+1运行程序并保存所做修改 2. 在数据库 学校 中建立一个本地视图，依次添加表“教师表” 、“学院表”字段：姓名 、工资 、系名筛选：工资 = 4000排序依据：工资 降序 ， 系名 升序运行查询并将视图保存为 teacher_v三、新建表单 oneform ， name：oneform 双击表单，在 load 事件中定义数组，代码为：dimension a(3)a(1)=3000a(2)=4000a(3)=5000添加两个标签，caption 分别为：工资 、 实例 添加一个命令按钮组，单击右键-编辑，“option1”的caption：大于等于 ，“option2”的caption：小于添加一个组合框，rowsourcetype：5 - 数组 ， rowsource：a ， style：2 - 下拉列表框添加两个命令按钮， caption 分别为：生成 、 退出“生成”按钮 click 事件代码为：bb=val(bo1.value) if thisform.optiongroup1.option1.value=1 select * from 教师表 where 工资=bb into dbf salary order by 工资 desc,姓名 else select * from 教师表 where 工资 bb into dbf salary order by 工资 desc,姓名 endif“退出”按钮 click 事件代码为：thisform.release运行表单并保存为 oneform ，并选中“小于” 、“4000” 单击“生成”，生成表 salary第77套（打打为使）一、1 、3. 略 2. 打开并修改程序 one ： DO WHILE i=1 ， 运行程序并保存所作修改 4. 创建程序文件 three ，代码为：alter table 教师表 alter column 职工号 set check left(职工号,4)=1102 ，运行程序并保存为 three二、1. 打开并修改程序 four ： (职工号 C(8) KEY,姓名 *改为* (职工号 C(8) primary KEY,姓名INSERT TO 工资表 *改为* INSERT inTO 工资表UPDATE 工资表 BY 工资 *改为* UPDATE 工资表 set 工资DELETE FROM 工资表 WHILE *改为* DELETE FROM 工资表 where运行程序并保存所作修改 2. 新建查询 teacher_q ，依次添加表“教师表” 、“学院表”字段：姓名 、工资 、系名筛选：工资 goods_t.库存量 语句4：skip -n 语句5：replace 库存量 with 库存量-orderitems.数量 单击常用工具栏中的运行按钮保存第80套（创利在利）一、1、2、3. 略 4. 创建程序文件 pone ，代码如下：use customers index on 客户号 tag khh运行程序并保存为 pone二、1. Creat form formone ， caption：表单简单应用添加一个标签， caption：日期 ， 添加一个文本框， value：=date()添加一个命令按钮， caption：查询 ， click 事件代码为：aa=thisform.text1.valueselect 姓名,性别,出生日期 from customers where 出生日期 = aa ;order by 出生日期 desc into table tableone 运行表单并保存为 formone 2. 打开数据库 订单管理 ，将表“orderitems”添加到数据库中，在数据库中新建一个本地视图，添加表“orderitems”字段：商品号 ， 在“函数和表达式”中输入 SUM(Orderitems.数量) AS 订购总量 单击添加排序依据： 商品号 升序分组依据： 商品号运行查询-文件-导出-到-tabletwo-确定将视图保存为 viewone三、 新建一个菜单 mymenu ，菜单名称：计算，退出 ，“计算”创建过程，过程代码：close alluse goods in 0use orderitems in 0use orders excl in 0select ordersgo top do while not eof() select sum(数量*单价) as 总金额 from goods join orderitems; on goods.商品号=orderitems.商品号 where orderitems.订单号=orders.订单号; into array aaa replace 总金额 with aaa1 aaa1=0 skipenddo“退出”创建过程，过程代码为：myform.release单击菜单栏中的 显示-常规选项-顶层表单处打钩-确定单击菜单栏中的 菜单-生成，保存菜单为 mymenu ，并生成菜单程序文件 mymenu.mpr 新建一个表单 myform ， caption：考试 ， showwindow：2 - 作为顶层表单双击表单 myform ，选择 load 事件输入代码：do mymenu.mpr with this,bbb运行表单并保存为 myform 第81套（打为使使）一、1、2、4. 略 3. 创建程序文件 two.prg ，代码为：select * from 教师表 where 工资 4500 order by 职工号 to file one.txt运行程序并保存为 two.prg二、1. 改错：第一处：while *改为* where第二处：打开教师表：open教师表 *改为* use 教师表第三处：scan where *改为* scan for地四处：添加一句语句： num=num+1运行程序并保存所作修改 2. 打开数据库 college ，在数据库中新建一个本地视图，依次添加表“课程表” 、“教师表” 、“学院表” 字段：姓名 、课程名 、学时 、系名筛选：学时 = 60排序依据：系名 升序 ，姓名 降序运行查询-文件-导出-到-se-确定保存视图为 course_v三、 新建一个表单 oneform ，name：oneform ，将表“学院表”添加到数据环境中添加两个标签，其 caption 分别为：系名 ， 计算内容添加一个组合框 combo1 ， rowsource：学院表.系名 ， rowsourcetype：6 - 字段添加一个选项按钮组 optiongroup1 ，单击右键-编辑， option1 的 caption：平均工资option2 的 caption：总工资添加两个命令按钮，其 caption 分别为：生成 、 退出“生成”按钮 click 事件代码：aa=bo1.valueif thisform.optiongroup1.value=1 select 系名,教师表.系号,avg(工资) as 平均工资 from 教师表 join 学院表; on 学院表.系号=教师表.系号 where 系名= aa ; into table salaryelse select 系名,教师表.系号,sum(工资) as 总工资 from 教师表 join 学院表; on 学院表.系号=教师表.系号 where 系名= aa ; into table salaryendif“退出”按钮 click 事件代码：thisform.release按题目要求运行保单并保存为 oneform第82套（新通打使）一、2.打开“教师表”的表设计器，选中职工号字段，在规则中输入：left(职工号,4)=1102 3.i=i+1 改为 i=i+2二、1.a.avge(工资) 改为 avg(工资) b.from 教师表 改为 from 教师表，学院表 c.ORDER BY 改为 GROUP BY d.GROUP BY 改为 ORDER BY o 改为 into table 运行程序 2.新建查询，依次添加表：课程表，教师表 字段：姓名，课程名，学时 筛选：学时 = 60 排序依据：学时 升序，姓名 降序 查询去向：表 five 保存查询为course_q ,运行查询三、新建-表单，将“学院表”添加到数据环境。依次在表单上拖动控件，相关控件属性如下：表单：name：oneform，页page1：caption：系名。页page2：caption：计算方法。page1中组合框combo1：rowsourcetype：6，rowsource：学院表.系名page2中选项按钮组：按钮option1和option2的caption属性分别为：平均工资，总工资。命令按钮caption属性：生成，退出。“生成”按钮的click事件代码： xm=alltrim(bo1.value) do case case thisform.pageframe1.page2.optiongroup1.value=1 select 教师表.系号,系名,avg(工资) as 平均工资 from 教师表,学院表 ; where 教师表.系号=学院表.系号 and 系名=xm into table salary case thisform.pageframe1.page2.optiongroup1.value=2 select 教师表.系号,系名,sum(工资) as 总工资 from 教师表,学院表 ; where 教师表.系号=学院表.系号 and 系名=xm into table salary endcase“退出”按钮的click事件代码：thisform.release 第83套（建分通在）一、4.新建程序文件，输入代码： create table 销售表明细(顺序号 c(6) primary key,; 日期 d,商品号 c(6),商品名 c(10), 金额 n(10,2) 保存名为one，然后运行该程序二、1.略 2.新建查询，依次添加表：cust,order，comm 字段：cust.顾客号，cust.顾客名，地址，sum(单价*数量) as 付款金额 排序依据：cust.顾客号 升序 分组依据：cust.顾客号 查询去向：表 taba 保存查询名为view_c,然后运行三、新建表单，表单属性caption：查询 autocenter：.t. 添加标签label1， caption：输入顾客号 添加文本框text1 添加命令按钮command1和command2，caption属性分别为：查询，退出 添加表格grid1和grid2 recordsourcetype属性都设置为4 在表单中点击右键，选择数据环境，依次添加表order、cust、comm “查询”按钮的click事件代码如下： gkh=alltrim(thisform.text1.value) thisform.grid1.recordsource=select 顾客号,顾客名, 地址 from cust where 顾客号=gkh into table tabb thisform.grid2.recordsource=select comm.商品号,商品名,单价,数量,单价*数量 as 金额 from comm,order ; where order.商品号=comm.商品号 and 顾客号=gkh order by comm.商品号 into table tabc “退出”按钮的click事件代码：thisfrom.release 保存名为two，然后运行表单，在文本框中输入010003，然后点击查询按钮 第84套（打通使创）一、3.新建程序，输入代码delete from student where 学号=s3 保存名为one，然后执行二、1.略 2.a.数量*单价 应付款 -sum(数量*单价) as 应付款 b.DO WHILE EOF() 改为 DO WHILE not EOF() c. REPLACE ALL 应付款 = money 改为 REPLACE 应付款 with money三、新建表单，表单属性caption：顾客购买商品查询 添加标签label1，caption：顾客号 标签label2，caption：应付款 添加文本框text1和text2 添加表格grid1，属性recordsourcetype：4 添加命令按钮command1和command2，caption属性分别为：查询，退出 “查询”按钮的click事件中代码如下： gkh=alltrim(thisform.text1.value) thisform.grid1.recordsource=select 顾客号,comm.商品号,comm.商品名,单价,数量,单价*数量 as 金额 from order,comm; where or