(1)打开程序文件cylinder.prg,请按要求修改程序并运行程序。(2)以表employee.dbf和orders.dbf中数据为基础,使用SQL命令检索订单数最多的前3名职工的职工号、姓名和订单数,检索结果按订单数降序排序存入表newcoun.db

admin2015-12-11  41

问题 (1)打开程序文件cylinder.prg,请按要求修改程序并运行程序。(2)以表employee.dbf和orders.dbf中数据为基础,使用SQL命令检索订单数最多的前3名职工的职工号、姓名和订单数,检索结果按订单数降序排序存入表newcoun.dbf,同时将所用SQL命令存入文件new.txt中。

选项

答案(1) 【操作步骤】 步骤1:在命令窗口执行命令:MODIFY COMMAND cylinder,打开cylinder.prg程序,代码如下: 本程序的功能为输入圆柱体的半径和高,计算圆柱体表面积。 请将程序修改为函数调用方式(注意不得增删语句行)。 SET TALK OEF CLEAR LOCAL carea INPUT“请输入圆柱体的半径”TO r INPUT“请输入圆柱体的高”To h DO cya WITH r,h,carea ?“圆柱体的表面积为:”,carea RETURN PROCEDURE cya PARAMETERS a,b,C LOCAL pai pai=3.14159 c=2*(pai*a^2)+2*pai*a*b RETURN ENDPROC 修改程序中的错误行,修改后的程序如下: SET TALK OFF CLEAR LOCAL carea &&定义局部变量local INPUT“输入圆柱体的半径”TO r &&从键盘输入一个半径值 INPUT“输入圆柱体的高:”TO h &&从键盘输入一个高值 carea=cya(r,h) &&调用模块程序,转到 PROCEDURE命令行执行程序,按值方式传递参数 ?“圆柱体的表面积为:”,carea RETURN PROCEDURE cya &&过程的开始,并命名过 /程名为cya PARAMETERS a,b,C &&声明的行参变量被看 作是模块程序中的私有变量 LOCAL pai pai=3.14159 c=2*(pai*a^2)+2*pai*a*b &&计算圆柱 体表面积的表达式 RETURN C &&将计算的表达式值返回上级模块 ENDPROC 步骤2:保存文件修改,在命令窗口执行命令:DO YZT.PRG,执行程序文件。 (2)【操作步骤】 步骤1:在命令窗口执行命令:MODIFY FILE new,打开文本编辑器编写SQL命令。 步骤2:在编辑器中输入如下程序代码(以下程序是通过查询设计器生成): SELECT TOP 3 Employee.职工号, Employee.姓名,COUNT(*)订单数; FROM employee INNER JOIN orders; ON Employee.职工号=Orders.职工号; GROUP BY Employee.职工号; ORDER BY 3 DESC; INTO TABLE newcoun.db f 步骤3:在命令窗口执行命令:DO NEW.TXT,执行文件(注意:执行文件时,文件后缀名.?xt不能缺省)。

解析
转载请注明原文地址:https://kaotiyun.com/show/albp777K
0

最新回复(0)