国家二级VFP题库.doc

第01套 基本操作题（1）打开考生文件夹下的表单one（如图所示），在打开命令按钮的Click事件中增加一条语句，使表单运行时单击该命令按钮的结果是使关闭按钮变为可用。 * 请考生编写程序 * thisform.Command2.enabled= .t.（2）打开考生文件夹下的表单two（如图1所示），在选项组中增加一个单选钮（如图2所示）。注意：不能改变原先的名称以及属性值。 图1 图2（3）使用SQL语句为考生文件夹下的学院表增加一个字段教师人数（整数型），同时为该字段设置有效性规则：教师人数=0。请将该SQL语句存储在three.prg文件中，否则不得分。 * 请考生编写程序 * Alter table 学院表 add 教师人数 I check 教师人数=0（4）使用SQL语句将考生文件夹下的自由表teacher中教师姓名为Jack的工资修改为8000元。 * 请考生编写程序 * update teacher set 工资=8000 where 姓名=”Jack”第01套 简单应用题（1）考生文件夹下的程序文件five.prg的功能是：根据“教师表”计算每个系的教师人数并将相应数据填入“学院表”，程序中有三处错误，请修改并执行程序。只能修改标有错误的语句行，不能修改其他语句。&根据教师表计算每个系的教师人数并将数据填入学院表CLOSE DATAUSE 学院表GO TOPDO .NOT. EOF() &错误 * DO后加上 WHILE * xihao=系号 SELECT COUNT(*) FROM 教师表 WHERE 教师表.系号=xihao INTO A &错误 * INTO后加上ARRAY * REPLACE 教师人数 WITH A1 NEXT &错误 * 把NEXT改为SKIP *ENDDO（2）在“课程管理”数据库中使用视图设计器建立视图teacher_view，该视图根据“教师表”和“课程表”建立，视图包括姓名、工资、课程名和学时4个字段，视图中的记录按“工资”升序排列。第01套 综合应用题在考生文件夹下完成下列操作：（1）建立一个名为myform的表单，表单中包括一个列表框（List1）和两个命令按钮（Command1和Command2），Command1和Command2的标题分别为“生成表”和“退出”。（2）设置列表框的数据源（RowSource）和数据源类型（RowSourceType）两个属性，使用SQL语句根据“学院表”的“系名”字段的内容在列表框中显示“系名”（注意不要使用命令指定这两个属性）* 请考生设置RowSource属性 * SELECT DISTINCT (系名) FROM 学院表（3）为“生成表”命令按钮的单击事件编写程序。程序的功能是根据表单运行时列表框中选定的“系名”，将“教师表”表中相应系的所有记录存入以该系名命名的自由表中，自由表中包含“职工号”，“姓名”和“工资”三个字段，并按照“职工号”升序排列。* 请考生编写Command1的程序 * SELECT 职工号,姓名,工资 FROM 教师表 WHERE 系号 IN(SELECT 系号 FROM 学院表 WHERE 系名=ThisForm.List1.Value) INTO TABLE (ThisForm.List1.Value)* 请考生编写Command2的程序 * ThisForm.Release（4）运行表单，分别生成存有“计算机”、“通信”、“信息管理”系信息的3个表。第02套 基本操作题在考生文件夹下，打开“点菜”数据库，完成如下操作：（1）打开“菜单表”，增加一个“厨师姓名”字段，字段类型为字符型，宽度为8；（2）使用报表向导建立一个简单报表，要求选择“菜单表”中所有字段（其他不做要求），并把报表保存为one.frx文件。（3）打开第2题建立的报表文件one，将报表标题修改为“菜单一览表”，最后保存所做的修改。（4）使用SQL的SELECT语句，根据顾客点菜表和菜单表查询顾客点单价大于等于40元菜的顾客号和菜编号、菜名、单价和数量，结果按菜编号降序排序并存储到名为TABA的表中，将SQL的SELECT语句存储到名为TWO.PRG的文件中。表TABA由SELECT语句自动建立。* 请考生编写程序 * select 顾客号,菜单表.菜编号,菜名,单价,数量 from 顾客点菜表,菜单表 where 顾客点菜表.菜编号=菜单表.菜编号 and 单价=40 order by 菜单表.菜编号 Desc into table taba第02套 简单应用题（1）打开“点菜”数据库，使用查询设计器设计一个名称为THREE的查询，根据顾客点菜表和菜单表，查询顾客的“顾客号”和“消费金额合计”，消费金额由数量*单价得出。查询结果按“消费金额合计”降序排序，并将查询结果输出到表TABB中。表TABB的两个字段名分别为：顾客号，消费金额合计。设计完成后，运行该查询。（2）创建设计一个文件名为“testA”的表单，如下图所示。表单的标题名为“选择磁盘文件”，表单名为“Form1”。该表单完成如下功能：每当在选项按钮组中选择一个文件类型，列表框（List1）立即显示该文件类型的文件目录。列表框的列数为1。“退出”按钮的功能是“关闭和释放表单”。注意：选择的三种文件类型分别为Word、Excel和TXT文本文件。* 请考生编写Command1的Click事件程序 * ThisForm.Release* 请考生编写Option1的Click事件程序 * ThisForm.List1.RowSource=”*.DOC”* 请考生编写Option2的Click事件程序 * ThisForm.List1.RowSource=”*.XLS”* 请考生编写Option3的Click事件程序 * ThisForm.List1.RowSource=”*.TXT”第02套 综合应用题在考生文件夹下，先打开“点菜”数据库，然后创建设计一个标题名为“查询”、文件名为“testB”的表单，如下图所示。表单要求如下： 在该表单中设计一个标签（Label1）、一个文本框（Text1）、一个表格（Grid1）和三个命令按钮。 标签对象标题文本为“结帐日期”（Label1）；文本框用于输入结帐日期（Text1）；表格控件用于显示结果。三个命令按钮的功能如下：1）“查询”（Command1）按钮：在该按钮的“Click”事件中使用SQL的SELECT命令查询结帐日期等于从文本框输入日期的顾客序号、顾客姓名、单位和消费金额，查询结果按消费金额降序排序，并将查询结果存储到表TABC中。* 请考生编写Command1的Click事件程序 * S=ThisForm.Text1.Text S=LEFT(S,4)+/+SUBSTR(S,5,2)+/+RIGHT(S,2)SELECT 顾客序号,顾客姓名,单位,消费金额 FROM 结帐表 WHERE 结帐日期=CTOD(S) ORDER BY 消费金额 DESC INTO TABLE TABC2）“显示”（Command2）按钮：在该按钮的“Click”事件中使用命令将表TABC中记录在表格控件中显示。注意，表格控件中所有属性和事件均为默认。* 请考生编写Command2的Click事件程序 * ThisForm.Grid1.RecordSourceType=0 ThisForm.Grid1.RecordSource=tabc.dbf3）“退出”（Command3）按钮的功能是“关闭和释放表单”。表单设计完成后，运行该表单，查询结帐日期等于2005-10-01的顾客信息。* 请考生编写Command2的Click事件程序 * CLOSE DATABASE ThisForm.Release第03套 基本操作题在考生文件夹下有一表单文件myform.scx。打开该表单文件，然后在表单设计器环境下完成如下操作：（1）在属性窗口中设置表单的有关属性，使表单在打开时在VFP主窗口内居中显示。（2）在属性窗口中设置表单的有关属性，使表单内的Center、East、South、West和North五个按钮的大小都设置为宽60、高25。（3）将West、Center和East三个按钮设置为顶边对齐；将North、Center和South三个按钮设置为左边对齐。* 解题步骤提醒 * 格式（菜单）对齐顶边（左边）对齐（4）按Center、East、South、West、North的顺序设置各按钮的Tab键次序。第03套 简单应用题（1）利用查询设计器创建查询，从考生目录下的xuesheng表和chengji表中查询数学、英语和信息技术三门课中至少有一门课在90分以上（含）的学生记录。查询结果包含学号、姓名、数学、英语和信息技术5个字段；各记录按学号降序排序；查询去向为表table1。最后将查询保存在query1.qpr文件中，并运行该查询。（2）首先创建数据库cj_m，并向其中添加xuesheng表和chengji表。然后在数据库中创建视图view1：利用该视图只能查询少数民族学生的英语成绩；查询结果包含学号、姓名、英语3个字段；各记录按英语成绩降序排序，若英语成绩相同按学号升序排序。最后利用刚创建的视图view1查询视图中的全部信息，并将查询结果存放在表table2中。第03套 综合应用题利用表设计器在考生目录下建立表table3，表结构如下： 学号 字符型（10） 姓名 字符型（6） 课程名 字符型（8） 分数 数值型（5，1）然后编写程序prog1.prg，从xuesheng表和chengji表中找出所有成绩不及格（分数小于60）的学生信息（学号、姓名、课程名和分数），并把这些数据保存到表table3中（若一个学生有多门课程不及格，在表table3中就会有多条记录）。表table3中的各记录应该按分数升序排序，分数相同则按学号降序排序。要求在程序中用SET RELATION命令建立chengji表和xuesheng表之间的关联（同时用INDEX命令建立相关的索引），并通过DO WHILE循环语句实现规定的功能。最后运行程序。* 请考生编写的程序 *CLOSE DATACREATE TABLE tmp(学号 C(10),姓名 C(6),课程名 C(8),分数 N(5,1)USE xueshengGo topDo while .NOT. EOF( ) Xuehao=学号 SELECT 姓名,数学,英语,信息技术 FROM xuesheng , chengji WHERE xuesheng.学号=chengji.学号 AND chengji.学号=xuehao INTO ARRAY A IF A(2)60INSERT INTO tmp VALUES(xuehao,A(1),数学,A(2) END IF IF A(3)60INSERT INTO tmp VALUES(xuehao,A(1),英语,A(3) END IF IF A(4)60INSERT INTO tmp VALUES(xuehao,A(1),信息技术,A(4) END IF SKIPENDDODELETE FROM table3PACKCLOSE ALLUSE tmpSORT TO table3 ON 分数 /A , 学号 /DDROP TABLE tmpCLOSE ALL第04套 基本操作题（1）建立一个“客户”表，表结构如下 客户编号C（8） 客户名称C（8） 联系地址C（30） 联系电话C（11） 电子邮件C（20）（2）建立一个“客户”数据库，并将“客户”表添加到该数据库中（3）将如下记录插入到“客户”表中。 43100112 沈红霞 浙江省杭州市83号信箱 44225601 唐毛毛 河北省唐山市100号信箱 50132900 刘云亭 北京市1010号信箱 30691008 吴敏霞 湖北省武汉市99号信箱 41229870 王衣夫 辽宁省鞍山市88号信箱（4）利用报表向导生成一个“客户”（报表文件名）报表，报表的内容包含客户表的全部字段，报表的标题为“客户”，其他各项取默认值。第04套 简单应用题在考生文件夹下有student（学生）、course（课程）和score（选课成绩）3个表，用SQL语句完成如下操作：（1）查询每门课程的最高分，要求得到的信息包括课程名称和分数，将结果存储到max.dbf表文件（字段名是课程名称和分数），并将相应的SQL语句存储到命令文件one.prg。* 请考生编写的程序 *SELECT 课程名称,MAX(成绩) AS 分数 FROM COURSE,SCORE WHERE COURSE.课程编号=SCORE.课程编号 GROUP BY COURSE.课程编号 INTO TABLE max（2）查询哪些课程有不及格的成绩，将查询到的课程名称存入文本文件new.txt，并将相应的SQL语句存储到命令文件two.prg。* 请考生编写的程序 *SELECT 课程名称 FROM COURSE,SCORE WHERE COURSE.课程编号=SCORE.课程编号 AND SCORE.成绩=0) REPLACE X1 WITH (B*(-1)+SQRT(B*B-4*A*C)/(2*A) REPLACE X2 WITH (B*(-1)-SQRT(B*B-4*A*C)/(2*A) ELSE REPLACE Note WITH “无实数解” ENDIF SKIPENDDOCLOSE ALL2、 打开文件名为testA 的表单，表单界面上有两个命令按钮，界面要求如下：(1) 设置两个按钮的高度为：30。宽度为：80。“退出”按钮与“查询”按钮顶边对齐。(2) “查询”按钮：在该按钮的Click事件中使用SQL的SELECT命令从表TABA中查询“无实数解”的记录存储到表TABD中。* 请考生编写Command1的Click事件程序 * SELECT * FROM Taba WHERE X1 IS NULL INTO TABLE Tabd(3) “退出”按钮：关闭并释放表单。* 请考生编写Command2的Click事件程序 * ThisForm.Release请按要求完成表单的设计，表单设计完成后，运行该表单，单击“查询”按钮进行查询。第08套 综合应用题在考生文件夹下，打开SDB数据库，完成如下应用：创建一个标题名为“查询”、文件名为testb的表单，如下图所示。表单要求如下：1、 为表单建立数据环境，向数据环境添加“学生表”。2、 表单启动后自动居中。3、 在该表单中设计一个标签、一个文本框、一个表格和两个命令按钮。（1） 标签对象标题文本为“学生注册日期”（Label1），文本框用于输入学生注册日期（Text1），表格控件用于显示结果（Grid1）。（2） 命令按钮的功能如下：“查询”按钮（Command1）：在该按钮的Click事件中使用SQL的SELECT命令从“学生表”中查询学生注册日期等于文本框中指定的注册日期的学生的学号、姓名、年龄、性别、班级和注册日期，查询结果按年龄降序排序，并将查询结果在表格控件中显示，同时将查询结果存储到表TABE中。注意：查询结果存储到表TABE之前，应将表TABE中记录清空。TABE表是已经建立好的表，它与学生表的结构不完全一样，多两个字段。* 请考生编写Command1的Click事件程序 * ThisForm.Grid1.RecordSource=”SELECT * FROM 学生表 WHERE 注册日期=ThisForm.Text1.Value ORDER BY 年龄 DESC INTO CURSOR tmp USE 学生表 DELETE FROM Tabe LOCATE FOR 注册日期=ThisForm.Text1.Value DO WHILE .NOT. EOF( ) INSERT INTO Tabe(学号,姓名,年龄,性别,班级,注册日期) VALUES(学生表.学号,学生表.姓名,学生表.年龄,学生表.性别,学生表.班级,学生表.注册日期) CONTINUE ENDDO“退出”按钮（Command2）：的功能是“关闭和释放表单”。注意：表格控件的RecordSourceType属性设置为“4-SQL说明”。表单设计完成后，运行该表单，查询注册日期等于2005年9月2日的学生信息。* 请考生编写Command2的Click事件程序 * ThisForm.Release第09套 基本操作题在考生文件夹下完成如下操作：1、 创建一个名为“订单管理”的数据库，并将已有的employee、orders和customer三个表添加到该数据库中。2、 为orders表建立一个普通索引，索引名为nf，索引表达式为“year（签订日期）”。3、 为employee表建立主索引，为orders建立普通索引，索引名和索引表达式均为“职员号”。通过“职员号”在employee表和orders表之间建立一个一对多的永久联系。4、 为上述建立的联系设置参照完整性约束：更新规则为“限制”，删除规则为“级联”，插入规则为“限制”。第09套 简单应用题在考生文件夹下，完成如下简单应用：1、 在考生文件夹下已有表单文件formone.scx，如下图所示，其中包含一个列表框、一个表格和一个命令按钮。请按下面要求完成相应的操作（1） 在表单的数据环境中添加orders表。（2） 将列表框List1设置成多选，另外将其的RowSourceType属性值设置为“8-结构”、RowSource设置为orders。（3） 将表格Grid1的RecordSourceType的属性值设置为“4-SQL说明”。（4） 修改“显示”按钮的Click事件代码。当单击该按钮时，表格Grid1内将显示在列表框中所选orders表中指定字段的内容。* 下面代码的功能是根据用户对列表框的选择结果构建字段列表，然后进一步构建select语句并据此为表格的相关属性设值。* 修改所有* FOUND *下面的一条语句。* 不能修改其他语句。不能增加语句，也不能删除语句。s=f=.T.* FOUND *FOR i=1 TO thisform.List1.ColumnCount * 改为for i=1 to thisform.list1.listcount * IF thisform.List1.Selected(i) IF f* FOUND * s=thisform.List1.value * 改为s=thisform.list1.list(i) * f=.F. ELSE* FOUND * * 改为 s=s+,+thisform.list1.list(i) * s=s+thisform.List1.value ENDIF ENDIFENDFORst=select &s from orders into cursor tmpthisform.Grid1.RecordSource=st2、 利用查询设计器创建查询，从orders、employee和customer表中查询2001年5月1日以后（含）所签所有订单的信息。查询结果依次包含“订单号”、“签订日期”、“金额”、“签订者”和“客户名”五项内容，其中“签订者”为签订订单的职员姓名。各记录按签订日期降序排序，签订日期相同按金额降序排序。查询去向为表tableone。最后将查询保存在queryone.qpr文件中，并运行该查询。第09套 综合应用题在考生文件夹下完成如下操作在考生文件夹下创建一个顶层表单myform.scx（表单的标题为“考试”），然后创建并在表单中添加菜单（菜单的名称为mymenu.mnx，菜单程序的名称为mymenu.mpr）。效果如下图所示。菜单命令“统计”和“退出”的访问键分别为“T”和“R”，功能都通过执行过程完成。菜单命令“统计”的功能是以客户为单位、从customer和orders表中求出订单金额的和。统计结果包含“客户号”、“客户名”和“合计”三项内容，其中“合计”是指与某客户所签所有订单金额的和。统计结果诮按“合计”降序排序，并存放在tabletwo表中。菜单命令“退出”的功能是释放并关闭表单。最后，请运行表单并依次执行其中的“统计”和“退出”菜单命令。* 请考生编写统计的过程代码 * SELECT customer.客户号,客户名,SUM(金额) AS 合计 FROM customer,orders WHERE orders.客户号=customer.客户号 GROUP BY customer.客户号 ORDER BY 3 DESC INTO TABLE tabletwo* 请考生编写退出的过程代码 *Myform.Release* 请考生编辑表单Form1的load事件代码 * Do mymenu.mpr WITH THIS,myMenu* 请考生编辑表单Form1的Destroy事件代码 *CLOSE ALLRELEASE MENU myMenu EXTENDED第10套 基本操作题在考生文件夹下完成如下操作1、 创建一个名为“订单管理”的数据库，并将已有的employee和orders两个表添加到该数据库中。2、 为orders表建立一个普通索引，索引名为je，索引表达式为“金额”，降序索引。3、 在“订单管理”的数据库中新建一个名为customer的表，表结构如下：客户号 字符型（4）客户名 字符型（36）地址 字符型（36）4、 通过“客户号”分别为customer表建立主索引，为orders建立普通索引，索引名和索引表达式均为“客户号”，通过“客户号”为customer表和orders表之间建立一个一对多的永久联系。第10套 简单应用题1、 在考生文件夹下已有表单文件formone.scx，如下图所示，其中包含一个文本框、一个表格和两个命令按钮。请按下面要求完成相应的操作：（1） 通过“属性”窗口，将文本框Text1的Value属性值设置为当前系统日期（日期型，不含时间）。（2） 通过“属性”窗口，将表格Grid1的RecordResourceType属性值设置为“4-SQL说明”。（3） 修改“确定”按钮的Click事件代码。当单击该按钮时，表格Grid1内显示指定日期以后（含）签订的订单信息（包括“订单号”、“签订日期”和“金额”等信息）。* 下面代码的功能首先将年份设置为用4位数字表示，然后根据文本框Text1的值构建SQL语句，并设置表格Grid1的相关属性。* 修改所有* FOUND *下面的一条语句。* 不能修改其他语句。不能增加语句，也不能删除语句。* FOUND * set century to 4 * 改为 set century on to 4 * FOUND * va=text1.value * 改为 va=thisform.text1.value *st=select 订单号,签订日期,金额 from orders where 签订日期=va order by 签订日期 into cursor tmp* FOUND * this.grid1.RowdSource=st * 改为 thisform.grid1.recordsource=st *（4） 设置“关闭”按钮的Click事件代码。当单击该按钮时，将释放并关闭表单。* 请考生编写的程序 * ThisForm.Release2、 利用查询设计