计算机VF答案.doc

第一题 在考生文件夹下新建一个名为“供应”的项目文件【操作步骤】(1)启动Visual FoxPro 6.0，按照题目的要求新建一个名为供应的项目文件。(2)按照题目的要求，将供应零件数据库添加到项目供应中。(3)步骤1：按照题目的要求为零件表建立主索引。步骤2：以同样的方法为供应表建立普通索引。步骤3：在数据库设计器中从主索引拖拽到普通索引建立联系。(4)按照题目的要求为供应表中的数量字段设置字段有效性规则(1)【操作步骤】步骤1：按照题目的要求建立名为query1.prg的程序文件，并在程序文件窗口中输入符合题目要求的程序段。*query1.prg中的程序段*SELECT 供应.供应商号,供应.工程号,供应.数量;FROM 零件,供应 WHERE 供应.零件号=零件.零件号;AND 零件.颜色=红;ORDER BY 供应.数量 desc;INTO DBF supply_temp*步骤2：以query1为文件名保存并运行程序。也可以先按照题目的要求通过查询设计器建立查询，然后打开查询设计器工具栏中的工具按钮将其中的SQL语句复制到指定的程序文件中，操作过程如图3.9所示。一般来说，简单的SQL查询语句都可以通过查询设计器来实现，且比较简单，建议考生掌握这种方法的使用。(2)【操作步骤】步骤1：按照题目的要求新建一个快捷菜单并保存。步骤2：为快捷菜单添加菜单项，并生成可执行文件menu_quick.mpr。步骤3：打开表单myform，按照题目的要求编写表单的RightClick事件代码DO menu_quick.mpr。步骤4：保存并运行表单。【操作步骤】步骤1：新建一个表单，并按题目要求修改表单的属性。步骤2：在表单中添加一个表格控件、两个命令按钮控件、一个标签控件和一个文本框控件，并按照题目的要求设置各控件的属性。步骤3：将供应表和零件表添加到表单的数据环境中。步骤4：编写两个命令按钮的Click事件代码。*查询按钮的Click事件代码*Select 零件.零件名,零件.颜色,零件.重量;From 供应,零件;Where 零件.零件号=供应.零件号 and 供应.工程号=thisform.text1.value;Order By 零件名;Into dbf ppThisForm.Grid1.RecordSource=pp*退出按钮的Click事件代码*THISFORM.RELEASE *步骤5：保存表单名为mysupply，并按要求运行表单。第二题 在考生文件夹下建立数据库BOOKAUTH.DBC把表BOOKS和AUTHORS添加到该数据库中【操作步骤】(1)新建一个数据库，在数据库设计器中按题目要求添加表。(2)按照题目的要求为authors表建立主索引。(3)按照题目要求为books表建立两个普通索引。(4)按照题目的要求为authors表和books表建立永久性联系(1)【操作步骤】步骤1：打开表单myform4-4，并按照题目的要求修改表单的标题。步骤2：在表单设计器窗口中，按照题目的要求修改文本的相关属性。步骤3：在表单中添加命令按钮，修改其Caption属性为关闭，并为其Click事件添加代码ThisForm.Release。(2)【操作步骤】步骤1：按照题目的要求新建一个名为myform4的表单。步骤2：编写两个命令按钮的Click事件代码。*查询按钮的Click事件代码*SELECT Authors.作者姓名,Authors.所在城市; FROM authors,books ; WHERE Authors.作者编号 = Books.作者编号; GROUP BY Authors.作者姓名 HAVING COUNT(Books.图书编号) = 3; ORDER BY Authors.作者姓名;INTO TABLE NEW_VIEW4*退出按钮的Click事件代码*THISFORM.RELEASE *步骤3：保存表单为myform4并运行。【操作步骤】步骤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)在命令窗口输入CREATE PROJECT 库存管理(也可写作CREA PROJ 库存管理)，并按回车键以新建一个项目。或者，单击常用工具栏中的新建命令新建一个项目(新建方法前面已有讲解，这里不再赘述)。(2)按照题目的要求，在项目中新建数据库，并将考生文件夹下的自由表添加到数据库中。(3)在数据库设计器中打开表设计器，并按题目的要求为零件信息表增加一个字段。(4)按照题目的要求打开并修改mymenu菜单文件。设计完成后，关闭菜单设计器并保存菜单文件。1)【操作步骤】步骤1：按照题目的要求，通过查询设计器新建查询,或者在命令窗口输入以下命令。*SELECT 项目信息.项目号, 项目信息.项目名, 零件信息.零件号,; 零件信息.零件名称; FROM 使用零件情况!零件信息 INNER JOIN 使用零件情况!使用零件; INNER JOIN 使用零件情况!项目信息 ; ON 使用零件.项目号 = 项目信息.项目号 ; ON 零件信息.零件号 = 使用零件.零件号; ORDER BY 项目信息.项目号 DESC, 零件信息.零件号; INTO TABLE item_temp.dbf*步骤2：按照题目的要求新建文本文件item.txt，并将满足条件的SQL语句粘贴到文本文件中。步骤3：在命令窗口输入DO item.txt并按回车键运行查询。(2)【操作步骤】步骤1：打开数据库设计器，按照题目的要求新建本地视图。注意，将表全部添加到视图中时，按默认联接即可。步骤2：按照题目的要求设计视图。步骤3：按照题目的要求保存视图。【操作步骤】步骤1：按照题目的要求新建表单，表单的新建可以通过常用工具栏中的新建按钮来实现(操作步骤在前面的解析中已经讲到)，也可以在命令窗口中输入Crea Form form_item，然后按回车键。步骤2：从表单控件工具栏向表单添加一个组合框、一个文本框和两个命令按钮，然后在属性窗口中修改各控件的相关属性。步骤3：按照题目的要求设置组合框的数据源。步骤4：分别双击命令按钮统计和退出，为它们编写Click事件代码。*统计按钮的Click事件代码*x=allt(bo1.value)SELECT SUM(使用零件.数量*零件信息.单价) as je; FROM 使用零件,零件信息 ; WHERE 使用零件.零件号 = 零件信息.零件号; AND 使用零件.项目号 = x; GROUP BY 使用零件.项目号; into array b thisform.text1.value=b*退出按钮的Click事件代码为：*退出按钮的Click事件代码*ThisForm.Release*步骤5：保存并运行表单。第四题 在考生文件夹下打开数据库“订单管理”，然后删除其中的customer表（从磁盘中删除）【操作步骤】(1)打开考生文件夹下的订单管理数据库，按要求删除指定的表。(2)按照题目的要求为employee表建立普通索引。(3)按照题目的要求为employee表建立普通索引。(4)按照题目的要求为employee表和orders表建立永久联系。(1)【操作步骤】步骤1：打开表单设计器，将题目要求的两个表添加到其数据环境中。然后关闭数据环境设计器。步骤2：按照题目的要求，在属性窗口中修改控件的相关属性。步骤3：双击组合框，按照题目的要求修改组合框的相关方法。*程序提供的代码* 下面代码的功能是读取所选职员的职员号，然后计算该职员所签订单的平均金额，并显示在文本框内。* 修改所有* FOUND *下面的一条语句。* 不能修改其他语句。不能增加语句，也不能删除语句。dime a(1,1)a(1,1)=0m1=employee.职员号select avg(金额) from orders where 职员号=m1 into array am2=a(1,1)*FOUND*text1.value=m2*其中，需将命令语句Text1.Valuem2改为ThisForm.Text1.Valuem2。步骤4：保存并运行表单。(2)【操作步骤】步骤1：新建一个查询，将表employee和orders添加到查询中。步骤2：按照题目的要求为查询添加相应的字段。步骤3：按照题目的要求对指定的字段进行排序，并定义查询去向为表tableone。步骤4：最后将查询保存为queryone.qpr，并单击常用工具栏中的按钮运行查询。【操作步骤】步骤1：新建一个菜单，并按照题目的要求设计菜单的显示方式及位置。步骤2：按照题目要求设计各级菜单。步骤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*步骤4：为返回菜单编写代码SET SYSMENU TO DEFAULT，方法同步骤3。步骤5：保存菜单并生成可执行文件。步骤6：在命令窗口中输入DO mymenu.mpr运行程序，并分别执行统计和返回菜单命令。【易错误区】有些题目要求在当前Visual FoxPro系统菜单的某个位置插入一个子菜单，此时需要在打开菜单设计器的情况下执行显示菜单中的常规选项命令，然后在常规选项对话框中进行设置。第五题 在考生文件夹下新建一个名“图书管理”的项目文件【操作步骤】(1)打开Visual FoxPro，通过常用工具栏中的新建命令按钮新建项目文件，并将该项目以图书管理为文件名保存在考生文件夹下。(2)按照题目的要求在项目管理器中新建一个数据库。设计完成后，关闭数据库设计器。(3)按照题目的要求将考生文件夹下的自由表添加到图书数据库中。本小题中的自由表是book.dbf、borrows.dbf和loans.dbf3个表。(4)步骤1：通过图书管理项目管理器新建查询。步骤2：将book表添加到查询设计器中。步骤3：将全部字段添加到选定字段列表框中。步骤4：在筛选选项卡下，为查询添加筛选条件。步骤5：在排序依据选项卡中，按要求设置排序依据。步骤6：执行文件菜单下的另存为菜单命令，并以book_qu.qpr为文件名对查询文件进行保存。(1)【操作步骤】步骤1：新建查询，为查询添加order、orderitem和goods三个表。步骤2：按题目要求为查询添加字段。步骤3：在筛选选项卡中，为查询添加筛选条件。步骤4：在排序依据选项卡中按要求设置排序条件。步骤5：为查询设置查询去向。步骤6：以queryone.qpr为文件名保存查询，最后单击常用工具栏中的运行按钮运行查询。(2)【操作步骤】步骤1：将菜单设置为顶层表单。步骤2：在命令窗口执行命令，新建表单form_menu，修改表单的ShowWindow属性为2作为顶层表单。步骤3：双击表单空白处，分别输入表单Init和Destroy事件。*Init*DO menu_lin.mpr With This,abc*destroy*Release Menu abc Extended*步骤4：保存并运行表单。【操作步骤】步骤1：在命令窗口输入命令Create Form form_book，建立表单。步骤2：从表单控件中以拖拽的方式在表单中添加一个组合框、一个文本框和两个命令按钮，并修改各控件的属性，为表单添加数据环境book表。步骤3：双击命令按钮，写入命令按钮的Click事件。*统计命令按钮的Click事件*SELECT COUNT(*) FROM BOOK; WHERE 出版社=THISFORM.COMBO1.VALUE; INTO ARRAY TEMPTHISFORM.TEXT1.VALUE=TEMP(1)*退出命令按钮的Click事件*ThisForm.Release*步骤4：保存并运行表单。第六题 在考生文件夹下创建一个名为“订单管理”的数据库，将已有的employee、orders和customer三个表添加到该数据库中【操作步骤】(1)在命令窗口输入命令：Create Data 订单管理，打开数据库设计器，将自由表employee、orders和customer添加到数据库中。(2)在数据库设计器中为表orders建立普通索引，索引名为nf，索引表达式为year(签订日期)。(3)按照上述操作步骤分别为表employee和orders建立主索引和普通索引，在数据库设计器中从主索引拖到普通索引建立表的联系。(4)打开参照完整性编辑器，按题目的要求设置规则。(1)【操作步骤】步骤1：打开表单formone，在表单的空白处单击右键，将Orders表添加到表单的数据环境中。步骤2：修改列表框和表格的属性。步骤3：双击显示按钮，修改其Click事件代码如下。*程序提供的*下面代码的功能是根据用户对列表框的选择结果构建字段列表，然后进一步构建select语句并据此为表格的相关属性设值。*修改所有* FOUND *下面的一条语句。*不能修改其他语句。不能增加语句，也不能删除语句。s=f=.T.* FOUND *FOR i=1 TO thisform.List1.ColumnCount IF thisform.List1.Selected(i) IF f* FOUND * s=thisform.List1.value f=.F. ELSE* FOUND * s=s+thisform.List1.value ENDIF ENDIFENDFORst=select &s from orders into cursor tmpthisform.Grid1.RecordSource=st*错误1：FOR i=1 TO thisform.List1.ColumnCount修改为：FOR i=1 TO thisform.List1.ListCount错误2：s=thisform.List1.value修改为：s=thisform.List1.List(i)错误3：s=s+thisform.List1.value修改为：s=s+,+thisform.List1.List(i)步骤4：保存并运行表单查看结果。(2)【操作步骤】步骤1：单击常用工具栏中的新建按钮，新建查询，将表orders、employee和customer添加到查询中。步骤2：分别选择字段orders.订单号、orders.签订日期、orders.金额、Employee.姓名 AS 签订者、customer.客户名，添加到可用字段中。步骤3：在筛选选项卡中设置筛选条件为orders.签订日期=2001-05-01。步骤4：在排序选项卡中指定排序选项为降序，添加字段orders.签订日期，orders.金额。步骤5：选择系统菜单中的查询查询去向表，输入表名为tableone。步骤6：保存查询，输入查询名queryone，在常用工具栏中单击运行按钮，运行该查询。【操作步骤】步骤1：在命令窗口输入 Create form myform新建表单。步骤2：将表单的ShowWindow属性设置为2-作为顶层表单。步骤3：双击表单空白处，编写表单的Init事件代码： DO mymenu.mpr WITH THIS, myform步骤4：新建菜单，输入菜单项统计(T)和退出(=1保存并运行程序，查看运行结果。(1)【操作步骤】打开考生文件夹下的程序文件temp.prg，并按题目的要求进行改错，修改完成后运行程序文件，如下所示。*程序提供的代码*&下句只有一处有错误SELECT 课程号 FROM 课程表 WHERE 课程名=数据结构 TO ARRAY a&下句有错误OPEN 教师表STORE 0 TO sum&下句两处有错误SCAN OF 课程号=a OR 工资=4000&下句有错误 sum+1ENDSCAN?sum*错误1：将 TO 改为 INTO。错误2：将 OPEN 改为 USE。错误3：将 SCAN OF 改为 SCAN FOR。错误4：将 OR 改为 AND。错误5：将 sum+1 改为 sum=sum+1。(2)【操作步骤】步骤1：单击系统菜单中的新建命令，新建一个视图，将表教师表和学院表添加到新建的视图中。步骤2：将教师表姓名、教师表工资和学院表系名添加到选定字段中。步骤3：在筛选选项卡中选择字段教师表工资，条件为=，实例为4000。步骤4：在排序选项卡中，设置按工资降序排序，再按系名升序排序。步骤5：保存视图名为teacher_v。【操作步骤】步骤1：在命令窗口输入： Create Form oneform并按回车键，新建一个名为oneform表单。步骤2：在表单控件中以拖拽的方式向表单中添加两个标签、一个选项组、一个组合框和两个命令按钮，并修改各控件的属性。步骤3：双击表单空白处，编写表单的load事件代码：*表单的load事件代码*public a(3)a(1)=3000a(2)=4000a(3)=5000*步骤4：双击命令按钮，分别编写生成和退出按钮的Click事件代码。*生成按钮的Click事件代码*x=val(bo1.value)if thisform.optiongroup1.value = 1 sele * from 教师表 where 工资 = x order by 工资 desc,姓名 into table salaryelse sele * from 教师表 where 工资 0 if int(x/2)=x/2 s1=s1+1 else s2=s2+1 endif*found* if div(x,3)=0 s3=s3+1 endif x=x-1enddothisform.text2.value=s1thisform.text3.value=s2thisform.text4.value=s3thisform.text5.value=s1+s2+s3*错误1：改为 STORE 0 TO x,s1,s2,s3。错误2：改为 x=val(thisform.text1.value)。错误3：改为 if mod(x,3)=0。步骤2：以同样的方法修改退出按钮的Click事件代码为Thisform.Release【操作步骤】步骤1：确定命令按钮的Click事件如下。 *确定按钮的Click事件代码*SELECT Student.姓名, Course.课程名称, Score.考试成绩; FROM student INNER JOIN score; INNER JOIN course ; ON Score.课程编号 = Course.课程编号 ; ON Student.学号 = Score.学号; where &cn; ORDER BY Course.课程名称, Score.考试成绩 DESC; INTO TABLE zonghe.dbf*步骤2：保存并运行表单。第十题 在考生文件夹下打开数据库SCORE_MANAGER,该数据库中有三个表SDUDENT、SCORE1和COURSE根据已建立好的索引，建立表间联系【操作步骤】(1)打开数据库SCORE_MANAGER，在父表中选中主索引，按住鼠标左键拖动至子表相应的普通索引上，释放鼠标。(2)打开表COURSE，在系统菜单中执行显示菜单下的表设计器命令，在最下面输入字段名开课学期，数据类型为数值型(2,0)。(3)在数据库设计器中双击SCORE1表的任意位置打开该表，单击显示菜单中的表设计器命令，在弹出的表设计器中选中成绩字段，在字段有效性中的规则文本框中填入：成绩=0，在信息文本框中填入成绩必须大于或等于零。(4)同上题打开表设计器，选择成绩字段，单击NULL列下的按钮(表示此列允许空值)，然后再在字段有效性中的默认值中填入.NULL.。(1)【操作步骤】步骤1：在命令窗口中输入如下语句，并执行。SELECT 姓名,2003-Year(出生日期) as 年龄;FROM student; INTO TABLE new_table1.dbf步骤2：通过工具栏中的新建按钮新建报表。步骤3：选择表new_table1的全部字段作为选定字段。步骤4：单击下一步到步骤5，选择按字段年龄升序排序。步骤5：单击下一步，输入报表标题姓名年龄。步骤6：完成报表，输入报表名为new_report1。(2)【操作步骤】步骤1：新建菜单，分别输入查询和退出两个菜单项。步骤2：在退出的结果中选择命令，并在后面的框中输入： SET SYSMENU TO DEFAULT步骤3：保存菜单为query_menu并生成可执行菜单。【操作步骤】步骤1：打开考生文件夹下的数据库SCORE_MANAGER。步骤2：在命令窗口输入： CREATE FORM myform1新建一个表单。按题目的要求添加控件，并修改控件的属性。步骤3：添加数据环境表course和 score1。步骤4：编写命令按钮的Click事件代码。*查询按钮的Click事件代码*SELECT course.课程名,score1.成绩;FROM course,score1;WHERE course.课程号=score1.课程号 AND score1.学号= ThisForm.Text1.text;INTO TABLE coruse_cursorIF RECC() = 0 MESSAGEBOX(学号不存在，请重新输入学号)ELSE ThisForm.Grid1.RecordSource=coruse_cursor ThisForm.Grid1.refreshENDIF*退出按钮的Click事件代码*ThisForm.Release*步骤5：保存并运行表单。第十一题 用SQL语句从rate_exchange表中提取外币名称、现钞买入价和卖出价3个字段值并将结果存入rate_ex表中（字段顺序）并将相应的SQL语句储存于文本文件one.txt中【操作步骤】(1)新建一个文本，写入代码，保存文本为one，在命令窗口输入： DO one.txt执行代码。*one.txt中输入的代码*SELECT 外币名称,现钞买入价,卖出价;FROM rate_exchange; INTO TABLE rate_ex.dbf*(2)新建一个文本，写入下面的代码，保存文本为two，在命令窗口输入： DO two.txt按下回车键执行代码。*two.txt中输入的代码*Update Rate_exchange set 卖出价=829.01 where 外币名称=美元*(3)通过报表向导新建一个报表，添加字段外币名称、现钞买入价和卖出价，单击下一步到步骤6完成，输入报表标题外币汇率，保存报表名为rate_exchange。(4)打开报表，将日期框从标题区域拖拽到页注脚区域。保存报表。1)【操作步骤】步骤1：在命令窗口输入： Crea Form Timer新建一个名为timer的表单。按题目要求添加一个标签控件，一个计时器控件，3个命令按钮控件。步骤2：在属性窗口设置各控件的属性如下：表单的Caption值为：时钟表单的Name值为：Timer标签的Alignment的值为：2中央步骤3：选中标签，然后执行格式对齐菜单中的水平居中命令。三个命令按扭的Caption依次为：暂停，继续，退出。计时器的Interval值为500。步骤4：为各命令按钮编写Click事件的代码：*暂停按钮的Click事件代码*ThisForm.Timer1.Interval=0*继续按钮的Click事件代码*ThisForm.Timer1.Interval=500*退出按钮的Click事件代码*ThisForm.Release*计时器的timer事件代码*ThisForm.Label1.Caption=time()*步骤5：保存并运行表单查看结果。(2)【操作步骤】步骤1：新建查询，并向查询中添加表currency_sl和rate_exchange。步骤2：添加字段currency_sl.姓名、 rate_exchange.外币名称、 currency_sl.持有数量、 rate_exchange.现钞买入价和 Rate_exchange.现钞买入价*Currency_sl.持有数量。步骤3：在排序依据选项卡中选择按姓名升序排序，再按持有数量降序排序。步骤4：在查询去向中选择表，输入表名为results。步骤5：保存查询名为query并运行查询。【操作步骤】步骤1：在命令窗口输入： Create form Form1创建表单。在表单上添加一个页框控件，一个命令按钮。步骤2：在表单的空白处单击右键，添加表currency sl和rate exchange到数据环境中。步骤3：修改页框的PageCount值为3，在页框上单击右键，在弹出的快捷菜单中单击编辑项。将Page1的Caption属性修改为持有人，从数据环境中拖拽表currency sl到该页，同样将Page2的Caption属性修改为外汇汇率，从数据环境中拖拽表rate exchange到该页。将Page3的Caption属性修改为持有量及价值，在页框上添加一个表格控件，修改表格控件的属性RecordSourceType为：3查询，RecordSource为：query。步骤4：修改命令按钮的Caption属性为退出，写入其Click事件： ThisForm.Release步骤5：保存并运行该表单。第十二题 打开考生文件夹下的数据库College物理删除该该数据库中的temp表，然后将3个自由表“教师表”“课程表”和“学院表”添加该数据库中【操作步骤】(1)打开数据库设计器，右键单击表，选择删除命令，在弹出的对话框中选择删除按钮，鼠标右键单击数据库设计器空白处，通过快捷菜单中的添加命令将自由表教师表、课程表和学院表添加到数据库中。(2)在数据库设计器中右键单击表，通过快捷菜单中的修改命令打开表设计器，分别为课程表和教师表按要求建立主索引和普通索引，在数据库设计器中从主索引拖拽到普通索引以建立两表间的联系。(3)新建一个程序，写入下列代码。SELECT *; FROM college!教师表; WHERE 教师表.工资 4500; ORDER BY 教师表.职工号; TO FILE one.txt保存程序名为two，并单击系统菜单中的运行按钮，运行程序。(4)通过报表向导新建一个报表，添加学院表作为报表的数据源，将所有字段添加到选定字段，最后输入报表名three。(1)【操作步骤】步骤1：打开程序four.prg，修改语句如下：第一处： WHILE改为WHERE。第二处： OPEN改为USE。第三处： WHERE改为FOR。第四处： 填入num = num 1。步骤2：保存并运行程序。(2)【操作步骤】步骤1：打开数据库设计器，新建一个视图，并将添加课程表、学院表和教师表3个表添加到视图设计器中。步骤2：将字段教师表.姓名、课程表.课程名、课程表.学时和学院表.系名添加到选定字段框中。步骤3：在筛选选项卡中，选择字段课程表.学时，条件为=，在实例中输入60。步骤4：在排序选项卡中选择按系名升序、姓名降序排序。步骤5：保存视图名为course_v。步骤6：新建一个查询，将视图添加到查询设计器中，选定所有字段，设置查询去向为表se。运行该查询。【操作步骤】步骤1：在命令窗口输入：Create Form oneform，按下回车键新建一个表单。按题目要求向表单添加控件，并修改各控件的属性。步骤2：双击命令按钮，编写两个命令按钮的Click事件代码。*生成按钮的Click事件代码*x = bo1.valueif thisform.optiongroup1.value = 1SELECT 学院表.系名, 学院表.系号, avg(教师表.工资) as 平均工资;FROM college!学院表 INNER JOIN college!教师表 ;ON 学院表.系号 = 教师表.系号;WHERE 学院表.系名 = x;GROUP BY 学院表.系号;INTO TABLE salary.dbfelseSELECT 学院表.系名, 学院表.系号, sum(教师表.工资) as 总工资;FROM college!学院表 INNER JOIN college!教师表 ;ON 学院表.系号 = 教师表.系号;WHERE 学院表.系名 = x;GROUP BY 学院表.系号;INTO TABLE salary.dbfEndif*退出按钮的Click事件代码*ThisForm.Release*步骤3：保存表单，并按题目要求运行。第十三题 将自由表rate_exchange和currency_s1添加到rate数据库中【操作步骤】(1)打开数据库，在数据库设计器空白处单击右键添加表rate_exchange和currency_sl。(2)右键单击表，通过修改命令打开表设计器，分别为表rate_exchange和currency_sl建立主索引和普通索引，在数据库设计器中从主索引拖拽到普通索引建立两表之间的联系。(3)打开rate_exchange的表设计器，选中字段持有数量 在规则栏中输入持有数量0，在信息栏中输入：持有数量不能为0。(4)打开表单test_form，修改命令按钮登录的Enable属性为.T.真(默认)。(1)【操作步骤】步骤1：新建一个文本文件，编写下列代码：*rate.txt文件中的代码*SELECT Rate_exchange.外币名称, Currency_sl.持有数量; FROM currency_sl,rate_exchange ; WHERE Currency_sl.外币代码 = Rate_exchange.外币代码; AND Currency_sl.姓名 = 林诗因; ORDER BY Currency_sl.持有数量; INTO TABLE rate_temp.dbf*步骤2：保存文本文件名为rate.txt。步骤3：在命令窗口输入： DO