VFP平时上机练习题(电子版)参考答案

1 一、项目、数据库和表操作 （一） 1． （2）表的有效性规则：xsj < = 1.2 * cbj 或 xsj < = cbj *1.2 （3）设置BH字段的格式码：T （4）创建一个主索引，索引标识：abcd 索引类型：主索引 索引表达式：bh 2．设置js表的插入触发器的表达式：LEN ( ALLTRIM ( gh ) ) = 6 3． REPLACE bz WITH "学科带头人" FOR zc = "教授" UPDATE js SET bz = "学科带头人" WHERE zc = "教授"

（二） 1． （3）设置字段csrq的有效性规则： csrq > = {^1980-01-01} 或 csrq > {^1979-12-31} 或 Year(csrq)>=1980 （4）索引表达式：STR ( YEAR ( DATE ( ) )–YEAR ( csrq ) ) + xm 2．设置js表的删除触发器的表达式：.F. 3． REPLACE ALL bz WITH "一本招生" ； FOR LEFT ( yxzydm , 2 ) = "11" UPDATE yxzy SET bz = "一本招生" ； WHERE SUBSTR ( yxzydm , 1 , 2 ) = "11" 注：在SET EXACT OFF 的设置下，条件表达式可以是：yxzydm = "11"

（三） 1． （2）设置BH1的输入掩码为：AXXX 或 A999 （3）设置字段BH1的有效性规则：LEFT ( BH1 , 1 ) = LEFT ( BH2 , 1 ) （4）索引表达式：BH1+xh 2．设置jc表的删除触发器的表达式：left ( cbnf ,4) < „2000‟ 3．UPDATE cj SET bz = "选修" WHERE kcdm = "9501" 2

（四） 1． （2）设置rq字段的默认值：DATE ( ) （3）设置表的有效性规则：kpsl < = xssl 或 xxsl>=kpsl （4）索引表达式：DTOC ( rq , 1 ) + bh 或 DTOS(rq)+bh 2．设置jc表的插入触发器的表达式：SUBSTR ( isbn , 1 , 2 ) = "IS" 或 isbn=“IS” 或 left(isbn，2)=“IS” 3．UPDATE cj SET pscj = 85

二、设计查询 （一） （1）添加表：kcap , kc 以kcdm作为联接条件 （2）输出字段： Kcap.xqbm AS 学期编码 ， COUNT( * ) AS 开课门数 SUM( Kc.kss ) AS 总课时数 （3）分组依据：Kcap.xqbm （4）排序依据：Kcap.xqbm （5）SELECT—SQL语句： SELECT Kcap.xqbm AS 学期编码 , COUNT( * ) AS 开课门数 , ; SUM( Kc.kss ) AS 总课时数 ; FROM jxsj!kcap INNER JOIN jxsj!kc ; ON Kcap.kcdm = Kc.kcdm ; WHERE Kcap.bjbh = "040202" ; GROUP BY Kcap.xqbm ; ORDER BY Kcap.xqbm

（二） （1）添加表：kcap , kc 以kcdm作为联接条件 （2）输出字段： Kcap.bjbh AS 班级编号 ， COUNT( * ) AS 开课门数 SUM( Kc.kss ) AS 总课时数 3

（3）分组依据：Kcap.bjbh （4）排序依据：Kcap.bjbh （5）SQL语句： SELECT Kcap.bjbh AS 班级编号 , COUNT( * ) AS 开课门数 , ; SUM( Kc.kss ) AS 总课时数 ; FROM jxsj!kcap INNER JOIN jxsj!kc ; ON Kcap.kcdm = Kc.kcdm ; WHERE Kcap.xqbm = "2004-2005学年第1学期" ; GROUP BY Kcap.bjbh ; ORDER BY Kcap.bjbh

（三） （1）添加表： zzmm视图 , js表 以Zzmm.dm和Js.zzmm作为联接条件 （2）输出字段： Js.zc AS 职称 ， Zzmm.mc AS 政治面貌名称 COUNT( * ) AS 人数 ， AVG( YEAR( DATE( ) ) – YEAR( Js.csrq ) ) AS 平均年龄 （3）分组依据：Js.zc , Zzmm.mc （4）排序依据：Js.zc , Zzmm.mc （5）SQL语句： SELECT Js.zc AS 职称 , Zzmm.mc AS 政治面貌名称 , ; COUNT( * ) AS 人数 , ; AVG( YEAR( DATE( ) ) – YEAR( Js.csrq ) ) AS 平均年龄 ; FROM jxsj!zzmm INNER JOIN jxsj!js ; ON Zzmm.dm = Js.zzmm ; GROUP BY Js.zc , Zzmm.mc ; ORDER BY Js.zc , Zzmm.mc

