If Type('sys_dir')='U'
   Do SYS(5)+SYS(2003)+'\Prg\Load'
Endif
SELECT 0
USE '&sys_dir.\数据\任课教师一览表.DBF'
SELECT 0
USE '&sys_dir.\数据\学生档案.DBF'
CREATE CURSOR 院系档案_tmp(院系名称 C(20),教师人数 N(10),学生人数 N(10),备注 C(40))
APPEND FROM 学生管理!院系档案
SELECT 院系档案_tmp
GO TOP
RELEASE JS,XS
PUBLIC JS,XS
DO WHILE !EOF()
   Jlh1=RECNO()
   SCATTER MEMVAR
   SELECT 任课教师一览表
   COUNT TO js FOR ALLTRIM(所属院系)==ALLTRIM(院系名称)
   SELECT 学生档案
   COUNT TO xs FOR ALLTRIM(所在院系)==ALLTRIM(院系名称)
   SELECT 院系档案_tmp
   GO Jlh1
   REPLACE 教师人数 with js,学生人数 with xs
   SKIP
ENDDO
SELECT 任课教师一览表
USE
SELECT 学生档案
USE
SELECT 院系档案_tmp
GO TOP

大概是：每个所在院系有多少个教师，各负责多少位学生的教学。把这些数据放在了一个临时表中。院系档案_tmp中。