VFP08Q上机参考答案

《VFP08Q上机参考答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VFP08Q上机参考答案VFP01一、项目、数据库和表操作1、（2）格式：T（3）记录有效性规则：JG

2、设计菜单3、SELECT-SQL命令：SELCTZC,COUNT(*)ASRSFROMJSGROUPBYZC四、设计表单1、caption、icon2、deletemark、scrollbars3、click事件代码：n=this.valuethisform.xxx五、程序改错第十二行改为：c(k)=c(k-1)第十八行改为：ENDFORVFP02一、项目、数据库和表操作1、usedmbcopytoabforlx=’民族’选择数据库表，点击“添加”，选择ab表（3）格式：T（4）索引类型：唯一索引、

3、索引表达式：dm3、updatejssetbz=’青年教师’whereyear(date())-year(csrq)<=35二、设计查询SELECTWhcd.mc,Js.xb,count(*)asRS;FROMjxsj!jsINNERJOINjxsj!whcd;ONJs.whcd=Whcd.dm;WHEREYEAR(DATE())-YEAR(Js.csrq)<=45;GROUPBYJs.whcd,Js.xb;ORDERBYWhcd.mc,Js.xb三、设计菜单3、SELECT-SQL命令：SELCT

4、XB,COUNT(*)ASRSFROMJSGROUPBYXB四、设计表单1、Caption、BackColor、AutoCenter2、DeleteMark、GridLines4、Click事件代码：……thisform.label1.caption=cj.xh五、程序改错第九行改为：FORj=nTOi+1STEP-1第十八行改为：LOOPVFP03一、项目、数据库和表操作1、usedmbcopytoabforlx=’文化程度’选择数据库表，点击“添加”，选择ab表（3）格式：T（4）索引类型：唯一

5、索引、索引表达式：whcd3、updatejssetbz=’老教师’whereyear(date())-year(csrq)>=55二、设计查询SELECTYxzy.yxmc,count(*)asRS,SUM(IIF(ZC='教授',1,0))ASJSRS;FROMjxsj!jsINNERJOINjxsj!yxzy;ONJs.yxzydm=Yxzy.yxzydm;GROUPBYYxzy.yxzydm;HAVINGSUM(IIF(Js.zc='教授',1,0))/COUNT(*)>=0.2;ORDER

6、BY3DESC三、设计菜单3、命令：dochaxun.qpr四、设计表单1、AutoCenter6、Click事件代码：c=THIS.VALUETHISFORM.GRID1.RECORDSOURCE=CTHISFORM.LABEL1.CAPTION=c+"表浏览"五、程序改错第九行改为：IFASC('Str1')>127第十一行改为：ELSEVFP04一、项目、数据库和表操作1、（2）记录有效性规则：BMRQ

7、：LEFT(BJBH,2)=SUBSTR(DTOC(RXRQ,1),3,2)3、updatexssetzzy=.T.whereyxzydm!=substr(xh,3,4)二、设计查询SELECTYxzy.yxmc,count(*)asRS,SUM(IIF(Js.xb='男',1,0))ASNANRS;FROMjxsj!jsINNERJOINjxsj!yxzy;ONJs.yxzydm=Yxzy.yxzydm;GROUPBYYxzy.yxzydm;ORDERBY3DESC;TOFILEtemp.txt三

8、、设计菜单3、命令：repartformRTESTpreview四、设计表单2、AutoCenter、Height、Width3、PassWordChar4、Click事件代码：IFThisform.text1.Value='ABC'=MESSAGEBOX('OK!')ELSE=MESSAGEBOX('口令不正确!')ENDIF一、程序改错第十四行改为：m2=m2+VAL(SUBSTR(c2,j,1))*2**(-j)第十七行改为：?'二进制数'+cstr+'十进制表