If e.Sender.Value IsNot Nothing AndAlso e.Sender.Value<>"请输入用户名" Then
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    Dim dr As DataRow
    cmd.C
    cmd.CommandText = "Select * Fr om {用户管理表} Where [用户名] = \'" & e.Form.Controls("UserName").Value & "\'"
    dt = cmd.ExecuteReader
    If dt.DataRows.Count = 0 Then
        Messagebox.show("此用户名不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
    dr = dt.DataRows(0)
    e.Form.Controls("UserPhoto").Image = GetImage(dr("用户照片"))
Else
\'If e.Forms.controls("Button2").click=True Then
\'
\'
\'Else
    \'Messagebox.show("请先输入用户名!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
\'End If
End If

红色是想加入的部分，因为：如果登录窗口打开后，输入用户名或者清空用户名后，突然不想进入项目了，就点击取消按钮，这个就发生这种情况：先弹出“请输入用户名”，然后再点击取消才能关闭项目

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=73707