checksyslogin.prg

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

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



PROCEDURE checksyslogin
 LPARAMETER C_LOGINNAME , C_RECNO
 LOCAL T_MESSAGE
 DO CASE 
 CASE LENC(ALLTRIM(C_LOGINNAME)) < 2
    T_MESSAGE = '用户登陆名不能为空并且不能是单个的中文或英文字母！！'
 OTHERWISE 
    LOCATE FOR LOGINNAME == CHREN(C_LOGINNAME,1)
    T_MESSAGE = IIF(EOF(),'','当前用户登陆名已存在于系统中！！')
    IF  .NOT. EMPTY(C_RECNO)
       GO C_RECNO
    ENDIF 
 ENDCASE 
 RETURN T_MESSAGE
ENDPROC
*------*