在我们的人事管理软件中，您可能会感觉输入简历的地方小了，这一课我们就来讲利用页框对这一问题进行改进。
- 进入bjry表单的修改状态；
- 将表单拉大，把所有控件移到一边；
- 按工具栏上的页框按钮 ，在表单上做上页框，如 ；
- 在属性窗口中选择pageframe1下的page1，将其caption属性设为“基本情况”，再将page2的caption设为“简历”；
- 回到表单把除简历和按钮以外所有控件剪切，再选择page1，将控件粘贴到page1中，如 ，接着按同样方法把简历控件粘贴到page2中，如 ，由于这个页面中只有一个控件，页标题已说明是“简历”，故“简历”标签可以删掉。
- 表单恢复原状；
- 将“新增”按钮的click事件程序改为如下：
select rsda &&选择人事档案表
*根据选项按钮所做的选择，将相应的值存入性别字段
if xb=1
replace 性别 with .t.
else
replace 性别 with .f.
endif
append blank &&增加一条空记录
xb=1 &&将xb设为1
*这是一新记录，还不知道是男或女，因此一律设为1，即“男”，作为初始值
*将部门设为部门字典中的第一个记录，这样可防止部门没有选择而为空
select bmzd
go top
select rsda
replace 部门 with bmzd.部门
thisform.pageframe1.page1.refresh &&将页面及其控件的内容刷新
thisform.pageframe1.page2.refresh &&将页面及其控件的内容刷新
thisform.pageframe1.page1.text1.setfocus &&将焦点设到text1 - 将“上一条”按钮的click事件程序改为如下：
skip -1 &&记录指针向上跳一行
*以下一段程序检测记录指针是否到了开头，如果是给出提示，
*并把指针定位到第一个记录
if bof() &&假如指针已到开头
wait @#已到开头@# window nowait &&显示提示，鼠标或键盘一动提示消失
go top &&将指针定位到第一个记录
endif &&假设结束
*根据当前记录的性别字段设置xb的值，如果是“真”就设为1，否则为2
*在需要逻辑表达式作判断时，如果是逻辑变量，因为其本身就是一个逻辑表
*达式，为“真”的话就直接写这个变量名，为假的话就写为“.not. 变量
*名”，而不要写成“变量名=.t.”或“变量名=.f.”
if 性别
xb=1
else
xb=2
endif
thisform.pageframe1.page1.refresh &&将页面及其控件的内容刷新
thisform.pageframe1.page2.refresh &&将页面及其控件的内容刷新
thisform.pageframe1.page1.text1.setfocus &&将焦点设到text1 - 将“下一条”按钮的click事件程序改为如下：
skip &&记录指针向下跳一行
*以下一段程序检测记录指针是否到了结尾，如果是给出提示，
*并把指针定位到最后一个记录
if eof() &&假如指针已到结尾
wait @#已到结尾@# window nowait &&显示提示，鼠标或键盘一动提示消失
go bottom &&将指针定位到最后一个记录
endif &&假设结束*根据当前记录的性别字段设置xb的值，如果是“真”就设为1，否则为2
*在需要逻辑表达式作判断时，如果是逻辑变量，因为其本身就是一个逻辑表
*达式，为“真”的话就直接写这个变量名，为假的话就写为“.not. 变量
*名”，而不要写成“变量名=.t.”或“变量名=.f.”
if 性别
xb=1
else
xb=2
endif
thisform.pageframe1.page1.refresh &&将页面及其控件的内容刷新
thisform.pageframe1.page2.refresh &&将页面及其控件的内容刷新
thisform.pageframe1.page1.text1.setfocus &&将焦点设到text1 - 完事了。
【 】
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
