check_glh.prg

来自「一套难绝对能编译的人事系统,界面漂亮,构思新颖,」· PRG 代码 · 共 22 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: CHECK_GLH.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-



PROCEDURE check_glh
 LPARAMETER C_GLH , C_RECNO
 LOCAL ERRORCODE
 IF LEN(ALLTRIM(C_GLH)) < 8
    ERRORCODE = 1
 ELSE 
    LOCATE FOR 管理号 == C_GLH
    ERRORCODE = IIF(EOF(),0,2)
    IF  .NOT. EMPTY(C_RECNO)
       GO (C_RECNO)
    ENDIF 
 ENDIF 
 RETURN ERRORCODE
ENDPROC
*------*