SCORE_MANAGER数据库中有3个数据库表,它们分别是STUDENT、SCORE1和COURSE。 设计一个如下图所示的表单Myform1(控件名为form1,表单文件名Myform1.scx),用于对SCORE_MANAGER数据库中的数据进行查询

admin2013-04-27  25

问题 SCORE_MANAGER数据库中有3个数据库表,它们分别是STUDENT、SCORE1和COURSE。
设计一个如下图所示的表单Myform1(控件名为form1,表单文件名Myform1.scx),用于对SCORE_MANAGER数据库中的数据进行查询。表单的标题为"成绩查询"。表单左侧有文本"输入学号(名称为Label1的标签)"、用于输入学号的文本框(名称为Text1)、"查询"(名称为Command1)和"退出"(名称为Command2)两个命令按钮以及1个表格控件(名称为Grid1)。
表单运行时,首先在文本框中输入学号,然后单击"查询"按钮,如果输入学号正确,在表单右侧以表格形式显示该生所选课程名和成绩,否则提示"学号不存在,请重新输入学号"。
单击"退出"按钮,关闭表单。
      

选项

答案【操作步骤】 步骤1:在命令窗口中输入"CREATE FORM myform1",新建一个表单。按题目的要求添加一个标签控件、一个文本框控件、两个命令按钮和一个表格控件。设置表单的Caption属性为"成绩查询",标签控件的Caption属性为"输入学号",Command1的Caption属性为"查询",Command2的Caption属性为"退出";设置表格的ColumnCount属性为"2",RecordSourceType属性为"0-表",第1列的Caption属性为"课程名",第2列的Caption属性为"成绩"。 步骤2:右击表单空白处,选择"数据环境"命令,将表course和 score1添加到数据环境中。 步骤3:双击命令按钮,编写命令按钮的Click事件代码。 ******"查询"按钮的Click事件代码****** SELECT course.课程名, score1.成绩; FROM course ,score1; WHERE course.课程号=score1.课程号 AND score1.学号= ThisForm.Text1.text; INTO TABLE coruse_cursor IF RECC() = 0 MESSAGEBOX("学号不存在,请重新输入学号") ELSE ThisForm.Grid1.RecordSource="coruse_cursor" ThisForm.Grid1.refresh ENDIF ************************* ******"退出"按钮的Click事件代码******* ThisForm.Release ************************* 步骤5:保存并运行表单。

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

最新回复(0)