【正确答案】在命令窗口中输入命令:CREATE FORM myf,打开表单设计器,通过“表单控件”工具栏向表单添加1个页框控件和1个命令按钮。
选中表单,在属性面板中修改Caption的属性值为“学生住宿信息”,然后在属性面板顶端的下拉框中选择Command1,修改该命令按钮控件的Caption属性值为“关闭”。
在常用工具栏中打开表单数据环境,将数据表文件“宿舍”、“学生”添加到数据环境中。选定页框,修改PageCount属性值为3,增加一个页面,右击页框控件,选择“编辑”菜单命令,可以看到页框四周出现蓝色边框,表示处于编辑状态下,选定页面(Page1),修改页面标题Caption属性值为“学生”,添加一个表格控件,设置表格控件Grid1的RecordSourceType属性值为“0-表”(用来指定显示表中的数据), RecordSource属性值为“学生”,然后在页框编辑状态下,以同样的方法设置第二个页面,修改页面标题为“宿舍”,表格的RecordSource属性值为“宿舍”,在第三个页面中,修改页面的标题为“住宿信息”,双击其属性面板中的“Activate Event”,在弹出的代码编辑输入窗口中输入如下代码,如图3-48所示。
******页框Page3(第三页)的Activate Event事件代码*************
SELECT 学生.学号,学生.姓名,学生.性别,学生.系,学生.宿舍,电话;
FROM 学生,宿舍;
DOTO CURSOR atemp
Thisform.Pageframe1.Page3.Grid1.RecordSourceType=1
Thisform.Pageframe1.Page3.Grid1.RecordSource="atemp"
***********************************************************

最后双击“关闭”按钮,在Click事件中编写程序命令:Thisform.Release,保存并运行表单。运行结果如图3-49所示。
