-- 作者:狐狸爸爸
-- 发布时间:2012/9/18 20:10:00
--
这个不需要这么复杂的。
确定按钮的代码:
Dim nm As String = e.Form.Controls("姓名输入框").Value Dim ps As String = e.Form.Controls("密码输入框").Value Dim dr As DataRow = DataTables("表B").Find("用户名 = \'" & nm & "\'") If dr Is Nothing Then MessageBox.show("用户不存在","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) ElseIf dr("密码") <> ps Then MessageBox.show("密码错误","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If
[此贴子已经被作者于2012-9-18 20:10:39编辑过]
|