*主程序中写上:
PUBLIC lSysLogin
lSysLogin=.F.
DO FORM form\Login.scx
READ EVENTS
IF lSysLogin=.T.
DO FORM form\mainform.scx
READ EVENTS
ENDIF
*我的,Login.scx与mainform.scx都是顶层表单,如果正常登录,lSysLogin=.T.
*我是在Login.scx的Destroy事件中
CLEAR EVENTS
[
本帖最后由 mywisdom88 于 2015-6-9 17:22 编辑 ]