单选、微调、计时

《单选、微调、计时》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、选项按钮组一、设计表单PLUS01.SCX1、在TEXT1中输入一个数，在选项按钮组OPTIONGROUP1中选择“加上”或“减去”，按“等于”命令按钮，在TEXT3中显示运算结果；2、若结果为负数，则以红色显示，否则以蓝色显示。要点：将三个文本框的VALUE属性设为0，确保文本框的VALUE值为数值型；将选项按钮组的VALUE属性设为=[加上]，运行表单时默认选中第一项；编写“等于”命令按钮的CLICK事件代码IFTHISFORM.OPTIONGROUP1.VALUE=[加上]THISFORM.TEXT3.VALUE=THISFORM.TEXT1.V

2、ALUE+THISFORM.TEXT2.VALUEENDIFIFTHISFORM.OPTIONGROUP1.VALUE=[减去]THISFORM.TEXT3.VALUE=THISFORM.TEXT1.VALUE-THISFORM.TEXT2.VALUEENDIFIFTHISFORM.TEXT3.VALUE<0THISFORM.TEXT3.FORECOLOR=RGB(255,0,0)ELSETHISFORM.TEXT3.FORECOLOR=RGB(0,0,255)ENDIF二、设计表单MULTIPLUS.SCX1、在TEXT1中输入一个数，利用选项按钮组

3、选择“乘以”或“除以”，在TEXT2中输入另一个数，按“等于”命令按钮，在TEXT3中显示运算结果；2、如果选择“除以“，且TEXT2中为0，则在TEXT3中显示“错误”。要点：将文本框TEXT1，TEXT2的VALUE属性设为0（数值型），则TEXT3的VALUE属性不做设置（字符型）；编写“等于”命令按钮的CLICK事件代码IFTHISFORM.OPTIONGROUP1.VALUE=1THISFORM.TEXT3.VALUE=STR(THISFORM.TEXT1.VALUE*THISFORM.TEXT2.VALUE,6,2)ENDIFIFTHISF

4、ORM.OPTIONGROUP1.VALUE=2IFTHISFORM.TEXT2.VALUE=0THISFORM.TEXT3.VALUE="错误"ELSETHISFORM.TEXT3.VALUE=STR(THISFORM.TEXT1.VALUE/THISFORM.TEXT2.VALUE,5,2)ENDIFENDIF说明：选项按钮组的VALUE属性可以是字符型，也可以是数值型：初值为字符串就是字符型，初值为数值就是数值型。三、将上面的两个例子中的选项按钮组改为组合框实现相同的功能四、设计表单DCNTSJ.SCX，利用JSGL数据库（其中DDM表存放系信息

5、，TEACH表存放教师信息），实现按系统计教师人数。要点：将文本框的VALUE属性设为0，确保文本框的VALUE值为数值型；“统计”按钮的CLICK事件代码：DOCASECASETHISFORM.OPTIONGROUP1.VALUE="电子"XH1="01"CASETHISFORM.OPTIONGROUP1.VALUE="计算机"XH1="02"CASETHISFORM.OPTIONGROUP1.VALUE="机械"XH1="03"ENDCASETHISFORM.LABEL1.CAPTION=THISFORM.OPTIONGROUP1.VALUE+'系

6、教师人数'SELECTCOUNT(*)FROMTEACHWHERE系号=XH1INTOARRAYXTHISFORM.TEXT1.VALUE=X(1)微调器一、设计表单XSYS.scx，运行界面如下图，编写“更新”按钮的CLICK代码，要求如下：1）将形状控件SHAPE1的颜色更新为三个微调按钮值所代表的颜色；2）若三个微调按钮值为255，0，0，将SHAPE1的形状改为正方形（CURVATURE=0）3）若三个微调按钮值为0，255，0，将SHAPE1的形状改为圆角正方形（CURVATURE=10）4）若三个微调按钮值为0，0，255，将SHAPE1的

7、形状改为圆形（CURVATURE=99）“更新”按钮的click事件代码如下：r=thisform.spinner1.valueg=thisform.spinner2.valueb=thisform.spinner3.valuethisform.shape1.backcolor=rgb(r,g,b)docasecaser=255andg=0andb=0thisform.shape1.curvature=0caser=0andg=255andb=0thisform.shape1.curvature=50caser=0andg=0andb=255thisf

8、orm.shape1.curvature=99endcase思考：若微调器的值超出0到255的