2010秋VFP上机参考答案01-02.doc

2010Q VFP01 一、项目、数据库和表操作(12分) 打开T盘根目录中的项目文件JXGL，在该项目中已有一数据库JXSJ。 1．在JXSJ数据库中按如下表格所示的结构创建AB表，并按表格中的要求设置相关属性。 宇段名 数据类型 宽度 宇段标题 RQ D 0 日期 SCSL N 6 售出门票数量 SJRS N 6 实际参观人数 BZ M 0 备注 (1) 设置AB表的表注释：参观人数； 参观人数 （不要括号） (2) 设置日期字段的默认值：当前系统日期； Date() 注意：是引文括号 (3) 设置日期字段的显示类：微调框； ListBox (4) 设置记录有效性规则：实际参观人数小于或等于售出门票数量；sjrs=scsl (5) 创建普通索引，索引名为abcd，要求按实际参观人数与售出门票数量之比排序. 索引表达式：sjrs/scsl 2．在AB表中输入如下记录：浏览ab表-“显示”菜单-“追加方式” RQ SCSL SJRS BZ （默认值） 240100 198808 全天下雨 3．给KC表中所有学分大于或等于5的记录加删除标记。 浏览kc表，“表”菜单-“删除记录”，范围选：ALL，For里填写：xf=5 4．JS表已存在主索引GH，索引表达式为GH；KCAP表已存在普通索引GH，索引表达式为GH。以JS表为主表、KCAP表为子表，根据GH建立永久关系，并设置两表之间的参照完整性：更新级联、删除级联。 二、设计查询(8分) 已知教师表(JS)含有工号(gh，C)、姓名(xm，C)等字段；自由表图书借阅表(JYB)含有读者号(dzh，C)、分类号(flh，C)、借阅日期(jyrq，D)、还书日期(hsrq，D)等字段，教师的读者号与工号相同。按如下要求修改JXGL项目中的查询CHAXUN： 基于JS表和JYB表查询教师借书情况，计算过期罚款信息。要求：查询输出字段为dzh、xm、罚款额；查询结果按罚款额降序排序；输出去向为文本文件TEMP。 注：罚款计算方法为30天以上超过部分每本每天0.10元，未还书者(即还书日期为空的记录)不统计。 连接：Js.gh=Jyb.dzh (题目中有文字：教师的读者号与工号相同) 字段：dzh,xm,(hsrq-jyrq-30)*0.1 As 罚款额 筛选：字段中写入Hsrq-jyrq = 30 （这样即可保证还书日期为空的不统计） 排序：罚款额 分组：没有使用合计函数，不用分组 去向：右击查询设计器—“输出设置”，找到“文本文件”，在旁边输入文件名Temp 三、设计菜单(5分) JXGL项目中已存在菜单MENU，其中已定义了“文件”菜单栏及其中的“退出菜单”项。按如下要求设计菜单，菜单运行后的效果如图1所示。 在“文件”菜单栏右侧创建“数据管理”菜单栏。下方 2. 在“数据管理”菜单栏下创建子菜单“查询”和“数据备份”。 3. 为“查询”菜单项设置快捷键：F12。点“选项”按钮，点“键标签”后面的文本框，然后按键盘第一行上的F12键，注意：F12是一个键 4. 在菜单项“查询”和“数据备份”之间插入分组线。\- 注意：很多人敲成/-，实不应该 5. 为“数据备份”菜单项设置过程代码：在“结果”中选择“过程”，点“创建”或“修改”按钮，在弹出的“过程”界面中，输入代码即可。 d=GETFILE(dbf,*.dbf) USE d COPY TO bf1 四、设计表单(10分) 表单F101A用于统计输入文本中各类字符的个数。按下列要求修改表单，修改后表单运行时如图2所示。 1．修改表单的有关属性，使表单的标题Caption为“字符数统计”，并设置字数统计的三个文本框禁用Enabled .F.。 2．适当加大Shape1形状的高度，在其区域内增加一个标签控什LabelSum(注意：这里要将标签的name属性改为LabelSum)和一个文本框控件Text4(注意：这里要留意文本框的name属性是不是Text4，如果不是请改为Text4)，并设置Labe1Sum的标题Caption为“总字符数：”。 3．编写“清空”按钮的Click事件代码，用2条语句实现如下功能：(1)清除编辑框Editl中的文本；(2)使“字数统计”矩形区域内的4个文本框的值均置零。 双击“清空”按钮，在弹出的窗口中（留意是否是Click过程，如果不是选择Click，如果搞错地方，即使写对也是0分本题），输入代码： Thisform.Edit1.Value=’’ 等号后是一对引号，单引号双引号都可以，表示空字符串 Thisform.SetAll(‘Value’,0,’TextBox’) 4