pczjl.prg

来自「一个非常好用的财务软件源程序」· PRG 代码 · 共 20 行

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


 BNO = .F.
 = PUSE('qxtmp')
 LOCATE FOR MNAME = BNAME
 IF FOUND()
    IF SUBSTR(BCZYQX,RECNO(),1) <> 'Y'
       = MESSAGEBOX('对不起,您无此操作权限',64,'提示信息')
       BNO = .T.
       USE 
       RETURN 
    ENDIF 
 ENDIF 
 USE 
 RETURN 
*