计算机等级考试二级VFP上机试题及解题思路(61)

　　二、简单应用(2小题，每题20分，计40分)

　　在考生文件夹下完成如下简单应用：

　　1. 打开数据库文件"课程管理"，使用SQL语句建立一个视图salary，该视图包括了系号和(该系的)平均工资两个字段，并且按平均工资降序排列。请将该SQL语句存储在four.prg文件中，否则不得分。

　　2. 打开考生文件夹下的表单six(如图所示)，"登录"命令按钮Click事件中的程序功能是：当用户输入用户名和口令以后，单击"登录"按钮时，程序根据自由表"用户表"的内容进行操作，若在"用户表"中找不到相应的用户名，则提示"用户名错误"，若用户名输入正确，而口令输入错误，则提示"口令错误"。在"登录"命令按钮Click事件中空行处填加适当的语句，使其能够正确运行。注意：不得做其他修改。

　　本题的主要考核点是SQL语句的应用、文件的创建、表单控件代码等。

　　1.利用"文件"菜单下的"打开"命令来打开数据库文件"课程管理"，或使用命令MODIFY DATABASE 课程管理。使用SQL语句来建立视图salary，SQL命令为：

　　create sql view salary as;

　　select 教师表.系号, AVG(教师表.工资) AS 平均工资;

　　FROM 课程管理!教师表;

　　GROUP BY 教师表.系号;

　　ORDER BY 2 DESC

　　并将此命令语句存储在four.prg文件中。

　　2.利用"文件"菜单下的"打开"命令来打开表单six，或使用命令MODIFY FORM six。根据题目要求在"登录"命令按钮的Click事件的空行处添加适当的语句：

　　USE 用户表

　　GO TOP

　　flag=0

　　do while not eof() &&添加一条语句

　　IF Alltrim(用户名)==Alltrim(Thisform.Text1.Value)

　　IF Alltrim(口令)==Alltrim(Thisform.Text2.Value)

　　WAIT "欢迎使用" WINDOW TIMEOUT 2

　　ELSE

　　WAIT "口令错误" WINDOW TIMEOUT 2

　　endif &&添加一条语句

　　flag=1

　　EXIT

　　ENDIF

　　skip &&添加一条语句

　　ENDDO

　　IF flag=0 &&添加一条语句

　　WAIT "用户名错误" WINDOW TIMEOUT 2

　　ENDIF