sy.prg

帐务管理系统

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


 PARAMETER LNAME
 PRIVATE ALL 
 IF EMPTY(LNAME)
    RETURN 
 ENDIF 
 IF  .NOT. USED(LNAME)
    USE IN 0 EXCLUSIVE (LNAME) ALIAS (LNAME)
 ENDIF 
 SELECT (LNAME)
*