MIN(YEAR(DATE())-YEAR(CSRQ)) AS 最小年龄; FROM jxsj!js INNER JOIN jxsj!whcd ; ON Js.whcd = Whcd.dm;
GROUP BY Js.zc, Whcd.mc; 或 GROUP BY Js.zc, 2; ORDER BY Js.zc, Whcd.mc 或 ORDER BY Js.zc, 2; 三、 设计菜单 命令/过程： 四、 题号 1 设计表单 对象名 Form1 属性/事件/方法名 Caption AutoCenter Icon 2 3 4 Mzw Form1 Mzw Caption DataEnvironment Interactivechange 属性值/代码 代码表 .t. pc.ico 民族(\\ 第10行改为：IF m>c(t) 第15行改为：ENDFOR 参考答案 VFP02 一、 项目、数据库和表操作 字段有效性规则：YEAR(csrq)>=1980 索引表达式 abcd STR(YEAR(DATE())-YEAR(csrq))+xb 更新触发器：删除触发器 .F. 二、 设计查询 SELECT Js.zc AS 职称, Zzmm.mc AS 政治面貌名称, COUNT(*) AS 人数,; AVG(YEAR(DATE())-YEAR(CSRQ)) AS 平均年龄; FROM jxsj!js INNER JOIN jxsj!zzmm ; ON Js.zzmm = Zzmm.dm; GROUP BY Js.zc, Js.zzmm; ORDER BY Js.zc, Zzmm.mc 三、 设计菜单 15 命令/过程： exeFile=GETFILE(\RUN/N &exeFile 四、 题号 1 2 3 4 5 四、设计表单 对象名 Form1 grdmz Form1 Label1 Combo1 属性/事件/方法名 Caption DeleteMark ScrollBars DataEnvironment Caption Style RowSource RowSourceType InteractiveChange 属性值/代码 代码表 .f. 2 Zzmm whcd 选择类型 2 民族，政治面貌，文化程度 值 DO CASE CASE THIS.Value=\民族\ c=\ CASE THIS.Value=\政治面貌\ c=\ CASE THIS.Value=\文化程度\ c=\ENDCASE THISFORM.Grdmz.RecordSource=c 五、 程序改错 第9行改为：？？ 第16行改为：+STR(Mmax) 参考答案 VFP03 一、 项目、数据库和表操作 输入掩码 AXXX 字段有效性规则：LEFT(bh1,1)=LEFT(bh2,1) 索引表达式 xh desc 更新触发器：VAL(LEFT(cbnf,4))<2000 或 cbnf<’2000’ 参照完整性规则：更新级联 二、 设计查询 SELECT Kcap.bjbh AS 班级编号, COUNT(*) AS 开课门数,; SUM(KSS) AS 总课时数; FROM jxsj!kcap INNER JOIN jxsj!kc ; ON Kcap.kcdm = Kc.kcdm; WHERE Kcap.xqbm = \学年第1学期\ GROUP BY Kcap.bjbh; ORDER BY Kcap.bjbh 三、 设计菜单 命令/过程：_SCREEN.BackColr=RGB(255,255,255) 16 四、 题号 1 设计表单 对象名 Form1 属性/事件/方法名 Autocenter Borderstyle Caption 属性值/代码 .T. 2 查询 mz ‘Lmz’ 所有民族 js SET FILTER TO js.mzdm=x THISFORM.Lmz.CAPTION=mz.mc THISFORM.Usermethod() REPORT FORM rtest PREVIEW 2 3 3 4 5 Combo1 Label1 Grid1 Form1 Combo1 RowSource Name Caption RecordSource UserMethod InteractiveChange 6 Command1 Click 五、 程序改错 第5行改为：LEN(c)>0 第16行改为：SUBSTR(c,2) 参考答案 VFP04 一、 项目、数据库和表操作 默认值：DATE() 有效性规则：kpsl<=xssl 索引表达式：DTOC(rq,1)+BH 触发器：ISBN='IS' 或 Left(ISBN,2)=\ 二、 设计查询 SELECT Kcap.xqbm AS 学期编码, COUNT(*) AS 开课门数,; SUM(KSS) AS 总课时数; FROM jxsj!kcap INNER JOIN jxsj!kc ; ON Kcap.kcdm = Kc.kcdm; WHERE Kcap.bjbh = \ GROUP BY Kcap.xqbm; ORDER BY Kcap.xqbm 三、 设计菜单 命令/过程：do form ? 四、 题号 1 2 3 4 设计表单 对象名 Form1 Combo1 Grid1 Tmz 属性/事件/方法名 AutoCenter RowSource RecordSourceType RecordSource Name 属性值/代码 .T. mz 4 SELECT gh,xm FROM js INTO CURSOR temp Tmz 17 Value Enabled Combo1 5 InteractiveChange 所有民族 .F. THISFORM.Tmz.Value=mz.mc THISFORM.Grid1.RecordSource=\gh,xm FROM js WHERE mzdm=THIS.Value INTO CURSOR temp\退出(\\ 第12行改为：c=SUBS(c,3) 参考答案 VFP05 一、 项目、数据库和表操作 字段格式：！ 字段有效性规则：jyrq<=DATE() 或 DATE()-jyrq>=0 或jyrq-DATE()<=0 索引表达式：xh+DTOC(jyrq,1) 触发器：dj<=30 或 dj-30<=0 二、设计查询 SELECT Kc.kcdm, Kc.kcmc, COUNT(*) AS 学习人数, AVG(CJ.CJ) AS 平均分; FROM jxsj!kc INNER JOIN jxsj!cj ; ON Kc.kcdm = Cj.kcdm; GROUP BY Kc.kcdm; HAVING 平均分 >= 75; ORDER BY 4 DESC 三、设计菜单 命令/过程： 四、设计表单 题号 1 对象名 Form1 属性/事件/方法名 MaxButton MinButton Icon 2 3 4 5 Combo2 Grid1 Form1 命令按钮 InteractiveChange事件 DeleteMark ScrollBar ForSave Caption Click 五、程序改错 第4行改为：FOR j=1 TO i-1 第9行改为：FOR i=1 TO 3000 属性值/代码 .F. .F. .\\pc.ico SET FILTER TO kcdm=x .F. 2 COPY TO &cFile XLS 保存(\\ 一、 项目、数据库和表操作 18 有效性规则：hsrq>=jyrq 或 jyrq<=hsrq 或hsrq-jyrq>=0 或jyrq-hsrq<=0 默认值：DATE() 索引表达式：xh+STR(hsrq-jyrq) 更新触发器：cj>=0 AND cj<=100 | BETWEEN(cj,0,100) 修改数据：update js set gl=year(date())-year(gzrq) 二、 设计查询 SELECT Kc.kcdm, Kc.kcmc, AVG(CJ.CJ) AS 平均分; FROM jxsj!kc LEFT OUTER JOIN jxsj!cj ; ON Kc.kcdm = Cj.kcdm; GROUP BY Kc.kcdm; ORDER BY 3 DESC, Kc.kcdm 三、 设计菜单 命令/过程：SELECT * FROM kc 四、 题号 1 2 设计表单 对象名 Form1 List1 属性/事件/方法名 Caption AutoCenter Name Height Width 3 4 Grid1 DisplayTS方法 AutoSize Click Command1 Caption 属性值/代码 查看表结构 .T. List1 200 260 THISFORM.List1.ADDITEM(cItem) 选择数据库表(\\ 第 3行改为：FOR i=1 to LEN(c) 第11行改为：WAIT WINDOW c+\密码为\ 参考答案 VFP07 一、 项目、数据库和表操作 字段有效性规则：.NOT.EMPTY(zgld).AND.!ISNULL(zgld) 字段格式：!A 索引表达式: bmlb+bmbh 更新触发器：xqbm=\学年第2学期 \ 二、 设计查询 SELECT Cj.xh AS 学号, SUM(IIF(Cj.cj=>60,xf,0)) AS 总学分,; COUNT(*) AS 课程门数; FROM jxsj!kc INNER JOIN jxsj!cj ; ON Kc.kcdm = Cj.kcdm; GROUP BY Cj.xh; ORDER BY 2 DESC, Cj.xh 19