42在考生文件夹下完成如下简单应用:
(1)打开“课程管理”数据库,使用SQL语句建立一个视图salary,该视图包括系号和平均工资两个字段,
并且按平均工资降序排列。将该SQL语句存储在four.prg文件中。
(2)打开考生文件夹下的表单six,如下图所示,“登录”命令按钮的功能是:当用户输入用户名和口令以后,单击“登录’’按钮时,程序在自由表“用户表”中进行查找,若找不到相应的用户名,则提示“用户名错误”,若用户名输入正确,而口令输入错误,则提示“口令错误”。修改“登录”命令按钮Click事件中标有错误的语句,使其能够正确运行。注意:不得做其他修改。
参考解析:
(1)[操作步骤]
步骤l:单击工具栏中的“打开”按钮,打开考生文件夹下的数据库文件“课程管理”。
步骤2:单击工具栏中的“新建”按钮,新建-个程序,输入如下代码。
CREATE sql VIEW salary AS SELECT教师表.系号,AV
(教师表.工资)As平均工资FROM教师表;
GROUP BY教师表.系号0RDER BY 2 DESC
步骤3:保存程序为four.prg,并运行该程序。
(2)[操作步骤]
步骤l:单击工具栏中的“打开”按钮,打开考生文件夹下的表单six.SCX,“登录”按钮中的代码如下。
**********“登录”按钮的Click事件代码**********
USE用户表
GO
flag=0
&&下面语句有错误
WHILE.NOT.EOF()
IF Alhrim(用户名)==Alltrim(Thisform.Tma1.Value)
IF Alltrim(口令)==Alhrim(Thisfonn.Texl2.Value)
WAIT”欢迎使用”WINDOW TIMEOUT 2
ELSE
WAIT”口令错误”WINDOW TIMEOUT 2
ENDIF
nag=1
EXIT
ENDIF
&&下面语句有错误
NEXT
ENDDO
&&下面语句有错误
CASE FLAG=0
WAIT”用户名错误”WINDOW TIMEOUT 2
ENDIF
********************************
步骤2:修改程序中的错误如下。
错误1:将“WHILE”改为“DO WHIIE”。
错误2:将“NEXT”改为“SKIP”。
错误3:将“CASE”改为“IF”。
步骤3:保存并运行表单。
四、综合应用题
43利用菜单设计器建立一个菜单TJ_MENU3,要求如下:
(1)主菜单(条形菜单)的菜单项中有“统计”和“退出”两项。
(2)“统计”菜单下只有一个“平均”菜单项,该菜单项用来统计各门课程的平均成绩,统计结果包含“课程名,,和“平均成绩”两个字段,并将统计结果按课程名升序保存在表NEW TABLE32中。
(3)“退出”菜单项的功能是返回Visual FoxPro系统菜单(只能在命令框中填写相应命令)。菜单建立后。运行该菜单中的各个菜单项。
参考解析:
[操作步骤]
步骤1:通过菜单设计器新建-个菜单,输入菜单项“统计”和“退出”。
步骤2:为“统计”菜单项建立子菜单,并输入菜单项“平均”。
步骤3:在“平均”菜单的“结果”中选择“过程”,单击“编辑”按钮,在弹出的程序编辑窗口中输入下列代码。
******“平均”菜单项中的过程代码******
SETTALKOFF
OPEN DATABASE SCORE_MANAGER
SELECT Course.课程名,AVG(Seorel.成绩)∞平均
成绩;
FROM cour8e,score1;
WHERE Course.课程号=Scowl.课程号;
GROUP BY Course.课程名;
ORDER BY Course.课程名;
INTO TABLE NEW_KBLE32
CLOSE ALL
SETTALKON
**************************
步骤4:在“退出”菜单的结果中选择。命令”,输入语句:
SET SYSMENU TO DEFAULT。
步骤5:保存菜单为TJ_MENU3,生成莱单的可执行程序。
步骤6:运行菜单并执行菜单中的各菜单项。