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

admin2010-05-08  141

问题 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 ⑨保存表单,关闭表单设计器窗口。

解析
转载请注明原文地址:https://kaotiyun.com/show/XbID777K
0

相关试题推荐
最新回复(0)