主题：关于登录窗体验证码的生成

为了防止用户跳过确定和取消按钮，直接关闭窗口，请将窗口的“显示控制框”属性设置为False。

Dim cmd As New SQLCommand
cmd.ConnectionName = "User"
cmd.CommandText = "SELECT * From {Users} Where [Name] Is Null"
_UserTable = cmd.ExecuteReader(True)

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
'后续初始化代码

第一段是之前已经写好