isform.label1.visible=.t. thisform.text1.visible=.t. thisform.label2.visible=.t. thisform.label2.caption="您所指定的学生并不存在!" endif thisform.refresh return .t. 第12题:根据要求,用表单设计器建立一个“按钮组调色板”表单(界面如图例所示)。
具体要求如下: 1. 表单的标题为“按钮组调色板”, 表单运行时,当按某个命令按钮后,表单的背景色就会变成 按钮指定的对应颜色。 参考答案: 1. 表单的标题属性Caption设置为“按钮组调色板”; 2. 命令按钮组Commandgroup1的Click事件代码: do case case this.value=1 thisform.backcolor=rgb(225,0,0) case this.value=2 thisform.backcolor=rgb(0,255,0) case this.value=3 thisform.backcolor=rgb(0,0,255) case this.value=4 thisform.backcolor=rgb(0,0,0) case this.value=5 thisform.backcolor=rgb(225,255,255) endcase thisform.refresh 第13题:根据要求,用表单
设计器建立一个“按钮组调色板”表单(界面如图例所示)。
具体要求如下: 1.表单的标题为“按钮组调色板”, 表单运行时,当按某个命令按钮后,命令按钮组的背景色就会
6
变成按钮指定的对应颜色。 参考答案: 1.表单的标题属性Caption设置为“按钮组调色板”; 2.命令按钮组Commandgroup1的Click事件代码: do case case this.value=1 this.backcolor=rgb(225,0,0) case this.value=2 this.backcolor=rgb(0,255,0) case this.value=3 this.backcolor=rgb(0,0,255) case this.value=4 this.backcolor=rgb(0,0,0) case this.value=5 this.backcolor=rgb(225,255,255) endcase thisform.refresh 第15题:根据要求,用表单设计器建立一个“选项按钮组调色板”表单(界面如图例所示)。
具体要求如下: 1.表单的标题为“选项按钮组调色板”, 表单运行时,当按某个命令按钮后,选项按钮组的背景色 就会变成按钮指定的对应颜色。 参考答案: 1.表单的标题属性Caption设置为“选项按钮组调色板”; 2. 选项按钮组Optiongroup1的Click事件代码: do case case this.value=1 thisform.optiongroup1.backcolor=rgb(255,0,0) case this.value=2 thisform.optiongroup1.backcolor=rgb(0,255,0) case this.value=3 thisform.optiongroup1.backcolor=rgb(0,0,255) case this.value=4 thisform.optiongroup1.backcolor=rgb(0,0,0) case this.value=5 thisform.optiongroup1.backcolor=rgb(255,255,255) endcase 第16题:编制一个表单完成表文件“学生.dbf”内容的信息查询功能(界面如图例所示)。
7
具体要求如下: 1. 表单的
列表框中选择需查询学生的。 2. 所有文本框Text为只读。 参考答案: 1. 表单的标题属性Caption设置为“学生表信息查询”; 2. 所有文本框Text的ReadOnly属性为“.T.”; 3.表单的Form1的Init事件代码: use 学生 thisform.setall("visible",.f.,"textbox") thisform.setall("visible",.f.,"label") thisform.label1.visible=.t. thisform.refresh 4.表单的Form1的destroy事件代码: use 5.列表框List1的Interactivechange事件代码: thisform.setall("visible",.t.) thisform.refresh 第17题:编制一个表单完成表文件“学生.dbf”内容的信息查询功能(界面如图例所示)。
具体要求如下: 1. 表单的组合框中选择需查询学生的。 2. 所有文本框Text为只读。 参考答案: 1. 表单的标题属性Caption设置为“学生表信息查询”; 2. Combo1的Rowsourcetype为“6-字段”,Rowsource为“学生.”; 3. 所有文本框Text的ReadOnly属性为“.T.”; 4.表单的Form1的Init事件代码: use 学生