复习资料习题讲解表单设计部分

1、2.7 VFP程序设计题一、 与表无关的表单设计（与计时器无关）1要求：(1)编制一个按钮组调色板 (2)当用户按了命令按钮组中的某个按钮后，表单的背景色就会变为按钮指定的对应颜色。 命令按钮组Commandgroup1的Click事件代码：do case case this.value=1thisform.backcolor=rgb(225,0,0)case this.value=2thisform.backcolor=rgb(0,255,0)case this.value=3thisform.backcolor=rgb(0,0,255)case this.value=4thisform.b

2、ackcolor=rgb(0,0,0)case this.value=5thisform.backcolor=rgb(225,255,255)endcasethisform.refresh2要求：(1)编制一个按钮组调色板 (2)当用户按了命令按钮组中的某个按钮后，命令按钮组的背景色就会变为按钮指定的对应颜色。(注意与上一题比较，14是设置表单的背景色，本题是设置命令按钮组的背景色。 命令按钮组Commandgroup1的Click事件代码：do case case this.value=1this.backcolor=rgb(225,0,0)case this.value=2this.bac

3、kcolor=rgb(0,255,0)case this.value=3this.backcolor=rgb(0,0,255)case this.value=4this.backcolor=rgb(0,0,0)case this.value=5this.backcolor=rgb(225,255,255)endcasethisform.refresh3要求：(1)编制一个选项按钮组调色板(2)当用户按了某个选项按钮后，表单的背景颜色就会变为按钮指定的对应颜色。 选项按钮组Optiongroup1的Click事件代码：do case case this.value=1 thisform.back

4、color=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要求：

5、(1)编制一个“选页调色板”表单(2) 当用户按了某页后，页框的背景色就会变成指定的对应颜色。 选项按钮组Pageframe1的Click事件代码：do casecase 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

6、,0)case this.activepage=5 this.page5.backcolor=rgb(255,255,255)endcasethisform.refresh5.要求：（1）编制一个表单完成口令判定功能；（2）用户从键盘输入口令时，表单的显示控件以“*”代替具体内容；（3）系统的口令存放在表文件“学生.dbf”的姓名字段中，要求完全匹配；（4）输入口令后，按回车，将自动在表单上显示“正确”或“错误”信息。*text1的Valid事件代码：loca for alltrim(this.value)=alltrim(姓名)if found() thisform.label2.capti

7、on=”正确！”else thisform.label2.caption=”错误！”endifselect 学生6要求：编制一个人工翻动日历牌，界面窗口中显示当前日期，但是可以通过界面提供的微调按钮任意地向前或向后翻动日期。 Text1的dateformat属性设为“14-汉语” 微调Spinner1的Downclick事件代码：thisform.refresh 微调Spnnier1的Upclick事件代码：thisform.text1.value=thisform.text1.value+1thisform.refresh7要求(1)设计一个表单，接受用户输入的数字，生成相应的矩阵(2)文本

8、框内输入一个小于等于10的数字，生成一个相应的对称矩阵，且这个矩阵的对角线的数字全部为0，其他的数字为1。 “显示”按钮Command1的click事件的代码：n=val(thisform.text1.value)s=for i=1 to n for j=1 to n if j=i or j+i=n+1 s=s+0+space(2) else s=s+1+space(2) endif endfor s=s+chr(13) &每N个字符加一个回车键，所以在内循环结束时执行该语句endforthisform.edit1.value=sthisform.refresh8、要求：按“开始”按钮，在编辑

9、框中显示九九乘法口诀表。 *表单form1的init事件代码：public c,mstore “” to c,m*“开始”按钮的click事件m=”*”for a=1 to 9 m=m+str(a,4)endforfor I=1 to 9 c=c+str(I,1)for j=1 to I c=c+str(I*j,4)endforc=c+chr(13) endforthisfom.edit1.value=m+cthisform.refresh9、要求：在文本框中输入一个起始数，在编辑框中显示20个从起始位置开始并且是3的倍数的整数，且这20个数字的个位数都是3，利用标签输出这20个数的和。*文本

