2011秋vfp01—vfp03上机试题答案.doc

2011秋-vfp01一、项目，数据库与表操作打开T盘根目录中的项目文件JXGL，在该项目中已经有一个数据库JXSJ。1. 在JXSJ数据库中按如下表格中所示的结构创建AB01.DBF表，并按照表格中的要求设置相关属性。 字段名数据类型宽度字段标题CGC20场馆WZC1位置SJZTM设计主题ZDMJN10（小数2位）占地面积（1） 设置表的注释：世博会场馆简介一览表；（2） 设置CG字段的有效性规则：不能为空字符串；（3） 设置ZDMJ字段的输入掩码：整数部分从右至左每3位用“，”字符隔开；（4） 设置WZ字段的有效性规则：只能是“A,B,C,D,E”中的一个；（5） 创建索引名为ABCD的普通索引，要求按位置排序，位置相同时按占地面积排序。【操作解析】 在项目管理器中，选择【数据库】【JXSJ】【表】，单击“新建”按钮，利用表设计器，创建AB01.DBF表。 (1) 在表设计器中，选择【表】选项卡，在【表注释】中，输入：世博会场馆简介一览表； (2) CG字段的有效性规则： NOT EMPTY(CG) (3) ZDMJ的输入掩码：9，999，999.99 (4) WZ字段的有效性规则： wz $“ABCDE”或者： WZ=A OR WZ=B OR WZ=C OR WZ=D OR WZ=E (5) 索引表达式： wz + str（zdmj，10，2）2. 在AB01表中输入如下记录： 3. 设置项目的图标为：PC.ICO【操作解析】 右击项目管理器，在弹出的快捷菜单中，选择【项目信息】，选中 “附加图标”，在打开的对话框中，查找指定的图标文件PC.ICO，如下图所示。4. KC表与CJ表具有相同字段kcmc，以KC表为主表，CJ表为子表，根据kcmc建立永久性关系，并设置两表之间的参照完整性：删除级联，插入限制。【操作解析】 在KC表中，以kcmc字段建立主索引或者候选索引； 在CJ表中，以kcmc字段建立普通索引； 在数据库设计器中，从KC表的kcmc主（候选）索引拖动鼠标至CJ表的kcmc普通索引，建立永久性关系连线，双击该永久性关系连线，设置“参照完整性”，注意，初次设置时，需要“清理数据库”。二、设计查询【操作解析】 SELECT Kc.kcdm, Kc.kcmc, count(*) as 人数, avg(cj.cj) as 平均成绩,; sum(iif(cj60,1,0) as 不及格人数; FROM jxsj!kc INNER JOIN jxsj!cj ; ON Kc.kcdm = Cj.kcdm; GROUP BY Kc.kcdm; ORDER BY 4 DESC To table ABC.DBF【操作步骤如下列图】数据源为KC, CJ表，联接为：内联接联接条件：Kc.kcdm = Cj.kcdm三、设计菜单JXGL项目中已存在菜单MENU,其中已定义了”文件”菜单栏及其中的”退出菜单”项。按如下要求设计菜单,完成后的运行效果如图1所示。（1） 创建“人员管理”菜单栏，并创建其子菜单“录入”、“修改”、“浏览”；（2） 在菜单项“录入”与“修改”，“修改”与“浏览”之间插入分组线（3） 为“浏览”菜单设置访问键“B”（4） 为”浏览”菜单项设置快捷键ctrl+B（5） 为”浏览”菜单设置命令：select * from js【操作解析】(2)分组线用“-”表示（3）访问键表示为： 浏览(B)(4)快捷键在【选项】中设置：CTRL+B四、设计表单表单FRM11A用于学生选课等操作。按下列要求修改表单，修改后表单运行时如下图所示。1、 修改表单的有关属性，使表单的标题为“选课表单”【操作提示】修改表单的caption属性为“选课表单”2、 在表单右侧添加一个列表框list2，用于显示学号和被选课程代码；【操作提示】直接从控件工具栏中，向表单中添加一个列表框 3、 修改“命令”按钮的click事件代码：在最后添加一条语句，其功能是将mxh+thisform.LIST1.VALUE的值添加到list2中。【操作提示】 Thisform.LIST2.ADDLISTITEM(mxh+Thisform.LIST1.Value)4、 添加一个命令按钮，如图2 所示，“退出”按钮的功能是释放表单， 为其click事件编写代码，实现释放表单的功能。【操作提示】 Thisform. RELEASEStep -1五、程序改错2011秋-vfp02一、项目，数据库与表操作打开T盘根目录中的项目文件JXGL，在该项目中已经有一个数据库JXSJ。1.在JXSJ数据库中按如下表格中所示的结构创建AB02.DBF表，并按照表格中的要求设置相关属性。 字段名数据类型宽度字段标题RQD日期CGC20场馆SCRSN10参观人数PJSJN4（小数2位）平均排队时间（1）设置表的注释：世博会参观人数统计表；（2）设置RQ字段的默认值：当前系统日期；（3）设置PJSJ字段的有效性规则：排队最长时间不能超过12小时【操作提示】有效性规则表达式为：pjsj=12.0（4）设置表的删除触发器：只有场馆为空的记录可以删除；【操作提示】删除触发器表达式为：empty（CG）（5）创建索引名为ABCD的普通索引，要求按日期排序，日期相同时按平均排队时间排序。【操作提示】索引表达式：DTOC(RQ,1)+STR(PJSJ,4,2)2. 在AB02表中输入如下记录：【操作提示】在AB表中输入记录时，因为rq是默认当前系统日期，所以将计算机系统中的当前系统日期改为2010-7-15，就可以正确输入。3. 将自由表GZB设置为包含。【操作提示】右击自由表GZB，弹出快捷菜单，选择包含4. KC表与CJ表具有相同字段kcmc，以KC表为主表，CJ表为子表，根据kcmc建立永久性关系，并设置两表之间的参照完整性：更新级联，插入限制。二、设计查询【操作解析】 数据源：XS,CJ 联接：内联接，联接条件XS.XH=CJ.XH 输出字段： XS.XH XS.XMcount（*）as 考试门数 Avg（cj.cj） as 平均成绩 sum(iif(cj=75排序条件：Avg（cj.cj） as 平均成绩 降序三、设计菜单JXGL项目中已存在菜单MENU,其中已定义了”文件”菜单栏及其中的”退出菜单”项。按如下要求设计菜单,完成后的运行效果如图1所示。 图1（1）创建“成绩处理”菜单栏，并创建其子菜单“录入”、“查询”，并设置分组线；（2）为在菜单项“查询”创建其子菜单“不及格成绩”，“各门课平均成绩” ，并设置分组线；（3）为” 不及格成绩”菜单项设置快捷键ctrl+B（4）为” 不及格成绩”菜单项设置跳过条件：该菜单项不可用 【操作解析】 在选项中设置，跳过条件为.T.（5）为“各门课平均成绩”菜单项设置命令：select kcdm，avg（cj）as pjcj from cj group by 1四、设计表单表单FRM11B用于学生选课等操作。按下列要求修改表单，修改后表单运行时如下图所示。（1）修改表单的相关属性，使表单运行时，不显示控制菜单框；【操作提示】 表单的controlbox=.F. ，minbutton=.F. maxbutton=.F. closable=.F.（2）如上图所示，在表单上添加一个命令按钮，并修改相关属性；（3）为“移去“按钮的click事件编写代码：移去list2中选定的行；【操作提示】“移去”按钮的click代码：thisform.list2.removeitem(thisform.list2.listindex)（4）为下拉组合框combo1编写interactivechange事件代码，实现将下拉组合框当前的值赋值给内存变量mxh【操作提示】 下拉组合框的interactivechange事件代码: mxh=this.value五、程序改错STORE 101011001011 TO cBin1, cBin2nLen=LEN(cBin1)N=CEILING(nLen/4) & CEILING()函数返回大于或等于指定表达式的最小整数cHex=SPACE(0)FOR i=1 TO ncBit4=RIGHT(cBin1, 4)cBin1=LEFT(cBin1, ABS(nLen-4*i)cHex=DO BinToHex WITH cBit4 &改为 DO BinToHex WITH cBit4+ chexENDFWAIT WIND 二进制数：+cBin2+的十六进制形式是：+cHexFUNCTION BinToHexPARA pBinLOCAL Bit,Hex,DecDec=0FOR i=1TO LEN(pBin)Bit=SUBS(pBin, i, 1)Dec=Dec+VAL(Bit)*2( LEN(pBin)-i)ENDFORHex=IIF(Dec=2排序条件：count（*）as 任课次数 降序三、设计菜单JXGL项目中已存在菜单MENU,其中已定义了”文件”菜单栏及其中的”退出菜单”项。按如下要求设计菜单,完成后的运行效果如图1所示。【操作解析】 运行程序文件 do pppp.prg四、设计表单 图2-1 图2-2【操作解析】 1. form1.caption=“计算圆面积”2. shape1.width=1，shape1.HEIGHT=1 ， Text1.alignment=13. valid事件代码： X=THIS.VALUEIF X100 THISFORM.SHAPE1.VISIBLE=.F. THISFORM.TEXT2.VALUE= =MESSAGEBOX(半径取值必须在10100之间！,48,提示窗口) THISFORM.command1. VISIBLE=.F.ELSE THISFORM.command1. VISIBLE=.t.ENDIF4. click事件代码： X=THISform.te