我的主程序：

CLEAR
CLEAR ALL
SET ESCAPE OFF            
SET TALK OFF
Set Console Off            
SET SAFETY OFF
Set Exclusive Off
Set Status Bar off
Set Exact On
Set Deleted On
SET SYSMENU OFF
SET SYSMENU TO
SET CENTURY ON
SET DATE YMD
Set Hours To 24
*系统主界面设置
_Screen.WindowState= 2
_Screen.caption=""
_screen.BackColor=Rgb(236,233,216)
_Screen.icon="pic\1.ico"
PUBLIC cUser,n
DO FORM 登录
READ EVENTS
Quit
请高手指点！

[此贴子已经被作者于2016-9-29 11:05编辑过]

READ EVENTS后的Quit去掉看看

是不是有多处 CLEAR EVENTS。

也可用一个“登录”函数来处理，登录函数返回当前用户，如果登录无效返回“空”
程序启动时：
    当前用户 = 登录()
    IF !EMPTY(当前用户)
        DO FORM 顶层界面
    ENDIF

切换用户时：
    当前用户 = 登录()
    IF EMPTY(当前用户)
       QUIT
    ENDIF

在菜单中重新调用登录表单：do form 登录。还是不行？

[此贴子已经被作者于2016-9-26 15:45编辑过]

登陆表单的init或load里写有什么东东不？

把主程序里的
clear events
quit
改为
do while .t.
   clear evnts
enddo
可以调用退出程序来确实退出系统。

谢谢