2009_10 学年第 1 学期 VFP 上机练习题参考答案(定稿) 上机练习题参考答案(定稿)
情况说明: 情况说明: 此答案经修改,确定为定稿。各位老师在给学生做辅导时以此答案为准,不要做一题多解的解析。 1. 此答案经修改,确定为定稿。各位老师在给学生做辅导时以此答案为准,不要做一题多解的解析。 各位老师在给学生做辅导时,请强调: (1 在编写菜单的命令或过程代码及控件的事件代码时, 2. 各位老师在给学生做辅导时,请强调: 1)在编写菜单的命令或过程代码及控件的事件代码时,代 ( 码中所引用的对象的属性名、方法名和事件名要写全名。 (2 在进行程序改错时, 码中所引用的对象的属性名、方法名和事件名要写全名。 2)在进行
程序改错时,除需要修改的两 ( 条语句外,其它语句必须完全按照给定的原代码输入,不得增减字符。 条语句外,其它语句必须完全按照给定的原代码输入,不得增减字符。 此答案不宜发给学生,以免学生死背答案,不认真进行上机操作练习。 3. 此答案不宜发给学生,以免学生死背答案,不认真进行上机操作练习。 2009 王维民 2009-12-11
一、项目、数据库和表操作 项目、数据库和表操作 (一)、 1. (2)MPH 字段的输入掩码:99X999 (3)SXP 字段的默认值: .T. (4)候选索引 abcd 的索引表达式:MPH+STR(CH) 或 MPH+STR(CH,1) 3.XS 表的删除触发器的表达式:XH=”04”或 LEFT(XH,2)=”04” (二) 、 1. (2)DH 字段的有效性规则:!EMPTY(dh) 或 NOT EMPTY(dh) 或 LEN(ALLTRIM(dh))>0 (3)DW 字段的默认值: “南京大学” (4)普通索引 abcd 的索引表达式:DZXM+DW 3.JS 表的删除触发器的表达式:YEAR(CSRQ)<=1949 (三) 、 1. (2)FLH 字段的有效性规则:!EMPTY(flh) 或 NOT EMPTY(flh) 或 LEN(ALLTRIM(flh))>0 (3)RKRQ 字段的默认值:DATE() (4)普通索引 abcd 的索引表达式:DOW(RKRQ)或 DOW(RKRQ,1) 3. JS 表的更新触发器的表达式:YEAR(CSRQ)<1949 (四) 、 1.(1)XB 字段的有效性规则:xb="男" OR xb="女" 或 xb$"男女" (2)SFZ 字段的输入掩码:999999999999999999 (3)创建普通索引 abcd 的索引表达式:xb+sfz 2.在打开 JXGL 的项目管理器后: ① 选择菜单命令:项目 / 项目信息 ② 在“项目信息”对话框中使“附加图标”复选框有效 ③ 在“打开”对话框中选择图标文件:PC.ICO ④ 鼠标单击“确认”按钮 3.将 XS 表和 JS 表设置为“包含”状态的步骤为: ① 在 JXGL 的项目管理器中鼠标右击 XS 表 (注:为十八个 9)
② 在弹出的快捷菜单中选择:包含 (JS 表的设置与上述步骤相同) 二、设计查询(注:查询设计中,输出字段的顺序一律按题目要求的顺序设置) 设计
查询 ( 查询
设计中,输出字段的顺序一律按题目要求的顺序设置) (一) 、 SELECT Zzmm.mc AS 政治面貌名称, Js.xb AS 性别, COUNT(*) AS 人数,; AVG(YEAR(DATE())-YEAR(csrq)) AS 平均年龄; FROM ON jxsj!js INNER JOIN jxsj!zzmm ; Js.zzmm = Zzmm.dm;
GROUP BY zzmm.mc(或 zzmm.dm), Js.xb; ORDER BY Zzmm.mc, Js.xb (二) 、 SELECT TOP 5 Jc.cbsmc AS 出版社名称, COUNT(*) AS 教材数; FROM jxsj!jc; WHERE Jc.cbnf >= "2000"(或 LEFT(Jc.cbnf,4)>="2000"); GROUP BY Jc.cbsmc; ORDER BY 2 DESC; TO FILE cbs.txt (三) 、 SELECT Js.whcd(或 Whcd.dm) AS 文化程度代码, Whcd.mc AS 文化程度名称,; MAX(YEAR(gzrq)-YEAR(csrq)) AS 最大开始工作年龄,; AVG(YEAR(gzrq)-YEAR(csrq)) AS 平均开始
工作年龄; FROM ON jxsj!js INNER JOIN jxsj!whcd ; Js.whcd = Whcd.dm;
GROUP BY Js.whcd(或 Whcd.dm); ORDER BY 3 DESC (四)、 SELECT IIF(js.mzdm="01","汉族 COUNT(*) AS 人数; FROM jxsj!js; GROUP BY 1; ORDER BY 1 DESC(或 ORDER BY 2); TO FILE mz.txt 三、设计菜单 (三) 3.“打印(P)”菜单项的跳过条件为:NOT DBUSED(“jxsj”)或!DBUSED(“jxsj”) "