changestru_1.prg

来自「智能考勤管理系统是我学习别人的一个软件,我主要在搞工业自动化的编程,单片机,PL」· PRG 代码 · 共 22 行

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


 LOCAL LERR , OLDERR
 OLDERR = ON('error')
 ON ERROR lerr=.t.
 IF FILE('rsgz.dbf')
    IF  .NOT. USED('rsgz')
       USE IN 0 rsgz
    ENDIF 
    SELECT RSGZ
    IF FSIZE('合同签定日') = 0
       USE IN RSGZ
       RENAME rsgz.dbf TO oldrsgz.dbf
       RENAME rsgz.cdx TO oldrsgz.cdx
    ENDIF 
 ENDIF 
  on error &olderr
*