tjzw.prg

来自「简单人事管理」· PRG 代码 · 共 25 行

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

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

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

return &&返回