2005au-2006sp Vfp01-03答案.doc

2005au Vfp01: ? 一、项目、数据库和表操作（12分） 1. 按以下要求修改SJK数据库中TS表： （1） 表设计器――＂表＂选项卡――表名。 （2） 略。 （3） 格式：! （4）索引名：abcd；类型：普通索引；索引表达式：flh+sm。 （5）有效性规则：jg=1；有效性说明信息：”价格不能小于1”。 （6） REPLACE ALL ts.zz WITH alltrim(zz)+等。 2. 略。 3. 数据库设计器――参照完整性生成器――插入限制。 二、 设计查询（8分） SELECT Xs.xdh, Xs.xh, Xs.xm, avg(cj) as 平均成绩; FROM sjk!xs INNER JOIN sjk!cj ; ON Xs.xh = Cj.xh; WHERE Xs.xdh = (select xdh from xs where xm=刘玉敏); 此处用=与in结果一致. GROUP BY Xs.xh; ORDER BY Xs.xm ? 三、 设计菜单（5分） 1、 略； 2、 菜单设计器――确定插入位置――插入栏――插入系统采单项“退出”； 3、命令：SELECT Kc.kcdh, Kc.kcm, AVG(Cj.cj) AS 平均成绩 FROM sjk!kc INNER JOIN sjk!cj ON Kc.kcdh = Cj.kcdh。 ? 四、 设计表单（10分） ????1、 ENABLED=.F.；CONTROLSOURCE=pUserName。 ????2、 PASSWORDCHAR：# ????3、 略； 4、 THISFORM.TXTNEWPWD1.VALUE=”” THISFORM.TXTNEWPWD2.VALUE=”” ????5、pPassWord=THISFORM.TEXTNEWPWD1.VALUE。 ? 五、 程序改错题（5分） CLEAR nCount=0 FOR n1=1 TO 1000 m=0 FOR n2=1 TO n1-1 IF mod(n1,n2)=0 或n1/n2=int(n1/n2) m=m+n2 ENDIF ENDfor ? IF n1=m ?n1 nCount=nCount+1 ENDIF ENDFOR ? WAIT WINDOWS完整的个数为+STR(nCount) ? ? ? 2005au Vfp02: 一、项目、数据库和表操作（12分） 1. 按以下要求修改SJK数据库中TS表： （1） 略。 （2） 通用型。 （3） 略。 （4） 表设计器--字段选项卡—显示类：Spinner(微调控件)。 （5）索引名：abcd；类型：普通索引；索引表达式：len(alltrim(sm))。 （6）规则：len(alltrim(sm))!=0，信息：“书名不能为空”。 （7） insert into ts(flh,sm,zz) values (“TP31.15”,” Visual FoxPro实验指导”,” 崔建忠等”) 2、 略。 3、数据库设计器――参照完整性生成器――删除限制。 ? 二、 设计查询（8分） SELECT Xs.bjbh, Xs.xh, Xs.xm, count(*) as 借阅本数, Xs.xb,; str(sum(iif(hsrq-jyrq30,1,0)) * 0.05,10,2) as 罚款数; FROM sjk!xs INNER JOIN sjk!xsjy ; ON Xs.xh = Xsjy.xh; GROUP BY Xs.bjbh, Xs.xb; ORDER BY Xs.bjbh, Xs.xh 三、 设计菜单（5分） 1、 略； 2、 quit； 3、 if used(xs) then select xs else use xs in 0 endif browse ? ? 四、 设计表单（10分） 1、??? Windowtype： 1-模式 Backcolor： 255,255,255 Autocenter： .t. ????2、 enabled：.f. ????3、 image ????4、 if Thisform.txtNewA.Value=Thisform.txtNewB.Value thisform.cmdok