你的算法非常的傻,剧慢没有可用性。
10年积累的网站制作、做网站经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站设计制作后付款的网站建设流程,更有娄烦免费网站建设让你可以放心的选择与我们合作。
用一个sql查询 查找 密码=输入密码,用户名等于输入的用户的记录,找到了即登录..
dim oRd as new recordset
dim db as connection ' 用db打开数据库
dim sa as string
sa=”select * from table where username='" txtDIM_Username.Text _
"' and userpassword='" txtDIM_Password.Text "'"
ord.open sa,db
if ord.eof() or ord.bof()
‘未找到,不能登录
else
'找到 登录成功....
endif
将用户名,密码,用户类型存在数据库中,登陆时比较输入的值是否与数据库相同即可。
select * from t1 where name=** and password=** and style=**
如果查询到的表是空的,说明登陆错误,否则成功
me.dispose()
楼主针对这个问题我也纠结过很久不过就在刚刚我找到了问题所在:
还是用me.close()
打开
项目
》
最下面一行有一个属性》
应用程序》下面
有一个关机模式
改为:当最后一个窗体关闭时。。。注意
me.close要写在窗体show()后面
例如
写成
f2.show()
me.close()
不要写成
me.close()
f2.show()
Dim n As Integer
If n3 then
If TextBox1.Text = "u201116812" And TextBox2.Text = "88888888" Then
MsgBox("登录成功!", 0, "提示信息")
Else
MsgBox("登录失败!", 0, "提示信息")
TextBox1.Focus()
TextBox2.Focus()
n = n + 1
‘ Return
End If
else
MsgBox("3次登录失败!", 0, "提示信息")
Me.Close()
end if