- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]什么鬼?昨天测试还好好的 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71443)
-- 发布时间：2015/7/11 11:10:00
-- [求助]什么鬼?昨天测试还好好的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:my qq.zip |
用户登录窗口,在密码框控件运用下面代码:
KeyDown:
If e.KeyCode = Keys.Enter Then \'如是回车键
Dim btn As WinForm.Button = e.Form.Controls("Button1")
btn.PerformClick() \'模拟单击发送按钮
End If
想省事,输入密码回车即打开项目,昨天测试通过了.
今天再试就不正常了,总提示"密码不正确"
怎么回事?
-- 发布时间：2015/7/11 11:22:00
--
提示密码不正确，这种问题，应该你自己调试，密码正确与否，计算机是不会撒谎的。
Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = "" Then
Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
cmd.CommandText = "Select * Fr om {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 0 Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = dt.DataRows(0)
MessageBox.show(e.Form.Controls("PassWord").Value)
MessageBox.show(dr("Password") )
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
\' cmd.CommandText = "UPD ATE {Users} SET 登陆次数 =" & dr("登陆次数")+1 & " WH ERE Name =\'" & _UserName & "\'"
e.Form.Close
If cmd.ExecuteNonQuery = 1 Then \'返回1表示增加成功
\'Vars("隐藏") = "False"
\'Dim frm As WinForm.Form
\'frm = Forms("用户列表")
\'frm.Open(SysInfo.ScreenWidth-300, SysInfo.ScreenHeight-600)
\'
End If
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
-- 发布时间：2015/7/11 11:23:00
--
原因：
http://www.foxtable.com/help/topics/0751.htm
http://www.foxtable.com/help/topics/0750.htm