check_blbh.prg

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

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



PROCEDURE check_blbh
 LPARAMETER C_BLBH
 LOCAL T_MESSAGE
 IF LEN(ALLTRIM(C_BLBH)) < 10
    T_MESSAGE = '当前人员的病历编号为空或者其长度不为10位号码。'
 ELSE 
    LOCATE FOR 病历编号 = C_BLBH
    T_MESSAGE = IIF(EOF(),'','当前的人员病历编号已被占用，')
 ENDIF 
 RETURN T_MESSAGE
ENDPROC
*------*