qq.prg

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

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