check_rydate.prg

一套难绝对能编译的人事系统,界面漂亮,构思新颖,

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


 LPARAMETER C_GLH , C_NAME , C_IDCARD , C_BLOOD , C_NATION , C_SPEC , C_LOGINDATE , C_PHONE ,  ;
      C_ADDRESS , C_BLBH
 IF LEN(ALLTRIM(C_GLH)) < 8
    P_VERIFY( 1 , 2 ) = '人员管理号为空或者其位数不足8位。'
    P_VERIFY( 1 , 1 ) = 1
 ELSE 
    LOCATE FOR 管理号 == C_GLH
    IF EOF()
       P_VERIFY( 1 , 1 ) = 0
    ELSE 
       P_VERIFY( 1 , 1 ) = 1
       P_VERIFY( 1 , 2 ) = '当前人员管理号已被占用。'
    ENDIF 
 ENDIF 
 P_VERIFY( 2 , 1 ) = CHECK_NAME(C_NAME,'姓名')
 IF P_VERIFY(2,1) <> 0
    DO CASE 
    CASE P_VERIFY(2,1) = 1
       P_VERIFY( 2 , 2 ) = '人员姓名为空或者是单个汉字。'
    CASE P_VERIFY(2,1) = 2
       P_VERIFY( 2 , 2 ) = '人员姓名中存在英文字母。'
       P_VERIFY( 2 , 1 ) = 1
    OTHERWISE 
       P_VERIFY( 2 , 2 ) = '当前的人员姓名已存在系统中。'
       P_VERIFY( 2 , 1 ) = 2
    ENDCASE 
 ENDIF 
 P_VERIFY( 3 , 1 ) = CHECK_IDCARD(C_IDCARD,.T.,'身份证号码')
 IF P_VERIFY(3,1) <> 0
    DO CASE 
    CASE P_VERIFY(3,1) = 1
       P_VERIFY( 3 , 2 ) = '身份证号码为空或者其位数不足18位。'
    CASE P_VERIFY(3,1) = 2
       P_VERIFY( 3 , 2 ) = '身份证号码中出生年月段的数据错误。'
    CASE P_VERIFY(3,1) = 3
       P_VERIFY( 3 , 2 ) =  ;
            '身份证号码的尾数代码错误，其末位必需为a至z的字母、0至9的数字！！'
    OTHERWISE 
       P_VERIFY( 3 , 2 ) = '当前的身份证号码已存在于系统中。'
    ENDCASE 
    P_VERIFY( 3 , 1 ) = 1
 ENDIF 
 DO CASE 
 CASE EMPTY(C_BLOOD)
    P_VERIFY( 4 , 1 ) = 2
    P_VERIFY( 4 , 2 ) = '没有输入当前人员的血型。'
 CASE C_BLOOD <> 'A' AND C_BLOOD <> 'B' AND C_BLOOD <> 'O' AND C_BLOOD <> 'AB'
    P_VERIFY( 4 , 1 ) = 3
    P_VERIFY( 4 , 2 ) = '因为当前人员的血型为非常规血型，系统无法进行正确判定。'
 OTHERWISE 
    P_VERIFY( 4 , 1 ) = 0
 ENDCASE 
 DO CASE 
 CASE EMPTY(C_NATION)
    P_VERIFY( 5 , 1 ) = 2
    P_VERIFY( 5 , 2 ) = '没有输入当前人员的民族。'
 CASE ALLTRIM(C_NATION) <> '汉'
    P_VERIFY( 5 , 1 ) = 3
    P_VERIFY( 5 , 2 ) = '系统无法判定除汉族以外其他的少数民族。'
 OTHERWISE 
    P_VERIFY( 5 , 1 ) = 0
 ENDCASE 
 IF EMPTY(C_SPEC)
    P_VERIFY( 6 , 1 ) = 2
    P_VERIFY( 6 , 2 ) = '没有输入所学的专业。'
 ELSE 
    P_VERIFY( 6 , 1 ) = 3
    P_VERIFY( 6 , 2 ) = '系统无法对专业学科进行正确的判定。'
 ENDIF 
 IF EMPTY(C_LOGINDATE)
    P_VERIFY( 7 , 1 ) = 1
    P_VERIFY( 7 , 2 ) = '入档日期输入错误。'
 ELSE 
    P_VERIFY( 7 , 1 ) = 0
 ENDIF 
 IF LEN(ALLTRIM(C_PHONE)) < 7
    P_VERIFY( 8 , 1 ) = 2
    P_VERIFY( 8 , 2 ) = '电话号码为空或者少于7位数。'
 ELSE 
    P_VERIFY( 8 , 1 ) = 3
    P_VERIFY( 8 , 2 ) = '系统无法对电话号码进行正确的判定。'
 ENDIF 
 IF EMPTY(C_ADDRESS)
    P_VERIFY( 9 , 1 ) = 2
    P_VERIFY( 9 , 2 ) = '没有输入详细住址。'
 ELSE 
    P_VERIFY( 9 , 1 ) = 3
    P_VERIFY( 9 , 2 ) = '系统无法对住址码进行正确的判定。'
 ENDIF 
 IF EMPTY(PIC_NAME)
    P_VERIFY( 10 , 1 ) = 2
    P_VERIFY( 10 , 2 ) = '没有指定该人员的相片。'
 ELSE 
    P_VERIFY( 10 , 1 ) = 0
 ENDIF 
 IF EMPTY(JL)
    P_VERIFY( 11 , 1 ) = 2
    P_VERIFY( 11 , 2 ) = '没有录入该人员的简历。'
 ELSE 
    P_VERIFY( 11 , 1 ) = 0
 ENDIF 
 IF EMPTY(GZJL)
    P_VERIFY( 12 , 1 ) = 2
    P_VERIFY( 12 , 2 ) = '没有录入该人员的工作经历。'
 ELSE 
    P_VERIFY( 12 , 1 ) = 0
 ENDIF 
 IF EMPTY(GRZC)
    P_VERIFY( 13 , 1 ) = 2
    P_VERIFY( 13 , 2 ) = '没有录入该人员的个人专长。'
 ELSE 
    P_VERIFY( 13 , 1 ) = 0
 ENDIF 
 IF LEN(ALLTRIM(C_BLBH)) < 10
    P_VERIFY( 14 , 1 ) = 1
    P_VERIFY( 14 , 2 ) = '病历编号为空或者其长度不为10位号码。'
 ELSE 
    LOCATE FOR 病历编号 == C_BLBH
    IF EOF()
       P_VERIFY( 14 , 1 ) = 0
    ELSE 
       P_VERIFY( 14 , 1 ) = 1
       P_VERIFY( 14 , 2 ) = '当前的人员病历编号已被占用。'
    ENDIF 
 ENDIF 
*