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

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

If 用户单击了取消按钮 Then

   syscmd.project.Exit

   Return

End if

后续代码

在AfterOpenproject中只能设置这么一句Forms("用户登录").Open()代码，加入其他代码之后，就会提示错误。这是测试了之后的结果。老大，请看看是什么原因

我不会写的代码就是这一段“用户单击了取消按钮”

 

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

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

 

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

 

你说的这两种办法，我还没有能力去解决，老大如果有时间就请帮帮忙吧，在此先感谢了。我用的代码大部分都是直接使用帮助中提供的代码

老大我用你说的第二种办法基本上解决了。

呵呵，还是地基不牢啊。

就是

'打开登录窗口
If  User.Type = UserTypeEnum.Developer  Then
Else
    Forms("用户登录").Open()
    If _UserName="" Then
        syscmd.project.Exit
        Return
    End If
End If

 

我是这样处理的，这样在项目设计的时候不会引发关闭项目。请老大指点，还是什么缺点没有

自定义用户在切换用户时不能引发loadusersetting事件，请老大看看