-- 作者:unverse
-- 发布时间:2012/9/21 11:40:00
-- 为什么个窗口关闭后还卡在那里呢?
做 了一个密码认证窗口,如果密码输入正确则关闭当前窗口,打开另一个窗口,,,现在输入密码正确后,第一个窗口还是那里灰色的..是怎么回事.上图...
此主题相关图片如下:qq截图20120921113345.png

此主题相关图片如下:qq截图20120921113417.png

以上登陆按钮代码:
Dim pas As WinForm.TextBox = e.Form.Controls("TextBox1") Dim pd As String Dim cmd As new SQLCommand cmd.C cmd.CommandText="select 列值 from {系统设置} where 列名=\'密码\'" pd=cmd.ExecuteScalar If pas.value = pd Then MessageBox.Show("欢迎使用任务记录系统","登陆成功",MessageBoxButtons.OK,MessageBoxIcon.Information) Forms("登陆密码").close Forms("主窗口").open Else If vars("cont")>0 Then MessageBox.Show("您输入的密码不正确,请重新输入!您还有" & vars("cont") & "次机会!","提示") vars("cont")=vars("cont")-1 Else MessageBox.Show("对不起,您输入的密码错误次数已经达到3次,系统将自动退出","提示信息",MessageBoxButtons.OK,MessageBoxIcon.Error) syscmd.project.Exit() End If End If
|