10、框text1的valid事件代码：public sj=1I=val(alltrim(thisform.text1.value)S=0Do while j=20 If I%3=0 and mod(I,10)=3J=j+1S=s+IThisform.edit1.value=thisform.edit1.value+str(I,10) Endif I=I+1EnddoThisform.refresh*command1的click事件代码：thisform.label2.caption=”这组数字的和=”+str(s,10)thisform.refresh10、要求：（1）在文本框text1中输入任意

11、一个100以内的正整数；（2）将所有300以内的能被该整数整除的数显示在编辑框中；（3）将所在这些数的和显示在text2中；（4）按“清除”按钮时，将文本框及编辑框清空。*表单form1的init事件代码：thisform.text1.value=0thisform.text2.value=0*文本框text1的valid事件代码：for I=1 to 300 if mod(I,thisform.text1.value)=0thisform.edit1.value=thisform.edit1.value+str(I,5)+chr(13)thisform.text2.value=thisfor

12、m.text2.value+i endifendfor*“清除”按钮的click事件代码：thisform.text1.value=0thisform.text2.value=0thisform.edit1.value=”11、要求：按“开始”按钮，在列表框中显示2000-2100年之间所有的闰年。 *“开始”按钮的click事件代码：for n=2000 to 2100 if n%4=0if n%1000 or n%400=0 y=1else y=0endifelsey=0 endifif y=1 thisform.list1.additem(alltrim(str(n)endifendfo

13、r12要求：(1)编制一个小型文本编辑器，界面见下图；(2)文字信息从键盘输入至edit框；(3)三个单选按钮分别用于设置“宋体”、“黑体”和“隶书”；(4)三个check按钮用设置字体的“倾斜”、“加粗”和“下划线”；(5)字号用微调控件实现*optiongroup1的click事件代码:do case case this.value=1thisform.text1.fontname=”宋体” case this.value=2thisform.text1.fontname=”楷体” case this.value=3 thisform.text1.fontname=”隶书”endcase*

14、check1的click事件代码:if this.value=1 thisform.text1.fontbold=.t.else thisform.text1.fontbold=.f.endif*check2,3的代码类似于check1*spinner1的upclick事件代码*spinner1的downclick事件代码 thisform.text1.fontsize=thisform.text1.fontsize+113.要求：(1)在表单中的三个文本框中分别输入3个数，判别是否能形成三角形，如果是三角形，求出此三角形的面积。(2)判断是否是三角形，可利用：a+bc,且c0; a+cb,且

15、b0; b+ca,且a0*判断计算按钮command1的click事件代码:a=val(thisform.text1.value)b=val(thisform.text2.value)c=val(thisform.text3.value)if (a+bc and c0) or (a+cb and b0) or (b+ca and a0) s=(a+b+c)/2 area=sqrt(s*(s-a)*(s-b)*(s-c)endifthisform.label2.caption=”能构成三角形,面积等于:” +str(atea)14建立一个如图所示的表单 选项按钮组Optiongroup1的Cli

16、ck事件代码：do case case this.value=1 create case this.value=2create formcase this.value=3 modify commandendcase二、 与表无关的表单设计（计时器类表单设计）15要求：编制一个信息显示(时钟)的界面，显示当前时间(每秒动态显示跳动一次)(2)并将表单的背景颜色设置为蓝、绿色自动变换(与时间同步切换) Timer1的Timer事件代码：s=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,2)mn=val(m)if int(mn/2)=

17、mn/2 thisform.backcolor=rgb(0,0,255)else thisform.backcolor=rgb(0,255,0) endifthisform.text1.value=time()16要求：(1)编制一个表单完成数字时钟显示功能(2)表单将自动以1秒为间隔动态显示系统时间(3)时、分、秒要求用汉字说明 文本框Text1的背景色Backcolor为RGB(255,255,255)；FONTNAME为“隶书”。 时钟控件Timer1的Timer事件代码：s=substr(time(),1,2)f=substr(time(),4,2)m=substr(time(),7,

18、2)thisform.text1.value=s+时+f+分+m+秒 thisform.refresh17要求：(1)编制一个表单完成计时器计数显示功能(2)表单初始显示状态为全零“00：00：00”(3)按“计数”按钮，将自动以秒为单位从零开始计数(设：时的计数属性名为S，分的计数属性名为F，秒的计数属性名为M。)并在表单上动态显示。按“停止”按钮将显示最后一刻的计数时间。 创建1个新建属性，clocknum初值设为0 表单的form1的init事件代码：thisform.timer1.enabled=.f.thisform.text1.value=00:00:00thisform.refr

19、esh “计数”按钮command1的click事件代码：thisform.timer1.enabled=.t. “停止”按钮command2的click事件代码：thisform.timer1.enabled=.f. 时钟控件timer1的timer事件代码：js=thisform.clocknums=int(js/3600)f=int(js/60)m=js%60s1=iif(s10,0+str(s,1),str(s,2)f1=iif(f10,0+str(f,1),str(f,2)m1=iif(m1,dow(date()-1,7)thisform.text2.value=”星期”+subst

20、r(“一二三四五六日”,2*w-1,2)+”(“+cdow(date()+”)”thisform.text3.value=time()*spinner1的upclick事件代码：thisform.text1.value=thisform.text1.value+1w=iif(dow(thisform.text1.value)1,dow(thisform.text1.value)-1,7)thisform.text2.value=”星期”+substr(“一二三四五六日”,2*w-1,2)+”(“+cdow(thisform.text1.value)+”)”*spinner1的downclick

21、事件代码：w=iif(dow(thisform.text1.value)1,dow(thisform.text1.value)-1,7)thisform.text2.value=”星期”+substr(“一二三四五六日”,2*w-1,2)+”(“+cdow(thisform.text1.value)+”)”*timer1 的timer事件代码：thisform.text3.value=time()21要求：(1)编制一个表单完成文字动态缩放操纵的表单；(2)文字信息初始的位置在表单的正中央，表单执行后，第间隔20毫秒，文字自动以字号加1的幅度逐步向周边延伸变大，直到文字充满整个表单；(3)然后

22、每间隔20毫秒，文字会自动以字号加1的幅度逐步向中lkd回缩变小，直到文字复原为初始的状态；(4)整个过程不间断地缩放(最小字号为4，最大学号为52).*新建表单属性change*表单的Form1的Init事件代码：thisform.change=0*时钟控件Timer1的Timer事件代码：if thisform.label1.fontsize=52 thisform.change=1endifif thisform.label1.fontsize=4 thisform.change=0endifif thisform.change=0thisform.label1.fontsize=thi

23、sform.label1.fontsize+1elseendifthisform.refresh三、 与表相关的表单设计（单表）1要求：(1)编制一个表单完成表文件“学生.dbf”内容的只读浏览显示功能；(如图1)(2)表单初始显示内容为表文件“学生.dbf”内容的首记录；(3)表单内容将以10秒为间隔自动刷新，即自动向后翻记录，当翻至表底时，瘵自动回到首记录循环翻动。 表单的Form1的Init事件代码：THIS.SETALL(READONLY,.T.,TEXTBOX)GO TOPTHISFORM.REFRESH 时钟控件Timer1的Timer事件代码：SKIPIF EOF() GO TO

24、PENDIFTHISFORM.REFRESH2要求：(1)编制一个表单完成表文件“学生.dbf“内容的只读浏览显示功能(如图2)(2)表单初始显示内容为表文件“学生.dbf”的首记录(3)当按“前翻”、“后翻”、“首记录”、“末记录”按钮时，表单将自动显示相应记录的内容(4)当翻至表头或表底时，将自动设置相应按钮不可访问。 表单的Form1的Init事件代码：THIS.SETALL(READONLY,.T.,TEXTBOX)Sele 学生GO TOPTHISFORM.REFRESH “首记录”按钮Command1的Click事件代码：go topmand2.enabled=.t.mand3.e

25、nabled=.t.mand4.enabled=.t.mand1.enabled=.f.thisform.refresh “前翻”按钮Command2的Click事件代码：skip -1if bof()mand1.enabled=.f.this.enabled=.f.endifmand3.enabled=.t.mand4.enabled=.t.thisform.refresh “后翻”按钮Command3的Click事件代码：skipif eof()mand3.enabled=.f.mand4.enabled=.f.endifmand1.enabled=.t.mand2.enabled=.t.

26、thisform.refresh “末记录”按钮Command4的Click事件代码：go bottommand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.t.mand4.enabled=.f.thisform.refresh3要求：(1)编制“学生“表信息查询界面 (2)查询与用户指定的学生姓名相匹配的记录，并显示指定学生的所有信息。 List1的Rowsourcetype为“6-字段”，Rowsource为“学生.姓名”；文本框Text1Text5的数据源属性分别为学生表中对应字段 所有文本框Text的ReadOnly属性为“.T.”； 表单的

27、Form1的Init事件代码：use 学生thisform.setall(visible,.f.,textbox)thisform.setall(visible,.f.,label)thisform.label1.visible=.t.thisform.refresh 列表框List1的Interactivechange事件代码：thisform.setall(visible,.t.)thisform.refresh4要求：(1)编制“学生表”信息查询界面 (2)显示指定学生的所有信息。 Combo1的Rowsourcetype为“6-字段”，Rowsource为“学生.姓名”；文本框Text

28、1Text5的数据源属性分别为学生表中对应字段 所有文本框Text的ReadOnly属性为“.T.”； 表单的Form1的Init事件代码：use 学生thisform.setall(visible,.f.,textbox)thisform.setall(visible,.f.,label)thisform.label1.visible=.t.thisform.refresh 组合框Combo1的Interactivechange事件代码：thisform.setall(visible,.t.)thisform.refresh5要求：编制“学生”表信息查询界面，查询与用户输入的学生学号相匹配的

29、记录，并显示指定学生的所有信息。 Label3、Label4、Label5、Label6的Caption属性分别设置为“姓名：”、“性别：”、“出生年月：”、“奖学金：”，并设置所有文本框的数据源属性为学生表中的对应字段 标签Label2的Forecolor属性为“255,255,255” 除学号文本框，所有文本框Text的ReadOnly属性为“.T.”； 表单的Form1的Init事件代码：use 学生 thisform.setall(visible,.f.)thisform.label1.visible=.t.thisform.text1.visible=.t. 文本框Text1的Val

30、id事件代码：loca for alltrim(学号)=alltrim(this.value)if found() thisform.label2.caption= thisform.setall(visible,.t.)else thisform.setall(visible,.f.) thisform.label1.visible=.t. thisform.text1.visible=.t.thisform.label2.visible=.t. thisform.label2.caption=您所指定的学生并不存在！endifthisform.refresh6要求：(1)编制一个界面程序，

31、实现将用户指定的表文件的字段名列表显示(2)系统自动查询用户指定的表文件是否存在，存在则列表显示指定表文件的所有字段名信息，否则给出信息提示框 Form1的Init事件的代码：Thisform.label2.visible=.f.Thisform.list1.visible=.f. Text1的Valid事件的代码fn=alltrim(this.value)+ .dbfif file(fn)thisform.setall(visible,.t.) use (fn)for i=1 to fcount() thisform.list1.additem(field(i)endforelseThisf

32、orm.label2.visible=.f.Thisform.list1.visible=.f.messagebox(指定的表文件不存在!,0+64, 表文件存在判断)endifthisform.refresh7.编制一个表单完成学生成绩信息查询显示功能(界面如图所示)。要求 (1)当输入学生8.9要求：(1)编制一个表单完成表文件“学生.dbf”内容的查询显示功能(2)当用户在组合框(下拉列表)选择班级(学号的左三位)后，表单将自动显示对应班级的奖学金总额(3)按“退出”按钮时，自动关闭表单。 表单Form1的Init事件代码：sele 学生index on left(学号,3) to xh

33、 uniquescanbo1.additem(left(学号,3)endscan 组合框Combo1的Valid事件代码：set talk offSum 奖学金 to jxj for left(学号,3)=this.valueThisform.twxt1.value=jsj “退出”按钮Command1的Click事件代码：thisform.release10要求：(1)编制一个表单完成表文件“学生.dbf”“成绩.dbf”内容的查询显示功能(2)当用户在组合框(下拉列表)选择班级(学号的左三位)后，表单将自动显示对应班级的所有学生的总平均成绩(3)按“退出”按钮时，自动关闭表单。 表单For

34、m1的Init事件代码：Set talk offindex on left(学号,3) to xh uniquescan bo1.additem(left(学号,3)endscanset index to 组合框combo1的Valid事件代码：set talk offaverage成绩 to cj for left(学号,3)=this.value thisform.text1.value=cj “退出”按钮Command1的Click事件代码：thisform.release11编制一个表单完成数据转移操作功能数据环境中添加“学生.DBF”表单FORM1的INIT1 事件SCANTHIS.

35、LIST1.ADDITEM(姓名)ENDSCAN 命令按钮“添加一项”command1的click事件代码：thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)&“添加一项”将list1内容移到list2，即list1的内容减少一项（removeitem），list2的内容增加一项（additem）。thisform.refresh 命令按钮“全部添加”command2的click事件代码：scanthisform.list2.additem(姓名)ends

36、can&“全部添加”将list1内容全部移到list2，即list1全部清空（clear），list2内容为学生表的“姓名”。thisform.refresh 命令按钮“移去一项”command3的click事件：thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.list2.listindex)&“移去一项”将list2的内容移到list1，list2减少一项（removetiem），list1增加一项（additem）。thisform.refresh 命令按钮“全部移去”comman

37、d4 的click事件：scanthisform.list1.additem(姓名)endscan&“全部移去”将list2内容全部移到list1，即list2全部清空（clear），list1内容为学生表的“姓名”。thisform.refresh12要求：(1)编制一个列表框数据转移操作表单；(2)当在左边显示学生姓名的窗口选择某个学生后，单击“选择一项”按钮，左边的列表中的所选中的单项信息将自动转移到右边的列表框中；(3)当在右边显示学生姓名的窗口选择某个学生后，单击“退还一项”按钮，右边的列表中选中的单项信息将自动转移到左边的列表框中。数据环境中添加“学生.DBF”*表单Form1的i

38、nit事件代码:scan this.list1.additem(姓名)endscan*命令按钮”选择一项”command1的click事件代码:thisform.list2.additem(thisform.list1.value)thisform.list1.removeitem(thisform.list1.listindex)thisform.refresh*命令按钮”退还一项”command2的click事件代码:thisform.list1.additem(thisform.list2.value)thisform.list2.removeitem(thisform.list2.li

39、stindex)thisform.refresh13要求：在文本框中输入一个工资金额数，从数据表文件gzb.dbf（工资表）中查找高于此工资数男女人数，利用标签输出统计结果。数据环境中添加“gzb.dbf”*统计按钮command1的click事件代码:select gzbcount to x for 工资val(thisfom.text1.value) and 性别=.t.count to y for 工资val(thisform.text1.value) and 性别=.f.thisform.label2.caption=”工资超过”+thisform.text1.value+”的男职工人

40、数为:”+str(x,4)thisform.label3.caption=”工资超过”+thisform.text1.value+”的女职工人数为:”+str(y,4)14.要求:在第一个列表框中显示文件xsda.dbf(学生档案表)中学生的姓名,通过第一个命令按钮(“”)将需要筛选的记录添加到第二个列表框中,可以通过”删除”命令按钮来删除第二个列表框中的记录,通过”清空”命令按钮可以一次性删除筛选的学生姓名。数据环境中添加“xsda.dbf”列表框list1的RowsourceType属性为6，Rowsource属性设置为xsda.姓名。或表单Form1的Init事件代码:scan this

41、.list1.additem(姓名)endscan命令按钮“”的click事件代码:THISFORM.LIST2.ADDITEM(THISFORM.LIST1.VALUE)命令按钮“删除”的click事件代码:THISFORM.LIST2.REMOVEITEM(THISFORM.LIST2.LISTINDEX)命令按钮“清空”的click事件代码:15.要求:(1)编制一个抽奖表单，抽奖的号码为“学生.DBF”表文件的学号字段,(2)当按”开始”按钮,表单的显示控件以0.1秒的间隔动态显示学号字段值;(3)当按”抽号”按钮,表单的显示控件定格显示抽中的学号字段值;(4)抽取的号码不允许重复。

42、数据环境中添加“学生.DBF”表单Form1的Init事件代码:THISFORM.TIMER1.ENABLED=.F.THIS.TEXT1.VALUE=学生学号命令按钮“开始”的click事件代码: THISFORM.TIMER1.ENABLED=.T.THISFORM.TEXT1.FORECOLOR=RGB(0,0,0)THISFORM.TEXT1.VALUE=学号THISFORM.REFRESH命令按钮“抽号”的click事件代码:THISFORM.TIMER1.ENABLED=.F.THISFORM.TEXT1.FORECOLOR=RGB(0,0,255)THISFORM.REFRESH

43、命令按钮“退出”的click事件代码:THISFORM.RELEASETimer1 的Timer事件代码:SELECT 学生SKIPIF EOF() GO TOPENDIFTHISFORM.TEXT1.VALUE=学号THISFORM.REFRESH四、 与表相关的表单设计（多表）16要求：(1)编制一个表单完成表文件“课程.dbf”“成绩.dbf”内容的查询显示功能 (2)当用户在组合框选择课程名后，表单将自动显示对应课程的所有学生的总平均成绩 (3)按“退出”按钮时，自动关闭表单。数据环境中添加“课程.DBF”和“成绩.DBF” 组合框Combo1的RowSouceType属性为“6-字段

44、”，RowSouce属性为“课程.课程名”。 组合框Combo1的Valid事件代码：set talk offselect 课程kch=课程号select 成绩average 成绩 to cj for 课程号=kch thisform.text1.value=cj “退出”按钮Command1的Click事件代码：thisform.release17要求：(1)编制一个表单完成表文件“学生.dbf”“成绩.dbf”内容的查询显示功能(2)当用户在组合框(下拉列表)选择姓名后，表单将自动显示对应学生的平均成绩(3)按“退出”按钮时，自动关闭表单。数据环境中添加“学生.DBF”和“成绩.DBF”

45、组合框Combo1的RowSouceType属性为“6-字段”，RowSouce属性为“学生.姓名”。 组合框Combo1的Interactivepage事件代码：set talk offselect 学生xh=学号select 成绩average 成绩 to cj for 学号=xh thisform.text1.value=cj “退出”按钮Command1的Click事件代码：thisform.release18.要求：(1)编制一个表单完成表文件“学生.dbf”、“成绩.dbf”、“课程.dbf”内容的编辑浏览显示功能 (2)三个表文件分别显示在三个不同的页面上(3)未被激活的页面自动

46、设为不可访问 Timer1的Interval属性设置为10000表单Form1的Init事件代码:THISFORM.PAGEFRAME1.PAGES(1).ENABLED=.T.THISFORM.PAGEFRAME1.PAGES(2).ENABLED=.F.THISFORM.PAGEFRAME1.PAGES(3).ENABLED=.F. Timer1的Timer事件的代码：THISFORM.PAGEFRAME1.PAGES(A).ENABLED=.F.IF THISFORM.PAGEFRAME1.ACTIVEPAGE3THISFORM.PAGEFRAME1.PAGES(A+1).ENABLED

47、=.T.THISFORM.PAGEFRAME1.ACTIVEPAGE=THISFORM.PAGEFRAME1.ACTIVEPAGE+1ELSETHISFORM.PAGEFRAME1.PAGES(1).ENABLED=.T.THISFORM.PAGEFRAME1.ACTIVEPAGE=1ENDIFTHISFORM.REFRESH19.要求：（1）编制一个学生成绩查询表单，表单中的显示学生信息的窗口的指针移动时，在另一个窗口可以自动显示出对应那个学生所所有成绩信息。*Form1的init事件代码:sele 成绩inde on 学号 to xhsele 学生set rela to 学号into 成绩

48、20.要求：（1）编制一个表单完成表文件“学生.dbf”“成绩.dbf”“课程.dbf”内容的编辑浏览显示功能；（2）三个表文件分别显示在三个不同的页面上；（3）当在选项按钮组选择某个表文件时，页框中的页会自动翻页，即自动翻动为与选择的表文件对应的页；（4）未被激活的页面自动设为不可访问*Form1的init事件代码:thisform.pageframe1.setall(“enabled”.f.,”page”)thisform.pageframe1.page1.enabled=.t.*Optiongroup1的click事件代码:thisform.pageframe1.setall(“enab

49、led”,.f.,”page”)do case case this.value=1 thisform.pageframe1.page1.enabled=.t.thisform.pageframe1.activepage1=1case this.value=2 thisform.pageframe1.page2.enabled=.t.thisform.pageframe1.activepage=2case this.value=3thisform.pageframe1.page3.enabled=.t.thisform.pageframe1.activepage=3endcase21.编制一个学生学籍信息查询表单，当在显示学生姓名信息的窗口选择某个学生时，表单自动在相应控件中自动同步显示出对应那个学生的课程信息和成绩信息。答案1：用临时关联实现*Form1的init事件代码:SET SAFETY OFFTHIS.CAPTION=学生成绩信息查询THIS.LABEL1.CAPTION=选择学生姓名:THIS.LABEL