表单程序设计举例.ppt

表单程序设计举例 4）在标签左下方建立含3个按钮的命令组，指定命令按钮组的Button Count值为3，Auto Size值设为.T.，三个按钮的Caption依次为下一个，上一个和退出。命令按钮组的Click事件代码为： SELECT 教师 DO CASE CASE THIS.VALUE=1 IF .NOT.EOF() SKIP ENDIF THISFORMSET.REFRESH CASE THIS.VALUE=2 IF .NOT.BOF() SKIP -1 ENDIF THISFORMSET.REFRESH CASE THIS.VALUE=3 RELEASE THISFORMSET ENDCASE 5）在表单右下方先后建立两个复选框Check，上面一个复选框的CAPTION为钭体，字号为12磅，Font Italic设为.T.(即设为钭体)，第二个复选框的CAPTION为粗体，字号为12磅，Font Bold设为.T.(即为粗体)。钭体复选框的CLICK事件代码为： THISFORMSET.FORM1.TEXT1.FONTITALIC=THIS.VALUE THISFORMSET.FORM1.TEXT2.FONTITALIC=THIS.VALUE THISFORMSET.FORM1.LABEL1.FONTITALIC=THIS.VALUE THISFORMSET.FORM1.LABEL2.FONTITALIC=THIS.VALUE 粗体复选框的CLICK事件代码为： THISFORMSET.FORM1.TEXT1.FONTBOLD=THIS.VALUE THISFORMSET.FORM1.TEXT2.FONTBOLD=THIS.VALUE THISFORMSET.FORM1.LABEL1.FONTBOLD=THIS.VALUE THISFORMSET.FORM1.LABEL2.FONTBOLD=THIS.VALUE 6）在复选框下建立一个微调控制按钮Spinner，指定微调区间Keyboard High Value值为22，Keyboard Low Value值为8，Spinner High Value值为22，Spinner Low Value值为8，Increment值为2，即微调的值范围为8至22，每次调整量为增减2。指定输入输出格式Format与Input Mast属性值为99（即两位数）。Value值为12。指定Down Click（即按下向下箭头时）、Up Click（即按下向上箭头时）和Lost Focus（失去焦点，即由键盘输入值并按回车）的事件代码设定为： THISFORMSET.FORM1.TEXT1.FONTSIZE=THIS.VALUE THISFORMSET.FORM1.TEXT2.FONTSIZE=THIS.VALUE THISFORMSET.FORM1.LABEL1.FONTSIZE=THIS.VALUE THISFORMSET.FORM1.LABEL2.FONTSIZE=THIS.VALUE THISFORMSET.REFRESH 7）在微调控制按钮的后面加上一个标签，内容是“字号”，字号12号。在下方加一个命令按钮，CAPTION属性为“隐藏任课表单”，这个命令按钮的CLICK事件代码为： IF THISFORMSET.FORM2.VISIBLE THISFORMSET.FORM2.HIDE THIS.CAPTION=‘显示任课表单’ ELSE THISFORMSET.FORM2.SHOW THIS.CAPTION=‘隐藏任课表单’ ENDIF 8）选择“表单”菜单中的“创建表单集”选项，再选择“表单”菜单中的“新建表单”选项，建立右表单FORM2，指定CAPTION为“任课”，背景选为浅兰色。将数据环境中的本地视图JSKCB的表头拖到新表单中，指定表格GRID的列数Column Count值为2，指定表格第一、二列字段名，即Column1的Control Source值为“KCH”， Column2的Control Source值为“KCM”，列标题Header的Caption值分别为“课程号”与“课程名