主题：窗口登录问题

此主题相关图片如下：未标题-1.jpg

请老师帮忙解决此问题，自行设计好登录窗口后，发布试运行通过秘密进入设计好的系统没有问题，但是发现一个漏洞，自行设计的登录界面右上角X点击后可不通过密码登录直接进入系统，并且原来设计的可见权限不起作用，发布后单机测试，如果通过登录界面按用户和密码进入的，所设置的可见权限有效。对于控制界面右上角X的代码不知如何写，请各位帮忙解决，谢谢

 

登录界面窗口AFTERLOAD的代码为：（不知是不是这里的有问题）

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
'cmd.C   外部数据源
cmd.CommandText = "SELECT DISTINCT 用户名称 From {用户表}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
   cmb.Items.Add(dr("用户名称"))
Next
cmb.SelectedIndex = 0

 

发布后，单机测试登录界面除X的地方外，都没有问题，都能按登录用户与密码实现权限控制。

 编写窗口的 beforeClose 或者 afterClose 事件，

 代码： Syscmd.Project.Exit()

谢谢，小弟试试