退出后依然还会保留以下界面：


以下是登录表单执行代码：
.
.
.
***以上验证完成账户密码后执行主表单程序，然后释放掉登录表单：
DO FORM main
RELEASE thisform
READ EVENTS

以下是主表单QueryUnload 的处理代码

        IF MESSAGEBOX(' 确定要退出存货管理系统吗 ？ ',4+32,'提示')=7
           NODEFAULT  
           RETURN               &&不退出，返回
         ELSE                    &&确定退出
          CLOSE ALL
          RELEASE thisform
          CLEAR WINDOW
          CLEAR EVENTS
         QUIT  
        ENDIF

这样处理，退出后总退不干净，需要按CTRL+ALT+DEL来启动任务管理器关闭进程，非常麻烦。该如何解决？

顺序改了，clear events放在表单释放前，还是一样退出不彻底。

在账户登录的表单的uload或者Destroy事件加CLEAR EVENTS都试过了，还是不行。这样的话在释放登录表单后，进入程序主表单就会一直激发主程序表单的，“QueryUnload ”事件，不停的执行“是否退出程序”的命令。
我估计还是问题出在下面：
1-主程序main.PRG首先调用，登录界面表单，然后read events
2-登录界面表单执行后，释放登录表单，执行程序运行的主表单，继续运行read events。
3-释放登录界面的释放，不能执行clear events，一执行该语句，进入程序主程序的时候就会直接激发主程序的“QueryUnload /unload”事件，这样程序的主程序根本无法正常运行。
4-这样是不是造成了一个登录界面的残余进程没有清理干净？执行主程序退出的时候，造成clear events 无法清理完全进程？

请各位大神赐教一下该如何合理解决这个问题？

*****主程序MAIN.PRG****************
 CLEAR ALL
 SET EXACT ON
 SET SAFETY OFF
 SET DELETED On
 _screen.Visible =.f.
 
 SET EXCLUSIVE ON
 SET TALK OFF
 SET DATE TO ansi
 SET CENTURY ON    &&日期年份显示为4位数
 SET MULTILOCKS ON
 CLOSE ALL

DO FORM psd     &&运行登录程序
READ EVENTS
  
*********登录程序代码 “确定”按钮代码*************   
   SELECT czy   &&账户信息表
   GO TOP
   LOCATE FOR ALLTRIM(CZID)=ALLTRIM(THISFORM.TEXT1.Value) OR ALLTRIM(nam)=ALLTRIM(thisform.text1.Value)
   IF !FOUND()
      =MESSAGEBOX('无此用户信息！',0+48,'提示')
      THISFORM.TEXt1.SETFOCUS
      RETURN
   ELSE
      IF ALLTRIM(PSD)<>ALLTRIM(THISFORM.TEXT2.Value)
         =MESSAGEBOX('口令错误！',0+48,'提示')
         THISFORM.TEXT2.SetFocus
         RETURN
       ENDIF   
   ENDIF      

DO FORM main           &&运行主表单
RELEASE thisform
READ EVENTS


**********主表单的 QUERYUNLOAD()代码*********************
  CLOSE ALL
  CLEAR WINDOW      
  CLEAR EVENTS            
  RELEASE thisform      
  QUIT

问题解决了。在主程序main.PGR的READ EVERNS后面加了quit语句
*****主程序MAIN.PRG****************
 CLEAR ALL
 SET EXACT ON
 SET SAFETY OFF
 SET DELETED On
 _screen.Visible =.f.
 
 SET EXCLUSIVE ON
 SET TALK OFF
 SET DATE TO ansi
 SET CENTURY ON    &&日期年份显示为4位数
 SET MULTILOCKS ON
 CLOSE ALL

DO FORM psd     &&运行登录程序
READ EVENTS
QUTI

是的，按照各位大神提供的思路，我重新捋了一下逻辑。把登录表达放在了主表单中运行，不独立出来。


主程序这样处理：
 *****主程序MAIN.PRG****************
 CLEAR ALL
 SET EXACT ON
 SET SAFETY OFF
 SET DELETED On
 _screen.Visible =.f.
 
 SET EXCLUSIVE ON
 SET TALK OFF
 SET DATE TO ansi
 SET CENTURY ON    &&日期年份显示为4位数
 SET MULTILOCKS ON
 CLOSE ALL

DO FORM MAIN     &&运行主程序
READ EVENTS
CLEAR ALL
QUIT

  
在主表单的 QUERYUNLOAD()事件加入clear EVENTS，这样就完美解决了：

**********主表单的 QUERYUNLOAD()代码*********************
  CLOSE ALL
  CLEAR WINDOW      
  CLEAR EVENTS