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

　　三、综合应用(1小题，计30分)

　　SCORE_MANAGER数据库中含有三个数据库表STUDENT、SCORE1和COURSE。

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

　　按钮以及1个表格控件。

　　表单运行时，用户首先在文本框中输入学号,然后单击"查询"按钮，如果

　　输入学号正确,在表单右侧以表格(名称为Grid1)形式显示该生所选课程名和成

　　绩，否则提示"学号不存在，请重新输入学号"。

　　单击"退出"按钮，关闭表单。

　　本题主要考核点：

　　表单文件的创建、控件的属性的修改、SQL语句运用、表单的退出等知识点

　　本题解题思路：

　　操作过程：

　　①在命令窗口输入命令：CREATE FORM Myform1，打开表单设计器窗口。

　　②在表格上添加各文本框、命令按钮、表格及相关的标签，并进行适当的布置和大小调整。

　　③设置各标签、命令按钮以及表单的Caption属性值。

　　④将表单的ColumnCount 属性值设置为2(共两列)、RecordSourceType属性值设置为"4-SQL说明"。

　　⑤将表格内两列标头的Caption属性分别设置为"课程名"和"成绩"，并适当调整两列的宽度。

　　⑥设置表单的Load事件代码：

　　CLOSE ALL

　　USE STUDENT

　　⑦设置"查询"按钮的Click事件代码：

　　GO TOP

　　LOCATE FOR Student.学号 ==ALLTRIM(THISFORM.TEXT1.VALUE)

　　IF Student.学号 ==ALLTRIM(THISFORM.TEXT1.VALUE)

　　THISFORM.GRID1.RECORDSOURCE="SELECT Course.课程名, Score1.成绩;

　　FROM course INNER JOIN score1;

　　INNER JOIN student ;

　　ON Student.学号 = Score1.学号 ;

　　ON Course.课程号 = Score1.课程号;

　　WHERE Student.学号 = ALLTRIM(THISFORM.TEXT1.VALUE);

　　INTO CURSOR TEMP"

　　ELSE

　　MESSAGEBOX("学号不存在，请重新输入学号")

　　THISFORM.GRID1.RECORDSOURCE=''

　　ENDIF

　　⑧设置"退出"按钮的Click事件代码：

　　THISFORM.RELEASE

　　⑨保存表单，关闭表单设计器窗口。