2010年计算机等考二级VF上机冲刺模拟试题(15)

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

　　SCORE_MANAGER数据库中含有三个数据库表STUDENT、SCORE1和COURSE。为了对SCORE_MANAGER数据库数据进行查询，设计一个如图所示的表单Myform1(控件名为form1,表单文件名myform1.scx)。表单的标题为"成绩查询"。

　　表单左侧有文本"输入学号(名称为Label1的标签)"和用于输入学号的文本框(名称为Text1)以及"查询"(名称为Command1)和"退出"(名称为Command2)两个命令按钮以及1个表格控件。

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

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

 

　　解答：

　　1、对于将查询结果反应到表格控件中，一般选择查询结果为临时表。

　　2、要求判断当前学号是否存在所以此时可用:Locate(顺续查找) 加 Found()(最后一次查询是否成功)

　　“查询”按钮的Click事件代码为：

　　a=alltrim(thisform.text1.value)

　　locate for 学号=a

　　if found()

　　thisform.grid1.recordsourcetype=4

　　thisform.grid1.recordsource=”select 课程名,成绩 from score1 inner join course on course.课程号=score1.课程号 where score1.学号=a into cursor tmp”

　　else

　　messagebox(“学号不存在，请重新输入”)

　　endif

　　“退出”按钮的Click事件代码为：

　　thisform.release

　　附相关数据表：