问题 问答题

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


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

答案

参考答案:操作过程如下。
①在命令窗口输入命令: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
⑨保存表单,关闭表单设计器窗口。

选择题
多项选择题