check_name.prg

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

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



PROCEDURE check_name
 LPARAMETER C_NAME , C_FIELD , C_RECNO
 LOCAL ERRORCODE , T_NAME
 T_NAME = ALLTRIM(C_NAME)
 DO CASE 
 CASE LENC(T_NAME) < 2
    ERRORCODE = 1
 CASE LEN(T_NAME) <> LENC(T_NAME) * 2
    ERRORCODE = 2
 OTHERWISE 
    IF C_FIELD = '姓名'
        Locate For &c_field=c_name
    ELSE 
        Locate For &c_field==chren(c_name,1)
    ENDIF 
    ERRORCODE = IIF(EOF(),0,3)
    IF  .NOT. EMPTY(C_RECNO)
       GO C_RECNO
    ENDIF 
 ENDCASE 
 RETURN ERRORCODE
ENDPROC
*------*