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

自定义用户登录界面中：取消键的代码为e.Form.Close，点击之后就会以系统的默认用户登录，我的理解应该是推出登录，老大取消按钮的代码应该如何写

老大你在吗，请指点，我的项目就缺这一步了

 

此主题相关图片如下：未命名.jpg

 

添加上syscmd.project.exit之后，提示上面的错误，请老大再看看

 

菜单我使用的是在系统菜单的基础之上略加修改，上面提示的部分也没有作任何修改

提示错误是发布后的项目

此主题相关图片如下：未命名.jpg

 

还有这样的提示：代码是

Forms("用户登录").Open()
'动态加载数据表
For Each dr As DataRow In DataTables("数据加载").DataRows
    Dim s As String = dr("数据库名")
    Dim s1 As String =dr("表名")
    If dr.IsNull("数据库名")=False Then
        If Connections(s).GetTableNames.Contains(s1) Then
            If dr("是否加载")=True Then
                Dim q As new OuterTableBuilder
                q.TableName = s1
                q.ConnectionName = s
                q.SelectString = "Select * From [" & s1 & "] "
                q.Build
            End If
        Else
            MessageBox.Show(s1 & " 外部表不存在,不能加载!")
        End If
    End If
Next
'动态创建关联表

For Each dr As DataRow In DataTables("关联管理").DataRows
    If dr.IsNull("关联名称")=False Andalso  dr.IsNull("父表_表名")=False Andalso dr.IsNull("子表_表名")=False Then
        If dr("是否关联")=True Then
            Dim i As Integer = dr("关联列数")
            Select Case i
                Case 0
                    Relations.Add(dr("关联名称"), DataTables(dr("父表_表名")).DataCols(dr("父表_关联列一")),DataTables(dr("子表_表名")).DataCols(dr("子表_关联列一")))
                Case 1
                    Dim DataCols1(i) As DataCol
                    Dim DataCols2(i) As DataCol
                    DataCols1(0) = DataTables(dr("父表_表名")).DataCols(dr("父表_关联列一"))
                    DataCols1(1) = DataTables(dr("父表_表名")).DataCols(dr("父表_关联列二"))
                    DataCols2(0) = DataTables(dr("子表_表名")).DataCols(dr("子表_关联列一"))
                    DataCols2(1) = DataTables(dr("子表_表名")).DataCols(dr("子表_关联列二"))
                    Relations.Add(dr("关联名称"), DataCols1, DataCols2)
                Case 3
                    Dim DataCols1(i) As DataCol
                    Dim DataCols2(i) As DataCol
                    DataCols1(0) = DataTables(dr("父表_表名")).DataCols(dr("父表_关联列一"))
                    DataCols1(1) = DataTables(dr("父表_表名")).DataCols(dr("父表_关联列二"))
                    DataCols1(2) = DataTables(dr("父表_表名")).DataCols(dr("父表_关联列三"))
                    DataCols2(0) = DataTables(dr("子表_表名")).DataCols(dr("子表_关联列一"))
                    DataCols2(1) = DataTables(dr("子表_表名")).DataCols(dr("子表_关联列二"))
                    DataCols2(2) = DataTables(dr("子表_表名")).DataCols(dr("子表_关联列三"))
                    Relations.Add(dr("关联名称"), DataCols1, DataCols2)
            End Select
        Else
            Relations.Delete(dr("关联名称"))
        End If
    End If
Next

'打开默认视图
For Each tb As Table In Tables
    Tables(tb.Name).OpenView("默认视图")
Next

'系统注册
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" Andalso DecryptText(Code,"2332163","2332163") = ComputerId Then '如果注册码正确
    OK = True
Else
    If n > 10000 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" Andalso DecryptText(Code,"2332163","2332163") = ComputerId Then '如果注册码正确
            OK = True
        End If
    End If
    If n > 12000 Andalso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Syscmd.Project.Exit()
    End If
End If
n = n + 1
SaveConfigValue("Count",n)

 

这种应该如何设置，请老大指点以下

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

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

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