qq.prg

来自「吐血贡献纺织上的进销存原码,功能齐全,给大家吧.」· PRG 代码 · 共 22 行

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


 IF  .NOT. USED('regid')
    USE (DXPATH + 'data\regid.dbf')
 ENDIF 
 GO TOP
 REPLACE 启动 WITH .F. , 退出 WITH .T.
 USE 
 SELECT 0
 USE SHARED (MLPATH + 'data\sysuser.dbf')
 SELECT SYSUSER
 LOCATE FOR ALLTRIM(用户) == ALLTRIM(SYS(0))
 REPLACE 登录 WITH .F.
 CLOSE TABLE ALL
  _SCREEN.HIDE
 ON SHUTDOWN 
 CLEAR EVENTS 
*