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

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

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

14. 完事了。

【下载改进过的人事管理】

目录 下一课 上一课

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明