程序填空题】(2012年) 已有“学生信息管理.dbc”数据库,其中包含两个表:班级表和学生表,其中班级表的结构为:班号(C,8)、班名(C,20),学生表的结构为:学号(C,10)、班号()、姓名()、性别()、出生日期()、籍贯()、入学成绩()、设计应用程序界面如图8所示。 图8 设置控件属性如下: 有一个选项按钮组,其Name属性为Optiongroup1,其中包含两个选项按钮,一个的Name属性为Option1、Caption属性为“学生信息查询”,另一个的Name属性为Option2、Caption属性为“学生成绩查询”;两个复选框,一个的Name属性为Check1、Caption属性为“生成表”,另一个的Name属性为Check2、Caption属性为“排序”;两个命令按钮,名称分别为Command1和Command2、其对应的Caption属性分别为“确定”和“退出”;一个标签,其Name属性为Label1、Caption属性为“班号”;一个文本框,其Name属性为Text1。 编写Visual FoxPro程旭实现下述功能: 在文本框中输入班号,如果选择“学生信息查询”,则查询学生的基本信息,包括学号、班名、姓名和籍贯,如果选择“学生成绩查询”,则查询学生的入学成绩信息,包括学号、班名、姓名和入学成绩,如果选择生成表,则将前面的查询输出到表中,如果不选,则在屏幕上输出,如果选择排序,则将查询结果按学号排序,否则不排序。 程序如下,请在空白位置填写正确的命令。(代码中行末的分号为逻辑行连接符) Command1的Click事件 a=ThisForm.Optiongroup1.Option1.Value b=ThisForm.Optiongroup1.Option2.Value c=ThisForm.Check1.value d=ThisForm.Check1.value (1) ________________________ OPEN DATABASE 学生信息管理 IF c = 1 AND d=0 IF b = 1 SELECT 学号,班名,姓名,入学成绩 FORM 班级表,学生表 WHERE; 班级表.班号 = 学生表.班号 AND 学生表.班号 =e INTO TABLE stuscore ELSE SELECT 学号,班级,姓名,籍贯 FORM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=eINTO TABLE stuxx ENDIF ENDIF IF c = 0 AND d = 0 IF b=1 SELECT 学号,班名,姓名,入学成绩 FORM 班级表,学生表 WHERE; 班级表.班号=学生表.班号 AND 学生表.班号=e TO SEREEN ENDIF ENDIF ____ IF a=1 SELECT学号,班名,姓名,籍贯 FORM 班级表,学生表WHERE 班级表.班号; = 学生表.班号 AND 学生表.班号=e ORDER BY 学号 DESC INTO TABLE stuxx ELSE SELECT 学号,班名,姓名,入学成绩 FORM 班级表,学生表 WHERE ; 班级表.班号 = 学生表.班号 AND学生表.班号=e ORDER BY 学号 DESC; INTO TABLE stuscore ENDIF ENDIF ____ IF a = 1 SELECT 学号,班名,姓名,籍贯 FORM 班级表,学生表 WHERE; 班级表.班名=学生表.班号AND学生表.班号=e ORDER BY 学号 DESC TO SCREEN ELSE SELECT 学号,班名,姓名,入学成绩 FORM 班级表,学生表 WHERE; 班级表.班名=学生表.班号 AND 学生表.班号=eorder by 学号 DESC TO SCREEN ENDIF ENDIF