我做个登录的窗口,怎么才能实现多用户登录

pcwak 2002-12-28 04:18:49
是下面的代码只能实现一个用户登录,帮我改改啊
If Text1.Text = rst.Fields("用户") And Text2.Text = rst.Fields("密码") Then
Form1.Show
Me.Hide
Exit Sub
Else
MsgBox "密码不对,请重新输入", 0 + 48, "警告"
Text1.SetFocus
s = s + 1
SendKeys "{Home}+{End}"
End If
...全文
98 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
of123 2002-12-28
  • 打赏
  • 举报
回复
dim cn as adodb.connection
dim rs as adodb.recordset
dim pwd() as string

private sub form_load()
set cn = new adodb.connection
set rs = new adodb.recordset
cn.open ".........."
set rs = cn.execute("select * from Password")
do until rs.eof
combo1.additem rs!用户
redim preserve pwd(combo1.newindex)
pwd(combo1.newindex) = rs!密码
rs.movenext
loop
combo1.listindex = 0
end sub

private sub cmdOK_Click()
if pwd(combo1.listindex) = Trim(txtPassword) Then
unload.Me
Form1.Show
else
MsgBox "用户名或密码错误!"
End If
end sub

Laney 2002-12-28
  • 打赏
  • 举报
回复
要是多的话,你就用access做个表,然后连接它,比较不就行了
hjx1014 2002-12-28
  • 打赏
  • 举报
回复
ft
xks 2002-12-28
  • 打赏
  • 举报
回复
在此之前

我先用access建立一个用户名和密码字段的表

表中有几条用户名和密码记录

在登录窗体上放一个data1控件

设置它的databasename为刚建立的access库

recordset 属性为表名

然后用上面的代码可以实现登录功能!

你试试看吧!

我调试过

好用的!
xks 2002-12-28
  • 打赏
  • 举报
回复
Private Sub cmdOK_Click()
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
If Trim(Data1.Recordset!用户名) = Trim(txtUserName) And Trim(Data1.Recordset!密码) = Trim(txtPassword) Then
Me.Hide
Form1.Show
Exit Sub
End If
Data1.Recordset.MoveNext
Loop
MsgBox "用户名或密码错误!"
End Sub
sduppg 2002-12-28
  • 打赏
  • 举报
回复
如果先要检验是否有这个用户,然后再检验密码是否正确话,怎么样来处理?
pcwak 2002-12-28
  • 打赏
  • 举报
回复
mousie(浩子)

假如我表中有10个记录,我要用第10个记录登录那不是要出现10次错误提示了
浩子 2002-12-28
  • 打赏
  • 举报
回复
Rst.open "select * from login where 用户='" & text1.text & "'"
If text2.text = rst!密码 then
Form1.Show
Me.Hide
Exit Sub
Else
MsgBox "密码不对,请重新输入", 0 + 48, "警告"
Text1.SetFocus
s = s + 1
SendKeys "{Home}+{End}"
End If

http://www.xygu.com
pcwak 2002-12-28
  • 打赏
  • 举报
回复
当然有表了,不然连上面的代码都不能运行
songlf0001 2002-12-28
  • 打赏
  • 举报
回复
可以建立一个用户表里面用来添加用户名和密码
再登陆框中给与验证

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