在考生文件夹下,打开招生数据库SDB,完成如下综合应用: (1)创建文件名为form的表单,将表单标题改为:录取研究生。 (2)在表单中设计"录取"和"退出"两个按钮。两个按钮功能分别如下: 1)在"录取"按钮(Command1)中,编写程序,查询总成绩大

admin2013-10-25  32

问题 在考生文件夹下,打开招生数据库SDB,完成如下综合应用:
(1)创建文件名为form的表单,将表单标题改为:录取研究生。
(2)在表单中设计"录取"和"退出"两个按钮。两个按钮功能分别如下:
1)在"录取"按钮(Command1)中,编写程序,查询总成绩大于或等于330分的考生的考生号、姓名、性别、单位和该生的政治成绩、外语成绩、高数成绩(即高等数学成绩)、专业课成绩、总成绩,并将结果按总成绩降序排序存储到表FOUR中。
表FOUR(需要自己创建或生成)的字段名为:考生号、姓名、性别、单位、政治成绩、外语成绩、高数成绩、专业课成绩、总成绩(各成绩字段的类型为N(5,1),其他字段的类型与原表中一致)。
2)单击"退出"按钮(Command2)时,关闭表单。
(3)表单设计完成后,运行表单,单击"录取"按钮进行统计,然后单击"退出"按钮关闭表单。
注:在考试科目代码表DM中存储了各考试科目与考试科目名对应关系。

选项

答案【操作步骤】 步骤1:单击常用工具栏中的"新建"按钮,文件类型选择"表单",打开表单设计器。单击工具栏上"保存"按钮,在弹出"保存"对话框中输入"form"即可。 步骤2:在"表单设计器"中,在"属性"的Caption处输入"录取研究生"。 步骤3:在"表单设计器"中,添加两个命令按钮,在第1个命令按钮"属性"窗口的Caption处输入"录取",在第2个命令按钮"属性"窗口的Caption处输入"退出"。 步骤4:在"表单设计器"中,双击录取命令按钮,在"Command1.Click"编辑窗口中输入下列命令语句,接着关闭编辑窗口。输入语句如下。 close all CREATE TABLE test (考生号 C(4), 政治成绩 N(5,1), 外语成绩 N(5,1), 高数成绩 N(5,1), 专业课成绩 N(5,1), 总成绩 N(5,1)) use select 2 use test select 1 use kscjb do while .not.eof() select test locate for 考生号=kscjb->考生号 if not found() then append blank replace 考生号 with kscjb->考生号 endif do case case kscjb->考试科目="101" replace 政治成绩 with kscjb->成绩 case kscjb->考试科目="102" replace 外语成绩 with kscjb->成绩 case kscjb->考试科目="103" replace 高数成绩 with kscjb->成绩 case kscjb->考试科目="104" replace 专业课成绩 with kscjb->成绩 endcase select kscjb skip enddo close all update test set 总成绩=政治成绩+外语成绩+高数成绩+专业课成绩 SELECT Ksb.考生号, Ksb.姓名, Ksb.性别, Ksb.单位, Test.政治成绩,; Test.外语成绩, Test.高数成绩, Test.专业课成绩, Test.总成绩; FROM sdb!ksb INNER JOIN test ON Ksb.考生号 = Test.考生号; WHERE Test.总成绩 >= 330; ORDER BY Test.总成绩 DESC; INTO TABLE four 步骤5:在"表单设计器"中,双击退出命令按钮,在"Command2.Click"编辑窗口中输入"Thisform. Release",接着关闭编辑窗口。

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

最新回复(0)