SCORE_MANAGER数据库中有3个数据库表,它们分别是STUDENT、SCOREl和COURSE。 设计一个如下图所示的表单Myforml(控件名为forml,表单文件名Myforml.SCX),用于对SCORE_MANAGER数据库中的数

admin2015-08-12  25

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

选项

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

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

随机试题
最新回复(0)