pjm.prg

一个非常好用的财务软件源程序

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


 = PUSE('kuser')
 BDWMC = ALLTRIM(FNAME)
 BMM = 0
 K = LEN(BDWMC)
 FOR I = 1 TO K
    BMM = BMM + ASC(SUBSTR(BDWMC,I,1)) * I * (I + 2)
 ENDFOR 
 BMM1 = BMM
 BMM2 = BMM
 BMM3 = BMM
 DO WHILE BMM < 9999999999
    BMM = BMM * (MOD(BMM,41) + 3) + 2
 ENDDO 
 DO WHILE BMM1 < 9999999999
    BMM1 = BMM1 * (MOD(BMM1,31) + 3) + 2
 ENDDO 
 DO WHILE BMM2 < 9999999999
    BMM2 = BMM2 * (MOD(BMM2,7) + 5) + 2
 ENDDO 
 DO WHILE BMM3 < 9999999999
    BMM3 = BMM3 * (MOD(BMM3,97) + 7) + 3
 ENDDO 
 BYHMM = SUBSTR(ALLTRIM(STR(BMM,12)),2,10)
 BYHMM1 = SUBSTR(ALLTRIM(STR(BMM1,12)),2,10)
 BYHMM2 = SUBSTR(ALLTRIM(STR(BMM2,12)),2,10)
 BYHMM3 = SUBSTR(ALLTRIM(STR(BMM3,12)),2,10)
 REPLACE FWLB WITH IIF(FYHMM = BYHMM3,.T.,.F.)
 IF '银行' $ _SCREEN.CAPTION
    BYH = IIF((FYHMM <> BYHMM2 .OR. K < 8) .AND. ((FDQQ - FKSQ) > 65),.F.,.T.)
 ENDIF 
 IF ( .NOT. (FYHMM = BYHMM .OR. FYHMM = BYHMM1 .OR. FYHMM = BYHMM2 .OR. FYHMM = BYHMM3)) .OR.  ;
K < 8
    REPLACE FNAME WITH  ;
         IIF(SUBSTR(_SCREEN.CAPTION,1,4) = '万思','武汉万思商务财务软件有限公司','江苏XXXXXXXX公司')
    IF (FDQQ - FKSQ) > 65
       = MESSAGEBOX('非注册用户三个月试用期已满！',64,'提示信息')
       CLOSE DATABASES ALL
       QUIT 
    ENDIF 
 ENDIF 
 USE 
*