四川省计算机二级vf上机题31及参考答案.pdfVIP

要求：将下列题目所涉及的文件全部放入已创建的项目（项目文件名 “31TEST1.PJX ”） 一、基本操作题（ 30 分） 1、创建数据库（数据 1）及数据库中的成绩表，并将其保存为“成绩 .DBF ”文件，各字段 请根据下表内容确定其数据类型和字段长度。并输入各记录内容。 2、给数据表“成绩 .DBF ”创建索引如下：“编号”字段为候选索引，“专业”字段为普通 索引。 二、编写程序（ 30 分）（文件名：“ abc1.PRG”保存在“ 31TEST1.PJX”项目文件中） 程序设计要求： 根据项目文件中已有的数据表“成绩 .DBF”编程： 1、计算其总成绩 2、根据输入专业查找，如果查到，则显示其姓名，性别，专业，总成绩，否则显示“表中没 有查到此人信息！”。界面如图所示： CLEAR USE 成绩 REPLACE ALL 总成绩 with 高数 +英语 +计算机 ACCEPT 请输入要查找的专业 TO ZY LOCATE ALL FOR 专业 =ZY ? ********* 查询结果 ************ IF FOUND() @row()+1,12 say 查询专业是 :+ 专业 @ row()+1,4 SAY 姓名 @ row(),20 SAY 性别 @row(),30 say 总成绩 DO WHILE .NOT.EOF() @ row()+1,4 SAY 姓名 @ row(),20 SAY 性别 @row(),30 say str(总成绩 ) CONT ENDDO ELSE ?表中没有查找到此人的信息！ ENDIF USE RETURN 三、表单设计（表单名为 form1 ）(40 分 ) 利用已有的数据表“成绩 .dbf ”在项目中建立如下图的表单。 设计要求： 1、各控件标题如样图所示，其中“学生成绩浏览”标签字体大小 16、宋体、加粗，透明。 运行表单时，各个命令按钮要具有相应的功能。 2、当点击 “下一条”按钮时， 则显示表中下一条记录， 若已到文尾， 则定位到最后一条记录。 3、当点击“ 上一条”按钮时，则显示表中前一条记录，若已到文头，则定位到第一条记录。 4、当点击“退出”按钮时，结束表单的运行。 设置“下一条”按钮的点击事件 if .not.eof() skip else go bottom endif thisform.refresh 设置“上一条”按钮的点击事件 if .not.bof() skip -1 else go top endif thisform.refresh 设置“退出”按钮的点击事件 Close all Close database Thisform.release 5、 要求：将下列题目所涉及的文件全部放入已创建的项目（项目文件名 “31TEST2.PJX ”） 一、基本操作题（ 30 分） 1、在项目 31test2.pjx 中建立一个“学生管理”数据文件； 2、将已创建的 stud.dbf 表添加到新建的数据库中； 3、设置 stud.dbf 表中性别文字段的有效性规则为：性别 $ “男女”，出错提示信息为： 性别只能为男或女！ 默认值为：“男”。 二、 编写程序（ 30 分) （文件名：“abc2.RPG”保存在 31TEST2.PJX 项目文件中） 数据表表 stud.dbf 如下： 程序设计要求： 1、根据输入同学姓名查询统计与该同学同月出生的同学人数； 2、要求能反复查询输出，其输出格式如下： clear all use stud do while .t. accept 请输入查询同学的姓名： to xm locate for 姓名 =xm