Foxtable(狐表)用户栏目专家坐堂 → 登录成功后登录窗口关闭还有边框显示怎么解决哦(已解决谢谢版主)


  共有1837人关注过本帖树形打印复制链接

主题:登录成功后登录窗口关闭还有边框显示怎么解决哦(已解决谢谢版主)

帅哥哟,离线,有人找我吗?
run010501
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:50 积分:548 威望:0 精华:0 注册:2015/12/24 11:11:00
登录成功后登录窗口关闭还有边框显示怎么解决哦(已解决谢谢版主)  发帖心情 Post By:2017/8/19 16:02:00 [显示全部帖子]


此主题相关图片如下:qq图片20170819154657.png
按此在新窗口浏览图片

登录成功跳转主窗口    登录窗口的边框还在有  不知道怎么解决了

代码
Dim UserName As String = e.Form.Controls("TextBox1").Value
Dim dr As DataRow
If UserName = "" Then
      MessageBox.Show("请输入用户账号!!!!","错误提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Error)
End If
dr = _UserTable.SQLFind("用户账号 = '" & UserName & "'") 
If  dr Is Nothing  Then
     Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
     
End If
If e.Form.Controls("TextBox2").Value = dr("用户密码") Then
    _UserName = UserName
    _UserGroup = dr("用户组别") 
    _UserXm = dr("用户姓名")
   ' MessageBox.Show("用户登录成功!!!!!!!!!!!","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
    e.Form.Close()
    Forms("主窗口").open
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
[此贴子已经被作者于2017/8/19 16:19:08编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
run010501
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:50 积分:548 威望:0 精华:0 注册:2015/12/24 11:11:00
  发帖心情 Post By:2017/8/19 16:14:00 [显示全部帖子]

嗯  是模式窗口 按照说明做的

 回到顶部