2003秋VFP答案.docVIP

2003秋 VFP 01. f答案一、 项目、数据库和表操作（12分）1．按如下要求修改SJK中学生（XS）表的结构：（1）将学号（xh）字段宽度设置为10； 1分（2）设置xh字段的有效性规则：len(alltrim(xh))=8 or len(alltrim(xh))=10 或者：len(rtrim(xh))=8 or len(rtrim(xh))=10 1分（3）设置xh字段的字段注释：该字段是学生表的主关键字，不允许重复； 1分（4）创建索引：候选索引 1分索引表达式：bhxh：bjbh+xh 1分（5）为jg字段设置默认值：“江苏”。 1分2．把TEST项目中的图片文件015.jpg的包含状态设置为“排除”。 1分3．修改XS表中所有记录的xh字段值 2分UPDATE XS SET XH=LEFT(XH,2)+SUBSTR(BJDH,3,6)+SUBSTR(XH,5)4．为xs表设置删除触发器：LEFT(XH,2)=95 AND LEFT(XH,2)=99或者：BETWEEN(LEFT(XH,2),95,99) 1分5．建立永久关系 1分设置参照完整性：删除限制 1分二、 设计查询（8分）已知学生（XS）表中含有字符型字段班级编号(bjbh)和日期型字段出生日期(csrq)。在TEST项目中已存在查询chaxun，按如下要求修改该查询：基于学生（XS）表以班级为单位，按出生年份统计各班各年份出生的人数，要求输出字段为：bjbh、出生年份、人数，查询结果首先按班级编号升序排序，一个班级中再按人数多少降序排序，查询结果输出到临时表xsnfrs。SELECT Xs.bjbh, year(csrq) as 出生年份, count(*) as 人数; 3分?FROM sjk!xs;?GROUP BY Xs.bjbh, 2; 2分?ORDER BY Xs.bjbh, 3 DESC; 2分?INTO CURSOR xsnfrs 1分三、 设计菜单（5分，每小题各1分）1． 创建“学生档案管理”菜单栏，并为其设置访问键“ALT+S”；2． 为“学生档案管理”创建子菜单“学生档案录入”和“学生档案查询”，并用分隔线隔开3． 为“学生档案录入”菜单设置命令，该命令用来调用当前目录下的表单文件XS.SCX4． 为“学生档案查询”菜单设置过程???????? IF ！USED（‘XS’）USE XS???????? ELSESELECT XS???????? ENDIF???????? BROWSE5． 在“文件”菜单下插入系统菜单项“打印预览”四、 设计表单（10分）1．Controlbox属性值为.F.????????????? （2）2．Borderstype属值为.F.??????????????? （1） 3．Command1.caption=打开\O??????? （1）4．表单的Caption属性为“记事本”???? （1）5．IF Empty(lsfilename)????????????????? （3）?? Update textfile Set filename = lsfilename? 6．This.Parent.edit1.value=????????????? （2）?? This.Parent.edit1.SetFocus? 五、 程序改错（5分）下列程序的功能是：实现二进制字符串数据压缩。压缩算法是：字符串首字符+该字符个数+分隔符+另一个字符个数+分隔符+……例如，二进制字符串为“111100000111111111000111110000”压缩后显示为“14*5*9*3*5*4”。（字符串首字符为“1”、4个“1”、5个“0”、9个“1”……，分隔符为“*”）。要求：① 项目中有一个程序文件Pcode，将下列程序输入到其中并进行修改； 1分② 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。cString=111100000111111111000111110000cResult=LEFT(cString,1)nCount=1FOR n=2 TO cString FOR n=2 TO LEN(cString) 2分IF SUBSTR(cString,n,1)=SUBSTR(cString,n-1,1)nCount=nCount+1ELSEcResult=cResult+ALLT(STR(nCount))+*nCount=nCount+1 nCount=1 2分ENDIFENDFOR cResult=cResult+ALLT(STR(nCount))