USE 管理员信息.dbf
IF ALLTRIM(thisform.text1.value)=ALLTRIM(用户名).and.alltrim(thisform.text2.value)=ALLTRIM(密码)
USE
_screen.visible=.t.
DO form 系统主表单.scx
thisform.Release
ELSE
MESSAGEBOX("用户名与密码不对!")
ENDIF
      

关闭什么程序了，是登录界面，还是其它界面。要说清楚啊。
thisform.Release 就是关闭表单的意思

可能是没有消息循环，试试：
1、在 系统主表单.scx 的 Unload 事件尾加多一句 CLEAR EVENTS
2、在执行 DO form 系统主表单.scx 这句后加多一句 READ EVENTS
DO form 系统主表单.scx
READ EVENTS
3、thisform.Release 这句如果是释放 系统主表单 的话可以不要或放到表单的“关闭”动作里执行。

吹版正解！