lcdn.prg

一个非常优秀的VFP源码

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: LCDN.PRG(主文件) <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SET TALK OFF
 SET ESCAPE OFF
 SET SAFETY OFF
 SET DATE ansi
 SET CENTURY ON
 SET DEFAULT TO CURDIR()
 SET STATUS ON
 SET EXCLUSIVE ON
 SET EXACT ON
 SELECT 3
 USE bz1temp
 GO 1
 IF INT(VAL(SUBSTR(SYS(9),19,5)) * 11325 / 12789 + 128759.66) = ID1 AND  ;
INT(VAL(SUBSTR(SYS(2020),1,8)) * 18793 / 18479 + 3257969.33) = ID2
    _SCREEN.CAPTION = '《蓝软电子行业管理》 3000 XP  V2.0 '
 ELSE 
    _SCREEN.CAPTION = '《蓝软电子行业管理》 3000 XP  V2.0 '
 ENDIF 
  _SCREEN.SHOW
 _SCREEN.MAXBUTTON = .T.
 _SCREEN.CLOSABLE = .F.
 ZOOM WINDOW SCREEN MAX 
 DO lcdnp.mpr
 DO FORM lcdnpbmp.scx
 DO FORM lcdnp.scx
 SELECT 3
 USE bz1temp
 GO 1
 IF INT(VAL(SUBSTR(SYS(9),19,5)) * 11325 / 12789 + 128759.66) = ID1 AND  ;
INT(VAL(SUBSTR(SYS(2020),1,8)) * 18793 / 18479 + 3257969.33) = ID2
 ELSE 
    SELECT 2
    GO 1
    IF CZRNAME1 = .F.
       REPLACE CZRNAME1 WITH .T. , DAT WITH DATE()
    ENDIF 
    IF CZRNAME1 = .T. AND DATE() - DAT >= 15 AND DATE() - DAT > 0 AND CZRNAME2 = .F.
       DO FORM csb
    ENDIF 
    IF DATE() - DAT >= 30 .OR. DATE() - DAT < 0 .OR. CZRNAME2 = .T.
       DO FORM csb1
    ENDIF 
 ENDIF 
 DO lcdnp1.mpr
 READ EVENTS 
*