用新的控件改进人事管理（三）

在我们的人事管理软件中，您可能会感觉输入简历的地方小了，这一课我们就来讲利用页框对这一问题进行改进。

1. 进入bjry表单的修改状态；
2. 将表单拉大，把所有控件移到一边；
3. 按工具栏上的页框按钮 ，在表单上做上页框，如 ；
4. 在属性窗口中选择pageframe1下的page1，将其caption属性设为“基本情况”，再将page2的caption设为“简历”；
5. 回到表单把除简历和按钮以外所有控件剪切，再选择page1，将控件粘贴到page1中，如 ，接着按同样方法把简历控件粘贴到page2中，如 ，由于这个页面中只有一个控件，页标题已说明是“简历”，故“简历”标签可以删掉。
6. 表单恢复原状；
7. 将“新增”按钮的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

8. 将“上一条”按钮的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

9. 将“下一条”按钮的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

10. 完事了。

【 】

原文转自：http://www.ltesting.net