综合应用（1小题，计30分）

SCORE_MANAGER数据库中含有三个数据库表STUDENT、SCORE1和COURSE。为了对SCORE_MANAGER数据库数据进行查询，设计一个如图所示的表单Myform1(控件名为form1,表单文件名Myform1.scx)。表单的标题为"成绩查询"。表单左侧有文本"输入学号(名称为Label1的标签)"和用于输入学号的文本框(名称为Text1)以及"查询"(名称为Command1)和"退出"(名称为Command2)两个命令按钮以及1个表格控件。

表单运行时，用户首先在文本框中输入学号,然后单击"查询"按钮，如果输入学号正确,在表单右侧以表格(名称为Grid1)形式显示该生所选课程名和成绩，否则提示"学号不存在，请重新输入学号"。单击"退出"按钮，关闭表单。

解题思路：

点击新建按钮，新建一个表单。在“表单设计器”中，在“属性”的Caption处输入“成绩查询”。在“表单设计器”中，添加一个标签控件，在“属性”的Caption处输入“输入学号”。再在“学号”标签的后面添加一个文本框“Text1”。在“表单设计器”中，添加一个表格控件，在“属性”的RecordSourceType处选择“4 -SQL 说明”。在“表单设计器”中，添加两个命令按钮，单击第1个命令按钮在“属性”的Caption处输入“查询”，单击第2个命令按钮在“属性”的Caption处输入“退出”。双击“查询”命令按钮，在编辑窗口中输入命令，接着关闭编辑窗口。

close all

use score1

locate for 学号=alltrim(ThisForm.Text1.Value)

if .not.found()

WAIT "学号不存在，请重新输入" WINDOWS TIMEOUT 5

else

ThisForm.Grid1.Recordsource="select 课程名,成绩 from score1,course where 学号;

=alltrim(ThisForm.Text1.Value) and score1.课程号=course.课程号 into cursor temp1"

endif

双击“退出”命令按钮，输入：Thisform.Release.