关于VFP9.0 连编问题还没搞定

各位大哥真不好意思啊，小弟初学搞了好久都没有搞定那个“一闪而过”的问题，具体是这样的，我用一个表单做成登陆框，“确定”里面代码是：
public qx
i=i+1
if alltrim(ThisForm.nametxt.value)==''
    messagebox("请输入用户名",0+64,"系统提示")
    thisform.nnaemtxt.setfocus
    return
endif
if alltrim(ThisForm.wpdtxt.value)==''
    messagebox("请输入密码",0+64,"系统提示")
    thisform.wpdtxt.setfocus
    return
endif    
locate for alltrim(ThisForm.nametxt.value)==alltrim(yfdl.用户名)
if found()=.T.
    if alltrim(ThisForm.wpdtxt.value)==alltrim(yfdl.密码)
        release thisform
        messagebox("登录成功",0+48,"系统提示")
        if yfdl.用户权限="1"
            qx=1
        else
            qx=2
        endif
        do FORM 表单1
         READ events
    else
        if i<3
            messagebox("密码不正确",0+16,"系统提示")
            thisform.wpdtxt.value=" "
            thisform.wpdtxt.setfocus
        else
            messagebox("非法用户，无权登录",0+48,"警告")
            thisform.release
        endif    
    endif
else
    if i<3
        messagebox("该用户不存在!",0+48,"系统提示")
        thisform.nametxt.value=" "
        thisform.nametxt.setfocus
    else
        messagebox("非法用户，无权登录",0+18,"警告")
        thisform.release
    endif    
ENDIF
"取消"代码是：thisform.release
密码正确就进入空白表单，“空白表单”里DO 人员管理.mpr with this, .t.
在“人员管理”菜单里面有一个“退出系统”我用的是过程代码是：
if messagebox("请确认是否退出本系统？",292,"人事管理系统")=6
wait "正在退出人事管理系统" window nowait
wait clea
CLEAR events
quit
ENDIF
里面都写上了你们说的“read events"和"clear events"可以还是搞不定请帮忙谢谢!!!!!!!!

把read event 放到表单的init事件内!

放到INIT里面就退不出系统了啊。

在表单的unload事件中写入QUIT也退不也系统吗？

加个QQ在线请教一下行不？这个问题我已经问了好久了，是我初学所以没有搞明白!
我的QQ是：108555805

设置一个主程序
set century on
set safety off
。。。。。。      *其他的环境设置
set date ansi
set stat off
set talk off
clear
  do form XXXXX    *你做好的登陆FORM名称
read events        *把你的程序中的 read event 统统去掉，其他没有必要的代码也拿掉
clear memory
return

谢谢各位我已经搞定这个问题了，就是在主程序里面的后面一格写上read events再在菜单的退出系统按健上写上clear event
就搞定了。