vfp复习资料习题讲解_表单设计部分.docVIP

2.7 VFP程序设计题 与表无关的表单设计（与计时器无关） 1．要求：(1)编制一个按钮组调色板 (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 2．要求：(1)编制一个按钮组调色板 (2)当用户按了命令按钮组中的某个按钮后，命令按钮组的背景色就会变为按钮指定的对应颜色。(注意与上一题比较，14是设置表单的背景色，本题是设置命令按钮组的背景色。 命令按钮组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 3．要求：(1)编制一个选项按钮组调色板 (2)当用户按了某个选项按钮后，表单的背景颜色就会变为按钮指定的对应颜色。 选项按钮组Optiongroup1的Click事件代码： do case case this.value=1 thisform.backcolor=rgb(255,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(255,255,255) endcase 如果是设置选项按钮组的背景色，如下图 则颜色设置语句为：thisform.optiongroup1.backcolor=rgb(255,0,0) 4．要求：(1)编制一个“选页调色板”表单 (2) 当用户按了某页后，页框的背景色就会变成指定的对应颜色。 选项按钮组Pageframe1的Click事件代码： do case case this.activepage=1 this.page1.backcolor=rgb(255,0,0) case this.activepage=2 this.page2.backcolor=rgb(0,255,0) case this.activepage=3 this.page3.backcolor=rgb(0,0,255) case this.activepage=4 this.page4.backcolor=rgb(0,0,0) case this.activepage=5 this.page5.backcolor=rgb(255,255,255) endcase thisform.refresh 5.要求：（1）编制一个表单完成口令判定功能；（2）用户从键盘输入口令时，表单的显示控件以“*”代替具体内容；（3）系统的口令存放在表文件“学生.dbf”的姓名字段中，要求完全匹配；（4）输入口令后，按回车，将自动在表单上显示“正确”或“错误”信息。 ***text1的Valid事件代码： loca for alltrim(this.value)=alltrim(姓名) if found() thisform.label2.caption=”正确！” else thisform.label2.caption=”错误！” endif select 学生 6．要求：编制一个人工翻动日历牌，界面窗口中显示当前日期，但是可以通过界面