VFP03

打开T盘根目录中的项目JXGL，在该项目中已有一数据库JXSJ。

1． 在JXSJ数据库中按如下表格中所示的结构创建AB.DBF表，并设置相关属性。 字段名 FLH SM JG RKRQ （1） （2） （3） （4）

数据类型 C C N D 宽度 12 30 5(小数位2) 字段标题 分类号 书名 价格 入库日期 设置AB表的注释：图书信息表； 设置FLH字段的有效性规则，要求其值必须包括非空格字符； 将RKRQ字段的默认值设置为当前系统日期；

创建普通索引abcd，要求根据RKRQ所对应的“星期几”进行排序，要求顺序为星期日、星期一至星期六。（提示：使用DOW（）函数。）

2． 在AB表中输入如下记录： FLH T01.0201 SM Visual FoxPro 教程 JG 31.20 RKRQ 08/06/2009 3．设置JS表的更新触发器，要求只能更新CSRQ在1949年以前的记录。 4．已知YXZY表已存在主索引YXZYDM，索引表达式为YXZYDM，JS表已存在普通索引YXZYDM，索引表达式为YXZYDM，以YXZY表为主表，JS表为子表按YXZYDM建立永久关系，并设置两表之间的参照完整性：删除级联。

二、设计查询（8分）

教材表（JC）存储了各门课程的教材使用情况，含有出版社名称（cbsmc,C）、作者（zz,C）和出版年份（cbnf,C）字段。按如下要求修改JXGL项目中的查询CHAXUN：

基于JC表查询2000年以后（含2000年）出版的教材使用书目最多的前5个出版社。要求，输出字段为：出版社名称、教材数。要求查询结果按教材数降序排序，并将查询结果输出到文本文件CBS.TXT。

三、设计菜单（5分）

JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，完成后的运行效果如图1所所示。 1．将“文件”菜单名改为“自定义”； 2．设置有关先项，使菜单运行时，“自定义”菜单追加在系统菜单之后； 3．为“退出菜单”项设置快捷键“CTRL+X”；

4．在“自定义”菜单中插入“运行外部EXE程序”菜单项； 5．为“运行外部EXE程序”菜单项添加如下过程代码： Exefile=getfile(“exe”) RUN/n &exefile

四、设计表单（10分）

JXGL项目中已经存在表单Formc，该表单用来循环流动显示一个标签，标签内容如图2所示。显示规则为，标签每50毫秒左移1个象素，当标签全部移出表单区域时，标签又从表单的右侧开始显示，显示过程如图2所示。按下列要求修改表单：

1．设置表单的标题为空，图标为cddrive.ico文件，无最大化、最小化按钮；

2．添加一个计时器控件，并按题意设置它的时间间隔； 3．将标签的字体加粗，大小为14；

4．修改表单的新方法SHOWLAB，要求，在该方法代码的空白处增加一行代码，使得当标签全部移出表单区域时，标签又从表单右侧开始显示；

5．为计时器控件编写TIMER事件代码，调用表单的新方法SHOWLAB。

五、程序改错（5分）

下列程序的功能是验证卡布列克运算。任意一个四位数，只要它们各个位上的数字是不全相同的，就有这样的规律：（1）将组成该四位数的四数字由大到小排列，列成由这四个数字构成的最大的四位数；（2）将组成该四位数的四个数字的四个数字由小到大排列，形成由这四个数字构成的最小的四位数（如果四个数中含有0，则得到的数不足四位）；（3）求这两个最大四位数和最小四位数的差，得到一个新的四位数（高位零保留）。重复以上过程，最后得到的结果是6174，这个数被称为卡布列克数。要求：

（1） 将下列程序输入到项目中的程序文件PCODE中，并对其中的2条错误语句

进行修改；

（2） 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句

数目。

clear

input '请输入一个四位数:' TO x &&该语句的功能是交互式输入数据 c=allt(str(x))

if len(c)#4 or x%1111=0

?'不是四位数或四位数字相同'

exit &&改为return endif

dime a(4)

do while x#6174 c=allt(str(x,4)) for i=1 to 4

a(i)=subs(c,i,1) endfor

=asort(a) &&数组排序 nmax=a(4)+a(3)+a(2)+a(1) nmin=a(1)+a(2)+a(3)+a(4)

x=nmax-nmin && x=val(nmax)-val(nmin) ?nmax,'-',nmin,'=',x enddo