score manager数据库中含有三个数据库表student、score1和course。为了对score_manager数据库数据进行查询,设计一个如图2—37所示的表单myform1(控件名为form1,表单文件名myform1.scx)。表单的标

admin2016-12-05  33

问题 score manager数据库中含有三个数据库表student、score1和course。为了对score_manager数据库数据进行查询,设计一个如图2—37所示的表单myform1(控件名为form1,表单文件名myform1.scx)。表单的标题为“成绩查询”。

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

选项

答案【操作步骤】 步骤1:在命令窗口执行命令:CREATE FORM myform1,打开表单设计器新建表单。 步骤2:从“表单控件”工具栏中依次向表单添加一个标签、一个文本框、两个命令按钮和一个表格控件。在“属性”面板的下拉框中选择表单对象,往“全部”选项卡中修改对象属性值,见表3—39。 [*] 步骤3:双击命令按钮,编写各个命令按钮的Click事件代码。各按钮代码如下: *****查询(comrrlandl)的click事件代码***** 1 GO TOP 2 LOCATE FOR Student.学号==ALLTRIM (THISFORM.TEXT1.VALUE) 3 IF Student.学号==ALLTRIM(THISFORM. TEXT1.VALUE) 4 THISFORM.GRID1.RECORDSOURCE="SEL ECT Course.课程名,score1.成绩; 5 FROM course INNER JOIN score1; 6 INNER JOIN student; 7 ON student.学号=score1.学号; 8 ON course.课程号=Score1.课程号; 9 WHERE student.学号 =ALLTRIM (THISFORM.TEXT1.VALUE); 10 INTO CURSOR TEMP" 11 ELSE 12 MESSAGEBOX("学号不存在,请重新输入学号") 13 TH工SFORM.GRID1.RECORDSOURCE=" 14 ENDIF *****“退出”按钮的Click事件代码***** THISFORM.RELEASE 步骤4:单击“常用”工具栏中的“运行”按钮查看结果,将表单文件保存到考生文件夹下。

解析
转载请注明原文地址:https://jikaoti.com/ti/WEk0FFFM
0

最新回复(0)