h_一览表.prg

来自「驾驶证科目一考试系统 1.管理端各用户的密码已清空 2.考试端运行ks.」· PRG 代码 · 共 29 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: H_一览表.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 L_system = .F.
 IF  .NOT. USED('system')
    SELECT 0
    USE system.sys
    L_system = .T.
 ENDIF 
 SELECT system
 TMPNUM = 通过分数
 IF L_system
    USE 
 ENDIF 
 SELECT 成绩
 COUNT TO NUM1
 COUNT FOR 考试成绩 >= TMPNUM TO NUM2
 IF NUM1 = 0
    RETURN ''
 ENDIF 
 IF NUM2 = NUM1
    RETURN '统计结果：通过考生共 ' + ALLTRIM(STR(NUM1)) + ' 人'
 ELSE 
    RETURN '统计结果：考生共 ' + ALLTRIM(STR(NUM1)) + ' 人，通过' + ALLTRIM(STR(NUM2)) + ' 人'
 ENDIF 
*