vfp表单.docVIP

Dimension x(1) X(1)=0 Thisform.list2.rowsource=’select p.评委编号,p.分数 from gsb g ,pfb p where g.歌手编号=p.歌手编号 and g.歌手姓名=this.value into cursor temp’ Select avg(分数) from temp into array x Thisform.text1.value=x(1) 2 求一个三位正整数的各位数字之和，若输入的整数小于100或大于999，则显示“输入有误”567 x=thisform.text1.value if x100 or x=999 thisform.text2.value=输入有误 else x1=val(substr(alltrim(str(x)),1,1)) x2=val(substr(alltrim(str(x)),2,1)) x3=val(substr(alltrim(str(x)),3,1)) thisform.text2.value=x1+x2+x3 endif x1=int(x/100) x2=int(x%100/10) x3=x-x1*100-x2*10 x=thisform.text1.value*thisform.text2.value+thisform.text3.value*thisform.text4.value if x800 x=round(x*0.9,0) else x=round(x,0) endif thisform.text5.value=x Dimension x(1) X(1)=0 Thisform.grid1.recordsource=select c.人才编号,r.姓名,c.成果名称 from cjda c ,rcda r where c.人才编号=r.人才编号 and c.成果类别=bo1.value into cursor temp Select count(*) from temp into array x Thisform.text1.value=x(1) if thisform.optiongroup1.value=1 thisform.grid1.recordsource=select 客户号,count(订单号),avg(金额) from orders group by 订单号 into cursor temp else if thisform.optiongroup1.value=2 thisform.grid1.recordsource=select 职员号,count(订单号),avg(金额) from orders group by 订单号 into cursor temp endif endif if thisform.check1.value=1 thisform.text1.fontbold=.t. else thisform.text1.fontbold=.f. endif if thisform.check2.value=1 thisform.text1.fontitalic=.t. else thisform.text1.fontitalic=.f. endif if thisform.check3.value=1 thisform.text1.fontunderline=.t. else thisform.text1.fontunderline=.f. endif x=Thisform.text1.value do case case x5 y=cos(x)-2 case x=-5 and x=5 y=(2+abs(x))/5 case x-5 y=2*x-3 endcase Thisform.text2.value=y Dimension x(1) X(1)=0 Thisform.list1.rowsource=select t.教师名,d.系名,t.基本工资 from teach1 t ,ddm1 d where t.系号=d.系号 and t.性别=this.value into cursor temp if Thisform.check1.value=1 Select sum(基本工资) from temp into array x Thisform.text1.value=x(1) else Thisform.text1.value= endif Dimension x(1),y(1),z(1) X(1)=0 y(1)=0 z(1)=0 Thisform.grid1.recordsource=select 学号,课程号,成绩