主题：自定义用户登录的问题

e.form.clsoe

syscmd.project.exit

做简单例子上来

要不在AfterOpenproject中设置代码，如果用户单击的是取消按钮，就退出。

Forms("用户登录").Open()

If 用户单击了取消按钮 Then

   syscmd.project.Exit

   Return

End if

后续代码

1、第一个方法，你可以用一个public变量，默认为False，在取消按钮中设置代码，将此变量设置为True

这样只需判断此变量的值是否为True，就知道用户是否单击了取消按钮。

2、第二个方法，如果你使用的是帮助中自定义用户管理，那么用户单击取消按钮，肯定就没有设置_UserName和_UserGroup两个变量的值，那么只需判断_UserName是否等于""，就知道用户是否单击了取消按钮。