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

admin2016-10-30  26

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

选项

答案【操作步骤】 步骤1:在命令窗口执行命令:CREATEFORMform,打开表单设计器新建表单。向表单添加两个命令按钮。 步骤2:选择表单对象,修改属性值,见表4—28。 [*] 步骤3:双击命令按钮,编写各个命令按钮的Click事件代码如下: *****“录取”按钮的Click事件代码***** OPEN DATABASE SDB SELECT KSB.考生号,姓名,性别,单位,SUM (成绩)总成绩 FORM KsB,KSCJB: WHERE KSB.考生号=KSCJB.考生号GROUP BY KSB.考生号; HAVING SUH(成绩)>=330 INTO CURSORTEMP1 SELECT考生号,姓名,性别,单位FROMTENP1; ORDER BY总成绩DESC TNTO TABLE FOUR ALTER TABLE FOUR ADD政冶成绩N15,1) ALTER TABLE FOUR ADD外语成绩N(5,1) ALTER TABLE FOUR ADD高教成绩N(5,1) ALTER TABLE FOUR ADD专业课威绩N(5,1) ALTER TABLE FOUR ADD总成绩N(5,1) SELECT牲号,考试科目名,成绩FROH KSCdB,DN WHERE KSCOB.考试科目=DM.考进科目; INTO CURSOR TEMP2 SELECT FOUR DO WHILE NOT EOF() SELECT成绩FROM TENP2 WHER考生号=FOUR.考生号AND考试科目名=“政治”; INTO ARRNY A1 REPLACE政治成绩WITH A1 SELECT成绩FROH TEMP2 WHER考生号=FOUR.考生号AND考试科目名=”外语”; INTO ARRAY A2 REPLACE外语成绩WITH A2 SELECT成绩FRON TEtVlE2 WHER考生号=FOUR.考生号AND考试科目名=“高等数学”; INTO ARRAY A3 REPLACE高数成绩WITH A3 SELE成绩FRON TEME2 NHER考生号=FOUR.考生号ANl3考试科目名=“专业课”; lNTO ARRAY A4 REPLACE专业课成绩WITH A4 REPLACE.总成绩 WITH政治成绩+外语成绩+高数成绩+专业课成绩 SKIP ENDO CLOSE DATABASE *****“退出”按钮的Click事件代码***** THISFORM .RELEASE 步骤4:单击“常用”工具栏中的“运行”按钮运行表单.单击“景取”讲行计算,单击“退出”关闭表单。

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

最新回复(0)