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

[pcwak]

是下面的代码只能实现一个用户登录，帮我改改啊
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

[songlf0001]

可以建立一个用户表里面用来添加用户名和密码
再登陆框中给与验证

[pcwak]

当然有表了，不然连上面的代码都不能运行

[浩子]

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]

mousie(浩子)

假如我表中有10个记录，我要用第10个记录登录那不是要出现10次错误提示了

[sduppg]

如果先要检验是否有这个用户，然后再检验密码是否正确话，怎么样来处理？

[xks]

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

[xks]

在此之前

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

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

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

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

recordset 属性为表名

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

你试试看吧！

我调试过

好用的！

[hjx1014]

ft

[Laney]

要是多的话，你就用access做个表，然后连接它，比较不就行了

[of123]

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