（四） （1）添加表： whcd视图 , js表 以Whcd.dm和Js.whcd作为联接条件 （2）输出字段： Js.zc AS 职称 ， Whcd.mc AS 文化程度名称 4

COUNT( * ) AS 人数 ， MIN( YEAR( DATE( ) ) - YEAR( Js.csrq ) ) AS 最小年龄 （3）分组依据：Js.zc , Whcd.mc （4）排序依据：Js.zc , Whcd.mc （5）SQL语句： SELECT Js.zc AS 职称 , Whcd.mc AS 文化程度名称 , ; COUNT(*) AS 人数 , ; MIN( YEAR( DATE( ) ) - YEAR( Js.csrq ) ) AS 最小年龄 ; FROM jxsj!js INNER JOIN jxsj!whcd ; ON Js.whcd = Whcd.dm ; GROUP BY Js.zc , Whcd.mc ; ORDER BY Js.zc , Whcd.mc

三、设计菜单 （一） 1．“文件”菜单项名称为：文件 ( \ < F ) 2． 在“文件”菜单的子菜单中增加一个菜单项：打开 设置“打开”菜单项的结果为：子菜单 在“打开”菜单的子菜单中设置两个菜单项：数据库、表 设置“数据库”菜单项的“结果”列为“命令”，在其右侧的文本框中输入命令： OPEN DATABASE 3．在“文件”菜单的“打开”菜单项之后增加一个菜单项，在菜单名称中输入“\ –”

（二） 1．将“文件”菜单项改为：自定义 ( \ < C ) 2．打开VFP主菜单 显示 / 常规选项，在对话框中选择：在“文件”之前 3．略 4．在“还原”菜单的“结果”列中选择“命令”，在其右侧的的文本框输入： _SCREEN.BackColor=RGB(255,255,255)

（三） 5

2．打开VFP主菜单 显示 / 常规选项，在对话框中选择：追加 5．在“运行外部EXE程序”菜单项的“结果”列中选择：过程。再点击右侧的按钮，打开“过程”代码的编辑窗口，将题给代码输入并保存。

（四） 2．“PRG程序”菜单项设置为：\ < PRG程序 其余略

四、设计表单 （一） 1． 表单的Caption属性：代码表 在数据环境中添加视图：zzmm和whcd 表格的DeleteMark属性：.F. ScrollBars属性：2 – 垂直 2． 标签的Caption属性：选择类型 组合框的Style属性：2（下拉列表框） 3． 下拉列表框的RowSourceType属性：1 – 值 下拉列表框的RowSource属性：民族 , 政治面貌 , 文化程度 4． 下拉列表框的InterActiveChange事件代码： DO CASE CASE This.Selected( 1 ) = .T. ThisForm.Grdmz.RecordSource = "mz" CASE This.Selected( 2 ) = .T. ThisForm.Grdmz.RecordSource = "zzmm" CASE This.Selected( 3 ) = .T. ThisForm.Grdmz.RecordSource = "whcd" ENDCASE 或 DO CASE 6

CASE This.value =“民族” ThisForm.Grdmz.RecordSource = "mz" CASE This.value = “政治面貌” ThisForm.Grdmz.RecordSource = "zzmm" CASE This.value = “文化程度” ThisForm.Grdmz.RecordSource = "whcd" ENDCASE

（二） 1． 表单的AutoCenter属性：.T. 2． 下拉列表框的RowSource属性：mz 3． 表格RecordSourceType属性：4 – SQL说明 表格RecordSource属性： SELECT gh , xm From js INTO CURSOR temp 4． 文本框的Name属性：Tmz 文本框的Value属性：所有民族 文本框的Enabled属性：.F. 5． 下拉列表框的InterActiveChange事件代码： ThisForm.Tmz.Value=mz.mc ThisForm.Grid1.RecordSource = "SELECT gh , xm FROM js ; WHERE mzdm = This.Value INTO CURSOR temp" 6． 命令按钮的Caption属性：退出( \ < X )

（三） 1． 表单的Caption属性：代码表