此主题相关图片如下：11.jpg
输入对应信息，点击确认弹窗
此主题相关图片如下：00.jpg
确认按钮button,click事件代码
以下内容为程序代码:
1 Dim zh As WinForm.TextBox = e.Form.Controls("账号")
2 Dim dh As WinForm.TextBox = e.Form.Controls("电话")
3 Dim dr As DataRow = _UserTable.SQLFind("Account = '" & _UserAccount & "'")
4 If dr Is Nothing Then
5 MessageBox.Show ("账号不存在,或者电话号码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
6 zh.value=""
7 dh.value=""
8 Else
9 If zh.Value ="" Then
10 MessageBox.Show ("请输入账号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
11 Else
12 Dim mms As String = dr("Phone")
13 If dh.Value = "" Then
14 MessageBox.Show ("电话不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
15 Else
16 If dh.Value = mms Then
17 Forms("忘记密码").baseform.Opacity = 0
18 Forms("忘记密码").close
19 Forms("修改密码").open
20 Else
21 MessageBox.Show ("账号不存在,或者电话号码错误!","提示",MessageBoxButtons.OK)
22 zh.Value=""
23 dh.Value=""
24 End If
25 End If
26 End If
27 End If
云服务器端的数据表Users内容如下：
此主题相关图片如下：03.png
忘记密码窗口设计的功能是输入对应的姓名和号码，打开修改密码窗口（强制修改密码）
ps:不知为何附件无法上传，所以只能文字描述。
修改密码窗口设计很简单，两个文本框输入密码，和再次输入
然后一个确认按钮，一个取消按钮
以下内容为程序代码:
1 Dim mm As WinForm.TextBox = e.Form.Controls("密码")
2 Dim mm1 As WinForm.TextBox = e.Form.Controls("密码1")
3 If mm1.value=mm.value Then
4 _UserTable.SQLReplaceFor("password", mm.value, "Account = '" & _UserAccount & "'")
5 mm.value=""
6 mm1.value=""
7 MessageBox.show("修改成功!","提示",MessageBoxButtons.OK)
8 Else
9 MessageBox.show("两次密码不一致,请重新输入!","提示",MessageBoxButtons.OK)
10 mm.value=""
11 mm1.value=""
12 End If
现在问题时，为何用姓名和号码的方式无法正常运行，为何有图一的提示，能帮我看看问题出在哪里吗
加好友 
发短信
Post By：2015/7/4 13:00:00 [显示全部帖子]
