搜索
设计一：提示：1.container1外观效果——specialeffect属（1）2.命令按钮组个数——Buttoncount（3）提示：1.组合框的数据源类型——RowsourceType（1），在Rowsource输入——年，月，日（不用加“”）；或者也可以使用组合框的生成器设置2.命令按钮组个数——Buttoncount（2），将Command2初始设为不可用即将Command2得Enabled属性设置为.F.提示：1.表单的运行时自动居中——Autocenter（.T.）2.页框个数——Pagecount（3）3.要在第二页中增加Command1按钮，请从属性窗口中先选中Page2,在使用表单控件工具栏添加相应的控件提示：1.container1外观效果——specialeffect（0）2.要在容器页中增加Command1与text各控件，请从属性窗口中先选中Container1,再使用表单控件工具栏添加相应的控件3.text2中密码以占位符“*”显示——passwordchar（*）提示：1.列表框的数据源类型——Rowsourcetype（6），数据源设置使用列表框的生成器，在生成器把country.DBF的国家名称与国家代码加入2.标签根据标题的长度自动调整标签大小——autosize（.T.）设计二：在显示按钮的CLICK事件中编写代码如下：Dimex(1)x(1)=0thisform.grid1.recordsource=selectrcda.人才编号,姓名,成果名称fromrcda,cjdawherercda.人才编号=cjda.人才编号and成果类别=thisform.combo1.valueintocursortmpselectcount(*)fromcjdawhere成果类别=thisform.combo1.valueintoarrayxthisform.text1.value=x(1)thisform.refresh提示：1从数据工作期窗口打开ORDERS.DBF，点击浏览查看其字段等信息2．按照题目要求和相应信息，编写代码如下ifthisform.optiongroup1.value=1thisform.grid1.recordsource=select客户号,count(*)as订单数,avg(金额)as平均金额fromordersgroupby客户号intocursortmpelsethisform.grid1.recordsource=select职员号,count(*)as订单数,avg(金额)as平均金额fromordersgroupby职员号intocursortmpendifthisform.refresh组合框Interactivechange的事件代码如下：DIMEx(1),y(1),z(1)x(1)=0y(1)=0z(1)=0thisform.grid1.recordsource=select*fromgradewhere课程号=thisform.combo1.valueintocursortmpselectcount(*)fromgradewhere课程号=thisform.combo1.valueand成绩=85intoarrayxthisform.text1.value=x(1)selectcount(*)fromgradewhere课程号=thisform.combo1.valueand成绩=60and成绩=84intoarrayythisform.text2.value=y(1)selectcount(*)fromgradewhere课程号=thisform.combo1.valueand成绩60intoarrayzthisform.text3.value=z(1)(题目无法打开，好象往年有该题，大家自己整理，答案与课本例子8.6类似)请在组合框的click事件编写代码如下：dimex(1)x(1)=0thisform.list1.rowsource=selectTeach1.姓名,Teach1.系名,Teach1.基本工资fromDdm1,Teach1whereDdm1.系号=Teach1.系号and性别=thisform.combo1.valueintocursortmpifthisform.check1.value=1selectsum(基本工资)fromfromDdm1,Teach1whereDdm1.系号=Teach1.系号and性别=thisform.combo1.valueintoarrayxthisform.text1.value=x(1)elsethisform.text1.value=’’endif设计三：在计算按钮的CLICK事件编写代码如下：x=alltrim(str(thisform.text1.value))if(len(x)=3)thisform.text2.value=val(substr(x,1,1))+val(substr(x,2,1))+val(substr(x,3,1))elsethisform.text2.value=输入有误endif方法一：在“计算”按钮的click事件编写代码如下x=thisform.text1.valueifx5y=cos(x)-2endififx=5andx=-5y=(2+abs(x))/5endififx-5y=2*x-3endifthisform.text2.value=y方法二：在“计算”按钮的click事件编写代码如下x=thisform.text1.valuedocasecasex5y=cos(x)-2casex=5andx=-5y=(2+abs(x))/5casex-5y=2*x-3endcasethisform.text2.value=ythisform.refresh方法一：thisform.text1.fontbold=thisform.check1.valuethisform.text1.fontitalic=thisform.check2.valuethisform.text1.fontunderline=thisform.check3.value方法二：Ifthisform.check1.value=1thisform.text1.fontbold=.t.elsethisform.text1.fontbold=.f.endifIfthisform.check2.value=1thisform.text1.fontitalic=.t.elsethisform.text1.fontitalic=.f.endifIfthisform.check3.value=1thisform.text1.fontunderline=.t.elsethisform.text1.fontunderline=.f.endif说明：如果不知道某个控件的属性名，可以打开该控件的属性窗口找到对应的属性正确的属性名会呈现蓝色，如果呈现黑色说明拼写错误Je=thisform.text1.value*thisform.text2.value+thisform.text3.value*thisform.text4.valueIfJe800Je=Je*0.9thisform.text5.value=round(Je,0)ELSEthisform.text5.value=round(Je,0)ENDIFTHISFORM.REFRESH在List1的InteractiveChange事件中编写代码如下：DIMEX(1),Y(1)X(1)=0Y(1)=0select歌手编号fromGsbwhere歌手姓名=ALLtrim(thisform.list1.value)intoarrayxthisform.list2.rowsource=SELECT评委编号,分数FROMPFBWHERE歌手编号=X(1)intocursortmpSELECTAVG(分数)FROMpfbWHERE歌手编号=x(1)intoarrayythisform.text1.value=y(1)方法一：n=thisform.text1.valueifn0orn100thisform.text2.value=非法数据elseifn=85thisform.text2.value=优秀endififn=60andn85thisform.text2.value=合格endififn60thisform.text2.value=不合格endifendif方法二：n=thisform.text1.valuedocasecasen=85thisform.text2.value=优秀casen=60andn85thisform.text2.value=合格casen=0andn60thisform.text2.value=不合格otherwisethisform.text2.value=非法数据endcasethisform.refresh