主题：[求助]请教,已在项目事件设置打开自定义用户登录窗口,但系统用户登录窗口还是弹出来?

1、你在用户管理那里，添加一个用户，设置成默认；

2、重新打开项目，就不会出现内置的登陆框了

 shouquan函数有问题，原先的那些 user.xxx 要换成那你自己的 _UserName 等

Dim dt As DataTable = DataTables("授权表")
Dim dr As DataRow
If args(1) = "" Then
    '首先判断分组的授权用户是否包括此用户或此用户所属的分组
    dr = dt.Find("分组 = '" & args(0) & "' And 权限 Is Null" )
    If dr Is Nothing Then
        MessageBox.show("不存在名为""" & args(0) & "分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return False
    End If
    If dr.IsNull("用户") = False Then
        Dim nms() As String = dr("用户").Split(",")
        For Each nm As String In nms
            If nm = _UserGroup OrElse nm = _UserName  Then '如果授权用户包括登录用户所属的分组或其用户名
                Return True '返回True
            End If
        Next
    End If
    Return False
Else
    '然后判断权限的授权用户是否包括此用户或此用户所属的分组 
    dr = dt.Find("分组 = '" & args(0) & "' And 权限 = '" & args(1) & "'")
    If dr Is Nothing Then
        MessageBox.show("不存在名为""" & args(1) & "权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return False
    End If
    If dr.IsNull("用户") = False Then
        Dim nms() As String = dr("用户").Split(",")
        For Each nm As String In nms
            If nm = _UserGroup OrElse nm = _UserName  Then '如果授权用户包括登录用户所属的分组或其用户名
                Return True '返回True
            End If
        Next
    End If
    Return False
End If