tjzw.prg

简单人事管理源码

use tjzw in 0  &&在另一工作区打开统计职务用数据表
select tjzw  &&选择统计职务表
zap  &&清空里面的数据
select rsda  &&选择人事档案表
set order to 职务  &&设置主索引为职务，即按职务排序
go top
do while .not. eof()  &&建立循环，当没到数据表结尾时，循环执行下面的程序
  zw=职务  &&将当前记录的职务存入zw变量
  count while 职务=zw to rs  &&统计以下记录数直到职务不与zw的值相同，结果放入rs变量
  select tjzw  &&选择统计职务数据表
  append blank  &&增加一空记录
  replace 职务 with zw,人数 with rs  &&将zw和rs的值存入空记录
  select rsda  &&选择rsda表以便继续统计下面的记录
enddo  &&循环结束

do form tjzw name tjzw  &&调用统计结果显示表单

select tjzw  &&选择统计职务表
use  &&将统计职务表关闭
select rsda  &&选择人事档案表
set order to 编号  &&将主索引设回编号，以便在人事档案表显示

return  &&返回