回复 20楼 吹水佬
是的,按照各位大神提供的思路,我重新捋了一下逻辑。把登录表达放在了主表单中运行,不独立出来。主程序这样处理:
*****主程序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