02单选、微调、计时.docVIP

选项按钮组 一、设计表单PLUS01.SCX 1、在TEXT1中输入一个数，在选项按钮组OPTIONGROUP1中选择“加上”或“减去”，按“等于”命令按钮，在TEXT3中显示运算结果； 2、若结果为负数，则以红色显示，否则以蓝色显示。 要点： 将三个文本框的VALUE属性设为0，确保文本框的VALUE值为数值型； 将选项按钮组的VALUE属性设为=[加上]，运行表单时默认选中第一项； 编写“等于”命令按钮的CLICK事件代码 IF THISFORM.OPTIONGROUP1.VALUE=[加上] THISFORM.TEXT3.VALUE=THISFORM.TEXT1.VALUE+THISFORM.TEXT2.VALUE ENDIF IF THISFORM.OPTIONGROUP1.VALUE=[减去] THISFORM.TEXT3.VALUE=THISFORM.TEXT1.VALUE-THISFORM.TEXT2.VALUE ENDIF IF THISFORM.TEXT3.VALUE0 THISFORM.TEXT3.FORECOLOR=RGB(255,0,0) ELSE THISFORM.TEXT3.FORECOLOR=RGB(0,0,255) ENDIF 二、设计表单MULTIPLUS.SCX 1、 在TEXT1中输入一个数，利用选项按钮组选择“乘以”或“除以”，在TEXT2中输入另一个数，按“等于”命令按钮，在TEXT3中显示运算结果； 2、如果选择“除以“，且TEXT2中为0，则在TEXT3中显示“错误”。 要点： 将文本框TEXT1，TEXT2的VALUE属性设为0（数值型），则TEXT3的VALUE属性不做设置（字符型）； 编写“等于”命令按钮的CLICK事件代码 IF THISFORM.OPTIONGROUP1.VALUE=1 THISFORM.TEXT3.VALUE=STR(THISFORM.TEXT1.VALUE*THISFORM.TEXT2.VALUE,6,2) ENDIF IF THISFORM.OPTIONGROUP1.VALUE=2 IF THISFORM.TEXT2.VALUE=0 THISFORM.TEXT3.VALUE=错误 ELSE THISFORM.TEXT3.VALUE=STR(THISFORM.TEXT1.VALUE/THISFORM.TEXT2.VALUE,5,2) ENDIF ENDIF 说明：选项按钮组的VALUE属性可以是字符型，也可以是数值型：初值为字符串就是字符型，初值为数值就是数值型。 三、将上面的两个例子中的选项按钮组改为组合框实现相同的功能 四、设计表单DCNTSJ.SCX，利用JSGL数据库（其中DDM表存放系信息，TEACH表存放教师信息），实现按系统计教师人数。 要点： 将文本框的VALUE属性设为0，确保文本框的VALUE值为数值型； “统计”按钮的CLICK事件代码： DO CASE CASE THISFORM.OPTIONGROUP1.VALUE=电子 XH1=01 CASE THISFORM.OPTIONGROUP1.VALUE=计算机 XH1=02 CASE THISFORM.OPTIONGROUP1.VALUE=机械 XH1=03 ENDCASE THISFORM.LABEL1.CAPTION=THISFORM. OPTIONGROUP1.VALUE+系教师人数 SELECT COUNT(*) FROM TEACH WHERE 系号=XH1 INTO ARRAY X THISFORM.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的形状改为圆形（CURVATURE=99） “更新”按钮的click事件代码如下： r=thisform.spinner1.value g=thisform.spinner2.value b=thisform.spinner3.value thisform.shape1.backcolor=rgb(r,g,b) do case case r=255 and g=0 and b=0 thisform.shape1.curvature=0 case r=0 a